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