Annotation of freem/src/frmgbl.c, revision 1.1
1.1 ! snw 1: /*
! 2: * *
! 3: * * *
! 4: * * *
! 5: * ***************
! 6: * * * * *
! 7: * * MUMPS *
! 8: * * * * *
! 9: * ***************
! 10: * * *
! 11: * * *
! 12: * *
! 13: *
! 14: * frmgbl.c
! 15: * freem global C variables
! 16: *
! 17: *
! 18: * Author: Serena Willis <jpw@coherent-logic.com>
! 19: * Copyright (C) 1998 MUG Deutschland
! 20: * Copyright (C) 2020 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: /* needed if byte data are to be interpreted as unsigned integer */
! 41: #include <stdlib.h>
! 42: #include <setjmp.h>
! 43: #include <signal.h>
! 44: #include <stdio.h>
! 45: #include "mpsdef0.h"
! 46: #include <fcntl.h>
! 47: #include <unistd.h>
! 48: #include <string.h>
! 49: #include <sys/types.h>
! 50: #include <sys/wait.h>
! 51: #include "transact.h"
! 52: #include "locktab.h"
! 53: #include <errno.h>
! 54:
! 55: #ifdef LIBFREEM
! 56: # include "errmsg.h"
! 57: #endif
! 58:
! 59: #if defined HAVE_NCURSESW_CURSES_H
! 60: # include <ncursesw/curses.h>
! 61: #elif defined HAVE_NCURSESW_H
! 62: # include <ncursesw.h>
! 63: #elif defined HAVE_NCURSES_CURSES_H
! 64: # include <ncurses/curses.h>
! 65: #elif defined HAVE_NCURSES_H
! 66: # include <ncurses.h>
! 67: #elif defined HAVE_CURSES_H
! 68: # include <curses.h>
! 69: #else
! 70: # error "SysV or X/Open-compatible Curses header file required"
! 71: #endif
! 72:
! 73: #define UNSIGN(A) ((A)&0377)
! 74:
! 75: #define g_EOL 30
! 76: #define POINT 28
! 77: #define MINUS 26
! 78:
! 79: #define ROOT 0L
! 80: /* length of blocks. status bytes defined as offset to blocklength */
! 81: #define DATALIM (BLOCKLEN-11)
! 82: #define LLPTR (BLOCKLEN-10)
! 83: #define NRBLK LLPTR
! 84: #define RLPTR (BLOCKLEN- 6)
! 85: #define FREE RLPTR
! 86: #define BTYP (BLOCKLEN- 3)
! 87: #define OFFS (BLOCKLEN- 2)
! 88:
! 89: #define EMPTY 0
! 90: #define FBLK 1
! 91: #define POINTER 2
! 92: #define BOTTOM 6
! 93: #define DATA 8
! 94:
! 95: #define PROTECT 30
! 96:
! 97:
! 98: #ifndef SYSFIVE
! 99: #define FreeM_timezone -3600
! 100: #else
! 101:
! 102: #ifdef __CYGWIN__
! 103: #define FreeM_timezone _timezone
! 104: #else
! 105: long FreeM_timezone;
! 106: #endif /* __CYGWIN__ */
! 107:
! 108: #endif /* SYSFIVE */
! 109:
! 110: #if defined(__CYGWIN__)
! 111: # define FreeM_timezone _timezone
! 112: #endif
! 113:
! 114: /* mumps commands */
! 115: #define BREAK 'b'
! 116: #define CLOSE 'c'
! 117: #define DO 'd'
! 118: #define DO_BLOCK 2
! 119: #define ELSE 'e'
! 120: #define FOR 'f'
! 121: #define GOTO 'g'
! 122: #define HA 'h'
! 123: #define HALT '0'
! 124: #define HANG '1'
! 125: #define IF 'i'
! 126: #define JOB 'j'
! 127: #define KILL 'k'
! 128: #define LOCK 'l'
! 129: #define NEW 'n'
! 130: #define OPEN 'o'
! 131: #define QUIT 'q'
! 132: #define READ 'r'
! 133: #define SET 's'
! 134: #define USE 'u'
! 135: #define VIEW 'v'
! 136: #define WRITE 'w'
! 137: #define XECUTE 'x'
! 138:
! 139: #define ZALLOCATE 'A'
! 140: #define ZBREAK 'B'
! 141: #define ZDEALLOCATE 'D'
! 142: #define ZGO 'G'
! 143: #define ZHALT 'H'
! 144: #define ZINSERT 'I'
! 145: #define ZJOB 'J'
! 146: #define ZLOAD 'L'
! 147: #define ZNEW 'N'
! 148: #define ZPRINT 'P'
! 149: #define ZQUIT 'Q'
! 150: #define ZREMOVE 'R'
! 151: #define ZSAVE 'S'
! 152: #define ZTRAP 'T'
! 153: #define ZWRITE 'W'
! 154: #define PRIVATE SP
! 155:
! 156: #if defined(HAVE_MWAPI_MOTIF)
! 157: # include <Xm/Xm.h>
! 158: XtAppContext mwapi_context;
! 159: #endif
! 160:
! 161: short run_daemon = FALSE;
! 162: short nofork = FALSE;
! 163: char *pid_file_path;
! 164: int pid_fd;
! 165:
! 166: /* USING and WITH */
! 167: char i_using[STRLEN] = {'\201'};
! 168: char i_with[STRLEN] = {'\201'};
! 169:
! 170: /* common definitions for all mumps modules */
! 171: /* same as external definition in include_file mpsdef */
! 172:
! 173: extern int errno; /* external error code for systemcalls */
! 174:
! 175: int m_argc; /* arguments count */
! 176: char **m_argv; /* arguments string */
! 177: char **m_envp; /* environment pointer */
! 178:
! 179: short frm_throw_all_errors = 1;
! 180:
! 181: /* glvn size parameters */
! 182: union four_fl {
! 183: long unsigned all;
! 184: char one[4];
! 185: } glvnflag; /* [0] unique name chars 0=no limit */
! 186:
! 187: /* [1] case sensitivity flag 0=sensitive */
! 188: /* [2] max. name+subscripts 0=no limit */
! 189: /* [3] max. length of a subscript 0=no limit */
! 190: int libflag = FALSE; /* running as library? */
! 191: int lonelyflag = FALSE; /* single user flag */
! 192: int lowerflag = TRUE; /* lowercase everywhere flag */
! 193: int killerflag = TRUE; /* SIGTERM handling flag */
! 194: int huperflag = TRUE; /* SIGHUP handling flag */
! 195: int s_fun_flag = TRUE; /* VIEW 70: ZSORT/ZSYNTAX flag */
! 196: int n_fun_flag = TRUE; /* VIEW 71: ZNEXT/ZNAME flag */
! 197: int p_fun_flag = TRUE; /* VIEW 72: ZPREVIOUS/ZPIECE flag */
! 198: int d_fun_flag = TRUE; /* VIEW 73: ZDATA/ZDATE flag */
! 199: int zjobflag = TRUE; /* VIEW 79: old ZJOB vs. new ZJOB flag */
! 200: int eightbit = TRUE; /* VIEW 80: 7 vs. 8 bit flag */
! 201: int PF1flag = FALSE; /* VIEW 81: PF1 flag */
! 202: int ordercounter = 0; /* VIEW 82: order counter */
! 203: int etxtflag = FALSE; /* VIEW 83: text in $ZE flag */
! 204: char lvndefault[256] = "\201"; /* VIEW 89: UNDEF lvn default */
! 205: char gvndefault[256] = "\201"; /* VIEW 90: UNDEF gvn default */
! 206: char exfdefault[256] = "\201"; /* VIEW 91: missing QUIT expr default */
! 207: int typemmflag = FALSE; /* VIEW 92: EUR2DEM: type mismatch error */
! 208: int namespace = 0; /* VIEW 200: namespace index */
! 209: int config = 0; /* VIEW 201: configuration index */
! 210: char WHR[12][4] = { /* names of currencies */
! 211: "\201",
! 212: "EUR\201",
! 213: "ATS\201",
! 214: "BFR\201",
! 215: "DEM\201",
! 216: "ESP\201",
! 217: "FMK\201",
! 218: "FRF\201",
! 219: "IEP\201",
! 220: "ITL\201",
! 221: "NLG\201",
! 222: "PTE\201"
! 223: };
! 224:
! 225: char EUR2WHR[12][9] = { /* conversion factors EUR to ... */
! 226: "\201", /* dont care */
! 227: "1\201", /* to EUR */
! 228: "13.7603\201", /* to ATS */
! 229: "40.3399\201", /* to BFR */
! 230: "1.95583\201", /* to DEM (DM) */
! 231: "166.386\201", /* to ESP */
! 232: "5.94573\201", /* to FMK */
! 233: "6.55957\201", /* to FRF (FF) */
! 234: ".787564\201", /* to IEP */
! 235: "1936.27\201", /* to ITL */
! 236: "2.20371\201", /* to NLG */
! 237: "200.482\201" /* to PTE */
! 238: };
! 239:
! 240: long v93 = 1; /* VIEW 93: ASCII rule default */
! 241: char v93a[NO_V93][2560] = {
! 242: /* ASCII */
! 243: " :, :!,A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z\201",
! 244: /* B - BELGIAN */
! 245: " :, :!,@:a,\\:c,{:e,}:e,\
! 246: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z\201,\200:e",
! 247: /* D - GERMAN */
! 248: " \001\002 \001\002!\001\002\042\001\002#\001\002$\001\002%\001\002&\001\002\
! 249: '\001\002(\001\002)\001\002*\001\002+\001\002,\001\002-\001\002.\001\002\
! 250: /\001\002:\001\002;\001\002<\001\002=\001\002>\001\002?\001\002@\001\002\
! 251: ^\001\002_\001\002`\001\002A\001a\002B\001b\002C\001c\002D\001d\002E\001e\002\
! 252: F\001f\002G\001g\002H\001h\002I\001i\002J\001j\002K\001k\002L\001l\002\
! 253: M\001m\002N\001n\002O\001o\002P\001p\002Q\001q\002R\001r\002S\001s\002\
! 254: T\001t\002U\001u\002V\001v\002W\001w\002X\001x\002Y\001y\002Z\001z\002\
! 255: {\001ae\002[\001ae\002|\001oe\002\134\001oe\002}\001ue\002]\001ue\002\
! 256: ~\001ss\002\200\001e\002\201",
! 257: /* DK - DANISH */
! 258: " :, :!,{:ae,|:oe,}:au,~:ue,\
! 259: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z,\
! 260: [:ae,\\:oe,]:ao,^:ue,\200:e\201",
! 261: /* E - SPANISH */
! 262: " :, :!,|:n,}:c,ll:l,\
! 263: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z,\200:e,\
! 264: \\:n,LL:l\201",
! 265: /* F - FRENCH */
! 266: " :, :!,\\:c,{:e,|:u,}:e,\
! 267: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z,\200:e,\201",
! 268: /* I - ITALIAN */
! 269: " :, :!,\\:c,]:e,`:u,{:a,|:o,}:e,~:i,\
! 270: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z,\200:e,\201",
! 271: /* S - SWEDISH */
! 272: " :, :!,`:e,{:ae,|:oe,}:ao,~:ue,\
! 273: A:a,B:b,C:c,D:d,E:e,F:f,G:g,H:h,I:i,J:j,K:k,L:l,M:m,N:n,O:o,P:p,Q:q,R:r,S:s,T:t,U:u,V:v,W:w,X:x,Y:y,Z:z,\
! 274: @:e,[:ae,\\:oe,]:ao,~:ue,\200:e,\201"
! 275: };
! 276:
! 277:
! 278: char glo_prefix[MONTH_LEN] = "^\201"; /* VIEW 96: global prefix */
! 279: char glo_ext[MONTH_LEN] = "\201"; /* VIEW 97: global postfix */
! 280: char rou_ext[MONTH_LEN] = ".m\201"; /* VIEW 98: routine extention */
! 281: long tzoffset = 0L; /* VIEW 99: timer offset */
! 282: int v100 = 0; /* VIEW 100: return value of kill */
! 283: char l_o_val[256] = "\201"; /* VIEW 110: local $o/$q data value */
! 284: char g_o_val[256] = "\201"; /* VIEW 111: global $o/$q data value */
! 285: int zsavestrategy = TRUE; /* VIEW 133: remember ZLOAD directory on ZSAVE */
! 286:
! 287: /* vars for screen save/restore */
! 288: struct vtstyp *screen = NULL; /* active screen */
! 289: short jour_flag = 0; /* journal flag 0/1/-1 */
! 290:
! 291: /* trace vars for global module */
! 292: unsigned long traceblk[TRLIM]; /* trace stack - block numbers */
! 293: short traceadr[TRLIM]; /* - status */
! 294: short trx; /* - stack pointer */
! 295: char compactkey[256]; /* internal form of key in global.c */
! 296:
! 297: short mcmnd; /* mumps command letter */
! 298: short arg; /* stack pointer for expr.c */
! 299: char *argstck[PARDEPTH + 1]; /* stack of pointers to */
! 300:
! 301: /* intermediate results */
! 302:
! 303: long ordercnt = 0L; /* repeater for $order/$query */
! 304: short setpiece = FALSE; /* TRUE: set$piece executing */
! 305: short setop = 0; /* SET op flag */
! 306: char rou_name[256] =
! 307: {EOL}; /* $T(+0)/$ZN routine name */
! 308: char *namstck; /* routine name stack */
! 309: char *namptr; /* routine name stack pointer */
! 310: char *framstck; /* DO_frame stack */
! 311: char *dofrmptr; /* DO_frame stack pointer */
! 312: char zb[40] = "\201"; /* $ZB last ESC_sequence */
! 313: char zerror[300] = "\201"; /* $ZE last error */
! 314: short DSM2err = FALSE; /* enable normal error processing */
! 315: short nesterr = 0; /* nesterr and callerr contain info */
! 316: char callerr[NESTLEVLS + 1][40]; /* about call situation at error */
! 317:
! 318: char stack0[256] = "\201";
! 319:
! 320: char zmc[128] = "\
! 321: \000\001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\
! 322: \020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037\177\201";
! 323:
! 324: /* $ZMC loadable match 'controls' */
! 325: char zmn[128] = "0123456789\201"; /* $ZMN loadable match 'numerics' */
! 326:
! 327: /* $ZMP loadable match 'punctuation' */
! 328: char zmp[128] = " !\042#$%&'()*+,-./:;<=>?@^_`\201";
! 329:
! 330: /* $ZML loadable match 'lowercase' */
! 331: char zml[128] = "abcdefghijklmnopqrstuvwxyz{|}~\201";
! 332:
! 333: /* $ZMU loadable match 'uppercase' */
! 334: char zmu[128] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]\201";
! 335:
! 336: short zerr = OK; /* $ZE numeric error code */
! 337: char zloc[256] = "\201"; /* $ZL last local reference */
! 338: char zref[256] = "\201"; /* $ZR last global reference */
! 339: short nakoffs = 0; /* offset to naked reference */
! 340: char zfunkey[44][FUNLEN]; /* $ZF function key */
! 341:
! 342: typedef struct frm_devstat {
! 343: short mdc_err;
! 344: short frm_err;
! 345: char err_txt[80];
! 346: } frm_devstat;
! 347:
! 348: frm_devstat devstat[MAXDEV + 1]; /* channel statuses for $DEVICE */
! 349:
! 350: short xpos[MAXDEV + 1]; /* $X-vector */
! 351: short ypos[MAXDEV + 1]; /* $Y-vector */
! 352: short crlf[MAXDEV + 1]; /* CR/LF flag vector */
! 353: short fm_nodelay[MAXDEV + 1]; /* nodelay flag vector */
! 354:
! 355: int ESCflag[MAXDEV + 1] =
! 356: {0, 0, 0, 0, 0}; /* ESC flag */
! 357:
! 358: short RightMargin = 0; /* Output Margin. Default no */
! 359:
! 360: /* automatic CR/LF */
! 361: short InFieldLen = 255; /* Input Field length Def: 255 char */
! 362: long DSW = BIT2 + BIT21; /* Device Status word (Terminal) */
! 363: char LineTerm[32] = "\012\015\201"; /* Input Line Terminator chars */
! 364: char BrkKey = 3; /* <INTERRUPT> key Def: CTRL/C */
! 365: char ug_buf[MAXDEV + 1][256]; /* ungetc-buffers */
! 366: char devopen[MAXDEV + 1] =
! 367: {0, 0, 0, 0, 0}; /* 0 not open */
! 368:
! 369: /* 'r' input */
! 370: /* 'w' or 'a' output */
! 371:
! 372: /* names of IO devices */
! 373: char dev[MAXDEV + 1][40] = {
! 374: " ", /* HOME */
! 375: "/usr/tmp/mout.1/a\201", /* dev 1 */
! 376: "/usr/tmp/mout.2/a\201", /* dev 2 */
! 377: "/usr/tmp/mout.3/a\201", /* dev 3 */
! 378: "/usr/tmp/mout.4/a\201" /* dev 4 */
! 379: };
! 380:
! 381: char G0I[MAXDEV + 1][257]; /* G0 input translation table */
! 382: char G0O[MAXDEV + 1][257]; /* G0 output translation table */
! 383: char G1I[MAXDEV + 1][257]; /* G1 input translation table */
! 384: char G1O[MAXDEV + 1][257]; /* G1 output translation table */
! 385:
! 386: FILE *opnfile[MAXDEV + 1];
! 387: char act_oucpath[MAXDEV + 1][40] = {"\201", "\201", "\201", "\201", "\201"};
! 388: char sq_modes[MAXDEV + 1];
! 389:
! 390: short olddes[NO_GLOBLS]; /* filedescr of open global files */
! 391: char oldfil[NO_GLOBLS][1024]; /* names of open global files */
! 392: long g_ages[NO_GLOBLS]; /* last access of global files */
! 393: short usage[NO_GLOBLS]; /* usage count of global files */
! 394: short inuse = 0; /* file in use */
! 395:
! 396: int lio_mode = -1;
! 397: short io = HOME; /* $IO */
! 398: short test = FALSE; /* $TEST */
! 399: short pattrnflag = FALSE; /* incomplete match flag */
! 400: char pattrnchar = EOL; /* incomplete match flag supplement */
! 401: int zsystem = 0; /* $ZSYSTEM return status of UNIX call */
! 402: short zcc = FALSE; /* $ZC (ControlC-Flag) */
! 403:
! 404: char *rouptr; /* pointer to begin of routine */
! 405: char *roucur; /* cursor into routine */
! 406: char *rouend; /* pointer to end of pgm */
! 407: char *rouins; /* pointer for direct mode insert */
! 408: short breakon = ENABLE; /* BREAK enable/disable-flag */
! 409: short zbreakon = DISABLE; /* ZBREAK enable/disable-flag */
! 410: short zbflag = FALSE; /* 'ZBREAK from terminal'-flag */
! 411: short zprecise = 100; /* $ZPRECISION of arithmetic */
! 412: char fp_conversion[10]; /* sprintf conversion constant for ieee754 support */
! 413: long nrandom; /* random number seed */
! 414: long ran_a = 24298L; /* random number parameter a */
! 415: long ran_b = 99991L; /* random number parameter b */
! 416: long ran_c = 199017L; /* random number parameter c */
! 417:
! 418: short usermode = 1; /* 0=user mode 1=programmer mode */
! 419: int restricted_mode = FALSE; /* TRUE=restricted FALSE=unrestricted */
! 420: short demomode = FALSE; /* 0=no demo 1=demo mode */
! 421: int d0char = DEL; /* demomode ouput character */
! 422: int d1char = CAN; /* demomode '!' character */
! 423: short cset = FALSE; /* 0=mumps set 1='C' set flag */
! 424:
! 425: /* startup flags */
! 426: int hardcopy = DISABLE; /* hardcopy flag */
! 427: int frm_filter = FALSE; /* filter flag */
! 428: int noclear = FALSE; /* noclear flag */
! 429: int standard = D_FREEM; /* default dialect */
! 430: int quiet_mode = FALSE; /* quiet mode */
! 431: char config_file[4096]; /* path to configuration file */
! 432: char shm_env[255]; /* shared memory environment */
! 433:
! 434: short fp_mode = 0; /* set to 0 for fixed-point math, 1 for IEEE754 floating point */
! 435: short en_revstrf = 1; /* enable reverse forms of string intrinsics */
! 436:
! 437: short ierr; /* immediate error status */
! 438: short deferred_ierr; /* deferred error status (after returning from a private routine) */
! 439: char err_suppl[255]; /* supplemental information about an error */
! 440:
! 441: long PSIZE = DEFPSIZE; /* size of 'partition' */
! 442: char *mbpartition; /* memory-backed globals partition */
! 443: short writing_mb = FALSE;
! 444: char *partition; /* partition (symbol table) */
! 445: long symlen = DEFPSIZE; /* 'lower' bound of symbol table */
! 446: unsigned long alphptr[128] = /* pointers into symbol table */
! 447: {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 448: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 449: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 450: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
! 451: char *apartition; /* alternate partition */
! 452: long asymlen = DEFPSIZE; /* 'lower' bound of symbol table */
! 453: unsigned long aalphptr[128] = /* pointers into symbol table */
! 454: {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 455: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 456: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 457: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
! 458:
! 459: short autopsize = TRUE; /* automatic increase of PSIZE */
! 460: long svnlen = DEFUDFSVSIZ; /* 'lower' bound of udf_svn_tab */
! 461: long UDFSVSIZ = DEFUDFSVSIZ; /* size of userdef special var tab. */
! 462: char *svntable; /* udf special variable table */
! 463: unsigned long svnaptr[128] = /* pointers into udf_svn_tab */
! 464: {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 465: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 466: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
! 467: 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
! 468:
! 469: short autousize = TRUE; /* automatic increase of UDFSVSIZ */
! 470: long NO_OF_RBUF = DEFNO_OF_RBUF; /* number of routine buffers */
! 471: long PSIZE0 = DEFPSIZE0; /* size of routine buffers */
! 472: short autorsize = TRUE; /* automatic increase of PSIZE0 */
! 473: short aliases = 0; /* aliases pointer */
! 474: char ali[2000]; /* aliases table */
! 475: long v22ptr = 0L; /* view 22 aliases pointer */
! 476: char *v22ali; /* view 22 aliases field */
! 477: long v22size = 0L; /* current size of aliases field */
! 478:
! 479:
! 480: long NSIZE = DEFNSIZE; /* size of newstack */
! 481: char *newstack; /* stack for NEWed variables */
! 482: char *newptr; /* pointer to NEW stack */
! 483: char *newlimit; /* pointer to NEW stack end */
! 484:
! 485: short nstx = 0; /* nest stack: */
! 486: short nestc[NESTLEVLS + 1]; /* - command (DO...) */
! 487: char *nestp[NESTLEVLS + 1]; /* - cmdptr */
! 488: char *nestn[NESTLEVLS + 1]; /* - namptr */
! 489: long nestr[NESTLEVLS + 1]; /* - roucur */
! 490: char *nestnew[NESTLEVLS + 1]; /* - newptr */
! 491: short neste[NESTLEVLS + 1]; /* - was this frame entered as the result of an error? */
! 492: short nestlt[NESTLEVLS + 1]; /* stack $T / stack levelcount */
! 493: short brkstk[NESTLEVLS + 1]; /* stack for BREAK information */
! 494:
! 495: char ztrap[NESTLEVLS + 2][ZTLEN]; /* $ZTRAP to be xecuted on error */
! 496:
! 497:
! 498: char *s; /* pointer to symlen_offset */
! 499: char *argptr; /* pointer to beg of tmp-storage */
! 500:
! 501: char code[512] =
! 502: {EOL, EOL}; /* currently interpreted code */
! 503: char *codptr = code; /* pointer within code[] */
! 504:
! 505: char dosave[20]; /* in a FOR range save DO label */
! 506: char *xdosave;
! 507:
! 508: int errfunlvl = 0; /* avoid wrong error message in $$FUN */
! 509: short repQUIT = 0; /* QUIT repeater */
! 510:
! 511: char varnam[256]; /* variable/array/function name */
! 512: char varerr[256] =
! 513: {EOL}; /* reference in error message */
! 514: char *buff; /* routine buffer pool */
! 515: char pgms[MAXNO_OF_RBUF][40]; /* names of alt.pgms */
! 516: long ages[MAXNO_OF_RBUF]; /* last call to this pgm */
! 517: char *ends[MAXNO_OF_RBUF]; /* saved rouend-pointer */
! 518: char path[MAXNO_OF_RBUF][256]; /* directory where routine was loaded */
! 519: rtn_flags rbuf_flags[MAXNO_OF_RBUF]; /* per-routine flags */
! 520:
! 521: char glopath[PATHLEN]; /* path to access globals */
! 522: char rou0path[PATHLEN]; /* routine access with DO,GOTO,JOB */
! 523: char rou1path[PATHLEN]; /* routine access with ZL,ZS */
! 524: char gloplib[PATHLEN]; /* path to access %globals */
! 525:
! 526: char gbl_u_engine[255]; /* user global engine */
! 527: char gbl_s_engine[255]; /* system global engine */
! 528: char loc_engine[255]; /* local engine */
! 529:
! 530: unsigned long int bdb_flush_threshold;
! 531:
! 532: char rou0plib[PATHLEN]; /* %routine path (DO..) */
! 533: char rou1plib[PATHLEN]; /* %routine path (ZL..) */
! 534: char oucpath[PATHLEN] = "\201"; /* OPEN/USE/CLOSE path */
! 535: char zargdefname[PATHLEN]= "%\201"; /* default varname for Z-commands */
! 536: char jourfile[PATHLEN] = "/usr/tmp/ioprotocol"; /* journal file */
! 537: FILE *jouraccess; /* dto. filedes */
! 538: char curdir[256] = "."; /* current directory */
! 539:
! 540: char startuprou[PATHLEN] = "\201"; /* start up routine from cmdline*/
! 541:
! 542: char zcommds[256] =
! 543: " za zas zb zd zg zh zi zj zl zn zp zq zr zs zt zwr zallocate zbreak zdeallocate \
! 544: zgo zhalt zinsert zjob zload znamespace zprint zquit zremove zsave ztrap zwrite \201"; /* intrinsic z-commands */
! 545: char zfunctions[256] = /* intrinsic z-functions */
! 546: " zb zc zd ze zh zht zk zl zm zn zo zp zr zs zt zboolean zcall zcr zcrc zdata zdate zedit zhorolog \
! 547: zkey zlength zlsd zname znext zorder zpiece zprevious zreplace zsyntax zsort ztime \201";
! 548: char zsvn[256] = /* intrinsic z-special variables */
! 549: " za zb zc zd ze zf zh zi zj zl zmc zmn zmp zma zml zmu zme zn zo zp zs zt zu zv \
! 550: zcontrolc zdate zerror zname zhorolog zinrpt zjob zlocal zorder zprecision zsystem ztime ztr ztrap zuuid zut zversion \201";
! 551: char brkaction[256] = "\201"; /* action in case of BREAK */
! 552: pid_t father = 0; /* JOB-ID of father process */
! 553: char jour_hostid[256];
! 554: /* date types parameters */
! 555: char month[NO_DATETYPE][12][MONTH_LEN] = {
! 556: {"01\201", "02\201", "03\201", "04\201", "05\201", "06\201", "07\201", "08\201", "09\201", "10\201", "11\201", "12\201"},
! 557: {"01\201", "02\201", "03\201", "04\201", "05\201", "06\201", "07\201", "08\201", "09\201", "10\201", "11\201", "12\201"},
! 558: {"JAN\201", "FEB\201", "MAR\201", "APR\201", "MAY\201", "JUN\201", "JUL\201", "AUG\201", "SEP\201", "OCT\201", "NOV\201", "DEC\201"},
! 559: {"01\201", "02\201", "03\201", "04\201", "05\201", "06\201", "07\201", "08\201", "09\201", "10\201", "11\201", "12\201"},
! 560: {"1\201", "2\201", "3\201", "4\201", "5\201", "6\201", "7\201", "8\201", "9\201", "10\201", "11\201", "12\201"},
! 561: {"1\201", "2\201", "3\201", "4\201", "5\201", "6\201", "7\201", "8\201", "9\201", "10\201", "11\201", "12\201"},
! 562: {"1\201", "2\201", "3\201", "4\201", "5\201", "6\201", "7\201", "8\201", "9\201", "10\201", "11\201", "12\201"},
! 563: {"01\201", "02\201", "03\201", "04\201", "05\201", "06\201", "07\201", "08\201", "09\201", "10\201", "11\201", "12\201"}
! 564: };
! 565: char dat1char[NO_DATETYPE][MONTH_LEN] = /* date 1st delimiter */
! 566: {"/\201", "/\201", " \201", "/\201", ".\201", ".\201", ".\201", ".\201"};
! 567: char dat2char[NO_DATETYPE][MONTH_LEN] = /* date 2nd delimmiter */
! 568: {"/\201", "/\201", " \201", "/\201", ".\201", ".\201", ".\201", ".\201"};
! 569: char dat3char[NO_DATETYPE] =
! 570: {'0', '0', '0', '0', '\201', '\201', '\201', '0'}; /* date day justify char */
! 571: char dat4flag[NO_DATETYPE] =
! 572: {2, 1, 0, 0, 0, 0, 0, 0}; /* 0=DMY, 1=MDY, 2=YMD */
! 573: char dat5flag[NO_DATETYPE] =
! 574: {0, 1, 1, 1, 1, 1, 0, 1}; /* suppress century digits */
! 575: long int datGRbeg[NO_DATETYPE] =
! 576: {578101L, 578101L, 578101L, 578101L, 578101L, 578101L, 578101L, 578101L};
! 577:
! 578: /* first day of gregorian calendar 15-OCT-1582 ($H+672411) */
! 579: int datetype = 0; /* type for $zd special variable */
! 580:
! 581: char tim1char[NO_TIMETYPE] =
! 582: {':', ':'}; /* time 1st delimiter */
! 583: char tim2char[NO_TIMETYPE] =
! 584: {':', ':'}; /* time 2nd delimiter */
! 585: char tim3char[NO_TIMETYPE] =
! 586: {SP, SP}; /* time hour justify char */
! 587: char tim4flag[NO_TIMETYPE] =
! 588: {0, 1}; /* 0=24 Hrs 1=12 Hrs */
! 589: char tim5flag[NO_TIMETYPE] =
! 590: {0, 0}; /* suppress seconds */
! 591: int timetype = 0; /* type for $zt special variable */
! 592:
! 593: jmp_buf sjbuf;
! 594: char *roucu0;
! 595: char *dofram0;
! 596:
! 597: short forx = 0; /* FOR stack pointer */
! 598: char forvar[NESTLEVLS + 1][40], /* FOR variable */
! 599: forinc[NESTLEVLS + 1][40], /* FOR increment */
! 600: forpost[NESTLEVLS + 1][128], /* FOR postconditional */
! 601: forlim[NESTLEVLS + 1][40]; /* FOR limit value */
! 602: short fortyp[NESTLEVLS + 1]; /* 0 = forever 1 = single, */
! 603:
! 604: /* 2 = unlim.iter,3 = limit iter. */
! 605: /* 4 = "" +inc=1 5 = "" + inc=1 */
! 606: short fori[NESTLEVLS + 1]; /* if fortyp=5 length of forlimit */
! 607:
! 608: char *fvar; /* current forvar */
! 609: char *finc; /* current forinc */
! 610: char *fpost; /* current forpost */
! 611: char *flim; /* current forlim */
! 612: short ftyp; /* current fortyp */
! 613: short fi; /* current fori */
! 614: short forsw = FALSE; /* FOR switch */
! 615: short loadsw = TRUE; /* flag to avoid redundant loads */
! 616: short argless_forsw_quit = FALSE; /* QUIT from argumentless FOR */
! 617: short sigint_in_for = FALSE;
! 618: short direct_mode = TRUE; /* are we in direct mode? */
! 619:
! 620: short extr_types[NESTLEVLS + 1]; /* return types of extrinsic functions */
! 621: char destructors[MAX_DESTRUCTORS][50];
! 622: int destructor_ct;
! 623: char private_keys[MAX_PRIVATE_KEYS][255];
! 624:
! 625: /* after XECUTEs */
! 626: short promflag = TRUE; /* prompt execute flag */
! 627: short privflag = FALSE; /* extrinsic z-command flag */
! 628:
! 629:
! 630: char *cmdstack;
! 631: char *cmdptr;
! 632:
! 633: short offset;
! 634: long frm_timeout;
! 635: short timeoutms;
! 636: char tmp4[80] = "\201";
! 637: short param = 0; /* parameter count */
! 638: short paramx = 0; /* current parameter */
! 639: char *ttyname ();
! 640: short level = 0; /* level count */
! 641: pid_t pid; /* $J = process ID */
! 642:
! 643: char nsname[256] = "USER\0"; /* namespace name */
! 644: char nsroot[4096]; /* root path of namespace */
! 645: char *freem_path; /* path to the running instance of FreeM */
! 646: char history_file[256]; /* path to the history file */
! 647: int n_lines;
! 648: int n_columns;
! 649:
! 650: short ipc_pending = 0; /* 1 if an incoming IPC is pending, 0 otherwise */
! 651:
! 652: int strict_mode = 0;
! 653:
! 654: short first_process = FALSE;
! 655: size_t shm_init_size = 16777216;
! 656:
! 657: short inrpt_after_async = FALSE;
! 658:
! 659: //#ifdef USE_SIGACTION
! 660: // struct sigaction act = {0}; /* signals stuff */
! 661: //#endif/*USE_SIGACTION*/
! 662:
! 663: void unnew (void)
! 664: {
! 665: char *xptr;
! 666: int i;
! 667: long j;
! 668: char tmp[256];
! 669:
! 670: #ifdef DEBUG_NEWPTR
! 671: int loop;
! 672: printf("Un-Newing: ");
! 673: printf("[nstx] nstx is %d\r\n",nstx);
! 674: printf("[nestnew] nestnew[nstx] is %d\r\n",nestnew[nstx]);
! 675: #endif
! 676:
! 677:
! 678: xptr = nestnew[nstx]; /* get position of newpointer */
! 679:
! 680: while (xptr < newptr) {
! 681: i = *--newptr;
! 682:
! 683: if (i != kill_all) {
! 684: j = UNSIGN (*--newptr);
! 685: newptr -= (j + 1);
! 686: stcpy0 (varnam, newptr, j + 1);
! 687:
! 688: if (i == set_sym) {
! 689: j = UNSIGN (*--newptr);
! 690: newptr -= (j + 1);
! 691: stcpy (tmp, newptr);
! 692: }
! 693: else {
! 694: tmp[0] = EOL;
! 695: }
! 696: }
! 697: else {
! 698: varnam[0] = EOL;
! 699: tmp[0] = EOL;
! 700: }
! 701:
! 702: if (varnam[0] == '$') {
! 703: if (varnam[1] == 't') test = tmp[0]; /* pop $TEST */
! 704: else if (varnam[1] == 'j') pid = UNSIGN (tmp[0]) * 256 + UNSIGN (tmp[1]); /* pop $job */
! 705: else if (varnam[1] == 'z' && varnam[2] == 'i') breakon = tmp[0]; /* pop $zinrpt */
! 706: else if (varnam[1] == 'e' && varnam[2] == 't') { /* pop $etrap */
! 707: stcpy (etrap, tmp);
! 708: }
! 709: else if (varnam[1] == 'e' && varnam[2] == 's') { /* pop $estack */
! 710: char esbuf[256];
! 711:
! 712: stcpy (esbuf, tmp);
! 713: stcnv_m2c (esbuf);
! 714:
! 715: estack = atoi (esbuf);
! 716: }
! 717: else { /* pop $reference/$zreference */
! 718: stcpy (zref, tmp);
! 719: nakoffs = UNSIGN (varnam[4]);
! 720: }
! 721:
! 722: continue;
! 723: }
! 724: symtab (i, varnam, tmp);
! 725: }
! 726:
! 727: newptr = nestnew[nstx];
! 728: nestnew[nstx] = 0; /* reset pointers */
! 729:
! 730: return;
! 731:
! 732: } /* end unnew() */
! 733:
! 734: void m_fatal(char *s)
! 735: {
! 736: int errno_sav;
! 737: errno_sav = errno;
! 738:
! 739: set_io (UNIX);
! 740:
! 741:
! 742: if (tp_level) {
! 743: fprintf (stderr, "freem [FATAL]: memory allocation failure in %s; rolling back %d transactions [errno %d %s]\n", s, tp_level, errno_sav, strerror (errno_sav));
! 744: tp_trollback (tp_level);
! 745: }
! 746: else {
! 747: fprintf (stderr, "freem [FATAL]: memory allocation failure in %s [errno %d %s]\n", s, errno_sav, strerror (errno_sav));
! 748: }
! 749:
! 750: exit (3);
! 751: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to frmgbl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src