#ifndef _ESTRUCT_H_ #define _ESTRUCT_H_ /* ESTRUCT.H * * Structure and preprocessor defines * * written by Dave G. Conroy * modified by Steve Wilhite, George Jones * substantially modified by Daniel Lawrence * modified by Petri Kutvonen */ #include "line.h" #define MAXCOL 500 #define MAXROW 500 #ifdef MSDOS #undef MSDOS #endif #ifdef EGA #undef EGA #endif #ifdef CTRLZ #undef CTRLZ #endif /* Machine/OS definitions. */ #if defined(AUTOCONF) || defined(MSDOS) || defined(BSD) || defined(SYSV) || defined(VMS) /* Make an intelligent guess about the target system. */ #if defined(__TURBOC__) #define MSDOS 1 /* MS/PC DOS 3.1-4.0 with Turbo C 2.0 */ #else #define MSDOS 0 #endif #if defined(BSD) || defined(sun) || defined(ultrix) || (defined(vax) && defined(unix)) || defined(ultrix) || defined(__osf__) #ifndef BSD #define BSD 1 /* Berkeley UNIX */ #endif #else #define BSD 0 #endif #if defined(SVR4) || defined(__linux__) /* ex. SunOS 5.3 */ #define SVR4 1 #define SYSV 1 #undef BSD #endif #if defined(SYSV) || defined(u3b2) || defined(_AIX) || (defined(i386) && defined(unix)) || defined(__hpux) || defined( __unix__) #define USG 1 /* System V UNIX */ #else #define USG 0 #endif #if defined(VMS) || (defined(vax) && ! defined(unix)) #define VMS 1 /* VAX/VMS */ #else #define VMS 0 #endif #define V7 0 /* No more. */ #else #define MSDOS 1 /* MS-DOS */ #define V7 0 /* V7 UNIX or Coherent or BSD4.2 */ #define BSD 0 /* UNIX BSD 4.2 and ULTRIX */ #define USG 0 /* UNIX system V */ #define VMS 0 /* VAX/VMS */ #endif /*autoconf */ #ifndef AUTOCONF /* Compiler definitions */ #define UNIX 0 /* a random UNIX compiler */ #define MSC 0 /* MicroSoft C compiler, versions 3 up */ #define TURBO 1 /* Turbo C/MSDOS */ #else #define UNIX (V7 | BSD | USG) #define MSC 0 #define TURBO MSDOS #endif /*autoconf */ /* Debugging options */ #define RAMSIZE 0 /* dynamic RAM memory usage tracking */ #define RAMSHOW 0 /* auto dynamic RAM reporting */ #ifndef AUTOCONF /* Special keyboard definitions */ #define VT220 0 /* Use keypad escapes P.K. */ #define VT100 0 /* Handle VT100 style keypad. */ /* Terminal Output definitions */ #define ANSI 0 /* ANSI escape sequences */ #define VMSVT 0 /* various VMS terminal entries */ #define VT52 0 /* VT52 terminal (Zenith). */ #define TERMCAP 0 /* Use TERMCAP */ #define IBMPC 1 /* IBM-PC CGA/MONO/EGA driver */ #else #define VT220 (UNIX | VMS) #define VT100 0 #define ANSI 0 #define VMSVT VMS #define VT52 0 #define TERMCAP UNIX #define IBMPC MSDOS #endif /* Autoconf. */ /* Configuration options */ #define CVMVAS 1 /* arguments to page forward/back in pages */ #define CLRMSG 0 /* space clears the message line with no insert */ #define CFENCE 1 /* fench matching in CMODE */ #define TYPEAH 1 /* type ahead causes update to be skipped */ #define DEBUGM 1 /* $debug triggers macro debugging */ #define VISMAC 0 /* update display during keyboard macros */ #define CTRLZ 0 /* add a ^Z at end of files under MSDOS only */ #define ADDCR 0 /* ajout d'un CR en fin de chaque ligne (ST520) */ #define NBRACE 1 /* new style brace matching command */ #define REVSTA 1 /* Status line appears in reverse video */ #ifndef AUTOCONF #define COLOR 1 /* color commands and windows */ #define FILOCK 0 /* file locking under unix BSD 4.2 */ #else #define COLOR MSDOS #ifdef SVR4 #define FILOCK 1 #else #define FILOCK BSD #endif #endif /* Autoconf. */ #define ISRCH 1 /* Incremental searches like ITS EMACS */ #define WORDPRO 1 /* Advanced word processing features */ #define APROP 1 /* Add code for Apropos command */ #if 0 #define CRYPT 1 /* file encryption enabled? */ #endif #define MAGIC 1 /* include regular expression matching? */ #define AEDIT 1 /* advanced editing options: en/detabbing */ #define PROC 1 /* named procedures */ #define CLEAN 0 /* de-alloc memory on exit */ #define ASCII 1 /* always using ASCII char sequences for now */ #define EBCDIC 0 /* later IBM mainfraim versions will use EBCDIC */ #ifndef AUTOCONF #define XONXOFF 0 /* don't disable XON-XOFF flow control P.K. */ #define NATIONL 0 /* interprete [,],\,{,},| as characters P.K. */ #else #define XONXOFF (UNIX | VMS) #define NATIONL (UNIX | VMS) #endif /* Autoconf. */ #define PKCODE 1 /* include my extensions P.K., define always */ #define IBMCHR MSDOS /* use IBM PC character set P.K. */ #define SCROLLCODE 1 /* scrolling code P.K. */ /* System dependant library redefinitions, structures and includes. */ #if TURBO #include #include #undef peek #undef poke #define peek(a,b,c,d) movedata(a,b,FP_SEG(c),FP_OFF(c),d) #define poke(a,b,c,d) movedata(FP_SEG(c),FP_OFF(c),a,b,d) #endif #if VMS #define atoi xatoi #define abs xabs #define getname xgetname #endif #if MSDOS & MSC #include #include #define peek(a,b,c,d) movedata(a,b,FP_SEG(c),FP_OFF(c),d) #define poke(a,b,c,d) movedata(FP_SEG(c),FP_OFF(c),a,b,d) #define movmem(a, b, c) memcpy(b, a, c) #endif #if VMS #define unlink(a) delete(a) #endif /* Define some ability flags. */ #if IBMPC #define MEMMAP 1 #else #define MEMMAP 0 #endif #if MSDOS | V7 | USG | BSD #define ENVFUNC 1 #else #define ENVFUNC 0 #endif /* Emacs global flag bit definitions (for gflags). */ #define GFREAD 1 /* Internal constants. */ #define NBINDS 256 /* max # of bound keys */ #define NFILEN 80 /* # of bytes, file name */ #define NBUFN 16 /* # of bytes, buffer name */ #define NLINE 256 /* # of bytes, input line */ #define NSTRING 128 /* # of bytes, string buffers */ #define NKBDM 256 /* # of strokes, keyboard macro */ #define NPAT 128 /* # of bytes, pattern */ #define HUGE 1000 /* Huge number */ #define NLOCKS 100 /* max # of file locks active */ #define NCOLORS 8 /* number of supported colors */ #define KBLOCK 250 /* sizeof kill buffer chunks */ #define CONTROL 0x10000000 /* Control flag, or'ed in */ #define META 0x20000000 /* Meta flag, or'ed in */ #define CTLX 0x40000000 /* ^X flag, or'ed in */ #define SPEC 0x80000000 /* special key (function keys) */ #include "retcode.h" #if 0 #define STOP 0 /* keyboard macro not in use */ #define PLAY 1 /* playing */ #define RECORD 2 /* recording */ #endif /* Directive definitions */ #define DIF 0 #define DELSE 1 #define DENDIF 2 #define DGOTO 3 #define DRETURN 4 #define DENDM 5 #define DWHILE 6 #define DENDWHILE 7 #define DBREAK 8 #define DFORCE 9 #define NUMDIRS 10 /* * PTBEG, PTEND, FORWARD, and REVERSE are all toggle-able values for * the scan routines. */ #define PTBEG 0 /* Leave the point at the beginning on search */ #define PTEND 1 /* Leave the point at the end on search */ #define FORWARD 0 /* forward direction */ #define REVERSE 1 /* backwards direction */ #define CFCPCN 0x0001 /* Last command was C-P, C-N */ #define CFKILL 0x0002 /* Last command was a kill */ #define BELL 0x07 /* a bell character */ #define TAB 0x09 /* a tab character */ #define INTWIDTH sizeof(int) * 3 /* 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 */ /* Internal defined functions */ #define nextab(a) (a & ~tabmask) + (tabmask+1) #ifdef abs #undef abs #endif /* DIFCASE represents the integer difference between upper and lower case letters. It is an xor-able value, which is fortunate, since the relative positions of upper to lower case letters is the opposite of ascii in ebcdic. */ #ifdef islower #undef islower #endif #if PKCODE #ifdef isupper #undef isupper #endif #endif #if ASCII #define DIFCASE 0x20 #if NATIONL #define LASTUL ']' #define LASTLL '}' #else #define LASTUL 'Z' #define LASTLL 'z' #endif #if IBMCHR #define isletter(c) (('a' <= c && LASTLL >= c) || ('A' <= c && LASTUL >= c) || (128<=c && c<=167)) #define islower(c) (('a' <= c && LASTLL >= c)) #define isupper(c) (('A' <= c && LASTUL >= c)) #else #define isletter(c) isxletter((0xFF & (c))) #define islower(c) isxlower((0xFF & (c))) #define isupper(c) isxupper((0xFF & (c))) #define isxletter(c) (('a' <= c && LASTLL >= c) || ('A' <= c && LASTUL >= c) || (192<=c && c<=255)) #define isxlower(c) (('a' <= c && LASTLL >= c) || (224 <= c && 252 >= c)) #define isxupper(c) (('A' <= c && LASTUL >= c) || (192 <= c && 220 >= c)) #endif #endif #if EBCDIC #define DIFCASE 0x40 #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)) #define islower(c) (('a' <= c && 'i' >= c) || ('j' <= c && 'r' >= c) || ('s' <= c && 'z' >= c)) #if PKCODE #define isupper(c) (('A' <= c && 'I' >= c) || ('J' <= c && 'R' >= c) || ('S' <= c && 'Z' >= c)) #endif #endif /* Dynamic RAM tracking and reporting redefinitions */ #if RAMSIZE #define malloc allocate #define free release #endif /* De-allocate memory always on exit (if the operating system or main program can not */ #if CLEAN #define exit(a) cexit(a) int cexit( int status) ; #endif /* * The starting position of a region, and the size of the region in * characters, is kept in a region structure. Used by the region commands. */ struct region { struct line *r_linep; /* Origin struct line address. */ int r_offset; /* Origin struct line offset. */ long r_size; /* Length in characters. */ }; /* * The editor communicates with the display using a high level interface. A * "TERM" structure holds useful variables, and indirect pointers to routines * that do useful operations. The low level get and put routines are here too. * This lets a terminal, in addition to having non standard commands, have * funny get and put character code too. The calls might get changed to * "termp->t_field" style in the future, to make it possible to run more than * one terminal type. */ struct terminal { short t_mrow; /* max number of rows allowable */ short t_nrow; /* current number of rows used */ short t_mcol; /* max Number of columns. */ short t_ncol; /* current Number of columns. */ short t_margin; /* min margin for extended lines */ short t_scrsiz; /* size of scroll region " */ int t_pause; /* # times thru update to pause */ void (*t_open)(void); /* Open terminal at the start. */ void (*t_close)(void); /* Close terminal at end. */ void (*t_kopen)(void); /* Open keyboard */ void (*t_kclose)(void); /* close keyboard */ int (*t_getchar)(void); /* Get character from keyboard. */ int (*t_putchar)(int); /* Put character to display. */ void (*t_flush) (void); /* Flush output buffers. */ void (*t_move)(int, int);/* Move the cursor, origin 0. */ void (*t_eeol)(void); /* Erase to end of line. */ void (*t_eeop)(void); /* Erase to end of page. */ void (*t_beep)(void); /* Beep. */ void (*t_rev)(int); /* set reverse video state */ int (*t_rez)(char *); /* change screen resolution */ #if COLOR int (*t_setfor) (); /* set forground color */ int (*t_setback) (); /* set background color */ #endif #if SCROLLCODE void (*t_scroll)(int, int,int); /* scroll a region of the screen */ #endif }; /* TEMPORARY macros for terminal I/O (to be placed in a machine dependant place later) */ #define TTopen (*term.t_open) #define TTclose (*term.t_close) #define TTkopen (*term.t_kopen) #define TTkclose (*term.t_kclose) #define TTgetc (*term.t_getchar) #define TTputc (*term.t_putchar) #define TTflush (*term.t_flush) #define TTmove (*term.t_move) #define TTeeol (*term.t_eeol) #define TTeeop (*term.t_eeop) #define TTbeep (*term.t_beep) #define TTrev (*term.t_rev) #define TTrez (*term.t_rez) #if COLOR #define TTforg (*term.t_setfor) #define TTbacg (*term.t_setback) #endif /* The editor holds deleted text chunks in the struct kill buffer. The * kill buffer is logically a stream of ascii characters, however * due to its unpredicatable size, it gets implemented as a linked * list of chunks. (The d_ prefix is for "deleted" text, as k_ * was taken up by the keycode structure). */ struct kill { struct kill *d_next; /* Link to next chunk, NULL if last. */ char d_chunk[KBLOCK]; /* Deleted text. */ }; /* 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. */ }; /* The !WHILE directive in the execution language needs to * stack references to pending whiles. These are stored linked * to each currently open procedure via a linked list of * the following structure. */ struct while_block { struct line *w_begin; /* ptr to !while statement */ struct line *w_end; /* ptr to the !endwhile statement */ int w_type; /* block type */ struct while_block *w_next; /* next while */ }; #define BTWHILE 1 #define BTBREAK 2 /* * Incremental search defines. */ #if ISRCH #define CMDBUFLEN 256 /* Length of our command buffer */ #define IS_ABORT 0x07 /* Abort the isearch */ #define IS_BACKSP 0x08 /* Delete previous char */ #define IS_TAB 0x09 /* Tab character (allowed search char) */ #define IS_NEWLINE 0x0D /* New line from keyboard (Carriage return) */ #define IS_QUOTE 0x11 /* Quote next character */ #define IS_REVERSE 0x12 /* Search backward */ #define IS_FORWARD 0x13 /* Search forward */ #define IS_VMSQUOTE 0x16 /* VMS quote character */ #define IS_VMSFORW 0x18 /* Search forward for VMS */ #define IS_QUIT 0x1B /* Exit the search */ #define IS_RUBOUT 0x7F /* Delete previous character */ /* IS_QUIT is no longer used, the variable metac is used instead */ #endif #if defined(MAGIC) /* * Defines for the metacharacters in the regular expression * search routines. */ #define MCNIL 0 /* Like the '\0' for strings. */ #define LITCHAR 1 /* Literal character, or string. */ #define ANY 2 #define CCL 3 #define NCCL 4 #define BOL 5 #define EOL 6 #define DITTO 7 #define CLOSURE 256 /* An or-able value. */ #define MASKCL (CLOSURE - 1) #define MC_ANY '.' /* 'Any' character (except newline). */ #define MC_CCL '[' /* Character class. */ #define MC_NCCL '^' /* Negate character class. */ #define MC_RCCL '-' /* Range in character class. */ #define MC_ECCL ']' /* End of character class. */ #define MC_BOL '^' /* Beginning of line. */ #define MC_EOL '$' /* End of line. */ #define MC_CLOSURE '*' /* Closure - does not extend past newline. */ #define MC_DITTO '&' /* Use matched string in replacement. */ #define MC_ESC '\\' /* Escape - suppress meta-meaning. */ #define BIT(n) (1 << (n)) /* An integer with one bit set. */ #define CHCASE(c) ((c) ^ DIFCASE) /* Toggle the case of a letter. */ /* HICHAR - 1 is the largest character we will deal with. * HIBYTE represents the number of bytes in the bitmap. */ #define HICHAR 256 #define HIBYTE HICHAR >> 3 /* Typedefs that define the meta-character structure for MAGIC mode searching * (struct magic), and the meta-character structure for MAGIC mode replacement * (struct magic_replacement). */ struct magic { short int mc_type; union { int lchar; char *cclmap; } u; }; struct magic_replacement { short int mc_type; char *rstr; }; #endif /* MAGIC */ #endif