/* eval.c -- implements eval.h */ #include "eval.h" /* eval.c * * Expression evaluation functions * * written 1986 by Daniel Lawrence * modified by Petri Kutvonen */ #include #include #include #include #include "basic.h" #include "bind.h" #include "buffer.h" #include "display.h" #include "estruct.h" #include "exec.h" #include "execute.h" #include "flook.h" #include "input.h" #include "line.h" #include "random.h" #include "search.h" #include "terminal.h" #include "termio.h" #include "version.h" #include "window.h" #define MAXVARS 255 #define ARRAY_SIZE(a) (sizeof(a) / sizeof(a[0])) /* Macro argument token types */ #define TKNUL 0 /* end-of-string */ #define TKARG 1 /* interactive argument */ #define TKBUF 2 /* buffer argument */ #define TKVAR 3 /* user variables */ #define TKENV 4 /* environment variables */ #define TKFUN 5 /* function.... */ #define TKDIR 6 /* directive */ #define TKLBL 7 /* line label */ #define TKLIT 8 /* numeric literal */ #define TKSTR 9 /* quoted string literal */ #define TKCMD 10 /* command name */ static int gettyp( char *token) ; /* Emacs global flag bit definitions (for gflags). */ /* if GFREAD is set, current buffer will be set on first file (read in) */ #define GFREAD 1 static int gflags = GFREAD ; /* global control flag */ int readfirst_f( void) { return GFREAD == (gflags & GFREAD) ; } int macbug = FALSE ; /* macro debuging flag */ int cmdstatus = TRUE ; /* last command status */ static int flickcode = FALSE ; /* do flicker supression? */ int rval = 0 ; /* return value of a subprocess */ static int saveflag = 0 ; /* Flags, saved with the $target var */ long envram = 0l ; /* # of bytes current in use by malloc */ /* Max #chars in a var name. */ #define NVSIZE 10 /* Structure to hold user variables and their definitions. */ struct user_variable { char u_name[NVSIZE + 1]; /* name of user variable */ char *u_value; /* value (string) */ }; static char errorm[] = "ERROR" ; /* error literal */ static int seed = 0 ; /* random number seed */ static char *ltos( int val) ; static char *mkupper( char *dst, char *src) ; /* List of recognized environment variables. */ static const char *envars[] = { "fillcol", /* current fill column */ "pagelen", /* number of lines used by editor */ "curcol", /* current column pos of cursor */ "curline", /* current line in file */ "ram", /* ram in use by malloc */ "flicker", /* flicker supression */ "curwidth", /* current screen width */ "cbufname", /* current buffer name */ "cfname", /* current file name */ "sres", /* current screen resolution */ "debug", /* macro debugging */ "status", /* returns the status of the last command */ "palette", /* current palette string */ "asave", /* # of chars between auto-saves */ "acount", /* # of chars until next auto-save */ "lastkey", /* last keyboard char struck */ "curchar", /* current character under the cursor */ "discmd", /* display commands on command line */ "version", /* current version number */ "progname", /* returns current prog name - "MicroEMACS" */ "seed", /* current random number seed */ "disinp", /* display command line input characters */ "wline", /* # of lines in current window */ "cwline", /* current screen line in window */ "target", /* target for line moves */ "search", /* search pattern */ "replace", /* replacement pattern */ "match", /* last matched magic pattern */ "kill", /* kill buffer (read only) */ "cmode", /* mode of current buffer */ "gmode", /* global modes */ "tpause", /* length to pause for paren matching */ "pending", /* type ahead pending flag */ "lwidth", /* width of current line */ "line", /* text of current line */ "gflags", /* global internal emacs flags */ "rval", /* child process return value */ "tab", /* tab 4 or 8 */ "overlap", "jump", #if SCROLLCODE "scroll", /* scroll enabled */ #endif }; /* And its preprocesor definitions. */ #define EVFILLCOL 0 #define EVPAGELEN 1 #define EVCURCOL 2 #define EVCURLINE 3 #define EVRAM 4 #define EVFLICKER 5 #define EVCURWIDTH 6 #define EVCBUFNAME 7 #define EVCFNAME 8 #define EVSRES 9 #define EVDEBUG 10 #define EVSTATUS 11 #define EVPALETTE 12 #define EVASAVE 13 #define EVACOUNT 14 #define EVLASTKEY 15 #define EVCURCHAR 16 #define EVDISCMD 17 #define EVVERSION 18 #define EVPROGNAME 19 #define EVSEED 20 #define EVDISINP 21 #define EVWLINE 22 #define EVCWLINE 23 #define EVTARGET 24 #define EVSEARCH 25 #define EVREPLACE 26 #define EVMATCH 27 #define EVKILL 28 #define EVCMODE 29 #define EVGMODE 30 #define EVTPAUSE 31 #define EVPENDING 32 #define EVLWIDTH 33 #define EVLINE 34 #define EVGFLAGS 35 #define EVRVAL 36 #define EVTAB 37 #define EVOVERLAP 38 #define EVSCROLLCOUNT 39 #define EVSCROLL 40 enum function_type { NILNAMIC = 0, MONAMIC = (1 << 6), DYNAMIC = (2 << 6), TRINAMIC = (3 << 6) } ; enum function_code { UFADD = 0, UFSUB, UFTIMES, UFDIV, UFMOD, UFNEG, UFCAT, UFLEFT, UFRIGHT, UFMID, UFNOT, UFEQUAL, UFLESS, UFGREATER, UFSEQUAL, UFSLESS, UFSGREAT, UFIND, UFAND, UFOR, UFLENGTH, UFUPPER, UFLOWER, UFTRUTH, UFASCII, UFCHR, UFGTKEY, UFRND, UFABS, UFSINDEX, UFENV, UFBIND, UFEXIST, UFFIND, UFBAND, UFBOR, UFBXOR, UFBNOT, UFXLATE } ; /* List of recognized user functions. */ static struct { const char f_name[ 4] ; const int f_type ; } funcs[] = { { "abs", UFABS | MONAMIC }, /* absolute value of a number */ { "add", UFADD | DYNAMIC }, /* add two numbers together */ { "and", UFAND | DYNAMIC }, /* logical and */ { "asc", UFASCII | MONAMIC }, /* char to integer conversion */ { "ban", UFBAND | DYNAMIC }, /* bitwise and 9-10-87 jwm */ { "bin", UFBIND | MONAMIC }, /* loopup what function name is bound to a key */ { "bno", UFBNOT | MONAMIC }, /* bitwise not */ { "bor", UFBOR | DYNAMIC }, /* bitwise or 9-10-87 jwm */ { "bxo", UFBXOR | DYNAMIC }, /* bitwise xor 9-10-87 jwm */ { "cat", UFCAT | DYNAMIC }, /* concatinate string */ { "chr", UFCHR | MONAMIC }, /* integer to char conversion */ { "div", UFDIV | DYNAMIC }, /* division */ { "env", UFENV | MONAMIC }, /* retrieve a system environment var */ { "equ", UFEQUAL | DYNAMIC }, /* logical equality check */ { "exi", UFEXIST | MONAMIC }, /* check if a file exists */ { "fin", UFFIND | MONAMIC }, /* look for a file on the path... */ { "gre", UFGREATER | DYNAMIC }, /* logical greater than */ { "gtk", UFGTKEY | NILNAMIC }, /* get 1 charater */ { "ind", UFIND | MONAMIC }, /* evaluate indirect value */ { "lef", UFLEFT | DYNAMIC }, /* left string(string, len) */ { "len", UFLENGTH | MONAMIC }, /* string length */ { "les", UFLESS | DYNAMIC }, /* logical less than */ { "low", UFLOWER | MONAMIC }, /* lower case string */ { "mid", UFMID | TRINAMIC }, /* mid string(string, pos, len) */ { "mod", UFMOD | DYNAMIC }, /* mod */ { "neg", UFNEG | MONAMIC }, /* negate */ { "not", UFNOT | MONAMIC }, /* logical not */ { "or", UFOR | DYNAMIC }, /* logical or */ { "rig", UFRIGHT | DYNAMIC }, /* right string(string, pos) */ { "rnd", UFRND | MONAMIC }, /* get a random number */ { "seq", UFSEQUAL | DYNAMIC }, /* string logical equality check */ { "sgr", UFSGREAT | DYNAMIC }, /* string logical greater than */ { "sin", UFSINDEX | DYNAMIC }, /* find the index of one string in another */ { "sle", UFSLESS | DYNAMIC }, /* string logical less than */ { "sub", UFSUB | DYNAMIC }, /* subtraction */ { "tim", UFTIMES | DYNAMIC }, /* multiplication */ { "tru", UFTRUTH | MONAMIC }, /* Truth of the universe logical test */ { "upp", UFUPPER | MONAMIC }, /* uppercase string */ { "xla", UFXLATE | TRINAMIC }, /* XLATE character string translation */ } ; /* User variables */ static struct user_variable uv[MAXVARS + 1]; /* When emacs' command interpetor needs to get a variable's name, * rather than it's value, it is passed back as a variable description * structure. The v_num field is a index into the appropriate variable table. */ struct variable_description { int v_type; /* Type of variable. */ int v_num; /* Ordinal pointer to variable in list. */ }; static void findvar( char *var, struct variable_description *vd, int size) ; static int svar( struct variable_description *var, char *value) ; static char *i_to_a( int i) ; /* * putctext: * replace the current line with the passed in text * * char *iline; contents of new line */ static int putctext( char *iline) { int status; /* delete the current line */ curwp->w_doto = 0; /* starting at the beginning of the line */ if ((status = killtext(TRUE, 1)) != TRUE) return status; /* insert the new line */ if ((status = linstr(iline)) != TRUE) return status; status = lnewline(); backline(TRUE, 1); return status; } static char *result ; /* string result */ static int ressize = 0 ; /* mark result as uninitialized */ static int ernd( int i) ; static int sindex( char *source, char *pattern) ; static char *xlat( char *source, char *lookup, char *trans) ; /* Initialize the user variable list. */ void varinit(void) { int i; for (i = 0; i < MAXVARS; i++) uv[i].u_name[0] = 0; if( ressize == 0) { result = malloc( NSTRING) ; ressize = NSTRING ; } } /* * Evaluate a function. * * @fname: name of function to evaluate. */ static char *gtfun( char *fname) { unsigned fnum ; /* index to function to eval */ char *arg1 ; /* value of first argument */ char *arg2 ; /* value of second argument */ char *arg3 ; /* last argument */ char *retstr ; /* return value */ int low, high ; /* binary search indexes */ /* look the function up in the function table */ fname[3] = 0; /* only first 3 chars significant */ mklower(fname); /* and let it be upper or lower case */ fnum = ARRAY_SIZE( funcs) ; low = 0 ; high = fnum - 1 ; do { int s, cur ; cur = (high + low) / 2 ; s = strcmp( fname, funcs[ cur].f_name) ; if( s == 0) { fnum = cur ; break ; } else if( s < 0) high = cur - 1 ; else low = cur + 1 ; } while( low <= high) ; /* return errorm on a bad reference */ if (fnum == ARRAY_SIZE(funcs)) return errorm; arg1 = arg2 = arg3 = NULL ; assert( clexec == TRUE) ; /* means macarg can be replaced by gettokval */ /* if needed, retrieve the first argument */ if (funcs[fnum].f_type >= MONAMIC) { arg1 = getnewtokval() ; if( arg1 == NULL) return errorm; /* if needed, retrieve the second argument */ if (funcs[fnum].f_type >= DYNAMIC) { arg2 = getnewtokval() ; if( arg2 == NULL) { free( arg1) ; return errorm; } /* if needed, retrieve the third argument */ if (funcs[fnum].f_type >= TRINAMIC) { arg3 = getnewtokval() ; if( arg3 == NULL) { free( arg1) ; free( arg2) ; return errorm; } } } } /* and now evaluate it! */ switch( funcs[ fnum].f_type) { int sz ; case UFADD | DYNAMIC: retstr = i_to_a( atoi( arg1) + atoi( arg2)) ; break ; case UFSUB | DYNAMIC: retstr = i_to_a( atoi( arg1) - atoi( arg2)) ; break ; case UFTIMES | DYNAMIC: retstr = i_to_a( atoi( arg1) * atoi( arg2)) ; break ; case UFDIV | DYNAMIC: sz = atoi( arg2) ; retstr = (sz == 0) ? errorm : i_to_a( atoi( arg1) / sz) ; break ; case UFMOD | DYNAMIC: sz = atoi( arg2) ; retstr = (sz == 0) ? errorm : i_to_a( atoi( arg1) % sz) ; break ; case UFNEG | MONAMIC: retstr = i_to_a( -atoi( arg1)) ; break ; case UFCAT | DYNAMIC: { int sz1 ; sz1 = strlen( arg1) ; sz = sz1 + strlen( arg2) + 1 ; if( sz > ressize) { free( result) ; result = malloc( sz) ; ressize = sz ; } strcpy( result, arg1) ; strcpy( &result[ sz1], arg2) ; retstr = result ; } break ; case UFLEFT | DYNAMIC: sz = atoi( arg2) ; if( sz >= ressize) { free( result) ; result = malloc( sz + 1) ; ressize = sz + 1 ; } strncpy( result, arg1, sz) ; result[ sz] = 0 ; retstr = result ; break ; case UFRIGHT | DYNAMIC: sz = atoi( arg2) ; if( sz >= ressize) { free( result) ; result = malloc( sz + 1) ; ressize = sz + 1 ; } retstr = strcpy( result, &arg1[ strlen( arg1) - sz]) ; break ; case UFMID | TRINAMIC: sz = atoi( arg3) ; if( sz >= ressize) { free( result) ; result = malloc( sz + 1) ; ressize = sz + 1 ; } strncpy( result, &arg1[ atoi( arg2) - 1], sz) ; result[ sz] = 0 ; retstr = result ; break ; case UFNOT | MONAMIC: retstr = ltos( stol( arg1) == FALSE) ; break ; case UFEQUAL | DYNAMIC: retstr = ltos( atoi( arg1) == atoi( arg2)) ; break ; case UFLESS | DYNAMIC: retstr = ltos( atoi( arg1) < atoi( arg2)) ; break ; case UFGREATER | DYNAMIC: retstr = ltos( atoi( arg1) > atoi( arg2)) ; break ; case UFSEQUAL | DYNAMIC: retstr = ltos( strcmp( arg1, arg2) == 0) ; break ; case UFSLESS | DYNAMIC: retstr = ltos( strcmp( arg1, arg2) < 0) ; break ; case UFSGREAT | DYNAMIC: retstr = ltos( strcmp( arg1, arg2) > 0) ; break ; case UFIND | MONAMIC: retstr = getval( arg1) ; sz = strlen( retstr) + 1 ; if( sz > ressize) { free( result) ; result = malloc( sz) ; ressize = sz ; } retstr = strcpy( result, retstr) ; break ; case UFAND | DYNAMIC: retstr = ltos( stol( arg1) && stol( arg2)) ; break ; case UFOR | DYNAMIC: retstr = ltos( stol( arg1) || stol( arg2)) ; break ; case UFLENGTH | MONAMIC: retstr = i_to_a( strlen( arg1)) ; break ; case UFUPPER | MONAMIC: sz = strlen( arg1) ; if( sz >= ressize) { free( result) ; result = malloc( sz + 1) ; ressize = sz + 1 ; } retstr = mkupper( result, arg1) ; break ; case UFLOWER | MONAMIC: sz = strlen( arg1) ; if( sz >= ressize) { free( result) ; result = malloc( sz + 1) ; ressize = sz + 1 ; } strcpy( result, arg1) ; /* result is at least as long as arg1 */ retstr = mklower( result) ; break ; case UFTRUTH | MONAMIC: retstr = ltos( atoi( arg1) == 42) ; break ; case UFASCII | MONAMIC: { unicode_t c ; utf8_to_unicode( arg1, 0, 4, &c) ; retstr = i_to_a( c) ; } break ; case UFCHR | MONAMIC: { unicode_t c ; c = atoi( arg1) ; if( c > 0x10FFFF) retstr = errorm ; else { sz = unicode_to_utf8( c, result) ; result[ sz] = 0 ; retstr = result ; } } break ; case UFGTKEY | NILNAMIC: result[0] = tgetc(); result[1] = 0; retstr = result ; break ; case UFRND | MONAMIC: retstr = i_to_a( ernd( atoi( arg1))) ; break ; case UFABS | MONAMIC: retstr = i_to_a( abs( atoi( arg1))) ; break ; case UFSINDEX | DYNAMIC: retstr = i_to_a( sindex( arg1, arg2)) ; break ; case UFENV | MONAMIC: #if ENVFUNC retstr = getenv( arg1) ; if( retstr == NULL) retstr = "" ; #else retstr = "" ; #endif break ; case UFBIND | MONAMIC: retstr = transbind( arg1) ; break ; case UFEXIST | MONAMIC: retstr = ltos( fexist( arg1)) ; break ; case UFFIND | MONAMIC: retstr = flook( arg1, TRUE) ; if( retstr == NULL) retstr = "" ; break ; case UFBAND | DYNAMIC: retstr = i_to_a( atoi( arg1) & atoi( arg2)) ; break ; case UFBOR | DYNAMIC: retstr = i_to_a( atoi( arg1) | atoi( arg2)) ; break ; case UFBXOR | DYNAMIC: retstr = i_to_a( atoi( arg1) ^ atoi( arg2)) ; break ; case UFBNOT | MONAMIC: retstr = i_to_a( ~atoi( arg1)) ; break ; case UFXLATE | TRINAMIC: retstr = xlat( arg1, arg2, arg3) ; break ; default: assert( FALSE) ; /* never should get here */ retstr = errorm ; } if( arg3) free( arg3) ; if( arg2) free( arg2) ; if( arg1) free( arg1) ; return retstr ; } /* * look up a user var's value * * char *vname; name of user variable to fetch */ static char *gtusr( char *vname) { int vnum; /* ordinal number of user var */ /* scan the list looking for the user var name */ for (vnum = 0; vnum < MAXVARS; vnum++) { if (uv[vnum].u_name[0] == 0) break ; if( strncmp( vname, uv[ vnum].u_name, NVSIZE) == 0) return uv[vnum].u_value; } /* return errorm if we run off the end */ return errorm; } /* * gtenv() * * char *vname; name of environment variable to retrieve */ static char *gtenv( char *vname) { unsigned vnum ; /* ordinal number of var referenced */ /* scan the list, looking for the referenced name */ for (vnum = 0; vnum < ARRAY_SIZE(envars); vnum++) if (strcmp(vname, envars[vnum]) == 0) break; /* return errorm on a bad reference */ if (vnum == ARRAY_SIZE(envars)) #if ENVFUNC { char *ename = getenv(vname); if (ename != NULL) return ename; else return errorm; } #else return errorm; #endif /* otherwise, fetch the appropriate value */ switch (vnum) { case EVFILLCOL: return i_to_a(fillcol); case EVPAGELEN: return i_to_a(term.t_nrow + 1); case EVCURCOL: return i_to_a(getccol(FALSE)); case EVCURLINE: return i_to_a(getcline()); case EVRAM: return i_to_a((int) (envram / 1024l)); case EVFLICKER: return ltos(flickcode); case EVCURWIDTH: return i_to_a(term.t_ncol); case EVCBUFNAME: return curbp->b_bname; case EVCFNAME: return curbp->b_fname; case EVSRES: return sres; case EVDEBUG: return ltos(macbug); case EVSTATUS: return ltos(cmdstatus); case EVPALETTE: { static char palstr[ 49] = "" ; /* palette string */ return palstr; } case EVASAVE: return i_to_a(gasave); case EVACOUNT: return i_to_a(gacount); case EVLASTKEY: return i_to_a(lastkey); case EVCURCHAR: return (curwp->w_dotp->l_used == curwp->w_doto ? i_to_a('\n') : i_to_a(lgetc(curwp->w_dotp, curwp->w_doto))); case EVDISCMD: return ltos(discmd); case EVVERSION: return VERSION; case EVPROGNAME: return PROGRAM_NAME_PFX PROGRAM_NAME_LONG ; case EVSEED: return i_to_a(seed); case EVDISINP: return ltos(disinp); case EVWLINE: return i_to_a(curwp->w_ntrows); case EVCWLINE: return i_to_a(getwpos()); case EVTARGET: saveflag = lastflag; return i_to_a(curgoal); case EVSEARCH: return pat; case EVREPLACE: return rpat; case EVMATCH: return (patmatch == NULL) ? "" : patmatch; case EVKILL: return getkill(); case EVCMODE: return i_to_a(curbp->b_mode); case EVGMODE: return i_to_a(gmode); case EVTPAUSE: return i_to_a(term.t_pause); case EVPENDING: #if TYPEAH return ltos(typahead()); #else return falsem; #endif case EVLWIDTH: return i_to_a(llength(curwp->w_dotp)); case EVLINE: return getctext(); case EVGFLAGS: return i_to_a(gflags); case EVRVAL: return i_to_a(rval); case EVTAB: return i_to_a(tabmask + 1); case EVOVERLAP: return i_to_a(overlap); case EVSCROLLCOUNT: return i_to_a(scrollcount); #if SCROLLCODE case EVSCROLL: return ltos(term.t_scroll != NULL); #else case EVSCROLL: return ltos(0); #endif } assert( FALSE) ; /* again, we should never get here */ return errorm ; } /* * set a variable * * int f; default flag * int n; numeric arg (can overide prompted value) */ int setvar(int f, int n) { int status; /* status return */ struct variable_description vd; /* variable num/type */ char var[NVSIZE + 2]; /* name of variable to fetch %1234567890\0 */ char *value ; /* value to set variable to */ /* first get the variable to set.. */ if (clexec == FALSE) { status = getstring( "Variable to set: ", var, sizeof var, nlc) ; if (status != TRUE) return status; } else { /* macro line argument */ /* grab token and skip it */ gettoken( var, sizeof var) ; } /* check the legality and find the var */ findvar( var, &vd, sizeof var) ; /* if its not legal....bitch */ if (vd.v_type == -1) { mlwrite("%%No such variable as '%s'", var); return FALSE; } /* get the value for that variable */ if( f == TRUE) { value = malloc( NSTRING) ; if( value == NULL) return FALSE ; /* a bit overcautious here in using strncpy */ strncpy( value, i_to_a( n), NSTRING - 1) ; value[ NSTRING - 1] = '\0' ; } else { status = newmlarg( &value, "Value: ", 0) ; if (status != TRUE) return status; } /* and set the appropriate value */ status = svar(&vd, value); #if DEBUGM /* if $debug == TRUE, every assignment will echo a statment to that effect here. */ if( macbug) if( abortc == mdbugout( "(((%s:%s:%s)))", ltos( status), var, value)) status = FALSE ; #endif /* and return it */ free( value) ; return status; } static void mlforce( char *s) ; #if DEBUGM int mdbugout( char *fmt, ...) { int c ; /* input from kbd, output to terminal */ int savediscmd ; va_list ap ; /* assignment status ; variable name ; value we tried to assign */ /* write out the debug line */ savediscmd = discmd ; discmd = TRUE ; va_start( ap, fmt) ; vmlwrite( fmt, ap) ; va_end( ap) ; discmd = savediscmd ; update( TRUE) ; /* and get the keystroke to hold the output */ c = get1key() ; if( c == abortc) mlforce( "(Macro aborted)") ; return c ; } #endif /* * Find a variables type and name. * * @var: name of variable to get. * @vd: structure to hold type and pointer. * @size: size of variable array. */ static void findvar(char *var, struct variable_description *vd, int size) { unsigned vnum = 0 ; /* subscript in variable arrays */ int vtype; /* type to return */ fvar: vtype = -1; switch (var[0]) { case '$': /* check for legal enviromnent var */ for (vnum = 0; vnum < ARRAY_SIZE(envars); vnum++) if (strcmp(&var[1], envars[vnum]) == 0) { vtype = TKENV; break; } break; case '%': /* check for existing legal user variable */ for (vnum = 0; vnum < MAXVARS; vnum++) if (strcmp(&var[1], uv[vnum].u_name) == 0) { vtype = TKVAR; break; } if (vnum < MAXVARS) break; /* create a new one??? */ for (vnum = 0; vnum < MAXVARS; vnum++) if (uv[vnum].u_name[0] == 0) { vtype = TKVAR; strncpy( uv[ vnum].u_name, &var[ 1], NVSIZE) ; uv[ vnum].u_name[ NVSIZE] = '\0' ; break; } break; case '&': /* indirect operator? */ var[4] = 0; if (strcmp(&var[1], "ind") == 0) { /* grab token, and eval it */ if( TRUE == gettokval( var, size)) goto fvar ; } } /* return the results */ vd->v_num = vnum; vd->v_type = vtype; return; } /* * Set a variable. * * @var: variable to set. * @value: value to set to. */ static int svar(struct variable_description *var, char *value) { int vnum; /* ordinal number of var refrenced */ int vtype; /* type of variable to set */ int status; /* status return */ int c; /* translated character */ char *sp; /* scratch string pointer */ /* simplify the vd structure (we are gonna look at it a lot) */ vnum = var->v_num; vtype = var->v_type; /* and set the appropriate value */ status = TRUE; switch (vtype) { case TKVAR: /* set a user variable */ if (uv[vnum].u_value != NULL) free(uv[vnum].u_value); sp = malloc(strlen(value) + 1); if (sp == NULL) return FALSE; strcpy(sp, value); uv[vnum].u_value = sp; break; case TKENV: /* set an environment variable */ status = TRUE; /* by default */ switch (vnum) { case EVFILLCOL: fillcol = atoi(value); break; case EVPAGELEN: status = newsize(TRUE, atoi(value)); break; case EVCURCOL: status = setccol(atoi(value)); break; case EVCURLINE: status = gotoline(TRUE, atoi(value)); break; case EVRAM: break; case EVFLICKER: flickcode = stol(value); break; case EVCURWIDTH: status = newwidth(TRUE, atoi(value)); break; case EVCBUFNAME: strcpy(curbp->b_bname, value); curwp->w_flag |= WFMODE; break; case EVCFNAME: strcpy(curbp->b_fname, value); curwp->w_flag |= WFMODE; break; case EVSRES: status = TTrez(value); break; case EVDEBUG: macbug = stol(value); break; case EVSTATUS: cmdstatus = stol(value); break; case EVASAVE: gasave = atoi(value); break; case EVACOUNT: gacount = atoi(value); break; case EVLASTKEY: lastkey = atoi(value); break; case EVCURCHAR: ldelchar(1, FALSE); /* delete 1 char */ c = atoi(value); if (c == '\n') lnewline(); else linsert(1, c); backchar(FALSE, 1); break; case EVDISCMD: discmd = stol(value); break; case EVVERSION: break; case EVPROGNAME: break; case EVSEED: seed = atoi(value); break; case EVDISINP: disinp = stol(value); break; case EVWLINE: status = resize(TRUE, atoi(value)); break; case EVCWLINE: status = forwline(TRUE, atoi(value) - getwpos()); break; case EVTARGET: curgoal = atoi(value); thisflag = saveflag; break; case EVSEARCH: strcpy(pat, value); rvstrcpy(tap, pat); #if MAGIC mcclear(); #endif break; case EVREPLACE: strcpy(rpat, value); break; case EVMATCH: break; case EVKILL: break; case EVCMODE: curbp->b_mode = atoi(value); curwp->w_flag |= WFMODE; break; case EVGMODE: gmode = atoi(value); break; case EVTPAUSE: term.t_pause = atoi(value); break; case EVPENDING: break; case EVLWIDTH: break; case EVLINE: return putctext( value) ; case EVGFLAGS: gflags = atoi(value); break; case EVRVAL: break; case EVTAB: tabmask = atoi(value) - 1; if( tabmask != 0x07 && tabmask != 0x03 && tabmask != 1) tabmask = 0x07; curwp->w_flag |= WFHARD; break; case EVOVERLAP: overlap = atoi(value); break; case EVSCROLLCOUNT: scrollcount = atoi(value); break; case EVSCROLL: #if SCROLLCODE if (!stol(value)) term.t_scroll = NULL; #endif break; } break; } return status; } /* * i_to_a: * integer to ascii string.......... This is too * inconsistant to use the system's * * int i; integer to translate to a string */ static char *i_to_a( int i) { unsigned u ; int sign ; /* sign of resulting number */ /* returns result string: sign digits null */ static char result[ 1 + (sizeof i * 5 + 1) / 2 + 1] ; char *sp = &result[ sizeof result - 1] ; /* points on result's last byte */ *sp = 0 ; /* record the sign... */ sign = i < 0 ; u = sign ? -i : i ; /* and build the string (backwards!) */ do { *(--sp) = '0' + u % 10 ; /* install the new digit */ u = u / 10 ; } while( u) ; /* and fix the sign */ if( sign) *(--sp) = '-'; /* and install the minus sign */ return sp ; } /* * find the type of a passed token * * char *token; token to analyze */ static int gettyp( char *token) { char c; /* first char in token */ /* grab the first char (this is all we need) */ c = *token; switch (c) { case 0: /* no blanks!!! */ return TKNUL ; case '"': return TKSTR; case '!': return TKDIR; case '@': return TKARG; case '=': return TKBUF; case '$': return TKENV; case '%': return TKVAR; case '&': return TKFUN; case '*': return TKLBL; default: /* a numeric literal? */ if( (c >= '0' && c <= '9') || c == '-') return TKLIT; else return TKCMD; } } int is_it_cmd( char *token) { return TKCMD == gettyp( token) ; } /* * find the value of a token * * char *token; token to evaluate */ char *getval(char *token) { int status; /* error return */ struct buffer *bp; /* temp buffer pointer */ unsigned blen ; /* length of buffer argument */ int distmp; /* temporary discmd flag */ static char buf[NSTRING]; /* string buffer for some returns */ switch (gettyp(token)) { case TKNUL: return ""; case TKARG: /* interactive argument */ strcpy(token, getval(&token[1])); distmp = discmd; /* echo it always! */ discmd = TRUE; status = getstring( token, buf, NSTRING, nlc) ; discmd = distmp; if (status == ABORT) return errorm; return buf; case TKBUF: /* buffer contents fetch */ /* grab the right buffer */ strcpy(token, getval(&token[1])); bp = bfind(token, FALSE, 0); if (bp == NULL) return errorm; /* if the buffer is displayed, get the window vars instead of the buffer vars */ if (bp->b_nwnd > 0) { curbp->b_dotp = curwp->w_dotp; curbp->b_doto = curwp->w_doto; } /* make sure we are not at the end */ if (bp->b_linep == bp->b_dotp) return errorm; /* grab the line as an argument */ blen = bp->b_dotp->l_used - bp->b_doto; if( blen >= sizeof buf) blen = sizeof buf - 1 ; strncpy(buf, bp->b_dotp->l_text + bp->b_doto, blen); buf[blen] = 0; /* and step the buffer's line ptr ahead a line */ bp->b_dotp = bp->b_dotp->l_fp; bp->b_doto = 0; /* if displayed buffer, reset window ptr vars */ if (bp->b_nwnd > 0) { curwp->w_dotp = curbp->b_dotp; curwp->w_doto = 0; curwp->w_flag |= WFMOVE; } /* and return the spoils */ return buf; case TKVAR: return gtusr(token + 1); case TKENV: return gtenv(token + 1); case TKFUN: return gtfun(token + 1); case TKDIR: return errorm; case TKLBL: return errorm; case TKLIT: return token; case TKSTR: return token + 1; case TKCMD: return token; } return errorm; } /* * convert a string to a numeric logical * * char *val; value to check for stol */ int stol(char *val) { /* check for logical values */ if (val[0] == 'F') return FALSE; if (val[0] == 'T') return TRUE; /* check for numeric truth (!= 0) */ return (atoi(val) != 0); } /* * numeric logical to string logical * * int val; value to translate */ static char *ltos( int val) { static char *boolm[] = { "TRUE", "FALSE" } ; return boolm[ !val] ; } /* * make a string upper case * * char *src ; string to upper case * char *dst ; where to store * dst must be at least as long as src. */ static char *mkupper( char *dst, char *src) { char c, *sp ; sp = dst ; while( (c = *src++)) { if( 'a' <= c && c <= 'z') c += 'A' - 'a' ; *sp++ = c ; } *sp = 0 ; return dst ; } /* * make a string lower case * * char *str; string to lower case */ char *mklower(char *str) { char *sp; sp = str; while (*sp) { if ('A' <= *sp && *sp <= 'Z') *sp += 'a' - 'A'; ++sp; } return str; } /* * returns a random integer * ernd( 0) [ 0 .. 2147483647] * ernd( i) [ 1 .. abs( i)] * ernd( 1) [ 1] * ernd( -2147483648) [ 1 .. 2147483647] actually 2147482413 */ static int ernd( int i) { seed = seed * 1721 + 10007 ; seed &= ~(1 << 31) ; /* avoid abs() which introduces 176719 periodicity */ if( i == 0) return seed ; i = i < 0 ? -i : i ; /* abs( i) */ return seed % i + 1 ; } /* * find pattern within source * * char *source; source string to search * char *pattern; string to look for */ static int sindex( char *source, char *pattern) { char *sp; /* ptr to current position to scan */ /* scanning through the source string */ sp = source; while (*sp) { char *csp; /* ptr to source string during comparison */ char *cp; /* ptr to place to check for equality */ /* scan through the pattern */ cp = pattern; csp = sp; while (*cp) { if (!eq(*cp, *csp)) break; ++cp; ++csp; } /* was it a match? */ if (*cp == 0) return (int) (sp - source) + 1; ++sp; } /* no match at all.. */ return 0; } /* * Filter a string through a translation table * * char *source; string to filter * char *lookup; characters to translate * char *trans; resulting translated characters */ static char *xlat( char *source, char *lookup, char *trans) { char *sp; /* pointer into source table */ char *lp; /* pointer into lookup table */ char *rp; /* pointer into result */ static char result[NSTRING]; /* temporary result */ /* scan source string */ sp = source; rp = result; while (*sp) { /* scan lookup table for a match */ lp = lookup; while (*lp) { if (*sp == *lp) { *rp++ = trans[lp - lookup]; goto xnext; } ++lp; } /* no match, copy in the source char untranslated */ *rp++ = *sp; xnext:++sp; } /* terminate and return the result */ *rp = 0; return result; } /* * Force a string out to the message line regardless of the * current $discmd setting. This is needed when $debug is TRUE * and for the write-message and clear-message-line commands * * char *s; string to force out */ static void mlforce( char *s) { int oldcmd; /* original command display flag */ oldcmd = discmd; /* save the discmd value */ discmd = TRUE; /* and turn display on */ mlwrite( (*s) ? "%s" : "", s) ; /* write the string out or erase line */ discmd = oldcmd; /* and restore the original setting */ } /* * This function simply clears the message line, * mainly for macro usage * * int f, n; arguments ignored */ int clrmes( int f, int n) { mlforce( "") ; return TRUE ; } /* * This function writes a string on the message line * mainly for macro usage * * int f, n; arguments ignored */ int writemsg( int f, int n) { int status ; char *buf ; /* buffer to receive message into */ status = newmlarg( &buf, "Message to write: ", 0) ; if( status == TRUE) { /* write the message out */ mlforce( buf) ; free( buf) ; } return status ; } /* end of eval.c */