Return to mtok.c CVS log

Up to [Coherent Logic Development] / freem / src

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

1.1       snw         1: /*
1.4     ! snw         2:  *   $Id: mtok.c,v 1.3 2025/03/09 19:50:47 snw Exp $
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.4     ! snw        26:  *   $Log: mtok.c,v $
        !            27:  *   Revision 1.3  2025/03/09 19:50:47  snw
        !            28:  *   Second phase of REUSE compliance and header reformat
        !            29:  *
1.3       snw        30:  *
                     31:  * SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
                     32:  * SPDX-License-Identifier: AGPL-3.0-or-later
1.1       snw        33:  **/
                     34: 
                     35: #include <stdlib.h>
                     36: #include <string.h>
                     37: 
                     38: #include "mpsdef.h"
                     39: #include "mtok.h"
                     40: 
                     41: tok_lut toktab[] = {
                     42:     {0, "ABLOCK"},
                     43:     {'a', "ASSIGN"},
                     44:     {1, "ASTART"},
                     45:     {2, "ASTOP"},
                     46:     {3, "AUNBLOCK"},
                     47:     {'b', "BREAK"},
                     48:     {'c', "CLOSE"},
                     49:     {'d', "DO"},
                     50:     {4, "DO"},
                     51:     {'e', "ELSE"},
                     52:     {5, "ESTART"},
                     53:     {6, "ESTOP"},
                     54:     {7, "ETRIGGER"},
                     55:     {'f', "FOR"},
                     56:     {'g', "GOTO"},
                     57:     {'h', "HA"},
                     58:     {8, "HALT"},
                     59:     {9, "HANG"},
                     60:     {'i', "IF"},
                     61:     {'j', "JOB"},
                     62:     {'k', "KILL"},
                     63:     {10, "KVALUE"},
                     64:     {11, "KSUBSCRIPTS"},
                     65:     {'l', "LOCK"},
                     66:     {'m', "MERGE"},
                     67:     {'n', "NEW"},
                     68:     {'o', "OPEN"},
                     69:     {'q', "QUIT"},
                     70:     {'r', "READ"},
                     71:     {12, "RLOAD"},
                     72:     {13, "RSAVE"},
                     73:     {'s', "SET"},
                     74:     {14, "TCOMMIT"},
                     75:     {15, "THEN"},
                     76:     {16, "TRESTART"},
                     77:     {17, "TROLLBACK"},
                     78:     {18, "TSTART"},
                     79:     {'u', "USE"},
                     80:     {'v', "VIEW"},
                     81:     {'w', "WRITE"},
                     82:     {'x', "XECUTE"},
                     83:     {'B', "ZBREAK"},
                     84:     {'G', "ZGO"},
                     85:     {'H', "ZHALT"},
                     86:     {'I', "ZINSERT"},
                     87:     {'J', "ZJOB"},
                     88:     {'L', "ZLOAD"},
                     89:     {'N', "ZNAMESPACE"},
                     90:     {'P', "ZPRINT"},
                     91:     {'Q', "ZQUIT"},
                     92:     {'R', "ZREMOVE"},
                     93:     {'S', "ZSAVE"},
                     94:     {'T', "ZTRAP"},
                     95:     {'W', "ZWRITE"},
                     96:     {20, "ZWATCH"},
                     97:     {21, "ZASSERT"},
                     98:     {SP, "PRIVATE"},
                     99:     {255, NULL}
                    100: };
                    101: 
                    102: int mtok_token_to_command (char *buf, int token)
                    103: {
                    104:     tok_lut *p;
                    105:     
                    106:     for (p = toktab; p->cmd_name != NULL; ++p) {
                    107: 
                    108:         if (p->tok == token) {
                    109:             strcpy (buf, p->cmd_name);            
                    110:             stcnv_c2m (buf);
                    111:             return 1;
                    112:         }
                    113: 
                    114:     }
                    115: 
                    116:     return -1;
                    117: }
                    118: 
                    119: int mtok_command_to_token (char *cmd_name)
                    120: {
                    121:     tok_lut *p;
                    122: 
                    123:     for (p = toktab; p->cmd_name != NULL; ++p) {
                    124: 
                    125:         if (strcmp (cmd_name, p->cmd_name) == 0) {
                    126:             return p->tok;
                    127:         }
                    128: 
                    129:     }
                    130: 
                    131:     return -1;
                    132: }