Return to mtok.c CVS log

Up to [Coherent Logic Development] / freem / src

Annotation of freem/src/mtok.c, revision 1.1

1.1     ! snw         1: /*
        !             2:  *                            *
        !             3:  *                           * *
        !             4:  *                          *   *
        !             5:  *                     ***************
        !             6:  *                      * *       * *
        !             7:  *                       *  MUMPS  *
        !             8:  *                      * *       * *
        !             9:  *                     ***************
        !            10:  *                          *   *
        !            11:  *                           * *
        !            12:  *                            *
        !            13:  *
        !            14:  *   mtok.c
        !            15:  *    Token lookup 
        !            16:  *
        !            17:  *  
        !            18:  *   Author: Serena Willis <jpw@coherent-logic.com>
        !            19:  *    Copyright (C) 1998 MUG Deutschland
        !            20:  *    Copyright (C) 2020 Coherent Logic Development LLC
        !            21:  *
        !            22:  *
        !            23:  *   This file is part of FreeM.
        !            24:  *
        !            25:  *   FreeM is free software: you can redistribute it and/or modify
        !            26:  *   it under the terms of the GNU Affero Public License as published by
        !            27:  *   the Free Software Foundation, either version 3 of the License, or
        !            28:  *   (at your option) any later version.
        !            29:  *
        !            30:  *   FreeM is distributed in the hope that it will be useful,
        !            31:  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            32:  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            33:  *   GNU Affero Public License for more details.
        !            34:  *
        !            35:  *   You should have received a copy of the GNU Affero Public License
        !            36:  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
        !            37:  *
        !            38:  **/
        !            39: 
        !            40: #include <stdlib.h>
        !            41: #include <string.h>
        !            42: 
        !            43: #include "mpsdef.h"
        !            44: #include "mtok.h"
        !            45: 
        !            46: tok_lut toktab[] = {
        !            47:     {0, "ABLOCK"},
        !            48:     {'a', "ASSIGN"},
        !            49:     {1, "ASTART"},
        !            50:     {2, "ASTOP"},
        !            51:     {3, "AUNBLOCK"},
        !            52:     {'b', "BREAK"},
        !            53:     {'c', "CLOSE"},
        !            54:     {'d', "DO"},
        !            55:     {4, "DO"},
        !            56:     {'e', "ELSE"},
        !            57:     {5, "ESTART"},
        !            58:     {6, "ESTOP"},
        !            59:     {7, "ETRIGGER"},
        !            60:     {'f', "FOR"},
        !            61:     {'g', "GOTO"},
        !            62:     {'h', "HA"},
        !            63:     {8, "HALT"},
        !            64:     {9, "HANG"},
        !            65:     {'i', "IF"},
        !            66:     {'j', "JOB"},
        !            67:     {'k', "KILL"},
        !            68:     {10, "KVALUE"},
        !            69:     {11, "KSUBSCRIPTS"},
        !            70:     {'l', "LOCK"},
        !            71:     {'m', "MERGE"},
        !            72:     {'n', "NEW"},
        !            73:     {'o', "OPEN"},
        !            74:     {'q', "QUIT"},
        !            75:     {'r', "READ"},
        !            76:     {12, "RLOAD"},
        !            77:     {13, "RSAVE"},
        !            78:     {'s', "SET"},
        !            79:     {14, "TCOMMIT"},
        !            80:     {15, "THEN"},
        !            81:     {16, "TRESTART"},
        !            82:     {17, "TROLLBACK"},
        !            83:     {18, "TSTART"},
        !            84:     {'u', "USE"},
        !            85:     {'v', "VIEW"},
        !            86:     {'w', "WRITE"},
        !            87:     {'x', "XECUTE"},
        !            88:     {'A', "ZALLOCATE"},
        !            89:     {'B', "ZBREAK"},
        !            90:     {'D', "ZDEALLOCATE"},
        !            91:     {'G', "ZGO"},
        !            92:     {'H', "ZHALT"},
        !            93:     {'I', "ZINSERT"},
        !            94:     {'J', "ZJOB"},
        !            95:     {'L', "ZLOAD"},
        !            96:     {'N', "ZNAMESPACE"},
        !            97:     {'P', "ZPRINT"},
        !            98:     {'Q', "ZQUIT"},
        !            99:     {'R', "ZREMOVE"},
        !           100:     {'S', "ZSAVE"},
        !           101:     {'T', "ZTRAP"},
        !           102:     {'W', "ZWRITE"},
        !           103:     {20, "ZWATCH"},
        !           104:     {21, "ZASSERT"},
        !           105:     {SP, "PRIVATE"},
        !           106:     {255, NULL}
        !           107: };
        !           108: 
        !           109: int mtok_token_to_command (char *buf, int token)
        !           110: {
        !           111:     tok_lut *p;
        !           112:     
        !           113:     for (p = toktab; p->cmd_name != NULL; ++p) {
        !           114: 
        !           115:         if (p->tok == token) {
        !           116:             strcpy (buf, p->cmd_name);            
        !           117:             stcnv_c2m (buf);
        !           118:             return 1;
        !           119:         }
        !           120: 
        !           121:     }
        !           122: 
        !           123:     return -1;
        !           124: }
        !           125: 
        !           126: int mtok_command_to_token (char *cmd_name)
        !           127: {
        !           128:     tok_lut *p;
        !           129: 
        !           130:     for (p = toktab; p->cmd_name != NULL; ++p) {
        !           131: 
        !           132:         if (strcmp (cmd_name, p->cmd_name) == 0) {
        !           133:             return p->tok;
        !           134:         }
        !           135: 
        !           136:     }
        !           137: 
        !           138:     return -1;
        !           139: }