Return to mtok.c CVS log

Up to [Coherent Logic Development] / freem / src

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

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