![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to datatypes.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src|
Return to datatypes.c CVS log | Up to [Coherent Logic Development] / freem / src |
1.1 snw 1: /*
2: * *
3: * * *
4: * * *
5: * ***************
6: * * * * *
7: * * MUMPS *
8: * * * * *
9: * ***************
10: * * *
11: * * *
12: * *
13: *
14: * datatypes.c
15: * supports the type system
16: *
17: *
18: * Author: Serena Willis <jpw@coherent-logic.com>
19: * Copyright (C) 1998 MUG Deutschland
20: * Copyright (C) 2023 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 <string.h>
41: #include <stdlib.h>
42: #include <stdio.h>
43: #include <unistd.h>
44: #include <ctype.h>
45:
46: #include "mpsdef.h"
47: #include "datatypes.h"
48:
49: short dt_get_type(char *type_string)
50: {
51: register int i;
52:
53: for (i = 0; i < strlen (type_string); i++) {
54: type_string[i] = toupper (type_string[i]);
55: }
56:
57: if ((strcmp (type_string, "STRING")) == 0) {
58: return DT_STRING;
59: }
60: else if ((strcmp (type_string, "BOOLEAN")) == 0) {
61: return DT_BOOLEAN;
62: }
63: else if ((strcmp (type_string, "COMPLEX")) == 0) {
64: return DT_COMPLEX;
65: }
66: else if ((strcmp (type_string, "INTEGER")) == 0) {
67: return DT_INTEGER;
68: }
69: else if ((strcmp (type_string, "MATRIX")) == 0) {
70: return DT_MATRIX;
71: }
72: else if ((strcmp (type_string, "NAME")) == 0) {
73: return DT_NAME;
74: }
75: else if ((strcmp (type_string, "REAL")) == 0) {
76: return DT_REAL;
77: }
78: else {
79: return DT_INVALID;
80: }
81: }
82:
83: void dt_get_typestr (char *buf, short datatype)
84: {
85: switch (datatype) {
86:
87: case DT_AUTO:
88: sprintf (buf, "AUTO");
89: break;
90:
91: case DT_STRING:
92: sprintf (buf, "STRING");
93: break;
94:
95: case DT_BOOLEAN:
96: sprintf (buf, "BOOLEAN");
97: break;
98:
99: case DT_INTEGER:
100: sprintf (buf, "INTEGER");
101: break;
102:
103: case DT_REAL:
104: sprintf (buf, "REAL");
105: break;
106:
107: case DT_NAME:
108: sprintf (buf, "NAME");
109: break;
110:
111: case DT_COMPLEX:
112: sprintf (buf, "COMPLEX");
113: break;
114:
115: case DT_MATRIX:
116: sprintf (buf, "MATRIX");
117: break;
118:
119: }
120: }
121:
122: short dt_check(short datatype, char *data, int arg_num)
123: {
124: short res;
125: char dtc_temp[10];
126:
127: switch (datatype) {
128:
129: case DT_AUTO:
130: case DT_STRING:
131: case DT_BOOLEAN:
132: res = TRUE;
133: break;
134:
135: case DT_COMPLEX:
136: res = dt_check_complex (data);
137: break;
138:
139: case DT_MATRIX:
140: res = dt_check_matrix (data);
141: break;
142:
143: case DT_INTEGER:
144: res = dt_check_integer (data);
145: break;
146:
147: case DT_REAL:
148: res = dt_check_real (data);
149: break;
150:
151: default:
152: res = FALSE;
153:
154: }
155:
156: if (res == FALSE) {
157: dt_get_typestr (dtc_temp, datatype);
158:
159: if (arg_num == 0) {
160: sprintf (err_suppl, "%s expected for extrinsic function return value\201", dtc_temp);
161: }
162: else {
163: sprintf (err_suppl, "%s expected in argument %d\201", dtc_temp, arg_num);
164: }
165: }
166:
167: return res;
168:
169: }
170:
171: short dt_check_complex(char *data)
172: {
173: register char ch;
174: register int i;
175:
176: char *cpx_real;
177: char *cpx_imaginary;
178:
179: int pctct = 0;
180:
181: while ((ch = *data++) != EOL) {
182: if (ch == '%') {
183: pctct++;
184: if (pctct > 1) return FALSE;
185: }
186: }
187:
188: cpx_real = strtok (data, "%");
189: cpx_imaginary = strtok (NULL, "%");
190:
191: if ((dt_check_real (cpx_real) == FALSE) || (dt_check_real (cpx_imaginary) == FALSE)) {
192: return FALSE;
193: }
194:
195: return TRUE;
196: }
197:
198: short dt_check_integer(char *data)
199: {
200: register char ch;
201: register int i;
202:
203: i = 0;
204:
205: while ((ch = *data++) != EOL) {
206:
207: if (((ch == '+') || (ch == '-')) && i > 0) return FALSE;
208:
209: if (!isdigit (ch)) return FALSE;
210:
211: i++;
212:
213: }
214:
215: return TRUE;
216: }
217:
218: short dt_check_matrix(char *data)
219: {
220: return FALSE;
221: }
222:
223: short dt_check_name(char *data)
224: {
225: return FALSE;
226: }
227:
228: short dt_check_real(char *data)
229: {
230: register char ch;
231: register int i;
232: int ptct;
233:
234: i = 0;
235: ptct = 0;
236:
237: while ((ch = *data++) != EOL) {
238:
239: if (((ch == '+') || (ch == '-')) && i > 0) return FALSE;
240:
241: if ((ch == '.') && (++ptct > 1)) return FALSE;
242:
243: if (!isdigit (ch)) return FALSE;
244:
245: i++;
246:
247: }
248:
249: return TRUE;
250: }