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