mirror of
https://github.com/rfivet/uemacs.git
synced 2024-12-23 09:36:31 -05:00
213 lines
6.1 KiB
C
213 lines
6.1 KiB
C
/* EVAR.H
|
|
*
|
|
* Environment and user variable definitions
|
|
*
|
|
* written 1986 by Daniel Lawrence
|
|
* modified by Petri Kutvonen
|
|
*/
|
|
|
|
/* structure to hold user variables and their definitions */
|
|
|
|
typedef struct UVAR {
|
|
char u_name[NVSIZE + 1]; /* name of user variable */
|
|
char *u_value; /* value (string) */
|
|
} UVAR;
|
|
|
|
/* current user variables (This structure will probably change) */
|
|
|
|
#define MAXVARS 255
|
|
|
|
UVAR uv[MAXVARS + 1]; /* user variables */
|
|
|
|
/* list of recognized environment variables */
|
|
|
|
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
|
|
};
|
|
|
|
#define NEVARS sizeof(envars) / sizeof(char *)
|
|
|
|
/* 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
|
|
|
|
/* list of recognized user functions */
|
|
|
|
typedef struct UFUNC {
|
|
char *f_name; /* name of function */
|
|
int f_type; /* 1 = monamic, 2 = dynamic */
|
|
} UFUNC;
|
|
|
|
#define NILNAMIC 0
|
|
#define MONAMIC 1
|
|
#define DYNAMIC 2
|
|
#define TRINAMIC 3
|
|
|
|
UFUNC funcs[] = {
|
|
{ "add", DYNAMIC }, /* add two numbers together */
|
|
{ "sub", DYNAMIC }, /* subtraction */
|
|
{ "tim", DYNAMIC }, /* multiplication */
|
|
{ "div", DYNAMIC }, /* division */
|
|
{ "mod", DYNAMIC }, /* mod */
|
|
{ "neg", MONAMIC }, /* negate */
|
|
{ "cat", DYNAMIC }, /* concatinate string */
|
|
{ "lef", DYNAMIC }, /* left string(string, len) */
|
|
{ "rig", DYNAMIC }, /* right string(string, pos) */
|
|
{ "mid", TRINAMIC }, /* mid string(string, pos, len) */
|
|
{ "not", MONAMIC }, /* logical not */
|
|
{ "equ", DYNAMIC }, /* logical equality check */
|
|
{ "les", DYNAMIC }, /* logical less than */
|
|
{ "gre", DYNAMIC }, /* logical greater than */
|
|
{ "seq", DYNAMIC }, /* string logical equality check */
|
|
{ "sle", DYNAMIC }, /* string logical less than */
|
|
{ "sgr", DYNAMIC }, /* string logical greater than */
|
|
{ "ind", MONAMIC }, /* evaluate indirect value */
|
|
{ "and", DYNAMIC }, /* logical and */
|
|
{ "or", DYNAMIC }, /* logical or */
|
|
{ "len", MONAMIC }, /* string length */
|
|
{ "upp", MONAMIC }, /* uppercase string */
|
|
{ "low", MONAMIC }, /* lower case string */
|
|
{ "tru", MONAMIC }, /* Truth of the universe logical test */
|
|
{ "asc", MONAMIC }, /* char to integer conversion */
|
|
{ "chr", MONAMIC }, /* integer to char conversion */
|
|
{ "gtk", NILNAMIC }, /* get 1 charater */
|
|
{ "rnd", MONAMIC }, /* get a random number */
|
|
{ "abs", MONAMIC }, /* absolute value of a number */
|
|
{ "sin", DYNAMIC }, /* find the index of one string in another */
|
|
{ "env", MONAMIC }, /* retrieve a system environment var */
|
|
{ "bin", MONAMIC }, /* loopup what function name is bound to a key */
|
|
{ "exi", MONAMIC }, /* check if a file exists */
|
|
{ "fin", MONAMIC }, /* look for a file on the path... */
|
|
{ "ban", DYNAMIC }, /* bitwise and 9-10-87 jwm */
|
|
{ "bor", DYNAMIC }, /* bitwise or 9-10-87 jwm */
|
|
{ "bxo", DYNAMIC }, /* bitwise xor 9-10-87 jwm */
|
|
{ "bno", MONAMIC }, /* bitwise not */
|
|
{ "xla", TRINAMIC }, /* XLATE character string translation */
|
|
};
|
|
|
|
#define NFUNCS sizeof(funcs) / sizeof(UFUNC)
|
|
|
|
/* and its preprocesor definitions */
|
|
|
|
#define UFADD 0
|
|
#define UFSUB 1
|
|
#define UFTIMES 2
|
|
#define UFDIV 3
|
|
#define UFMOD 4
|
|
#define UFNEG 5
|
|
#define UFCAT 6
|
|
#define UFLEFT 7
|
|
#define UFRIGHT 8
|
|
#define UFMID 9
|
|
#define UFNOT 10
|
|
#define UFEQUAL 11
|
|
#define UFLESS 12
|
|
#define UFGREATER 13
|
|
#define UFSEQUAL 14
|
|
#define UFSLESS 15
|
|
#define UFSGREAT 16
|
|
#define UFIND 17
|
|
#define UFAND 18
|
|
#define UFOR 19
|
|
#define UFLENGTH 20
|
|
#define UFUPPER 21
|
|
#define UFLOWER 22
|
|
#define UFTRUTH 23
|
|
#define UFASCII 24
|
|
#define UFCHR 25
|
|
#define UFGTKEY 26
|
|
#define UFRND 27
|
|
#define UFABS 28
|
|
#define UFSINDEX 29
|
|
#define UFENV 30
|
|
#define UFBIND 31
|
|
#define UFEXIST 32
|
|
#define UFFIND 33
|
|
#define UFBAND 34
|
|
#define UFBOR 35
|
|
#define UFBXOR 36
|
|
#define UFBNOT 37
|
|
#define UFXLATE 38
|