1 /* The functions of REXX/imc This is a 132 column file (C) Ian Collier 1992 */ 2 3 #ifndef _functions_h 4 #define _functions_h 5 6 #ifdef __STDC__ /* define Args macro so that the arguments of each */ 7 #define Args(a) a /* function can be stated without confusing the */ 8 #else /* compiler */ 9 #define Args(a) () 10 #define volatile /* Ignore "volatile" for traditional C compiler */ 11 #endif 12 13 /* Protection against things not having been included... */ 14 #ifndef putchar 15 #include<stdio.h> 16 #endif 17 #ifndef Einit 18 #include"const.h" 19 #endif 20 21 22 #ifdef DEBUG /* Debugging mtest routines */ 23 int mtest_debug Args((char **memptr,unsigned *alloc,unsigned length,unsigned extend,long *diff)); 24 #define mtest(memptr,alloc,length,extend) (mtest_debug(&memptr,&alloc,length,extend,(long *)0)) 25 #define dtest(memptr,alloc,length,extend) (mtest_debug(&memptr,&alloc,length,extend,&mtest_diff)) 26 #else /* not defined DEBUG */ 27 /* Usually the mem test routines use inline code for greater efficiency. 28 mtest: reallocate an area only if it is too small 29 dtest: the same, but also return 1 if the area moved and set mtest_diff to 30 the difference 31 Recently fixed to save the old value when realloc fails 32 */ 33 #define mtest(memptr,alloc,length,extend) {char *old; \ 34 (alloc<(length))&&( \ 35 old=memptr, \ 36 (memptr=realloc(memptr,(unsigned)(alloc+=(extend))))||(memptr=old,alloc-=(extend),die(Emem),1) \ 37 );} 38 #define dtest(memptr,alloc,length,extend) ( \ 39 (alloc<(length))&&( \ 40 mtest_old=memptr, \ 41 (memptr=realloc(memptr,(unsigned)(alloc+=(extend))))||(memptr=mtest_old,alloc-=(extend),die(Emem),1), \ 42 mtest_diff=memptr-mtest_old )) 43 #endif /* DEBUG */ 44 45 #define whattype(c) (types[(unsigned char)(c)]) 46 #define alphanum(c) (alphs[(unsigned char)(c)]) 47 #define rexxsymboldot(c) (whattype(c)>0) 48 #define rexxsymbol(c) (symbs[(unsigned char)(c)]) 49 50 #ifdef NO_LDL /* Declare the dynamic load functions */ 51 void *dlopen Args((char*,int)); /* either in situ or from the system header file */ 52 void *dlsym Args((void *,char*)); 53 char *dlerror Args((void)); 54 int dlclose Args((void*)); 55 #else 56 #include<dlfcn.h> 57 #endif /* NO_LDL */ 58 59 /* In ANSI C, you can take the address of any object and the result is of type pointer to that object. In K&R C, this 60 fails when the object is an array. The following kludge takes the address of a jmp_buf, which is likely to be an 61 array. On systems where it isn't, this macro has to be changed... */ 62 #ifdef __STDC__ 63 #define addressof(x) (&(x)) 64 #else 65 #define addressof(x) ((jmp_buf*)(x)) 66 #endif 67 68 #ifdef __hpux /* HP-UX doesn't have srandom, random or siginterrupt */ 69 #define srandom srand48 70 #define random lrand48 71 #define siginterrupt(arg1,arg2) (0) 72 #endif 73 74 #ifdef sgi /* IRIX doesn't have siginterrupt or vfork */ 75 #define siginterrupt(arg1,arg2) (0) 76 #define vfork fork 77 #endif 78 79 #ifdef Solaris /* Solaris doesn't have siginterrupt */ 80 #define siginterrupt(arg1,arg2) (0) 81 #endif 82 83 #if (defined(sun) || defined(__sun__)) && !defined(Solaris) /* SunOS4 does not provide strerror */ 84 extern int errno; 85 extern int sys_nerr; 86 extern char *sys_errlist[]; 87 # define strerror(x) ((x)>=0 && (x)<sys_nerr ? sys_errlist[x] : (char*)NULL) 88 /* SunOS 4 is the only system to recommend getwd above getcwd. */ 89 # define getcwd(name,len) getwd(name) 90 #endif 91 92 #ifdef RENAME_UNDELETE /* FreeBSD has undelete() defined in unistd.h so REXX/imc's will be renamed */ 93 # define undelete rx_undelete 94 #endif 95 96 /* in rexx.c */ 97 int main Args((int argc, char *argv[])); 98 char *allocm Args((unsigned size)); 99 void die Args((int rc)); 100 char *interpreter Args((int *anslen,int start, /* Interpret program lines */ 101 char *callname,long calltype,char *args[],int arglen[],int inherit,int delay)); 102 static void doaddress Args((char **line,int env)); /* Address a command to an environment */ 103 static void parse Args((char *list[],int len[],int up,char *line,int *ptr)); /* PARSE strings with a template */ 104 static char uc1 Args((int c,int up)); /* Uppercase c, if up */ 105 static void pset1 Args((char *list,int listlen,char *val,int len,int up)); /* Tokenise a string into variables */ 106 static void pset Args((char *varname,int namelen,char *val,int len,int up)); /* Assign a PARSE result to a variable */ 107 static int findsigl Args((int *level)); /* Find most recent line number */ 108 static void getcallargs Args((char *args[],int arglen[],int argc)); /* Unstack parameters in a CALL instruc */ 109 int rxcall Args((int stmt,char *name,int argc,int lit,long calltype)); /* Call a procedure */ 110 char *rxinterp Args((char *exp,int len,int *rlen,char *name,long calltype, /* INTERPRET a string */ 111 char *args[],int arglen[])); 112 static void doconds Args((void)); /* Check for delayed conditions and trap them */ 113 void settrace Args((char *)); /* Set trace according to the given option */ 114 int setoption Args((char *option,int len)); /* Set an option from the OPTIONS instruction */ 115 static int gettrap Args((char **lineptr,int on,int *stmt)); /* Get a trap name after "call/signal on" */ 116 static void testvarname Args((char **line,char *var,int len)); /* Test the symbol against a stored name */ 117 static void skipstmt Args((void)); /* Skip the current instruction */ 118 static void stepdo Args((void)); /* Step past the current DO */ 119 static void stepselect Args((void)); /* Step past the current SELECT */ 120 static void stepif Args((void)); /* Step past the current IF */ 121 static void stepwhen Args((void)); /* Step past the current WHEN */ 122 static void findend Args((void)); /* Find the next END */ 123 void on_halt Args((void)); /* Find the line number at which halt occurred */ 124 125 /* in calc.c */ 126 127 char *scanning Args((char *line,int *ptr,int *len)); /* Evaluate an expression */ 128 void tracelast Args((char *type)); /* Trace the last value on the stack */ 129 void traceline Args((char *type,char *exp,int len)); /* Trace any string */ 130 void stack Args((char *exp,int len)); /* Stack a string literally */ 131 void stackq Args((char *exp,int len,int quote)); /* Stack a string, collapsing quotes */ 132 void stackx Args((char *exp,int len)); /* Stack a hex constant */ 133 void stackb Args((char *exp,int len)); /* Stack a binary constant */ 134 void stackint Args((int i)); /* Stack an integer */ 135 void stacknull Args((void)); /* Stack a null parameter */ 136 void binplus Args((int op)); /* Add the last two values */ 137 void binmin Args((int op)); /* Subtract the last value from the previous */ 138 void binmul Args((int op)); /* Multiply the last two values */ 139 void bindiv Args((int op)); /* Divide the previous value by the last */ 140 void binexp Args((int op)); /* Raise the previous value to the last-th power */ 141 void rxdup Args((void)); /* Duplicate the last value */ 142 void binrel Args((int op)); /* Compare the last two values */ 143 void binbool Args((int op)); /* Combine the last two logical values */ 144 void bincat Args((int op)); /* Concatenate the last two values */ 145 void unnot Args((int op)); /* Negate logically the last value */ 146 void unmin Args((int op)); /* Negate arithmetically the last value */ 147 void unplus Args((int op)); /* Reformat the last numeric value */ 148 void strip Args((void)); /* Strip surrounding space from the last value */ 149 int num Args((int *minus,int *exp,int *zero,int *len)); /* Get the last value as a number */ 150 int getint Args((int flg)); /* Get the last value as an integer */ 151 int isint Args((int num,int len,int exp)); /* Is the last value an integer? */ 152 char *delete Args((int *len)); /* Delete and return the last value */ 153 int isnull Args((void)); /* Is the last value null? */ 154 void stacknum Args((char *num,int len,int exp,int minus)); /* Stack a number */ 155 void getvarname Args((char *line,int *ptr,char *varname,int *namelen,int maxlen)); /* Get a symbol from a program line */ 156 void skipvarname Args((char *line,int *ptr)); /* Skip a symbol in a program line */ 157 int gettoken Args((char *line,int *ptr,char *varname,int maxlen,int ex)); /* Get a token from a program line */ 158 159 /* in util.c */ 160 char *message Args((int rc)); /* Return an error message string */ 161 void rcset Args((int i,int type,char *desc)); /* Set the variable rc to the given value */ 162 void rcstringset Args((int rc,char *rcval, int rclen,int type,char *desc)); /* Set the variable rc to the given string */ 163 void printrc Args((int i)); /* Print a return code */ 164 int exitcall (/*(long main, long sub, PEXIT parm)*/); /* call an exit */ 165 char *varsearch Args((char *name,int len,int *level,int *exist)); /* Search for a simple symbol or stem */ 166 char *tailsearch Args((char *stem,char *name,int len,int *exist)); /* Search for a tail within a stem */ 167 char *valuesearch Args((char *name,int namelen,int *level,int *exist,char **stem)); /* Search for any variable */ 168 void printtree Args((int lev)); /* Print the entire variable table */ 169 void update Args((int value,int amount,int level)); /* Update the pointers for a variable level */ 170 void varcreate Args((char *varptr,char *name,char *value,int namelen,int len,int lev));/* Create a simple symbol */ 171 void stemcreate Args((char *varptr,char *name,char *value,int namelen,int len,int lev));/* Create a stem */ 172 void tailcreate Args((char *stem,char *tailptr,char *name,char *value,int namelen,int len,int level));/* Create a tail in a stem */ 173 void varset Args((char *name,int varlen,char *value,int len)); /* Assign any value to any variable */ 174 char *varget Args((char *name,int varlen,int *len)); /* Get any variable's value */ 175 void newlevel Args((void)); /* Make a new level in the variable table */ 176 void varcopy Args((char *name,int varlen)); /* Expose a variable from the previous level */ 177 void vardup Args((void)); /* Duplicate the entire variables level */ 178 void vardel Args((char *name,int len)); /* Remove one of the duplicate variables */ 179 char uc Args((int c)); /* Uppercase a character */ 180 void *pstack Args((int type,int len)); /* Make a new program stack entry */ 181 int unpstack Args((void)); /* Examine the top program stack entry */ 182 void *delpstack Args((void)); /* Delete and return the top p-stack entry */ 183 int strcmpi Args((char *s1,char *s2)); /* Is s1 an initial substring of s2? */ 184 void printstmt Args((int stmt,int after,int error)); /* Print a source statement */ 185 void freestack Args((void *ptr,int i)); /* Clean up after deleting a p-stack entry */ 186 void traceput Args((char *str,int len)); /* Print a counted string of trace output */ 187 void tracestr Args((char *str)); /* Print a string of trace output */ 188 void tracechar Args((int ch)); /* Print a character of trace output */ 189 void tracenum Args((int num,int len)); /* Print a number to trace output */ 190 void traceprefix Args((int num, char*prefix)); /* Print a number and 3-character prefix */ 191 void interactive Args((void)); /* Pause execution, if in interactive trace */ 192 void tokenise Args((char *input,int ilen,int dolabels,int line1)); /* Preprocess source code */ 193 char *load Args((char *name,int *sourcelen)); /* Load a program from disk */ 194 void process Args((int c)); /* Tokenise characters */ 195 void expand Args((int c)); /* Expand a token */ 196 void display Args((int line,int ptr)); /* Display a program line */ 197 char *rexxext Args((void)); /* Return the default filetype */ 198 int which Args((char *gn,int opt,char *fn)); /* Search for a program or subroutine */ 199 char *hashsearch Args((int hash,char *name,int *exist)); /* Search for a hash table entry */ 200 void *hashget Args((int hash,char *name,int *exist)); /* Return the value associated with a key */ 201 void **hashfind Args((int hash,char *name,int *exist)); /* Return a pointer to a key's value element */ 202 struct fileinfo *fileinit Args((char *name,char *filename,FILE *fp)); /* Store an open file's details */ 203 void funcinit Args((char *name,void *handle,int (*address)(),int saa)); /* Store an external function's details */ 204 void libsearch Args((void)); /* Ssearch for *.rxlib files */ 205 int fileclose Args((char *name)); /* Free a file's hash table entry */ 206 207 /* in rxfn.c */ 208 int rxfn Args((char *name,int argc)); /* Try to call a builtin function */ 209 int rxseterr Args((struct fileinfo *f)); /* Set rc to indicate a file's status */ 210 char *undelete Args((int *l)); /* Get last value without deleting it */ 211 212 /* in shell.c */ 213 int shell Args((char *command)); /* Interpret a shell command */ 214 void hashclear Args((void)); /* Clear the shell's hashed path table */ 215 216 /* in interface.c */ 217 void envinit Args((void)); /* Initialise the environment table */ 218 int envsearch Args((char *name)); /* Search for an environment name */ 219 int envcall Args((int num,char *cmd, int len, char **ans, int *anslen)); /* call an environment */ 220 int funccall Args((unsigned long (*func)(),char *name,int argc)); /* call a function by SAA calling sequence */ 221 int unixcall Args((char *name,char *callname,int argc)); /* call a function by Unix calling sequence */ 222 void hashfree Args((void)); /* Free all memory used by hash tables */ 223 static void halt_handler(); /* handle halt signals */ 224 static void pipe_handler(); /* handle broken pipe signals */ 225 static void error_handler(); /* handle error signals */ 226 static void sigtrace(); /* Go into trace mode, or exit */ 227 228 #undef Args 229 230 #endif /* !_functions_h */ 231