home *** CD-ROM | disk | FTP | other *** search
Article 93 of comp.sources.misc: Path: tut!osu-cis!cbosgd!mandrill!hal!ncoast!allbery From: nwd@j.cc.purdue.edu (Daniel Lawrence) Newsgroups: comp.sources.misc Subject: MicroEmacs 3.9 (Part 16 of 16) Message-ID: <5692@ncoast.UUCP> Date: 17 Nov 87 02:37:35 GMT Sender: allbery@ncoast.UUCP Lines: 960 Approved: allbery@ncoast.UUCP X-Archive: comp.sources.misc/microemacs-3.9/15 # This is a shar archive. # Remove everything above this line. # Run the file through sh, not csh. # (type `sh mes.16') # If you do not see the message # `mes.16 completed!' # then the file was incomplete. echo extracting - epath.h sed 's/^X//' > epath.h << 'FRIDAY_NIGHT' X/* EPATH: This file contains certain info needed to locate the X MicroEMACS files on a system dependant basis. X X */ X X/* possible names and paths of help files under different OSs */ X Xchar *pathname[] = X X#if AMIGA X{ X ".emacsrc", X "emacs.hlp", X "", X "sys:c/", X "sys:t/", X "sys:s/", X "c:/", X ":t/", X ":s/" X}; X#endif X X#if ST520 X{ X "emacs.rc", X "emacs.hlp", X "\\", X "\\bin\\", X "\\util\\", X "" X}; X#endif X X#if FINDER X{ X "emacs.rc", X "emacs.hlp", X "/bin", X "/sys/public", X "" X}; X#endif X X#if MSDOS X{ X "emacs.rc", X "emacs.hlp", X "\\sys\\public\\", X "\\usr\\bin\\", X "\\bin\\", X "\\", X "" X}; X#endif X X#if V7 | BSD | USG X{ X ".emacsrc", X "emacs.hlp", X "/usr/local/", X "/usr/lib/", X "" X}; X#endif X X#if VMS X{ X "emacs.rc", X "emacs.hlp", X "", X "sys$sysdevice:[vmstools]" X}; X#endif X X#define NPNAMES (sizeof(pathname)/sizeof(char *)) FRIDAY_NIGHT echo extracting - estruct.h sed 's/^X//' > estruct.h << 'FRIDAY_NIGHT' X/* ESTRUCT: Structure and preprocesser defined for X MicroEMACS 3.9 X X written by Dave G. Conroy X modified by Steve Wilhite, George Jones X substantially modified by Daniel Lawrence X*/ X X#ifdef LATTICE X#undef LATTICE /* don't use their definitions...use ours */ X#endif X#ifdef MSDOS X#undef MSDOS X#endif X#ifdef CPM X#undef CPM X#endif X#ifdef AMIGA X#undef AMIGA X#endif X#ifdef EGA X#undef EGA X#endif X#ifdef CTRLZ X#undef CTRLZ X#endif X X/* Program Identification..... X X PROGNAME should always be MicroEMACS for a distibrution X unmodified version. People using MicroEMACS as a shell X for other products should change this to reflect their X product. Macros can query this via the $progname variable X*/ X X#define PROGNAME "MicroEMACS" X#define VERSION "3.9e" X X/* Machine/OS definitions */ X X#define AMIGA 0 /* AmigaDOS */ X#define ST520 0 /* ST520, TOS */ X#define MSDOS 1 /* MS-DOS */ X#define V7 0 /* V7 UNIX or Coherent or BSD4.2*/ X#define BSD 0 /* UNIX BSD 4.2 and ULTRIX */ X#define USG 0 /* UNIX system V */ X#define VMS 0 /* VAX/VMS */ X#define CPM 0 /* CP/M-86 */ X#define FINDER 0 /* Macintosh OS */ X X/* Compiler definitions */ X#define UNIX 0 /* a random UNIX compiler */ X#define MWC 0 /* Marc Williams C */ X#define LATTICE 0 /* Lattice 2.14 thruough 3.0 compilers */ X#define AZTEC 1 /* Aztec C 3.20e */ X#define MSC 0 /* MicroSoft C compile version 3 & 4 */ X#define TURBO 0 /* Turbo C/MSDOS */ X X/* Debugging options */ X#define RAMSIZE 0 /* dynamic RAM memory usage tracking */ X#define RAMSHOW 0 /* auto dynamic RAM reporting */ X X/* Special keyboard definitions */ X X#define WANGPC 0 /* WangPC - mostly escape sequences */ X#define VT100 0 /* Handle VT100 style keypad. */ X X/* Terminal Output definitions */ X X#define ANSI 0 /* ANSI escape sequences */ X#define HP150 0 /* HP150 screen driver */ X#define HP110 0 /* HP110 screen driver */ X#define VMSVT 0 /* various VMS terminal entries */ X#define VT52 0 /* VT52 terminal (Zenith). */ X#define RAINBOW 0 /* Use Rainbow fast video. */ X#define TERMCAP 0 /* Use TERMCAP */ X#define IBMPC 1 /* IBM-PC CGA/MONO/EGA driver */ X#define DG10 0 /* Data General system/10 */ X#define TIPC 0 /* TI Profesional PC driver */ X#define Z309 0 /* Zenith 100 PC family driver */ X#define MAC 0 /* Macintosh */ X#define ATARI 0 /* Atari 520/1040ST screen */ X X/* Configuration options */ X X#define CVMVAS 1 /* arguments to page forward/back in pages */ X#define CLRMSG 0 /* space clears the message line with no insert */ X#define CFENCE 1 /* fench matching in CMODE */ X#define TYPEAH 1 /* type ahead causes update to be skipped */ X#define DEBUGM 1 /* $debug triggers macro debugging */ X#define VISMAC 0 /* update display during keyboard macros */ X#define CTRLZ 0 /* add a ^Z at end of files under MSDOS only */ X#define ADDCR 0 /* ajout d'un CR en fin de chaque ligne (ST520) */ X#define NBRACE 1 /* new style brace matching command */ X X#define REVSTA 1 /* Status line appears in reverse video */ X#define COLOR 1 /* color commands and windows */ X X#define FILOCK 0 /* file locking under unix BSD 4.2 */ X#define ISRCH 1 /* Incremental searches like ITS EMACS */ X#define WORDPRO 1 /* Advanced word processing features */ X#define FLABEL 0 /* function key label code [HP150] */ X#define APROP 1 /* Add code for Apropos command */ X#define CRYPT 1 /* file encryption enabled? */ X#define MAGIC 1 /* include regular expression matching? */ X#define AEDIT 1 /* advanced editing options: en/detabbing */ X#define PROC 1 /* named procedures */ X#define CLEAN 0 /* de-alloc memory on exit */ X#define CALLED 0 /* is emacs a called subroutine? or stand alone */ X X#define ASCII 1 /* always using ASCII char sequences for now */ X#define EBCDIC 0 /* later IBM mainfraim versions will use EBCDIC */ X X/* System dependant library redefinitions, structures and includes */ X X#if TURBO X#include <dos.h> X#include <mem.h> X#undef peek X#undef poke X#define peek(a,b,c,d) movedata(a,b,FP_SEG(c),FP_OFF(c),d) X#define poke(a,b,c,d) movedata(FP_SEG(c),FP_OFF(c),a,b,d) X#endif X X#if VMS X#define atoi xatoi X#define abs xabs X#define getname xgetname X#endif X X#if LATTICE X#define unsigned X#endif X X#if AZTEC X#undef fputc X#undef fgetc X#if MSDOS X#define fgetc a1getc X#define int86 sysint X#define intdos(a, b) sysint(33, a, b) X#define inp inportb X#define outp outportb X#else X#define fgetc agetc X#endif X#define fputc aputc X Xstruct XREG { X unsigned ax,bx,cx,dx,si,di,ds,es; X}; X Xstruct HREG { X char al,ah,bl,bh,cl,ch,dl,dh,d1,d2,e1,e2; X}; X Xunion REGS { X struct XREG x; X struct HREG h; X}; X Xstruct SREGS { X unsigned cs, ss, ds, es; X}; X#endif X X#if MSDOS & MWC X#include <dos.h> X#define int86(a, b, c) intcall(b, c, a) X#define inp in X Xstruct XREG { X int ax,bx,cx,dx,si,di,ds,es,flags; X}; X Xstruct HREG { X char al,ah,bl,bh,cl,ch,dl,dh; X int ds,es,flags; X}; X Xunion REGS { X struct XREG x; X struct HREG h; X}; X#endif X X#if MSDOS & MSC X#include <dos.h> X#include <memory.h> X#define peek(a,b,c,d) movedata(a,b,FP_SEG(c),FP_OFF(c),d) X#define poke(a,b,c,d) movedata(FP_SEG(c),FP_OFF(c),a,b,d) X#define movmem(a, b, c) memcpy(b, a, c) X#endif X X#if MSDOS & LATTICE X#undef CPM X#undef LATTICE X#include <dos.h> X#undef CPM X#endif X X#if VMS X#define unlink(a) delete(a) X#endif X X/* define some ability flags */ X X#if IBMPC | Z309 X#define MEMMAP 1 X#else X#define MEMMAP 0 X#endif X X#if MSDOS | V7 | USG | BSD | (ST520 & MWC) X#define ENVFUNC 1 X#else X#define ENVFUNC 0 X#endif X X/* Emacs global flag bit definitions (for gflags) */ X X#define GFREAD 1 X X/* internal constants */ X X#define NBINDS 256 /* max # of bound keys */ X#define NFILEN 80 /* # of bytes, file name */ X#define NBUFN 16 /* # of bytes, buffer name */ X#define NLINE 256 /* # of bytes, input line */ X#define NSTRING 128 /* # of bytes, string buffers */ X#define NKBDM 256 /* # of strokes, keyboard macro */ X#define NPAT 128 /* # of bytes, pattern */ X#define HUGE 1000 /* Huge number */ X#define NLOCKS 100 /* max # of file locks active */ X#define NCOLORS 8 /* number of supported colors */ X#define KBLOCK 250 /* sizeof kill buffer chunks */ X#define NBLOCK 16 /* line block chunk size */ X#define NVSIZE 10 /* max #chars in a var name */ X X#define CTRL 0x0100 /* Control flag, or'ed in */ X#define META 0x0200 /* Meta flag, or'ed in */ X#define CTLX 0x0400 /* ^X flag, or'ed in */ X#define SPEC 0x0800 /* special key (function keys) */ X X#ifdef FALSE X#undef FALSE X#endif X#ifdef TRUE X#undef TRUE X#endif X X#define FALSE 0 /* False, no, bad, etc. */ X#define TRUE 1 /* True, yes, good, etc. */ X#define ABORT 2 /* Death, ^G, abort, etc. */ X#define FAILED 3 /* not-quite fatal false return */ X X#define STOP 0 /* keyboard macro not in use */ X#define PLAY 1 /* playing */ X#define RECORD 2 /* recording */ X X/* Directive definitions */ X X#define DIF 0 X#define DELSE 1 X#define DENDIF 2 X#define DGOTO 3 X#define DRETURN 4 X#define DENDM 5 X#define DWHILE 6 X#define DENDWHILE 7 X#define DBREAK 8 X#define DFORCE 9 X X#define NUMDIRS 10 X X/* X * PTBEG, PTEND, FORWARD, and REVERSE are all toggle-able values for X * the scan routines. X */ X#define PTBEG 0 /* Leave the point at the beginning on search */ X#define PTEND 1 /* Leave the point at the end on search */ X#define FORWARD 0 /* forward direction */ X#define REVERSE 1 /* backwards direction */ X X#define FIOSUC 0 /* File I/O, success. */ X#define FIOFNF 1 /* File I/O, file not found. */ X#define FIOEOF 2 /* File I/O, end of file. */ X#define FIOERR 3 /* File I/O, error. */ X#define FIOMEM 4 /* File I/O, out of memory */ X#define FIOFUN 5 /* File I/O, eod of file/bad line*/ X X#define CFCPCN 0x0001 /* Last command was C-P, C-N */ X#define CFKILL 0x0002 /* Last command was a kill */ X X#define BELL 0x07 /* a bell character */ X#define TAB 0x09 /* a tab character */ X X#if V7 | USG | BSD X#define PATHCHR ':' X#else X#define PATHCHR ';' X#endif X X#define INTWIDTH sizeof(int) * 3 X X/* Macro argument token types */ X X#define TKNUL 0 /* end-of-string */ X#define TKARG 1 /* interactive argument */ X#define TKBUF 2 /* buffer argument */ X#define TKVAR 3 /* user variables */ X#define TKENV 4 /* environment variables */ X#define TKFUN 5 /* function.... */ X#define TKDIR 6 /* directive */ X#define TKLBL 7 /* line label */ X#define TKLIT 8 /* numeric literal */ X#define TKSTR 9 /* quoted string literal */ X#define TKCMD 10 /* command name */ X X/* Internal defined functions */ X X#define nextab(a) (a & ~7) + 8 X#ifdef abs X#undef abs X#endif X X/* DIFCASE represents the integer difference between upper X and lower case letters. It is an xor-able value, which is X fortunate, since the relative positions of upper to lower X case letters is the opposite of ascii in ebcdic. X*/ X X#ifdef islower X#undef islower X#endif X X#if ASCII X X#define DIFCASE 0x20 X#define isletter(c) (('a' <= c && 'z' >= c) || ('A' <= c && 'Z' >= c)) X#define islower(c) (('a' <= c && 'z' >= c)) X#endif X X#if EBCDIC X X#define DIFCASE 0x40 X#define isletter(c) (('a' <= c && 'i' >= c) || ('j' <= c && 'r' >= c) || ('s' <= c && 'z' >= c) || ('A' <= c && 'I' >= c) || ('J' <= c && 'R' >= c) || ('S' <= c && 'Z' >= c)) X#define islower(c) (('a' <= c && 'i' >= c) || ('j' <= c && 'r' >= c) || ('s' <= c && 'z' >= c)) X#endif X X/* Dynamic RAM tracking and reporting redefinitions */ X X#if RAMSIZE X#define malloc allocate X#define free release X#endif X X/* De-allocate memory always on exit (if the operating system or X main program can not X*/ X X#if CLEAN X#define exit(a) cexit(a) X#endif X X/* X * There is a window structure allocated for every active display window. The X * windows are kept in a big list, in top to bottom screen order, with the X * listhead at "wheadp". Each window contains its own values of dot and mark. X * The flag field contains some bits that are set by commands to guide X * redisplay. Although this is a bit of a compromise in terms of decoupling, X * the full blown redisplay is just too expensive to run for every input X * character. X */ Xtypedef struct WINDOW { X struct WINDOW *w_wndp; /* Next window */ X struct BUFFER *w_bufp; /* Buffer displayed in window */ X struct LINE *w_linep; /* Top line in the window */ X struct LINE *w_dotp; /* Line containing "." */ X short w_doto; /* Byte offset for "." */ X struct LINE *w_markp; /* Line containing "mark" */ X short w_marko; /* Byte offset for "mark" */ X char w_toprow; /* Origin 0 top row of window */ X char w_ntrows; /* # of rows of text in window */ X char w_force; /* If NZ, forcing row. */ X char w_flag; /* Flags. */ X#if COLOR X char w_fcolor; /* current forground color */ X char w_bcolor; /* current background color */ X#endif X} WINDOW; X X#define WFFORCE 0x01 /* Window needs forced reframe */ X#define WFMOVE 0x02 /* Movement from line to line */ X#define WFEDIT 0x04 /* Editing within a line */ X#define WFHARD 0x08 /* Better to a full display */ X#define WFMODE 0x10 /* Update mode line. */ X#define WFCOLR 0x20 /* Needs a color change */ X X/* X * Text is kept in buffers. A buffer header, described below, exists for every X * buffer in the system. The buffers are kept in a big list, so that commands X * that search for a buffer by name can find the buffer header. There is a X * safe store for the dot and mark in the header, but this is only valid if X * the buffer is not being displayed (that is, if "b_nwnd" is 0). The text for X * the buffer is kept in a circularly linked list of lines, with a pointer to X * the header line in "b_linep". X * Buffers may be "Inactive" which means the files associated with them X * have not been read in yet. These get read in at "use buffer" time. X */ Xtypedef struct BUFFER { X struct BUFFER *b_bufp; /* Link to next BUFFER */ X struct LINE *b_dotp; /* Link to "." LINE structure */ X short b_doto; /* Offset of "." in above LINE */ X struct LINE *b_markp; /* The same as the above two, */ X short b_marko; /* but for the "mark" */ X struct LINE *b_linep; /* Link to the header LINE */ X char b_active; /* window activated flag */ X char b_nwnd; /* Count of windows on buffer */ X char b_flag; /* Flags */ X int b_mode; /* editor mode of this buffer */ X char b_fname[NFILEN]; /* File name */ X char b_bname[NBUFN]; /* Buffer name */ X#if CRYPT X char b_key[NPAT]; /* current encrypted key */ X#endif X} BUFFER; X X#define BFINVS 0x01 /* Internal invisable buffer */ X#define BFCHG 0x02 /* Changed since last write */ X#define BFTRUNC 0x04 /* buffer was truncated when read */ X X/* mode flags */ X#define NUMMODES 9 /* # of defined modes */ X X#define MDWRAP 0x0001 /* word wrap */ X#define MDCMOD 0x0002 /* C indentation and fence match*/ X#define MDSPELL 0x0004 /* spell error parcing */ X#define MDEXACT 0x0008 /* Exact matching for searches */ X#define MDVIEW 0x0010 /* read-only buffer */ X#define MDOVER 0x0020 /* overwrite mode */ X#define MDMAGIC 0x0040 /* regular expresions in search */ X#define MDCRYPT 0x0080 /* encrytion mode active */ X#define MDASAVE 0x0100 /* auto-save mode */ X X/* X * The starting position of a region, and the size of the region in X * characters, is kept in a region structure. Used by the region commands. X */ Xtypedef struct { X struct LINE *r_linep; /* Origin LINE address. */ X short r_offset; /* Origin LINE offset. */ X long r_size; /* Length in characters. */ X} REGION; X X/* X * All text is kept in circularly linked lists of "LINE" structures. These X * begin at the header line (which is the blank line beyond the end of the X * buffer). This line is pointed to by the "BUFFER". Each line contains a the X * number of bytes in the line (the "used" size), the size of the text array, X * and the text. The end of line is not stored as a byte; it's implied. Future X * additions will include update hints, and a list of marks into the line. X */ Xtypedef struct LINE { X struct LINE *l_fp; /* Link to the next line */ X struct LINE *l_bp; /* Link to the previous line */ X short l_size; /* Allocated size */ X short l_used; /* Used size */ X char l_text[1]; /* A bunch of characters. */ X} LINE; X X#define lforw(lp) ((lp)->l_fp) X#define lback(lp) ((lp)->l_bp) X#define lgetc(lp, n) ((lp)->l_text[(n)]&0xFF) X#define lputc(lp, n, c) ((lp)->l_text[(n)]=(c)) X#define llength(lp) ((lp)->l_used) X X/* X * The editor communicates with the display using a high level interface. A X * "TERM" structure holds useful variables, and indirect pointers to routines X * that do useful operations. The low level get and put routines are here too. X * This lets a terminal, in addition to having non standard commands, have X * funny get and put character code too. The calls might get changed to X * "termp->t_field" style in the future, to make it possible to run more than X * one terminal type. X */ Xtypedef struct { X short t_mrow; /* max number of rows allowable */ X short t_nrow; /* current number of rows used */ X short t_mcol; /* max Number of columns. */ X short t_ncol; /* current Number of columns. */ X short t_margin; /* min margin for extended lines*/ X short t_scrsiz; /* size of scroll region " */ X int t_pause; /* # times thru update to pause */ X int (*t_open)(); /* Open terminal at the start. */ X int (*t_close)(); /* Close terminal at end. */ X int (*t_kopen)(); /* Open keyboard */ X int (*t_kclose)(); /* close keyboard */ X int (*t_getchar)(); /* Get character from keyboard. */ X int (*t_putchar)(); /* Put character to display. */ X int (*t_flush)(); /* Flush output buffers. */ X int (*t_move)(); /* Move the cursor, origin 0. */ X int (*t_eeol)(); /* Erase to end of line. */ X int (*t_eeop)(); /* Erase to end of page. */ X int (*t_beep)(); /* Beep. */ X int (*t_rev)(); /* set reverse video state */ X int (*t_rez)(); /* change screen resolution */ X#if COLOR X int (*t_setfor)(); /* set forground color */ X int (*t_setback)(); /* set background color */ X#endif X} TERM; X X/* TEMPORARY macros for terminal I/O (to be placed in a machine X dependant place later) */ X X#define TTopen (*term.t_open) X#define TTclose (*term.t_close) X#define TTkopen (*term.t_kopen) X#define TTkclose (*term.t_kclose) X#define TTgetc (*term.t_getchar) X#define TTputc (*term.t_putchar) X#define TTflush (*term.t_flush) X#define TTmove (*term.t_move) X#define TTeeol (*term.t_eeol) X#define TTeeop (*term.t_eeop) X#define TTbeep (*term.t_beep) X#define TTrev (*term.t_rev) X#define TTrez (*term.t_rez) X#if COLOR X#define TTforg (*term.t_setfor) X#define TTbacg (*term.t_setback) X#endif X X/* structure for the table of initial key bindings */ X Xtypedef struct { X short k_code; /* Key code */ X int (*k_fp)(); /* Routine to handle it */ X} KEYTAB; X X/* structure for the name binding table */ X Xtypedef struct { X char *n_name; /* name of function key */ X int (*n_func)(); /* function name is bound to */ X} NBIND; X X/* The editor holds deleted text chunks in the KILL buffer. The X kill buffer is logically a stream of ascii characters, however X due to its unpredicatable size, it gets implemented as a linked X list of chunks. (The d_ prefix is for "deleted" text, as k_ X was taken up by the keycode structure) X*/ X Xtypedef struct KILL { X struct KILL *d_next; /* link to next chunk, NULL if last */ X char d_chunk[KBLOCK]; /* deleted text */ X} KILL; X X/* When emacs' command interpetor needs to get a variable's name, X rather than it's value, it is passed back as a VDESC variable X description structure. The v_num field is a index into the X appropriate variable table. X*/ X Xtypedef struct VDESC { X int v_type; /* type of variable */ X int v_num; /* ordinal pointer to variable in list */ X} VDESC; X X/* The !WHILE directive in the execution language needs to X stack references to pending whiles. These are stored linked X to each currently open procedure via a linked list of X the following structure X*/ X Xtypedef struct WHBLOCK { X LINE *w_begin; /* ptr to !while statement */ X LINE *w_end; /* ptr to the !endwhile statement*/ X int w_type; /* block type */ X struct WHBLOCK *w_next; /* next while */ X} WHBLOCK; X X#define BTWHILE 1 X#define BTBREAK 2 X X/* X * Incremental search defines. X */ X#if ISRCH X X#define CMDBUFLEN 256 /* Length of our command buffer */ X X#define IS_ABORT 0x07 /* Abort the isearch */ X#define IS_BACKSP 0x08 /* Delete previous char */ X#define IS_TAB 0x09 /* Tab character (allowed search char) */ X#define IS_NEWLINE 0x0D /* New line from keyboard (Carriage return) */ X#define IS_QUOTE 0x11 /* Quote next character */ X#define IS_REVERSE 0x12 /* Search backward */ X#define IS_FORWARD 0x13 /* Search forward */ X#define IS_VMSQUOTE 0x16 /* VMS quote character */ X#define IS_VMSFORW 0x18 /* Search forward for VMS */ X#define IS_QUIT 0x1B /* Exit the search */ X#define IS_RUBOUT 0x7F /* Delete previous character */ X X/* IS_QUIT is no longer used, the variable metac is used instead */ X X#endif X X#if MAGIC X/* X * Defines for the metacharacters in the regular expression X * search routines. X */ X#define MCNIL 0 /* Like the '\0' for strings.*/ X#define LITCHAR 1 /* Literal character, or string.*/ X#define ANY 2 X#define CCL 3 X#define NCCL 4 X#define BOL 5 X#define EOL 6 X#define DITTO 7 X#define CLOSURE 256 /* An or-able value.*/ X#define MASKCL CLOSURE - 1 X X#define MC_ANY '.' /* 'Any' character (except newline).*/ X#define MC_CCL '[' /* Character class.*/ X#define MC_NCCL '^' /* Negate character class.*/ X#define MC_RCCL '-' /* Range in character class.*/ X#define MC_ECCL ']' /* End of character class.*/ X#define MC_BOL '^' /* Beginning of line.*/ X#define MC_EOL '$' /* End of line.*/ X#define MC_CLOSURE '*' /* Closure - does not extend past newline.*/ X#define MC_DITTO '&' /* Use matched string in replacement.*/ X#define MC_ESC '\\' /* Escape - suppress meta-meaning.*/ X X#define BIT(n) (1 << (n)) /* An integer with one bit set.*/ X#define CHCASE(c) ((c) ^ DIFCASE) /* Toggle the case of a letter.*/ X X/* HICHAR - 1 is the largest character we will deal with. X * HIBYTE represents the number of bytes in the bitmap. X */ X#define HICHAR 256 X#define HIBYTE HICHAR >> 3 X X/* Typedefs that define the bitmap type for searching (BITMAP), X * the meta-character structure for MAGIC mode searching (MC), X * and the meta-character structure for MAGIC mode replacment (RMC). X */ Xtypedef char *BITMAP; X Xtypedef struct { X short int mc_type; X union { X int lchar; X BITMAP cclmap; X } u; X} MC; X Xtypedef struct { X short int mc_type; X char *rstr; X} RMC; X#endif X FRIDAY_NIGHT echo extracting - evar.h sed 's/^X//' > evar.h << 'FRIDAY_NIGHT' X/* EVAR.H: Environment and user variable definitions X for MicroEMACS X X written 1986 by Daniel Lawrence X*/ X X/* structure to hold user variables and their definitions */ X Xtypedef struct UVAR { X char u_name[NVSIZE + 1]; /* name of user variable */ X char *u_value; /* value (string) */ X} UVAR; X X/* current user variables (This structure will probably change) */ X X#define MAXVARS 255 X XUVAR uv[MAXVARS + 1]; /* user variables */ X X/* list of recognized environment variables */ X Xchar *envars[] = { X "fillcol", /* current fill column */ X "pagelen", /* number of lines used by editor */ X "curcol", /* current column pos of cursor */ X "curline", /* current line in file */ X "ram", /* ram in use by malloc */ X "flicker", /* flicker supression */ X "curwidth", /* current screen width */ X "cbufname", /* current buffer name */ X "cfname", /* current file name */ X "sres", /* current screen resolution */ X "debug", /* macro debugging */ X "status", /* returns the status of the last command */ X "palette", /* current palette string */ X "asave", /* # of chars between auto-saves */ X "acount", /* # of chars until next auto-save */ X "lastkey", /* last keyboard char struck */ X "curchar", /* current character under the cursor */ X "discmd", /* display commands on command line */ X "version", /* current version number */ X "progname", /* returns current prog name - "MicroEMACS" */ X "seed", /* current random number seed */ X "disinp", /* display command line input characters */ X "wline", /* # of lines in current window */ X "cwline", /* current screen line in window */ X "target", /* target for line moves */ X "search", /* search pattern */ X "replace", /* replacement pattern */ X "match", /* last matched magic pattern */ X "kill", /* kill buffer (read only) */ X "cmode", /* mode of current buffer */ X "gmode", /* global modes */ X "tpause", /* length to pause for paren matching */ X "pending", /* type ahead pending flag */ X "lwidth", /* width of current line */ X "line", /* text of current line */ X "gflags", /* global internal emacs flags */ X "rval", /* child process return value */ X}; X X#define NEVARS sizeof(envars) / sizeof(char *) X X/* and its preprocesor definitions */ X X#define EVFILLCOL 0 X#define EVPAGELEN 1 X#define EVCURCOL 2 X#define EVCURLINE 3 X#define EVRAM 4 X#define EVFLICKER 5 X#define EVCURWIDTH 6 X#define EVCBUFNAME 7 X#define EVCFNAME 8 X#define EVSRES 9 X#define EVDEBUG 10 X#define EVSTATUS 11 X#define EVPALETTE 12 X#define EVASAVE 13 X#define EVACOUNT 14 X#define EVLASTKEY 15 X#define EVCURCHAR 16 X#define EVDISCMD 17 X#define EVVERSION 18 X#define EVPROGNAME 19 X#define EVSEED 20 X#define EVDISINP 21 X#define EVWLINE 22 X#define EVCWLINE 23 X#define EVTARGET 24 X#define EVSEARCH 25 X#define EVREPLACE 26 X#define EVMATCH 27 X#define EVKILL 28 X#define EVCMODE 29 X#define EVGMODE 30 X#define EVTPAUSE 31 X#define EVPENDING 32 X#define EVLWIDTH 33 X#define EVLINE 34 X#define EVGFLAGS 35 X#define EVRVAL 36 X X/* list of recognized user functions */ X Xtypedef struct UFUNC { X char *f_name; /* name of function */ X int f_type; /* 1 = monamic, 2 = dynamic */ X} UFUNC; X X#define NILNAMIC 0 X#define MONAMIC 1 X#define DYNAMIC 2 X#define TRINAMIC 3 X XUFUNC funcs[] = { X "add", DYNAMIC, /* add two numbers together */ X "sub", DYNAMIC, /* subtraction */ X "tim", DYNAMIC, /* multiplication */ X "div", DYNAMIC, /* division */ X "mod", DYNAMIC, /* mod */ X "neg", MONAMIC, /* negate */ X "cat", DYNAMIC, /* concatinate string */ X "lef", DYNAMIC, /* left string(string, len) */ X "rig", DYNAMIC, /* right string(string, pos) */ X "mid", TRINAMIC, /* mid string(string, pos, len) */ X "not", MONAMIC, /* logical not */ X "equ", DYNAMIC, /* logical equality check */ X "les", DYNAMIC, /* logical less than */ X "gre", DYNAMIC, /* logical greater than */ X "seq", DYNAMIC, /* string logical equality check */ X "sle", DYNAMIC, /* string logical less than */ X "sgr", DYNAMIC, /* string logical greater than */ X "ind", MONAMIC, /* evaluate indirect value */ X "and", DYNAMIC, /* logical and */ X "or", DYNAMIC, /* logical or */ X "len", MONAMIC, /* string length */ X "upp", MONAMIC, /* uppercase string */ X "low", MONAMIC, /* lower case string */ X "tru", MONAMIC, /* Truth of the universe logical test */ X "asc", MONAMIC, /* char to integer conversion */ X "chr", MONAMIC, /* integer to char conversion */ X "gtk", NILNAMIC, /* get 1 charater */ X "rnd", MONAMIC, /* get a random number */ X "abs", MONAMIC, /* absolute value of a number */ X "sin", DYNAMIC, /* find the index of one string in another */ X "env", MONAMIC, /* retrieve a system environment var */ X "bin", MONAMIC, /* loopup what function name is bound to a key */ X "exi", MONAMIC, /* check if a file exists */ X "fin", MONAMIC, /* look for a file on the path... */ X "ban", DYNAMIC, /* bitwise and 9-10-87 jwm */ X "bor", DYNAMIC, /* bitwise or 9-10-87 jwm */ X "bxo", DYNAMIC, /* bitwise xor 9-10-87 jwm */ X "bno", MONAMIC, /* bitwise not */ X "xla", TRINAMIC, /* XLATE character string translation */ X}; X X#define NFUNCS sizeof(funcs) / sizeof(UFUNC) X X/* and its preprocesor definitions */ X X#define UFADD 0 X#define UFSUB 1 X#define UFTIMES 2 X#define UFDIV 3 X#define UFMOD 4 X#define UFNEG 5 X#define UFCAT 6 X#define UFLEFT 7 X#define UFRIGHT 8 X#define UFMID 9 X#define UFNOT 10 X#define UFEQUAL 11 X#define UFLESS 12 X#define UFGREATER 13 X#define UFSEQUAL 14 X#define UFSLESS 15 X#define UFSGREAT 16 X#define UFIND 17 X#define UFAND 18 X#define UFOR 19 X#define UFLENGTH 20 X#define UFUPPER 21 X#define UFLOWER 22 X#define UFTRUTH 23 X#define UFASCII 24 X#define UFCHR 25 X#define UFGTKEY 26 X#define UFRND 27 X#define UFABS 28 X#define UFSINDEX 29 X#define UFENV 30 X#define UFBIND 31 X#define UFEXIST 32 X#define UFFIND 33 X#define UFBAND 34 X#define UFBOR 35 X#define UFBXOR 36 X#define UFBNOT 37 X#define UFXLATE 38 FRIDAY_NIGHT echo mes.16 completed! # That's all folks! 
