Annotation of freem/src/mpsdef0.h, revision 1.7
1.1 snw 1: /*
1.7 ! snw 2: * $Id$
1.1 snw 3: * common constants definitions for all mumps modules
4: *
5: *
1.6 snw 6: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 7: * Copyright (C) 1998 MUG Deutschland
1.7 ! snw 8: * Copyright (C) 2020, 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.7 ! 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:
1.5 snw 32: /*#pragma GCC diagnostic ignored "-Wformat-contains-nul"*/
1.1 snw 33:
34: #ifdef HAVE_CONFIG_H
35: # include <config.h>
36: #endif
37:
38: #ifdef HAVE_WIRINGPI_H
39: #define register
40: #endif
41:
42: #include <signal.h>
43: #include <stddef.h>
44:
45: #ifndef MDC_VENDOR_ID
46: #define MDC_VENDOR_ID 49
47: #endif/*MDC_VENDOR_ID*/
48:
49: #define byte char
50: #define toggle(A) (A^=01)
51:
52: /* if you do not want to run under SCO-UNIX, put the following in comment */
53:
54: #define SCO
55:
56: /* if you want mumps to run under XENIX, put the following in comment */
57: #define SYSFIVE
58:
59: /* if you want mumps to run under LINUX, un-comment the following */
60: #define LINUX
61:
62: /* rlf 01/15/99 If you want to compile under libc-6 (GLIBC), as on */
63: /* RedHat Linux >= 5.0, define LINUX_GLIBC. */
64: #define LINUX_GLIBC
65:
66: /* spz 4/19/99 If you want to compile under FreeBSD 2.2.8+, define the */
67: /* following line... */
68: /*#define FREEBSD */
69:
70: /* spz 5/24/99 use the new variable stack */
71: /* #define NEWSTACK */
72: /* #define DEBUG_NEWSTACK */
73:
74: /* rlf 01/16/99 If you want German error messages, define EM_GERMAN */
75: /* If you want English error messages, define EM_ENGLISH */
76: #define EM_ENGLISH
77:
78: /* lmv 1999-05-09 define this if you want to use gmtoff timezone data in */
79: /* struct tm instead of tzadj */
80: #define USE_GMTOFF
81:
82: /* lmv 1999-05-09 define this if you want to include sys/time.h */
83: #define USE_SYS_TIME_H
84:
85: /* lmv 1999-05-09 define this if you want to use the gettimeofday function */
86: /* instead of the ftime function */
87: #define USE_GETTIMEOFDAY
88:
89:
90: /* if you do not want MUMPS to support color terminals, put this in comment */
91: #ifdef SCO
92: #define COLOR
93: #endif /* SCO */
94:
95: /* if you do not want MUMPS to support automatic DEM <--> EUR conversion, */
96: /* put this in comment */
97: #define EUR2DEM "1.95583\201"
98:
99: /* end of line symbol 0201/-127 */
100: #define EOL ((char)'\201')
101:
102: /* end of line symbol 0202/-126/130 */
103: #define DELIM ((char)'\202')
104:
105: /* default size of a 'partition' i.e. intermediate result stack+local vars */
106: #define DEFPSIZE 8388608L
107:
108: /* default size of 'userdefined special variable table' */
109: #define DEFUDFSVSIZ 1000
110:
111: /* default size of the NEW stack */
112: #define DEFNSIZE 4096
113:
114: /* default number & size of alternate routine buffers */
115: /* maximum number of routine buffers */
116: #define MAXNO_OF_RBUF 128
117: #define DEFNO_OF_RBUF 128
118: #define DEFPSIZE0 10001
119:
120: /* number of global files concurrently open */
121: #define NO_GLOBLS 6
122:
123: /* length of global blocks */
124: #define BLOCKLEN 1024
125:
126: /* number of global buffers */
127: #define NO_OF_GBUF 6
128:
129: /* number of DO_FOR_XECUTE levels; i.e. depth of gosub-stack */
130: #define NESTLEVLS 80
131:
132: /* depth of parser stack; each pending operation/argument requires one entry */
133: #define PARDEPTH 128
134:
135: /* pattern match stack; maximum number of pattern atoms */
136: #define PATDEPTH 14
137:
138: /* trace limit in globals module, i.e. trees wo'nt grow to the sky */
139: #define TRLIM 32
140:
141: /* arguments in an ESC_sequence */
142: #define ARGS_IN_ESC 5
143:
144: /* maximum length of a string, 0 <= $L() <= 255 */
145: #define STRLEN 65535
146:
147: /* length of $ZTRAP variable */
148: #define ZTLEN 20
149:
150: /* length of $ZF (function key) variable */
151: #define FUNLEN 128
152:
153: /* length of $V(3)...$V(8) i.e. path names */
154: #define PATHLEN 4096
155:
156: /* length of error message */
157: #define ERRLEN 180
158:
159: /* number of DATE types */
160: #define NO_DATETYPE 8
161: #define NO_TIMETYPE 2
162: #define MONTH_LEN 10
163:
164: /* object stuff */
165: #define MAX_PRIVATE_KEYS 100
166: #define MAX_DESTRUCTORS 10
167: #define SC_UNCHANGED 0
168: #define SC_PUBLIC 1
169: #define SC_PRIVATE 2
170:
171:
172: /* number of zkey() production rules */
173: #define NO_V93 8
174:
175: /* depth of CS/CRST (cursor save/restore) stack */
176: #define CSLEN 1
177:
178: /* HOME device: number of lines and columns */
179: #define N_LINES 2000
180: #define N_COLUMNS 2000
181:
182: #if !defined(FALSE)
183: # define FALSE 0
184: #endif
185:
186: #if !defined(TRUE)
187: # define TRUE 1
188: #endif
189:
190: #define DISABLE 0
191: #define ENABLE 1
192:
193: /* parameters for set_io() */
194: #define UNIX 0
195: #define MUMPS 1
196:
197: #include "merr.h"
198:
199: /* HOME = default device */
200: #define HOME 0
201: /* number of devices/units */
202: #define MAXDEV 256
203: #define MAXSEQ 99 /* last sequential I/O channel */
204: #define FIRSTSCK 100 /* first socket I/O channel */
205: #define SCKCNT 155
206: #define MAXSCK SCKCNT-1
207:
208: /* if tab_clear TBC (CSI 3g) and tab_set HTS (ESC H) are not processed */
209: /* by the 'HOME' device, define the symbol PROC_TAB to emulate them */
210: /* #define PROC_TAB #otherwise make it comment !!! */
211: #define PROC_TAB
212:
213: /* ASCII control character mnemonics */
214: #define NUL 0
215: #define SOH 1
216: #define STX 2
217: #define ETX 3
218: #define EOT 4
219: #define ENQ 5
220: #define ACK 6
221: #define BEL 7
222: #define BS 8
223: #if defined(TAB)
224: # undef TAB
225: #endif
226: #define TAB 9
227: #define LF 10
228: #define VT 11
229: #define FF 12
230: #define CR 13
231: #define SO 14
232: #define SI 15
233: #define DLE 16
234: #define DC1 17
235: #define DC2 18
236: #define DC3 19
237: #define DC4 20
238: #define NAK 21
239: #define SYN 22
240: #define ETB 23
241: #define CAN 24
242: #define EM 25
243: #define SUB 26
244: #if defined(ESC)
245: # undef ESC
246: #endif
247: #define ESC 27
248: #define FS 28
249: #define GS 29
250: #define RS 30
251: #define US 31
252: #define SP 32
253: #define DEL 127
254:
255: /* function select in expr evaluator */
256: #define STRING 0
257: #define NAME 1
258: #define LABEL 2
259: #define OFFSET 3
260: #define ARGIND 4
261:
262: /* function select in global/local/ssv variables management */
263: /* even numbers require 'read/write' access, odd numbers 'read' access */
264: #define set_sym 0
265: #define kill_sym 2
266: #define kill_all 4
267: #define killexcl 6
268: #define new_sym 8
269: #define new_all 10
270: #define newexcl 12
271: #define killone 14
272: #define merge_sym 16
273: #define lock_inc 24
274: #define lock_dec 26
275: #define lock_old 28
276:
277: #define get_sym 1
278: #define dat 3
279: #define fra_order 5
280: #define fra_query 7
281: #define bigquery 9
282: #define getinc 11
283: #define getnext 13
284: #define m_alias 15
285: #define zdata 17
286:
287: /* sets 8th bit in A */
288: #define SETBIT(A) ((A)|0200)
289: /* needed if byte data are to be interpreted as unsigned integer */
290:
291: #define UNSIGN(A) ((A)&0377)
292:
293: /* Fail if pointer null */
294: extern void m_fatal(char *s);
295: #define NULLPTRCHK(p,s) if (p == NULL) m_fatal(s)
296:
297: /* device control for terminal I/O */
298:
299: #define ECHOON (~DSW&BIT0)
300: #define DELMODE (DSW&BIT2)
301: #define ESCSEQPROC (DSW&BIT6)
302: #define CONVUPPER (DSW&BIT14)
303: #define DELEMPTY (DSW&BIT19)
304: #define NOCTRLS (DSW&BIT20)
305: #define CTRLOPROC (DSW&BIT21)
306: #define NOTYPEAHEAD (DSW&BIT25)
307:
308: #define BIT0 1
309: #define BIT1 2
310: #define BIT2 4
311: #define BIT3 8
312: #define BIT4 16
313: #define BIT5 32
314: #define BIT6 64
315: #define BIT7 128
316: #define BIT8 256
317: #define BIT9 512
318: #define BIT10 1024
319: #define BIT11 2048
320: #define BIT12 4096
321: #define BIT13 8192
322: #define BIT14 16384
323: #define BIT15 32768
324: #define BIT16 65536
325: #define BIT17 131072
326: #define BIT18 262144
327: #define BIT19 524288
328: #define BIT20 1048576
329: #define BIT21 2097152
330: #define BIT22 4194304
331: #define BIT23 8388608
332: #define BIT24 16777216
333: #define BIT25 33554432
334: #define BIT26 67108864
335: #define BIT27 134217728
336: #define BIT28 268435456
337: #define BIT29 536870912
338: #define BIT30 1073741824
339: #define BIT31 2147483648
340:
341: /* functions from mumps.c */
342: void unnew (void);
343:
344: #include "sighnd.h"
345:
346: /* functions from expr.c */
347: void expr (short extyp);
1.2 snw 348: void zsyntax (char *a);
349: void zkey (char *a, long type);
1.1 snw 350: short is_horolog(char *s);
351:
352: /* functions from ssvn.c */
353: void ssvn (short action, char *key, char *data);
354:
355: /* functions from ssvn_character.c */
356: void ssvn_character(short action, char *key, char *data);
357:
358: /* functions from ssvn_device.c */
359: void ssvn_device(short action, char *key, char *data);
360:
361: /* functions from ssvn_display.c */
362: void ssvn_display_update(void);
363: void ssvn_display(short action, char *key, char *data);
364:
365: /* functions from ssvn_event.c */
366: void ssvn_event(short action, char *key, char *data);
367:
368: /* functions from ssvn_global.c */
369: void ssvn_global(short action, char *key, char *data);
370:
371: /* functions from ssvn_job.c */
372: void ssvn_job_add_device(int channel, char *device);
373: void ssvn_job_remove_device(int channel);
374: void ssvn_job_update(void);
375: void ssvn_job(short action, char *key, char *data);
376: void frm_process_alias (char *key);
377:
378: /* functions from ssvn_library.c */
379: void ssvn_library(short action, char *key, char *data);
380: void ssvn_library_update(void);
381:
382: /* functions from ssvn_object.c */
383: void ssvn_object(short action, char *key, char *data);
384:
385: /* functions from ssvn_lock.c */
386: void ssvn_lock_add(char *key, pid_t owner_job, int count);
387: void ssvn_lock_remove(char *key);
388: void ssvn_lock(short action, char *key, char *data);
389:
390: /* functions from ssvn_routine.c */
391: void ssvn_routine(short action, char *key, char *data);
392: void ssvn_routine_update(void);
393:
394: /* functions from ssvn_system.c */
395: void ssvn_system(short action, char *key, char *data);
396: void ssvn_system_update(void);
397: /* functions from ssvn_window.c */
398: void ssvn_window(short action, char *key, char *data);
399:
400: /* functions from ssvn_z.c */
401: void ssvn_z(short action, char *key, char *data);
402:
403: /* functions from ssvn_zos.c */
404: void ssvn_zos(short action, char *key, char *data);
405:
406: /* functions from ssvn_zfreem.c */
407: void ssvn_zfreem(short action, char *key, char *data);
408:
409: /* functions from ssvn_zprocess.c */
410: void ssvn_zprocess(short action, char *key, char *data);
411:
412: /* functions from ssvn_routine.c */
413: void ssvn_routine_date(void);
414:
415: #include "ssvn_zrpi.h"
416:
417: /* functions from symtab_dispatch.c */
418: void symtab (short action, char *key, char *data);
1.2 snw 419:
420: /* functions from symtab_bltin.c */
421: short int collate (char *s, char *t);
422: short int numeric (char *str);
423: short int comp (char *s, char *t);
424: void intstr (char *str, short integ);
425: void lintstr (char * str, long integ);
426: void udfsvn (short action, char *key, char *data);
427: long getpmore (void);
428: long getumore (void);
429: long getrmore (void);
430: short int getnewmore (void);
1.1 snw 431:
432: /* functions from init.c */
433: void reset_terminal(void);
434:
435: /* functions from symtab_bltin.c */
1.2 snw 436: void symtab_init (void);
1.1 snw 437: short symtab_get_sem(void);
438: void symtab_release_sem(void);
439: void symtab_shm (short action, char *key, char *data);
440: void symtab_bltin (short action, char *key, char *data);
441:
442: /* functions from global_dispatch.c */
443: void global_set_engine(char ns, char *engine);
444: void global (short action, char *key, char *data);
445: void close_all_globals ();
446:
447: /* functions from global_bltin.c */
448: void global_bltin (short action, char *key, char *data);
449: void gbl_dump_stat (void);
450:
451: /* functions from operator.c */
1.2 snw 452: short int pattern (char *a, char *b);
453: void pminmax (char *str, int *min, int *max);
454: void add (char *a, char *b);
455: void mul (char *a, char *b);
456: void mdiv (char *uu, char *v, short typ);
457: void power (char *a, char *b);
458: void g_sqrt (char *a);
459: void root (char *a, long n);
460: int numlit (char *str);
461: long intexpr (char *str);
462: short int tvexpr (char *str);
463: void m_op (char *a, char *b, short op);
1.3 snw 464: void mround (char *a, int digits);
1.1 snw 465:
466: /* functions from service.c */
1.2 snw 467: long int find (char *string, char *pattern);
468: short int kill_ok (char *exceptions, char *);
469: void write_f (char *intext);
470: void writeHOME (char *text);
471: void m_output (char *text);
472: void write_m (char *text);
1.1 snw 473: void write_t (short int col);
1.2 snw 474: void ontimo (void);
1.1 snw 475: void read_m (char *stuff, long read_timeout, short read_timeoutms, short length);
1.2 snw 476: int rdchk0 (int *data);
477: int locking (int fd, int action, long count);
1.1 snw 478: void set_io (short action);
479: void set_break (short break_char);
480: void set_zbreak (short quit_char);
481: void lock (char *lockarg, long time_out, char type);
482:
483: /* functions from routine.c */
484: #include "routine.h"
1.2 snw 485: void lineref (char **addr);
486: void zi (char *line, char *position);
1.1 snw 487:
488: /* functions from strings.c */
489: long int stlen (const char *source);
490: long int stnlen (const char *source, size_t siz);
491: long int stcpy (char *dest, const char *source);
492: long int stncpy (char *dest, const char *source, size_t siz);
493: void stcpy0 (char *dest, const char *source, long length);
494: void stcpy1 (char *dest, const char *source, long length);
495: short int stcat (char *dest, const char *source);
496: long int stncat (char *dest, const char *source, size_t siz);
497: short int stcmp (char *str1, char *str2);
498: char *trim (char *s);
499: void stcnv_m2c (char *mstr);
500: void stncnv_m2c(char *mstr, size_t siz);
501: void stcnv_c2m (char *cstr);
502: void stncnv_c2m(char *cstr, size_t siz);
503: size_t key_to_name (char *buf, const char *key, size_t count);
504: size_t name_to_key (char *buf, const char *name, size_t count);
505: void create_var_key (char *buf, int subct, char *nam, ...);
506: void trim_decimal (char *s);
507: void uuid_v4 (char *buf);
508:
509: short is_standard(void);
510: int rtn_dialect(void);
511:
512: /* CRT screen */
513: struct vtstyp {
514: unsigned char screenx[N_LINES + 1][N_COLUMNS]; /* characters */
515: unsigned char screena[N_LINES + 1][N_COLUMNS]; /* attributes */
516: #ifdef COLOR
517: unsigned char screenc[N_LINES + 1][N_COLUMNS]; /* colors */
518: #endif /* COLOR */
519: char sclines[N_LINES + 1]; /* lines translation table */
520: char rollflag; /* Roll or Page mode */
521: char lin24; /* 24 lines or 25 lines mode */
522: char savarg;
523: char tabs[N_COLUMNS];
524: unsigned char Xpos;
525: unsigned char Ypos;
526: unsigned char sc_up;
527: unsigned int sc_lo; /* jpw */
528: unsigned char csx[CSLEN];
529: unsigned char csy[CSLEN];
530: short cssgr[CSLEN]; /* save SGR flag */
531: short cscol[CSLEN]; /* save SGR flag */
532: short cs;
533: unsigned char att;
534: #ifdef COLOR
535: unsigned char col; /* color byte */
536: #endif /* COLOR */
537: #ifdef SCO
538: unsigned char bw; /* black_on_white flag */
539: #endif /* SCO */
540: };
541:
542: /* functions from views.c */
1.2 snw 543: void view_com (void);
544: void view_fun (int f, char *a);
545: short int newpsize (long size);
546: short int newusize (long size);
547: short int newrsize (long size, long nbrbuf);
548: void zreplace (char *a, char *b, char *c);
549: short int tstglvn (char *a);
550: void zname (char *a, char *b);
551: short int znamenumeric (char *str);
552: void procv22 (char *key);
553: void v25 (char *a, int i);
554: void m_tolower (char *str);
1.1 snw 555: void part_ref (struct vtstyp *scr, short from, short to);
556:
557: #define D_FREEM 0
558: #define D_M77 1
559: #define D_M84 2
560: #define D_M90 3
561: #define D_M95 4
562: #define D_MDS 5
563: #define D_M5 6
564:
565: /* per-routine flags */
566: typedef struct rtn_flags {
567: short standard;
568: short dialect;
569: } rtn_flags;
570:
571:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mpsdef0.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src