Return to cmd_tstart.c CVS log

Up to [Coherent Logic Development] / freem / src

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

1.1       snw         1: /*
1.3     ! snw         2:  *   $Id$
1.1       snw         3:  *    Implementation of the TSTART command
                      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) 2023, 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 <string.h>
                     33: #include <stdlib.h>
                     34: #include <ctype.h>
                     35: #include "mpsdef.h"
                     36: #include "mcommand.h"
                     37: #include "consttbl.h"
                     38: #include "transact.h"
                     39: 
                     40: MRESULT cmd_tstart(MACTION *ra)
                     41: {
                     42:     register char ch;
                     43:     short serial = FALSE;
                     44:     short restartable = FALSE;
                     45:     char tran_ident[50];
                     46:     char tre_offset[50];
                     47:     short parct = 0;
                     48:     
                     49:     if ((rtn_dialect () != D_M95) &&
                     50:         (rtn_dialect () != D_MDS) &&
                     51:         (rtn_dialect () != D_M5) &&
                     52:         (rtn_dialect () != D_FREEM)) {
                     53:         return NOSTAND;
                     54:     }
                     55:     
                     56:     uuid_v4 (tran_ident);
                     57:     
                     58:     if (((ch = *codptr) == SP) || ch == EOL) {
                     59:         
                     60:         serial = FALSE;
                     61:         restartable = FALSE;
                     62:         
                     63:         goto exec_tstart;
                     64:         
                     65:     }
                     66:     
                     67:     restartable = TRUE;
                     68:     getraddress (tre_offset, nstx);
                     69:     
                     70:     //printf ("tre_offset = '%s'\r\n", tre_offset);
                     71:     
                     72:     if (ch == ':') {
                     73:         restartable = FALSE;
                     74:         goto tstart_param;
                     75:     }
                     76:     else if (ch == '(') {
                     77:         ch = *codptr++;
                     78:         
                     79:         if (ch == ')') goto tstart_param;
                     80:     }
                     81:     else if (ch == '*') {
                     82:         printf ("all varnames\r\n");
                     83:     }
                     84:     else if ((ch >= 'a' && ch <= 'z') || (ch >= 'A' && ch <= 'Z')) {
                     85:         printf ("one varname\r\n");
                     86:     }
                     87:     
                     88:     
                     89: tstart_param:           
                     90:     
                     91:     codptr++;    
                     92:     ch = *codptr;
                     93:     
                     94:     switch (ch) {
                     95:         
                     96:         case ':':            
                     97:             goto tstart_param;
                     98:             
                     99:         case 's':
                    100:         case 'S':
                    101:             
                    102:             expr (NAME);            
                    103:             if (merr ()) return merr ();
                    104:             
                    105:             stcnv_m2c (varnam);
                    106:             {
                    107:                 int stct;
                    108:                 for (stct = 0; stct < strlen (varnam); stct++) {
                    109:                     varnam[stct] = toupper (varnam[stct]);
                    110:                 }
                    111:             }
                    112:             
                    113:             if ((strcmp (varnam, "S") == 0) ||
                    114:                 (strcmp (varnam, "SERIAL") == 0)) {
                    115:                 serial = TRUE;
                    116:             }
                    117:             else {
                    118:                 return SYNTERR;
                    119:             }
                    120:             
                    121:             goto tstart_param;
                    122:             
                    123:         case 't':
                    124:         case 'T':
                    125:             
                    126:             expr (NAME);            
                    127:             if (merr ()) return merr ();
                    128:             
                    129:             stcnv_m2c (varnam);                        
                    130:             {
                    131:                 int stct;
                    132:                 for (stct = 0; stct < strlen (varnam); stct++) {
                    133:                     varnam[stct] = toupper (varnam[stct]);
                    134:                 }
                    135:             }
                    136:             
                    137:             if ((strcmp (varnam, "T") == 0) ||
                    138:                 (strcmp (varnam, "TRANSACTIONID") == 0)) {
                    139:                 
                    140:                 codptr++;
                    141:                 
                    142:                 if ((ch = *codptr) != '=') {
                    143:                     return ASSIGNER;
                    144:                 }
                    145:                 
                    146:                 codptr++;                        
                    147:                 
                    148:                 expr (STRING);                
                    149:                 if (merr () == BRAER) merr_clear ();                       
                    150:                 if (merr () > OK) {
                    151:                     return merr ();
                    152:                 }
                    153:                 
                    154:                 stcnv_m2c (argptr);
                    155:                 strcpy (tran_ident, argptr);
                    156:                 
                    157:                 codptr--;
                    158:                 
                    159:                 goto tstart_param;
                    160:                 
                    161:             }
                    162:             break;
                    163:             
                    164:         case '(':
                    165:             
                    166:             parct++;
                    167:             
                    168:             if (parct > 1) {
                    169:                 return SYNTERR;
                    170:             }
                    171:             
                    172:             goto tstart_param;
                    173:             
                    174:             break;
                    175:             
                    176:         case ')':
                    177:             
                    178:             parct--;
                    179:             
                    180:             if (parct < 0) {
                    181:                 return SYNTERR;
                    182:             }
                    183:             
                    184:             goto exec_tstart;
                    185:             
                    186:         case SP:
                    187:         case EOL:
                    188:             
                    189:             if (parct > 0) {
                    190:                 return BRAER;
                    191:             }
                    192:             
                    193:             goto exec_tstart;
                    194:             
                    195:         default:
                    196:             
                    197:             return SYNTERR;
                    198:             
                    199:     }
                    200:     
                    201:     
                    202: exec_tstart:            
                    203:     tp_tstart (tran_ident, serial, restartable, NULL);
                    204:     
                    205:     while ((ch = *(codptr++)) != SP && ch != EOL) ; /* skip to the end of the command */            
                    206:     *ra = RA_NEXTCMND;
                    207:     return OK;    
                    208: }