/* * GLOBALS.C * * Matthew Dillon, 24 Feb 1986 * version 2.01A (Manx ver) by Steve Drew 27 Sep 1986 * mods for 16 bit compiling 4 Oct 1986. Steve Drew. * */ #include "shell.h" struct HIST *H_head, *H_tail; struct PERROR Perror[] = { 103, "insufficient free storage", 105, "task table full", 120, "argument line invalid or too long", 121, "file is not an object module", 122, "invalid resident library during load", 201, "no default directory", 202, "object in use", 203, "object already exists", 204, "directory not found", 205, "object not found", 206, "bad stream name", 207, "object too large", 209, "action not known", 210, "invalid stream component name", 211, "invalid object lock", 212, "object not of required type", 213, "disk not validated", 214, "disk write protected", 215, "rename across devices", 216, "directory not empty", 217, "too many levels", 218, "device not mounted", 219, "seek error", 220, "comment too long", 221, "disk full", 222, "file delete protected", 223, "file write protected", 224, "file read protected", 225, "not a DOS disk", 226, "no disk", 232, "no more entries in directory", /* custom error messages */ 500, "bad arguments", 501, "label not found", 502, "must be within source file", 503, "Syntax Error", 504, "redirection error", 505, "pipe error", 506, "too many arguments", 0, NULL }; char *av[MAXAV]; long Src_base[MAXSRC]; long Src_pos[MAXSRC]; char If_base[MAXIF]; int H_len, H_tail_base, H_stack; int Src_stack, If_stack; int ac; int debug, Rval, disable, Faillevel, Verbose; int Quit; long Cout, Cin; /* current input and output file handles */ long Uniq; /* unique value */ struct Process *Myprocess; char *Cin_name, *Cout_name; /* redirection input/output name or NULL */ char *Pipe1, *Pipe2; /* the two pipe temp. files */ int S_histlen = 20;