| 1 | /* ------------------------------ mx.h ------------------------------------- */ |
|---|
| 2 | |
|---|
| 3 | #if BEFORE20010221 |
|---|
| 4 | #if VAX |
|---|
| 5 | #define MXMAIN int |
|---|
| 6 | #else |
|---|
| 7 | #define MXMAIN void |
|---|
| 8 | #endif |
|---|
| 9 | #endif /* BEFORE20010221 */ |
|---|
| 10 | |
|---|
| 11 | #define MJ_STWS char |
|---|
| 12 | |
|---|
| 13 | #if PC && !DOS32BITS |
|---|
| 14 | #define OPEN30 1 |
|---|
| 15 | #endif |
|---|
| 16 | |
|---|
| 17 | #define MAXNPRM 1024 /* 128 */ /* AOT, 22/06/2005 */ |
|---|
| 18 | #define MAXNFPRM 16 |
|---|
| 19 | |
|---|
| 20 | #define JOINALL 1 |
|---|
| 21 | #define MXGIZP 1 |
|---|
| 22 | #define MXGIZHP 1 |
|---|
| 23 | |
|---|
| 24 | #define MAXNPPP 1024 |
|---|
| 25 | |
|---|
| 26 | #define MAXNJJJ 128 |
|---|
| 27 | #if !CIAPI |
|---|
| 28 | #define MINBJJJ (sizeof(((DBXSTRU *)NULL)->dbxname)) |
|---|
| 29 | #else /* !CIAPI */ |
|---|
| 30 | #define MINBJJJ (CIMPL+1) |
|---|
| 31 | #endif /* !CIAPI */ |
|---|
| 32 | #define MJASIZE MAXMFRL |
|---|
| 33 | #define MAXVTAG 1000 |
|---|
| 34 | #define MAXNSTW 800 |
|---|
| 35 | |
|---|
| 36 | #define MAXTBIN 32 |
|---|
| 37 | |
|---|
| 38 | #define MXFST 1 |
|---|
| 39 | #define MXFULLINV 1 |
|---|
| 40 | |
|---|
| 41 | #if UNISYS || LIND |
|---|
| 42 | #define MXIFUPD 0 |
|---|
| 43 | #else |
|---|
| 44 | #define MXIFUPD 1 |
|---|
| 45 | #endif |
|---|
| 46 | |
|---|
| 47 | typedef struct prmstru { |
|---|
| 48 | char *p; |
|---|
| 49 | int plen; |
|---|
| 50 | } PRMSTRU; |
|---|
| 51 | |
|---|
| 52 | typedef struct mj_tagstru { |
|---|
| 53 | UWORD tagv[MAXVTAG]; |
|---|
| 54 | } MJ_TAGS; |
|---|
| 55 | |
|---|
| 56 | |
|---|
| 57 | #define MAXBOOL (MAXMFRL) |
|---|
| 58 | |
|---|
| 59 | #define LINSIZE BUFSIZ |
|---|
| 60 | #define PRMSIZE BUFSIZ |
|---|
| 61 | |
|---|
| 62 | #define DUPPRIGHT 1 |
|---|
| 63 | #define DUPPLEFT 2 |
|---|
| 64 | |
|---|
| 65 | #define MAXUPFTAG 1001 |
|---|
| 66 | |
|---|
| 67 | #define COPY 1 |
|---|
| 68 | #define APPEND 2 |
|---|
| 69 | #define MERGE 3 |
|---|
| 70 | #define UPDATF 4 |
|---|
| 71 | |
|---|
| 72 | #define ISX(s) s?(strcmp(s,"x") == 0 || strcmp(s,"X") == 0 || strcmp(s,"/*") == 0):0 |
|---|
| 73 | |
|---|
| 74 | #if ANSI |
|---|
| 75 | int mj_scan(void *xmxp, char *gidbnp, char *dbname, char *specp, int parmjchk); |
|---|
| 76 | int mj_edit(void *xmxp, LONGX ridx, int i1, int i2, int tagoff, char **areapp); |
|---|
| 77 | int mj_join(void *xmxp, LONGX ridx, int ijjj, char *keyp, int tagoff, int l, int o, int c); |
|---|
| 78 | int mj_free(void *xmxp); |
|---|
| 79 | int mp_scan(void *xmxp, char *gidbnp, char *specp); |
|---|
| 80 | int mp_edit(void *xmxp, LONGX ridx, int i1, int i2); |
|---|
| 81 | int mp_free(void *xmxp); |
|---|
| 82 | int mxbool(void *xmxp, char *p, char *dbnp); |
|---|
| 83 | int mxexit(void *xmxp, int rc); |
|---|
| 84 | int mxtext(void *xmxp, LONGX irec, char *textp); |
|---|
| 85 | int mxinit(void **xmxpp); |
|---|
| 86 | #else |
|---|
| 87 | int mj_scan(); |
|---|
| 88 | int mj_edit(); |
|---|
| 89 | int mj_join(); |
|---|
| 90 | int mj_free(); |
|---|
| 91 | int mp_scan(); |
|---|
| 92 | int mp_edit(); |
|---|
| 93 | int mp_free(); |
|---|
| 94 | int mxbool(); |
|---|
| 95 | int mxexit(); |
|---|
| 96 | int mxtext(); |
|---|
| 97 | int mxinit(); |
|---|
| 98 | #endif |
|---|
| 99 | |
|---|
| 100 | |
|---|
| 101 | /* ------------------------------ mx.c ------------------------------------- */ |
|---|
| 102 | |
|---|
| 103 | #if MXFUN |
|---|
| 104 | #if CIB71 |
|---|
| 105 | #include "cib70.h" |
|---|
| 106 | #endif /* CIB71 */ |
|---|
| 107 | #include "mxfun.h" |
|---|
| 108 | #include "mxrun.h" |
|---|
| 109 | #else /* MXFUN */ |
|---|
| 110 | |
|---|
| 111 | #if OPEN30 |
|---|
| 112 | extern union REGS d33_regs; |
|---|
| 113 | extern struct SREGS d33_sregs; |
|---|
| 114 | extern unsigned short newax; |
|---|
| 115 | #endif |
|---|
| 116 | |
|---|
| 117 | extern char *parmprologp; |
|---|
| 118 | extern char *parmepilogp; |
|---|
| 119 | extern LONGX irecepilog; |
|---|
| 120 | #if CICGI |
|---|
| 121 | extern LONGX wwrec1; |
|---|
| 122 | extern LONGX wwrec2; |
|---|
| 123 | extern char *cgixpok; |
|---|
| 124 | #endif /* CICGI */ |
|---|
| 125 | |
|---|
| 126 | extern FMT_CODE *pgmp; |
|---|
| 127 | extern char *fmtarea; |
|---|
| 128 | extern LONGX fmtlw; |
|---|
| 129 | extern LONGX fmtlines; |
|---|
| 130 | extern LONGX fmtasize; |
|---|
| 131 | extern FILE *fp; |
|---|
| 132 | |
|---|
| 133 | extern char *ptabtable; |
|---|
| 134 | extern int ptabwidth; |
|---|
| 135 | extern LONGX ptabcategories; |
|---|
| 136 | extern LONGX ptabmaxprim; |
|---|
| 137 | extern LONGX *ptabCOUNT; |
|---|
| 138 | |
|---|
| 139 | extern LONGX parmtell; |
|---|
| 140 | extern LONGX parmload; |
|---|
| 141 | extern int parmtrace; |
|---|
| 142 | extern int parmcopy ; |
|---|
| 143 | |
|---|
| 144 | extern char *parmdupp; |
|---|
| 145 | extern int parmdupx; |
|---|
| 146 | |
|---|
| 147 | extern LONGX *tagfreq; |
|---|
| 148 | |
|---|
| 149 | extern int parmiso1 ; |
|---|
| 150 | extern int parmiso2 ; |
|---|
| 151 | extern FILE *fpfix; /* parmiso2=2 */ |
|---|
| 152 | |
|---|
| 153 | #if RECXPND |
|---|
| 154 | extern int parmxpn01; |
|---|
| 155 | extern int parmxpn02; |
|---|
| 156 | #endif |
|---|
| 157 | #if MXGIZP |
|---|
| 158 | extern char *parmgizp; |
|---|
| 159 | extern int parmgizhp; |
|---|
| 160 | #endif |
|---|
| 161 | |
|---|
| 162 | extern char *prompt1p; |
|---|
| 163 | extern char *prompt2p; |
|---|
| 164 | |
|---|
| 165 | extern char promptxx[]; |
|---|
| 166 | |
|---|
| 167 | extern char line[]; /* recfgets() + working */ |
|---|
| 168 | extern char prmbuff[]; /* in= */ |
|---|
| 169 | |
|---|
| 170 | extern FILE *fpseq; |
|---|
| 171 | extern FILE *fpprm; |
|---|
| 172 | |
|---|
| 173 | extern FILE *vfpprm[]; |
|---|
| 174 | extern int nfpprms; |
|---|
| 175 | |
|---|
| 176 | extern int tmpseq; /* mxexit() */ |
|---|
| 177 | extern char *mx_bup; /* global */ |
|---|
| 178 | extern LONGX mx_buplen; /* global */ |
|---|
| 179 | |
|---|
| 180 | extern LONGX upcrec; /* global */ |
|---|
| 181 | extern LONGX upirec; /* global */ |
|---|
| 182 | |
|---|
| 183 | |
|---|
| 184 | #if MXFULLINV |
|---|
| 185 | extern char *fullinv_ifnp; |
|---|
| 186 | extern char *fullinv_ln1p; |
|---|
| 187 | extern char *fullinv_ln2p; |
|---|
| 188 | extern char *fullinv_lk1p; |
|---|
| 189 | extern char *fullinv_lk2p; |
|---|
| 190 | extern int fullinv_pstflag; |
|---|
| 191 | extern int fullinv_reset; |
|---|
| 192 | extern int fullinv_balan; |
|---|
| 193 | extern int fullinv_keep; |
|---|
| 194 | #if LIND |
|---|
| 195 | extern LONGX fullinv_maxmfn; |
|---|
| 196 | #endif |
|---|
| 197 | extern char *fullinv_master; |
|---|
| 198 | #endif |
|---|
| 199 | |
|---|
| 200 | #if MXIFUPD |
|---|
| 201 | extern LONGX mstcrec; |
|---|
| 202 | extern LONGX mstirec; |
|---|
| 203 | extern char *ifnp; |
|---|
| 204 | extern int svdifupx; |
|---|
| 205 | extern int svdifupy; |
|---|
| 206 | #endif |
|---|
| 207 | |
|---|
| 208 | #if MXIFUPD || MXFST |
|---|
| 209 | extern char *stwp; |
|---|
| 210 | extern FST_CODE *fstpgmp; |
|---|
| 211 | extern int pstflag; |
|---|
| 212 | extern int endup; |
|---|
| 213 | extern char *lnk1p; |
|---|
| 214 | extern char *lnk2p; |
|---|
| 215 | extern LONGX maxlk1; |
|---|
| 216 | extern LONGX maxlk2; |
|---|
| 217 | #endif |
|---|
| 218 | |
|---|
| 219 | |
|---|
| 220 | extern PRMSTRU *vprmp[]; |
|---|
| 221 | extern LONGX nprms; |
|---|
| 222 | |
|---|
| 223 | |
|---|
| 224 | /* ------------------------------ mxbol.c --------------------------------- */ |
|---|
| 225 | |
|---|
| 226 | extern char *boolqryp; |
|---|
| 227 | extern LONGX boolridx; |
|---|
| 228 | extern LONGX boolhits,boolmfn,boolh; |
|---|
| 229 | |
|---|
| 230 | extern char *booldbnp; /* b4x query dbn */ |
|---|
| 231 | extern LONGX booltell; /* 0L = no msg */ |
|---|
| 232 | extern LONGX booltlir; /* b40 invx */ |
|---|
| 233 | #if CIB71 |
|---|
| 234 | #include "cib70.h" |
|---|
| 235 | extern b7_CIB7 *cib7p; |
|---|
| 236 | extern char booltmpnam[]; /* b72 MFQTHMEM tmp file */ |
|---|
| 237 | #else /* CIB71 */ |
|---|
| 238 | #if LIND || CIB64 |
|---|
| 239 | extern LONGX boolnby1; /* b62 nbytes1 */ |
|---|
| 240 | extern LONGX boolnbyb; /* b62 b6bufsiz */ |
|---|
| 241 | extern LONGX boolnby0; /* b62 b5irxbyts0 */ |
|---|
| 242 | extern char booltmpnam[]; /* b62 MFQTHMEM tmp file */ |
|---|
| 243 | #else |
|---|
| 244 | extern int b40trace; |
|---|
| 245 | extern char b4_tmpnam[]; |
|---|
| 246 | extern LONGX boolnby2; /* b42 nbytes2 */ |
|---|
| 247 | #endif |
|---|
| 248 | #endif /* CIB71 */ |
|---|
| 249 | |
|---|
| 250 | /* ------------------------------ mxrel.c --------------------------------- */ |
|---|
| 251 | |
|---|
| 252 | /* ========================== mp_scan/mp_edit ============================= */ |
|---|
| 253 | |
|---|
| 254 | extern FMT_CODE *mp_pgmp[]; |
|---|
| 255 | extern int mp_n; |
|---|
| 256 | extern char *mp_areap; |
|---|
| 257 | |
|---|
| 258 | /* ====================== mj_scan/mj_edit/mj_join ========================= */ |
|---|
| 259 | |
|---|
| 260 | extern MJ_TAGS *mj_vtagp[]; |
|---|
| 261 | extern MJ_STWS *mj_vstwp[]; |
|---|
| 262 | extern FMT_CODE *mj_pgmp[]; |
|---|
| 263 | extern LONGX mj_ridx[]; |
|---|
| 264 | extern LONGX mj_plustag[]; /* AOT 23/04/2005 */ |
|---|
| 265 | extern LONGX mj_tidx; |
|---|
| 266 | extern char *mj_areap; |
|---|
| 267 | extern char *mj_buffup; |
|---|
| 268 | extern int mj_pjchk[]; |
|---|
| 269 | extern int mj_n; |
|---|
| 270 | extern LONGX mj_jmax; |
|---|
| 271 | extern UWORD mj_jtag; |
|---|
| 272 | |
|---|
| 273 | /* ------------------------------ mxtxt.c --------------------------------- */ |
|---|
| 274 | |
|---|
| 275 | extern int mxtext_found; |
|---|
| 276 | extern int mxtext_fdir; |
|---|
| 277 | extern int mxtext_foff; |
|---|
| 278 | extern int mxtext_pshow; |
|---|
| 279 | |
|---|
| 280 | #if CIAPI |
|---|
| 281 | #if !MXFUN |
|---|
| 282 | extern void* ciapip; |
|---|
| 283 | #endif /* MXFUN */ |
|---|
| 284 | #endif /* CIAPI */ |
|---|
| 285 | |
|---|
| 286 | #endif /* MXFUN */ |
|---|