Annotation of freem/src/mcommand.c, revision 1.4
1.1 snw 1: /*
1.4 ! snw 2: * $Id: mcommand.c,v 1.3 2025/03/09 19:50:47 snw Exp $
1.1 snw 3: * M command utility functions
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.4 ! snw 26: * $Log: mcommand.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 <string.h>
1.4 ! snw 36: #include <ctype.h>
1.1 snw 37: #include <stdlib.h>
38: #include "mpsdef.h"
39: #include "mcommand.h"
40:
41: MRESULT mcmd_tokenize(MACTION *ra, char *tmp3, char *deferrable_codptr, char *deferrable_code, int *j)
42: {
43: tmp3[0] = SP;
44: tmp3[1] = mcmnd;
45: tmp3[++(*j)] = SP;
46: tmp3[++(*j)] = EOL;
47:
48: if (mcmnd != 'z') {
49:
50: if (find (" ab ablock assert assign asta astart asto astop aunb aunblock \
1.4 ! snw 51: break close do else esta estart esto estop etr etrigger for goto hang halt \
! 52: if job kill ks ksubscripts kv kvalue lock merge new open quit read rl rload \
! 53: rs rsave set tc tcommit th then tro trollback ts tstart use \
! 54: view wa watch write xecute ", tmp3) == FALSE) {
1.1 snw 55: return CMMND;
56: }
57:
58: switch (mcmnd)
59: {
60:
61: case 'a':
62:
63: if (tmp3[2] == 'b') {
64: mcmnd = ABLOCK;
65: }
66: else if (tmp3[2] == 'u') {
67: mcmnd = AUNBLOCK;
68: }
69: else if (tmp3[2] == 's') {
70:
71: if (tmp3[4] == 'a') {
72: mcmnd = ASTART;
73: }
74: else if (tmp3[4] == 'o') {
75: mcmnd = ASTOP;
76: }
77:
78: }
79:
80: break;
81:
1.4 ! snw 82: case 'c':
! 83: mcmnd = CLOSE;
! 84: break;
1.1 snw 85:
86: case 'e':
87: if (tmp3[2] == 't') mcmnd = ETRIGGER;
88: else if (tmp3[4] == 'a') mcmnd = ESTART;
89: else if (tmp3[4] == 'o') mcmnd = ESTOP;
90: break;
91:
92: case 'h':
93: mcmnd = tmp3[4] == 't' ? HALT : HANG;
94: break;
95:
96: case 'k':
97: if (tmp3[2] == 'v') mcmnd = KVALUE;
98: else if (tmp3[2] == 's') mcmnd = KSUBSC;
99: break;
100:
101: case 'm':
102:
103: if (tmp3[2] == 'e') {
104:
105: /* save off pre-parse codptr and code for commands implemented in M routines */
106: deferrable_codptr = codptr;
107: stcpy (deferrable_code, "MERGE\201");
108: stcat (deferrable_code, deferrable_codptr);
109:
110: break;
111:
112: }
113:
114: case 'r':
115: if (tmp3[2] == 'l') mcmnd = RLOAD;
116: else if (tmp3[2] == 's') mcmnd = RSAVE;
117: break;
118:
119: case 't':
120: if (tmp3[2] == 'c') mcmnd = TCOMMIT;
121: else if (tmp3[2] == 'h') {
122: if (tmp3[3] == 'e') {
123: mcmnd = THEN;
124: }
125: }
126: else if (tmp3[3] == 'o') mcmnd = TROLLBACK;
127: else if (tmp3[2] == 's') mcmnd = TSTART;
128: break;
129:
130: case 'w':
1.4 ! snw 131: mcmnd = WRITE;
1.1 snw 132: break;
133:
1.4 ! snw 134: case 'u':
! 135: mcmnd = USE;
! 136: break;
1.1 snw 137:
138: } /* end of switch(mcmnd) */
139:
140: }
141: else {
142:
143: mcmnd = tmp3[2] - 32; /* z_command select */
1.4 ! snw 144:
! 145: switch (mcmnd) {
! 146:
! 147: case 'A':
! 148: mcmnd = ASSERT_TKN;
! 149: break;
! 150:
! 151: case 'C':
! 152: mcmnd = CONST;
! 153: break;
! 154:
! 155: case 'M':
! 156: mcmnd = MAP;
! 157: break;
! 158:
! 159: case 'T':
! 160: mcmnd = THROW;
! 161: break;
! 162:
! 163: case 'U':
! 164: mcmnd = UNMAP;
! 165: break;
! 166:
! 167: case 'W':
! 168: switch (toupper (tmp3[3])) {
! 169: case 'R':
! 170: mcmnd = ZWRITE;
! 171: break;
! 172: case 'A':
! 173: mcmnd = WATCH;
! 174: break;
! 175: case 'I':
! 176: mcmnd = OO_WITH;
! 177: break;
! 178: }
! 179: break;
! 180:
! 181: }
1.1 snw 182:
183: if (find (zcommds, tmp3) == FALSE) mcmnd = PRIVATE;
184: }
185:
1.4 ! snw 186: mcmnd_done:
1.1 snw 187: *ra = RA_CONTINUE;
188: return OK;
189: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mcommand.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src