/*
 * 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;