| 1 | /* ==----------------------------- mxfun.c ------------------------------== */ |
|---|
| 2 | |
|---|
| 3 | /*char * */ parmpftoutp=NULL; |
|---|
| 4 | /*FILE * */ parmpftoutfp=NULL; |
|---|
| 5 | /*char * */ parmprologp=NULL; |
|---|
| 6 | /*char * */ parmepilogp=NULL; |
|---|
| 7 | /*LONGX */ irecepilog=0L; |
|---|
| 8 | #if CICGI |
|---|
| 9 | /*LONGX*/ wwrec1=0L; |
|---|
| 10 | /*LONGX*/ wwrec2=0L; |
|---|
| 11 | /*char * */ cgixpok=NULL; |
|---|
| 12 | #endif /* CICGI */ |
|---|
| 13 | |
|---|
| 14 | /*char * */ fmtarea=NULL; |
|---|
| 15 | /*LONGX*/ fmtlw=79; |
|---|
| 16 | /*LONGX*/ fmtasize=MAXMFRL; |
|---|
| 17 | |
|---|
| 18 | /*char * */ ptabtable=NULL; |
|---|
| 19 | /*int */ ptabwidth=100; //LE2+LE2; |
|---|
| 20 | /*LONGX */ ptabcategories=300000; |
|---|
| 21 | ///*LONGX */ ptabmaxprim; |
|---|
| 22 | /*LONGX * */ ptabCOUNT=NULL; /* n(t) */ |
|---|
| 23 | |
|---|
| 24 | /*LONGX*/ parmtell = 0; |
|---|
| 25 | /*LONGX*/ parmload = 0; |
|---|
| 26 | /*int*/ parmtrace = 0; |
|---|
| 27 | /*int*/ parmcopy = 0; |
|---|
| 28 | |
|---|
| 29 | /*char * */ parmdupp = NULL; |
|---|
| 30 | /*int*/ parmdupx = 0; |
|---|
| 31 | |
|---|
| 32 | /*int*/ parmiso1 = 0; |
|---|
| 33 | /*int*/ parmiso2 = 0; |
|---|
| 34 | /*FILE * */ fpfix = NULL; /*parmiso2=2 */ |
|---|
| 35 | |
|---|
| 36 | #if RECXPND |
|---|
| 37 | /*int*/ parmxpn01 = 0; |
|---|
| 38 | /*int*/ parmxpn02 = 0; |
|---|
| 39 | #endif |
|---|
| 40 | #if MXGIZP |
|---|
| 41 | /*char * */ parmgizp = NULL; |
|---|
| 42 | /*int*/ parmgizhp = 0; |
|---|
| 43 | #endif |
|---|
| 44 | |
|---|
| 45 | /*char * */ prompt1p = ".."; |
|---|
| 46 | /*char * */ prompt2p = "->"; |
|---|
| 47 | |
|---|
| 48 | /*FILE * */ fpseq = NULL; |
|---|
| 49 | /*FILE * */ fpprm = NULL; |
|---|
| 50 | |
|---|
| 51 | /*int*/ nfpprms=0; |
|---|
| 52 | |
|---|
| 53 | /*int*/ tmpseq=0; /* mxexit() */ |
|---|
| 54 | /*char * */ mx_bup=NULL;/*free*/ /* global */ |
|---|
| 55 | /*LONGX*/ mx_buplen=0L; /* global */ |
|---|
| 56 | |
|---|
| 57 | /*LONGX*/ upcrec=0L; /* global */ |
|---|
| 58 | /*LONGX*/ upirec=0L; /* global */ |
|---|
| 59 | |
|---|
| 60 | #if MXFULLINV |
|---|
| 61 | /*char * */ fullinv_ifnp=NULL; |
|---|
| 62 | /*char * */ fullinv_ln1p=NULL; |
|---|
| 63 | /*char * */ fullinv_ln2p=NULL; |
|---|
| 64 | /*char * */ fullinv_lk1p=NULL; |
|---|
| 65 | /*char * */ fullinv_lk2p=NULL; |
|---|
| 66 | /*int*/ fullinv_pstflag=IFUPISIS; |
|---|
| 67 | /*int*/ fullinv_reset=1; |
|---|
| 68 | /*int*/ fullinv_balan=1; |
|---|
| 69 | /*int*/ fullinv_keep=0; |
|---|
| 70 | #if LIND |
|---|
| 71 | /*LONGX*/ fullinv_maxmfn=0L; |
|---|
| 72 | #endif |
|---|
| 73 | /*char * */ fullinv_master=NULL; |
|---|
| 74 | #endif |
|---|
| 75 | |
|---|
| 76 | #if MXIFUPD |
|---|
| 77 | /*LONGX*/ mstcrec=0L;/*free*/ |
|---|
| 78 | /*LONGX*/ mstirec=0L;/*free*/ |
|---|
| 79 | /*char * */ ifnp=NULL; |
|---|
| 80 | /*int*/ svdifupx=0; |
|---|
| 81 | /*int*/ svdifupy=0; |
|---|
| 82 | #endif |
|---|
| 83 | |
|---|
| 84 | #if MXIFUPD |
|---|
| 85 | /*int*/ pstflag=IFUPISIS; |
|---|
| 86 | /*int*/ endup=IFUPCORE; |
|---|
| 87 | #endif |
|---|
| 88 | |
|---|
| 89 | #if MXIFUPD || MXFST |
|---|
| 90 | /*char * */ stwp=NULL; |
|---|
| 91 | /*FST_CODE * */ fstpgmp=NULL; |
|---|
| 92 | /*char * */ lnk1p=NULL; |
|---|
| 93 | /*char * */ lnk2p=NULL; |
|---|
| 94 | /*LONGX*/ maxlk1=1000; |
|---|
| 95 | /*LONGX*/ maxlk2=500; |
|---|
| 96 | #endif |
|---|
| 97 | |
|---|
| 98 | /*LONGX*/ nprms=0; /* actual #entries */ |
|---|
| 99 | /*LONGX*/ maxnprm=MAXNPRM; /* runtime value */ |
|---|
| 100 | |
|---|
| 101 | |
|---|
| 102 | /* ------------------------------ mx.h ------------------------------------- */ |
|---|
| 103 | |
|---|
| 104 | #if RECXPND |
|---|
| 105 | #endif |
|---|
| 106 | |
|---|
| 107 | #if RECGIZM |
|---|
| 108 | #endif |
|---|
| 109 | |
|---|
| 110 | |
|---|
| 111 | |
|---|
| 112 | |
|---|
| 113 | /* ------------------------------ mxbol.c --------------------------------- */ |
|---|
| 114 | |
|---|
| 115 | /*char * */ boolqryp=NULL; |
|---|
| 116 | /*LONGX*/ boolridx=0; |
|---|
| 117 | /*LONGX*/ boolhits=0; |
|---|
| 118 | /*LONGX*/ boolh=0; |
|---|
| 119 | |
|---|
| 120 | /*char * */ booldbnp = NULL; /* b4x query dbn */ |
|---|
| 121 | /*LONGX*/ booltell=1L; /* 0L = no msg */ |
|---|
| 122 | /*LONGX*/ booltlir=0L; /* b40 invx */ |
|---|
| 123 | #if CIB71 |
|---|
| 124 | /*b7_CIB7 * */ cib7p=NULL; |
|---|
| 125 | /*char*/ booltmpnam[0]='\0';/*[CIMPL+1]={'\0'}*/ /* b72 MFQTHMEM tmp file */ |
|---|
| 126 | #else /* CIB71 */ |
|---|
| 127 | #if LIND || CIB64 |
|---|
| 128 | /*LONGX*/ boolnby1=0L; /* b62 nbytes1 */ |
|---|
| 129 | /*LONGX*/ boolnbyb=0L; /* b62 b6bufsiz */ |
|---|
| 130 | /*LONGX*/ boolnby0=0L; /* b62 b5irxbyts0 */ |
|---|
| 131 | /*char*/ booltmpnam[0]='\0';/*[CIMPL+1]={'\0'}*/ /* b62 MFQTHMEM tmp file */ |
|---|
| 132 | /*int*/ boolerrno=0; /* b62 errno */ |
|---|
| 133 | #else |
|---|
| 134 | /*LONGX*/ boolnby2=MAXMFRL; /* b42 nbytes2 */ |
|---|
| 135 | #endif |
|---|
| 136 | #endif /* CIB71 */ |
|---|
| 137 | |
|---|
| 138 | /* ------------------------------ mxrel.c --------------------------------- */ |
|---|
| 139 | |
|---|
| 140 | /* ========================== mp_scan/mp_edit ============================= */ |
|---|
| 141 | |
|---|
| 142 | /*int*/ mp_n = 0; |
|---|
| 143 | /*char * */ mp_areap=NULL; |
|---|
| 144 | |
|---|
| 145 | /* ====================== mj_scan/mj_edit/mj_join ========================= */ |
|---|
| 146 | |
|---|
| 147 | /*LONGX*/ mj_tidx=0; |
|---|
| 148 | /*char * */ mj_areap=NULL; |
|---|
| 149 | /*char * */ mj_buffup=NULL; |
|---|
| 150 | /*int*/ mj_n=0; |
|---|
| 151 | /*LONGX*/ mj_jmax=LONGX_MAX; |
|---|
| 152 | /*UWORD*/ mj_jtag=32000; |
|---|
| 153 | |
|---|
| 154 | /* ------------------------------ mxtxt.c --------------------------------- */ |
|---|
| 155 | |
|---|
| 156 | /*int*/ mxtext_found=0; |
|---|
| 157 | /*int*/ mxtext_pshow=0; |
|---|
| 158 | |
|---|
| 159 | /* ==----------------------------- mxfun.c ------------------------------== */ |
|---|