Annotation of freem/src/datatypes.c, revision 1.1
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: }
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