$NetBSD: patch-ab,v 1.5 2012/05/10 20:53:30 dholland Exp $ Configure for pkgsrc. Fix some of the conditionals for a C89+ world. --- netbsd/estruct.h.orig 2012-05-10 18:13:41.000000000 +0000 +++ netbsd/estruct.h @@ -0,0 +1,1254 @@ +/* ESTRUCT: Structure and preprocesser defined for + MicroEMACS 4.00 + + (C)Copyright 1995 by Daniel Lawrence + written by Daniel Lawrence + based on code by Dave G. Conroy, + Steve Wilhite and George Jones +*/ + +#ifdef LATTICE +#undef LATTICE /* don't use their definitions...use ours */ +#endif +#ifdef MSDOS +#undef MSDOS +#endif +#ifdef WINNT +#undef WINNT +#endif +#ifdef AMIGA +#undef AMIGA +#endif +#ifdef EGA +#undef EGA +#endif +#ifdef CTRLZ +#undef CTRLZ +#endif + +/* Program Identification..... + + PROGNAME should always be MicroEMACS for a distribution + unmodified version. People using MicroEMACS as a shell + for other products should change this to reflect their + product. Macros can query this via the $progname variable +*/ + +#define PROGNAME "MicroEMACS" +#define VERSION "4.00" + +/* Machine/OS definitions */ +/* [Set one of these!!] */ + +#define AMIGA 0 /* AmigaDOS */ +#define AOSVS 0 /* Data General AOS/VS */ +#define AUX 0 /* Apple UNIX for Macintosh */ +#define AIX 0 /* IBM UNIX for various machines*/ +#define AVIION 0 /* Data General AViiON */ +#define BSD 0 /* UNIX BSD 4.2 and ULTRIX */ +#define FINDER 0 /* Macintosh OS */ +#define FREEBSD 1 /* Works fine for FreeBSD, too */ +#define HPUX8 0 /* HPUX HP 9000 ver 8 or less */ +#define HPUX9 0 /* HPUX HP 9000 ver 9 */ +#define MPE 0 /* HP MPE/XL */ +#define MSDOS 0 /* MS-DOS */ +#define WINNT 0 /* MS-Win NT */ +#define OS2 0 /* Microsoft or IBM OS/2 */ +#define SMOS 0 /* Supermax UNIX System V */ +#define SUN 0 /* SUN v4.0 */ +#define TOS 0 /* ST520, TOS */ +#define USG 0 /* UNIX system V */ +#define VMS 0 /* VAX/VMS */ +#define WMCS 0 /* Wicat's MCS */ +#define XENIX 0 /* IBM-PC SCO XENIX */ + +/* Compiler definitions */ +/* [Set one of these!!] */ +#define ALCYON 0 /* ALCYON Atari ST compiler */ +#define AZTEC 0 /* Aztec C 4.00e ONLY for the amiga now... */ +#define DGC 0 /* Data General AOS/VS C... */ +#define GCC 0 /* the GNU C compiler */ +#define IC 0 /* Rational Systems Instant C */ +#define LATTICE 0 /* Lattice 2.14 through 3.0 compilers */ +#define MSC 0 /* MicroSoft C compile version 3 thru 7 */ +#define MWC 0 /* Mark Williams C */ +#define TURBO 0 /* Turbo C and Borland C++ under MSDOS */ +#define UNIX 1 /* a standard UNIX compiler (cc) */ +#define ZTC 0 /* Zortech C/C++ 1.02 thru 2.10 under MSDOS */ + +/* Machine stack growth direction. */ +/* [Set this to 1 if your machine stack grows UP!!!] */ +/* data general mv/eclipse series stack grows up. */ +/* dec vax series stack grows down... got it??? */ + +#define STACK_GROWS_UP 0 + +/* Debugging options */ +#define RAMSIZE 0 /* dynamic RAM memory usage tracking */ +#define RAMSHOW 0 /* auto dynamic RAM reporting */ +#define RAMTRCK 0 /* send debug info to MALLOC.DAT */ +#define DEBUG_SEARCH 0 /* pop some search info on patterns */ + +/* Special keyboard/network definitions */ + +#define ATKBD 0 /* AT-style keyboard with F11, F12 & grey keys */ +#define WANGPC 0 /* WangPC - mostly escape sequences */ +#define VT100 1 /* Handle VT100 style keypad - NOT VMS. */ +#define KEYPAD 0 /* VMS - turn on and off application */ + /* keypad automatically */ +#define XONDATA 0 /* VMS - set to force /NOTTSYNC/NOHOSTSY */ +#define RMSIO 0 /* VMS - skip the rotten C runtime and */ + /* use RMS directly */ +#define OPTMEM 0 /* VMS 5.0 and up - use a less standard */ + /* but more efficient memory allocator */ + +/* Terminal Output definitions */ +/* [Set one of these!!] */ + +#define ANSI 0 /* ANSI escape sequences */ +#define DASHER 0 /* DG Dasher 2xx/4xx crts */ +#define DG10 0 /* Data General system/10 */ +#define FMR 0 /* Fujitsu FMR series driver */ +#define HP110 0 /* HP110 screen driver */ +#define HP150 0 /* HP150 screen driver */ +#define I55 0 /* IBM PS55 DOS J4.0/V */ +#define IBMPC 0 /* IBM-PC CGA/MONO/EGA/VGA drvr */ +#define MAC 0 /* Macintosh */ +#define NEC 0 /* NEC-9801VM driver */ +#define OS2NPM 0 /* OS/2 non-Presentation Mgr. */ +#define SMG 0 /* SMG library on VMS */ +#define ST52 0 /* Atari 520/1040ST screen */ +#define TERMCAP 1 /* Use TERMCAP */ +#define TIPC 0 /* TI Profesional PC driver */ +#define VT52 0 /* VT52 terminal (Zenith). */ +#define NTCON 0 /* Windows NT console */ +#define XVT 0 /* XVT windowing system */ +#define Z309 0 /* Zenith 100 PC family driver */ + +/* Windowing system style (pick one) */ + +#define WINDOW_TEXT 1 /* [default] Text mode */ +#define WINDOW_MSWIN 0 /* MicroSoft Windows */ +#define WINDOW_MSWIN32 0 /* MicroSoft Windows 32 bit API */ +#define WINDOW_X 0 /* X/Unix */ + +/* Language text options (pick one) */ + +#define ENGLISH 1 /* [default] */ +#define FRENCH 0 +#define SPANISH 0 +#define GERMAN 0 +#define DUTCH 0 +#define PLATIN 0 /* Pig Latin */ +#define JAPAN 0 +#define LATIN 0 /* real Latin */ + +/* Configuration options */ + +#define TYPEAH 1 /* type ahead causes update to be skipped */ +#define LOGFLG 0 /* send all executed commands to EMACS.LOG */ +#define VISMAC 0 /* update display during keyboard macros */ +#define CTRLZ 0 /* add a ^Z at end of files under MSDOS only */ +#define CLEAN 0 /* de-alloc memory on exit */ +#define CALLED 0 /* is emacs a called subroutine? or stand alone */ + +#define REVSTA 1 /* Status line appears in reverse video */ +#define COLOR 1 /* color commands and windows */ + +#define FILOCK 0 /* file locking under unix BSD 4.2 */ +#define ISRCH 1 /* Incremental searches like ITS EMACS */ +#define FLABEL 0 /* function key label code [HP150] */ +#define CRYPT 1 /* file encryption enabled? */ +#define MAGIC 1 /* include regular expression matching? */ +#define MOUSE 1 /* Include routines for mouse actions */ +#define NOISY 1 /* Use a fancy BELL if it exists */ +#define CTAGS 1 /* include vi-like tagging? */ +#define SPEECH 0 /* spoken EMACS, for the sight impared [not ready] */ +#define VARARG 1 /* use stdarg.h for mlwrite() */ + +#if XVT +#undef COLOR +#define COLOR 1 /* overide this to be TRUE for XVT always */ +#endif + +/* Character set options */ +/* [Set one of these!!] */ +#define ASCII 1 /* always using ASCII char sequences for now */ +#define EBCDIC 0 /* later IBM mainfraim versions will use EBCDIC */ + +/* handle constant and voids properly */ + +#if VMS +#define CONST readonly +#define VOID void +#define NOSHARE noshare +#else +#if AOSVS +#define CONST $shared $align(1) /* fake a const */ +#define VOID +#define NOSHARE $low32k $align(1) /* attempt to optimize read/write vars. */ +#else + +#if __STDC__ || MSC || TURBO || GCC || (AMIGA && LATTICE) +#define CONST const +#define VOID void +#define NOSHARE +#else +#define CONST +#if IC +#define VOID void +#else +#define VOID +#endif +#define NOSHARE +#endif + +#endif +#endif + +/* System dependent library redefinitions, structures and includes */ + +/* multibyte character support? */ + +#if NEC || FMR || I55 +#define DBCS 1 /* double byte character sets enabled */ +#define INSDEL 1 /* use insert/delete line display optimizations */ + +/* define DBCS prefix bytes */ +#define is2char(ch) (((ch&0xff) >= 0x81 && (ch&0xff) <= 0x9f) || ((ch&0xff) >=0xe0 && (ch&0xff) <= 0xfc)) + +#else +#define DBCS 0 +#define INSDEL 0 +#endif + +/* Can we catch the SIGWINCH (the window size change signal)? */ + +#if AIX || HPUX9 || FREEBSD +#define HANDLE_WINCH 1 +#else +#define HANDLE_WINCH 0 +#endif + +/* Prototypes in use? */ + +#if __STDC__ || MSC || TURBO || IC || VMS || GCC || ZTC +#define PROTO 1 +#else +#define PROTO 0 +#endif + +/* the following define allows me to initialize unions... + otherwise we make them structures (like the keybinding table) */ + +#if __STDC__ || MSC || TURBO || IC || ZTC +#define ETYPE union +#else +#define ETYPE struct +#endif + +/* Instant C can't do stat()s. Arrrg. No file locking for you */ +#if IC && MSDOS +#undef FILOCK +#define FILOCK 0 +#endif + +/* Mark Williams/Atari has no standard or varargs or directory functions */ +#if TOS & MWC +#undef VARARG +#define VARARG 0 +#undef FILOCK +#define FILOCK 0 +#endif + +/* MS-Windows */ + +#if WINNT || WINDOW_MSWIN || WINDOW_MSWIN32 +#if WINDOW_MSWIN32 +#undef WINDOW_MSWIN +#define WINDOW_MSWIN 1 +#endif +#if WINDOW_MSWIN && WINNT +#undef WINDOW_MSWIN32 +#define WINDOW_MSWIN32 1 +#endif +#undef VOID /* windows.h will wind up defining this */ +#include /* --------- Huge include file here !!! ---------*/ +#if NTCON +#include +#include +#include +#endif + +#undef NEAR +#define NEAR +#define DNEAR +#if MSC || IC +#undef CDECL +#define CDECL __cdecl +#define DUMMYSZ 1 /* dummy size for unsized extern arrays to avoid + silly DGROUP fixup */ +#else +#if TURBO +#define DUMMYSZ /* nothing */ +#else +#define CDECL _cdecl /* ZTC */ +#define DUMMYSZ /* nothing */ +#endif +#endif + +#if WINNT +#define EXPORT /* Windows NT doesn't like this */ +#endif + +#if WINDOW_MSWIN +#undef TYPEAH +#define TYPEAH 0 /* typeahead is handled at the term driver level */ +#undef CALLED +#define CALLED 1 /* under MS Windows, "main" resides in the sys driver */ +#if MSC +#define EXPORT __export +#else +#define EXPORT _export /* Fine for TURBO and ZTC */ +#endif +#endif +#else + +/* neither Windows NT nor MS-Windows */ + +#define DUMMYSZ /* nothing */ + +#if MSDOS & (TURBO | MSC | TIPC) +#define NEAR +#define DNEAR +#define PASCAL pascal +#define CDECL cdecl +#else +#if MSDOS & ZTC +#define NEAR +#define DNEAR +#define PASCAL _pascal +#define CDECL _cdecl +#else +#define NEAR +#define DNEAR +#define PASCAL +#define CDECL +#endif +#endif + +#endif + +#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 IC +#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 LATTICE & MSDOS +/* you may have to remove this one definition with LATTICE version + 3.2 and above */ +#define unsigned +#endif + +#if IC +#define inp inportb +#define outp outportb +#define intdos(a, b) int86(33, a, b) +#endif + +#if AZTEC +#undef putc +#undef getc +#if MSDOS +#define getc a1getc +#define int86 sysint +#define intdos(a, b) sysint(33, a, b) +#define inp inportb +#define outp outportb +#else +#define getc agetc +#endif +#define putc aputc + +struct XREG { + unsigned ax,bx,cx,dx,si,di,ds,es; +}; + +struct HREG { + char al,ah,bl,bh,cl,ch,dl,dh,d1,d2,e1,e2; +}; + +union REGS { + struct XREG x; + struct HREG h; +}; + +struct SREGS { + unsigned cs, ss, ds, es; +}; +#endif + +#if MSDOS & MWC +#include +#define int86(a, b, c) intcall(b, c, a) +#define intdos(a, b) intcall(a, b, DOSINT) +#define inp(a) in(a) +#define outp(a, b) out(a, b) +#define movmem(a, b, c) memcpy(b, a, c) + +struct XREG { + unsigned int ax,bx,cx,dx,si,di,ds,es,flags; +}; + +struct HREG { + char al,ah,bl,bh,cl,ch,dl,dh; + unsigned int ds,es,flags; +}; + +union REGS { + struct XREG x; + struct HREG h; +}; +#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) +#define _strrev(a) strrev(a) +#endif + +#if MSDOS & LATTICE +#undef CPM +#undef LATTICE +#include +#undef CPM +#endif + +/* System V doesn't name this the same as others */ +#if USG | AIX | AUX | SUN | (OS2 & MSC) +#define movmem(a, b, c) memcpy(b, a, c) +#endif + +/* this keeps VMS happy */ +#if VMS +#define getname xgetname +#define unlink(a) delete(a) +#endif + +/* some options for AOS/VS */ +#if AOSVS +#define ORMDNI 1 +#endif + +/* define some ability flags */ + +#if (IBMPC | Z309 | FMR | TIPC) & !(WINDOW_MSWIN | WINDOW_MSWIN32) +#define MEMMAP 1 +#else +#define MEMMAP 0 +#endif + +#if MSDOS | WINNT | OS2 | USG | AIX | AUX | SMOS | HPUX8 | HPUX9 | BSD | FREEBSD | (TOS & MWC) | WMCS | SUN | MPE +#define ENVFUNC 1 +#else +#define ENVFUNC 0 +#endif + +#if AUX +#define RETCHAR '\n' +#else +#define RETCHAR '\r' +#endif + +#if MPE +#define DIRSEPSTR "." +#define DIRSEPCHAR '.' +#else +#if TOS || MSDOS || WINNT || OS2 +#define DIRSEPSTR "\\" +#define DIRSEPCHAR '\\' +#define DRIVESEPCHAR ':' +#else +#define DIRSEPSTR "/" +#define DIRSEPCHAR '/' +#define DRIVESEPCHAR '\0' +#endif +#endif + +#if VARARG +#if (GCC == 0) && (__STDC__ == 0) && (USG || AIX || AUX || BSD || FREEBSD || SUN || XENIX || HPUX8 || HPUX9 || AVIION || MPE) +#define VARG 1 +#define SARG 0 +#include +#else +#define VARG 0 +#define SARG 1 +#include +#endif +#endif + +#if ZTC +#include +#define movmem(a, b, c) memcpy(b, a, c) +#endif + +/* Emacs global flag bit definitions (for gflags) */ + +#define GFREAD 1 /* read first file in at startup */ +#define GFSDRAW 2 /* suppress a screen redraw */ +#define GFEXIT 4 /* exit from emacs pending */ + +/* internal constants */ + +#define NBINDS 300 /* max # of bound keys */ +#if AOSVS | VMS | WINNT | SUN | BSD | FREEBSD | USG | ZENIX | HPUX8 | HPUX9 | OS2 +#define NFILEN 256 +#else +#define NFILEN 80 /* # of bytes, file name */ +#endif +#define NBUFN 128 /* # of bytes, buffer name */ +#define NLINE 256 /* # of bytes, input line */ +#define NSTRING 128 /* # of bytes, string buffers */ +#define NKBDM 4096 /* # of strokes, keyboard macro */ +#define NPAT 128 /* # of bytes, pattern */ +#define HUGE 1000 /* Huge number */ +#define NLOCKS 256 /* max # of file locks active */ +#define NCOLORS 16 /* number of supported colors */ +#define KBLOCK 250 /* sizeof kill buffer chunks */ +#define NRING 16 /* # of buffers in kill ring */ +#define NBLOCK 16 /* line block chunk size */ +#define NVSIZE 16 /* max #chars in a var name */ +#define NMARKS 16 /* number of marks */ +#define MAXSYM 32 /* max # chars in symbol to expand */ +#define MINFLEN 3 /* min # chars to match &func */ + +#define CTRL 0x0100 /* Control flag, or'ed in */ +#define META 0x0200 /* Meta flag, or'ed in */ +#define CTLX 0x0400 /* ^X flag, or'ed in */ +#define SPEC 0x0800 /* special key (function keys) */ +#define MOUS 0x1000 /* alternative input device (mouse) */ +#define SHFT 0x2000 /* shifted (for function keys) */ +#define ALTD 0x4000 /* ALT key... */ +#define MENU MOUS+SPEC /* menu selection (WINDOW_MSWIN) */ + +#define BINDNUL 0 /* not bound to anything */ +#define BINDFNC 1 /* key bound to a function */ +#define BINDBUF 2 /* key bound to a buffer */ + +#ifdef FALSE +#undef FALSE +#endif +#ifdef TRUE +#undef TRUE +#endif + +#define FALSE 0 /* False, no, bad, etc. */ +#define TRUE 1 /* True, yes, good, etc. */ +#define ABORT 2 /* Death, ^G, abort, etc. */ +#define FAILD 3 /* not-quite fatal false return */ + +#define STOP 0 /* keyboard macro not in use */ +#define PLAY 1 /* playing */ +#define RECORD 2 /* recording */ + +/* Completion types */ + +#define CMP_BUFFER 0 +#define CMP_COMMAND 1 +#define CMP_FILENAME 2 + +/* 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 + * routines that need directions. + */ +#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 /* do things in a forward direction */ +#define REVERSE 1 /* do things in a backwards direction */ + +#define FIOSUC 0 /* File I/O, success. */ +#define FIOFNF 1 /* File I/O, file not found. */ +#define FIOEOF 2 /* File I/O, end of file. */ +#define FIOERR 3 /* File I/O, error. */ +#define FIOMEM 4 /* File I/O, out of memory */ +#define FIOFUN 5 /* File I/O, eod of file/bad line*/ +#define FIODEL 6 /* Can't delete/rename file */ + +#if WINDOW_MSWIN +/* values for the fbusy flag */ +#define FREADING 1 /* file read in progress */ +#define FWRITING 2 /* file write in progress */ +/* if no file activity, the value FALSE is used */ +#endif + +#define CFCPCN 0x0001 /* Last command was C-P, C-N */ +#define CFKILL 0x0002 /* Last command was a kill */ +#define CFSRCH 0x0004 /* last command was a search */ +#define CFYANK 0x0008 /* last command was a yank */ + +#define SRNORM 0 /* end past, begin front */ +#define SRBEGIN 1 /* always at front */ +#define SREND 2 /* always one past end */ + +#define BELL 0x07 /* a bell character */ +#define TAB 0x09 /* a tab character */ + +#if USG | AIX | AUX | SMOS | HPUX8 | HPUX9 | BSD | FREEBSD | SUN | XENIX | AVIION +#define PATHCHR ':' +#else +#if WMCS || MPE +#define PATHCHR ',' +#else +#define PATHCHR ';' +#endif +#endif + +#define INTWIDTH sizeof(int) * 3 +#define LONGWIDTH sizeof(long) * 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 - (a % tabsize)) + tabsize + +/* 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. +*/ + +#if ASCII +#define DIFCASE 0x20 +#else +#define DIFCASE 0x40 +#endif + +/* Dynamic RAM tracking and reporting redefinitions */ + +#if RAMSIZE +#define malloc allocate +#define free release +#else +#if VMS & OPTMEM +#define malloc VAXC$MALLOC_OPT +#define free VAXC$FREE_OPT +#define calloc VAXC$CALLOC_OPT +#define realloc VAXC$REALLOC_OPT +#define cfree VAXC$CFREE_OPT +#endif +#endif + +/* under MS Windows, we use dialog boxes to prompt the user for filenames */ +#if WINDOW_MSWIN +#define FILENAMEREPLY(p,b,nb) filenamedlg(p,b,nb,TRUE) +#else +#define FILENAMEREPLY(p,b,nb) mlreply(p,b,nb) +#endif + +/* formal parameters to procedures are stored as a linked list + of argument names using the following simple structure: +*/ + +typedef struct PARG { + struct PARG *next; /* ptr to next linked argument */ + char name[NVSIZE+1]; /* name of the argument */ +} PARG; + +/* UNDO definitions and types */ + +typedef int OPTYPE; /* type of operation being recorded/played back */ + +#define OP_CMND 1 /* beginning of command */ +#define OP_DELC 2 /* delete a single character */ +#define OP_INSC 3 /* insert a single character */ +#define OP_DSTR 4 /* delete a string of characters */ +#define OP_ISTR 5 /* insert a string of characters */ +#define OP_REPC 6 /* replace a character */ +#define OP_CPOS 7 /* set the cursor position */ + +/* object to be undone! */ + +typedef union OBJECT { + char obj_char; /* a character */ + char obj_string[1]; /* many characters */ + char *obj_sptr; /* a ptr to a character */ +} OBJECT; + +typedef struct UNDO_OBJ { + struct UNDO_OBJ *next; /* ptr to next undo object */ + OPTYPE type; /* type of operation */ + long line_num; /* line offset from buffer beginning */ + int offset; /* offset into that line */ + long count; /* repetitions? */ + OBJECT undo_obj; /* object to be undone */ +} UNDO_OBJ; + +/* + * There is a window structure allocated for every active display window. The + * windows are kept in a big list, in top to bottom screen order, with the + * listhead at "wheadp". Each window contains its own values of dot and mark. + * The flag field contains some bits that are set by commands to guide + * redisplay. Although this is a bit of a compromise in terms of decoupling, + * the full blown redisplay is just too expensive to run for every input + * character. + */ +typedef struct EWINDOW { + struct EWINDOW *w_wndp; /* Next window */ + struct BUFFER *w_bufp; /* Buffer displayed in window */ + struct LINE *w_linep; /* Top line in the window */ + struct LINE *w_dotp; /* Line containing "." */ + short w_doto; /* Byte offset for "." */ + struct LINE *w_markp[NMARKS]; /* Line containing "mark" */ + short w_marko[NMARKS]; /* Byte offset for "mark" */ + char w_toprow; /* Origin 0 top row of window */ + char w_ntrows; /* # of rows of text in window */ + char w_force; /* If NZ, forcing row. */ + char w_flag; /* Flags. */ +#if COLOR + char w_fcolor; /* current forground color */ + char w_bcolor; /* current background color */ +#endif + int w_fcol; /* first column displayed */ +} EWINDOW; + +#define WFFORCE 0x01 /* Window needs forced reframe */ +#define WFMOVE 0x02 /* Movement from line to line */ +#define WFEDIT 0x04 /* Editing within a line */ +#define WFHARD 0x08 /* Better to a full display */ +#define WFMODE 0x10 /* Update mode line. */ +#define WFCOLR 0x20 /* Needs a color change */ + +/* This structure holds the information about each line appearing on the + * video display. The redisplay module uses an array of virtual display + * lines. On systems that do not have direct access to display memory, + * there is also an array of physical display lines used to minimize + * video updating. In most cases, these two arrays are unique. If + * WINDOW_MSWIN is 1, there is a pair of such arrays in each SCREEN + * structure. + */ + +typedef struct VIDEO { + int v_flag; /* Flags */ +#if COLOR + int v_fcolor; /* current forground color */ + int v_bcolor; /* current background color */ + int v_rfcolor; /* requested forground color */ + int v_rbcolor; /* requested background color */ +#endif + int v_left; /* left edge of reverse video */ + int v_right; /* right right of reverse video */ +#if INSDEL && MEMMAP == 0 + int v_rline; /* requested screen line # */ +#endif + char v_text[1]; /* Screen data. */ +} VIDEO; + +#define VFNEW 0x0001 /* contents not meaningful yet */ +#define VFCHG 0x0002 /* Changed flag */ +#define VFEXT 0x0004 /* extended (beyond column 80) */ +#define VFCOL 0x0008 /* color change requested */ + +/* + * This structure holds the information about each separate "screen" + * within the current editing session. On a character based system, these + * screens overlay each other, and can individually be brought to front. + * On a windowing system like MicroSoft Windows 3.0, OS/2, the Macintosh, + * Intuition, Sunview or X-windows, each screen is represented in an OS + * window. The terminolgy is wrong in emacs..... + * + * EMACS The outside World + * screen window + * window pane + */ + +typedef struct SCREEN { + struct SCREEN *s_next_screen; /* link to next screen in list */ + EWINDOW *s_first_window; /* head of linked list of windows */ + EWINDOW *s_cur_window; /* current window in this screen */ + char *s_screen_name; /* name of the current window */ + short s_roworg; /* row origin of stored screen */ + short s_colorg; /* column origin of stored screen */ + short s_nrow; /* row width of stored screen */ + short s_ncol; /* column origin of stored screen */ +#if WINDOW_MSWIN + VIDEO **s_virtual; /* virtual screen contents */ + VIDEO **s_physical; /* physical screen contents */ + HWND s_drvhandle; /* handle for the "term" driver */ +#endif +} SCREEN; + +/* + * Text is kept in buffers. A buffer header, described below, exists for every + * buffer in the system. The buffers are kept in a big list, so that commands + * that search for a buffer by name can find the buffer header. There is a + * safe store for the dot and mark in the header, but this is only valid if + * the buffer is not being displayed (that is, if "b_nwnd" is 0). The text for + * the buffer is kept in a circularly linked list of lines, with a pointer to + * the header line in "b_linep". Buffers may be "Inactive" which means the + * files associated with them have not been read in yet. These get read in + * at "use buffer" time. + * Some buffers are really procedures and have a little extra information + * stored with them. + */ +typedef struct BUFFER { + struct BUFFER *b_bufp; /* Link to next BUFFER */ + struct LINE *b_dotp; /* Link to "." LINE structure */ + short b_doto; /* Offset of "." in above LINE */ + struct LINE *b_markp[NMARKS]; /* The same as the above two, */ + short b_marko[NMARKS]; /* but for the "mark" */ + int b_fcol; /* first col to display */ + struct LINE *b_linep; /* Link to the header LINE */ + struct LINE *b_topline; /* Link to narrowed top text */ + struct LINE *b_botline; /* Link to narrowed bottom text */ + char b_active; /* window activated flag */ + char b_nwnd; /* Count of windows on buffer */ + char b_exec; /* how many active executions */ + char b_flag; /* Flags */ + int b_mode; /* editor mode of this buffer */ + char b_fname[NFILEN]; /* File name */ + char b_bname[NBUFN]; /* Buffer name */ +#if CRYPT + char b_key[NPAT]; /* current encrypted key */ +#endif + int b_numargs; /* number of arguments to procedure */ + PARG *b_args; /* ptr to the first argument */ + UNDO_OBJ *undo_head; /* head of undo stack for buffer */ + long undo_count; /* # of undo operations stacked */ + long last_access; /* time of last access */ +} BUFFER; + +#define BFINVS 0x01 /* Internal invisable buffer */ +#define BFCHG 0x02 /* Changed since last write */ +#define BFTRUNC 0x04 /* buffer was truncated when read */ +#define BFNAROW 0x08 /* buffer has been narrowed */ + +#define NOTPROC -1 /* buffer is not a procedure */ + +/* mode flags */ +#define NUMMODES 11 /* # of defined modes */ + +#define MDWRAP 0x0001 /* word wrap */ +#define MDCMOD 0x0002 /* C indentation and fence match*/ +#define MDSPELL 0x0004 /* spell error parsing */ +#define MDEXACT 0x0008 /* Exact matching for searches */ +#define MDVIEW 0x0010 /* read-only buffer */ +#define MDOVER 0x0020 /* overwrite mode */ +#define MDMAGIC 0x0040 /* regular expresions in search */ +#define MDCRYPT 0x0080 /* encrytion mode active */ +#define MDASAVE 0x0100 /* auto-save mode */ +#define MDREPL 0x0200 /* replace mode */ +#define MDABBR 0x0400 /* abbreviation expansion mode */ + +/* + * 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. + */ +typedef struct { + struct LINE *r_linep; /* Origin LINE address. */ + short r_offset; /* Origin LINE offset. */ + long r_size; /* Length in characters. */ +} REGION; + +/* + * All text is kept in circularly linked lists of "LINE" structures. These + * begin at the header line (which is the blank line beyond the end of the + * buffer). This line is pointed to by the "BUFFER". Each line contains a the + * number of bytes in the line (the "used" size), the size of the text array, + * and the text. The end of line is not stored as a byte; it's implied. + */ +typedef struct LINE { + struct LINE *l_fp; /* Link to the next line */ + struct LINE *l_bp; /* Link to the previous line */ + short l_size; /* Allocated size */ + short l_used; /* Used size */ + char l_text[1]; /* A bunch of characters. */ +} LINE; + +#define lforw(lp) ((lp)->l_fp) +#define lback(lp) ((lp)->l_bp) +#if UNIX && (SUN || HPUX8 || HPUX9 || BSD || FREEBSD) +#define lgetc(lp, n) ((unsigned char)(lp)->l_text[(n)]) +#else +#define lgetc(lp, n) ((lp)->l_text[(n)]) +#endif +#define lputc(lp, n, c) ((lp)->l_text[(n)]=(c)) +#define lused(lp) ((lp)->l_used) +#define lsize(lp) ((lp)->l_size) +#define ltext(lp) ((lp)->l_text) + +/* This structure is used to hold a user variables name and its + current value. These are used for both the global and the + local symbol tables. +*/ + +typedef struct UVAR { + char u_name[NVSIZE + 1]; /* name of user variable */ + char *u_value; /* value (string) */ +} UVAR; + +#define VT_NONE 0 /* don't declare it if not found */ +#define VT_LOCAL 1 /* local to the current procedure */ +#define VT_GLOBAL 2 /* global to all procedures */ + +/* A UTABLE is a user variable table.... containing some header + information and an array of user variable names and definitions. + They are held together in a linked list, the last member of + the list being the global user variable table. +*/ + +typedef struct UTABLE { + struct UTABLE *next; /* ptr to next user variable table */ + int size; /* max number of variables in table */ + BUFFER *bufp; /* ptr to buffer holding procedure + assosiated with this symbol table. */ + UVAR uv[1]; /* list of variable names/definitions + in this variable table */ +} UTABLE; + +/* + * 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. + */ +#if PROTO +typedef struct { + 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_roworg; /* origin row (normally zero) */ + short t_colorg; /* origin column (normally zero)*/ + short t_margin; /* min margin for extended lines*/ + short t_scrsiz; /* size of scroll region " */ + int t_pause; /* # times thru update to pause */ + int (PASCAL NEAR *t_open)(void); /* Open terminal at the start.*/ + int (PASCAL NEAR *t_close)(void); /* Close terminal at end. */ + int (PASCAL NEAR *t_kopen)(void); /* Open keyboard */ + int (PASCAL NEAR *t_kclose)(void); /* Close keyboard */ + int (PASCAL NEAR *t_getchar)(void); /* Get character from keyboard. */ + int (PASCAL NEAR *t_putchar)(int); /* Put character to display.*/ + int (PASCAL NEAR *t_flush)(void); /* Flush output buffers. */ + int (PASCAL NEAR *t_move)(int, int);/* Move the cursor, origin 0.*/ + int (PASCAL NEAR *t_eeol)(void); /* Erase to end of line. */ + int (PASCAL NEAR *t_eeop)(void); /* Erase to end of page. */ + int (PASCAL NEAR *t_clrdesk)(void); /* Clear the page totally */ + int (PASCAL NEAR *t_beep)(void); /* Beep. */ + int (PASCAL NEAR *t_rev)(int); /* set reverse video state */ + int (PASCAL NEAR *t_rez)(char *); /* change screen resolution */ +#if COLOR + int (PASCAL NEAR *t_setfor)(int); /* set forground color */ + int (PASCAL NEAR *t_setback)(int); /* set background color */ +#endif +#if INSDEL + int (PASCAL NEAR *t_insline)(int); /* insert a screen line */ + int (PASCAL NEAR *t_delline)(int); /* delete a screen line */ +#endif +#if WINDOW_MSWIN + int (PASCAL NEAR *t_sleep)(int); /* go to sleep for a while */ + int (PASCAL NEAR *t_newscr)(SCREEN *); /* create new screen display */ + int (PASCAL NEAR *t_delscr)(SCREEN *); /* destroy screen display */ + int (PASCAL NEAR *t_selscr)(SCREEN *); /* select screen display */ + int (PASCAL NEAR *t_sizscr)(SCREEN *); /* resize screen display */ + int (PASCAL NEAR *t_topscr)(SCREEN *); /* bring screen to top */ +#endif +} TERM; +#else /* TERM structure, no prototyping.*/ + +typedef struct { + 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_roworg; /* origin row (normally zero) */ + short t_colorg; /* origin column (normally zero)*/ + short t_margin; /* min margin for extended lines*/ + short t_scrsiz; /* size of scroll region " */ + int t_pause; /* # times thru update to pause */ + int (PASCAL NEAR *t_open)(); /* Open terminal at the start. */ + int (PASCAL NEAR *t_close)(); /* Close terminal at end. */ + int (PASCAL NEAR *t_kopen)(); /* Open keyboard */ + int (PASCAL NEAR *t_kclose)(); /* close keyboard */ + int (PASCAL NEAR *t_getchar)(); /* Get character from keyboard. */ + int (PASCAL NEAR *t_putchar)(); /* Put character to display. */ + int (PASCAL NEAR *t_flush)(); /* Flush output buffers. */ + int (PASCAL NEAR *t_move)(); /* Move the cursor, origin 0. */ + int (PASCAL NEAR *t_eeol)(); /* Erase to end of line. */ + int (PASCAL NEAR *t_eeop)(); /* Erase to end of page. */ + int (PASCAL NEAR *t_clrdesk)(); /* Clear the page totally */ + int (PASCAL NEAR *t_beep)(); /* Beep. */ + int (PASCAL NEAR *t_rev)(); /* set reverse video state */ + int (PASCAL NEAR *t_rez)(); /* change screen resolution */ +#if COLOR + int (PASCAL NEAR *t_setfor)(); /* set forground color */ + int (PASCAL NEAR *t_setback)(); /* set background color */ +#endif +#if INSDEL + int (PASCAL NEAR *t_insline)(); /* insert a screen line */ + int (PASCAL NEAR *t_delline)(); /* delete a screen line */ +#endif +#if WINDOW_MSWIN + int (PASCAL NEAR *t_sleep)(); /* go to sleep for a while */ + int (PASCAL NEAR *t_newscr)(); /* create new screen display */ + int (PASCAL NEAR *t_delscr)(); /* destroy screen display */ + int (PASCAL NEAR *t_selscr)(); /* select screen display */ + int (PASCAL NEAR *t_sizscr)(); /* resize screen display */ + int (PASCAL NEAR *t_topscr)(); /* bring screen to top */ +#endif +} TERM; +#endif + + +/* TEMPORARY macros for terminal I/O (to be placed in a machine + dependent 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 TTclrdesk (*term.t_clrdesk) +#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 + +/* Structure for the table of current key bindings */ + +ETYPE EPOINTER { + int (PASCAL NEAR *fp)(); /* C routine to invoke */ + BUFFER *buf; /* buffer to execute */ +}; + +typedef struct { + short k_code; /* Key code */ + short k_type; /* binding type (C function or EMACS buffer) */ + ETYPE EPOINTER k_ptr; /* ptr to thing to execute */ +} KEYTAB; + +/* structure for the name binding table */ + +typedef struct { + char *n_name; /* name of function key */ + int (PASCAL NEAR *n_func)(); /* function name is bound to */ +} NBIND; + +/* The editor holds deleted text chunks in the 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) +*/ + +typedef struct KILL { + struct KILL *d_next; /* link to next chunk, NULL if last */ + char d_chunk[KBLOCK]; /* deleted text */ +} KILL; + +/* When emacs's command interpetor needs to get a variable's name, + rather than it's value, it is passed back as a VDESC variable + description structure. The v_num field is a index into the + appropriate variable table. +*/ + +typedef struct VDESC { + int v_type; /* type of variable */ + int v_num; /* ordinal pointer to variable in list */ + UTABLE *v_ut; /* ptr to appropriate user table if user var */ +} VDESC; + +/* 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 +*/ + +typedef struct WHBLOCK { + LINE *w_begin; /* ptr to !while statement */ + LINE *w_end; /* ptr to the !endwhile statement*/ + int w_type; /* block type */ + struct WHBLOCK *w_next; /* next while */ +} WHBLOCK; + +#define BTWHILE 1 +#define BTBREAK 2 + +/* Abbreviations are short symbols that expand to longer strings + when typed into a buffer with no intervening whitespace or commands. + This structure grows dynamically as needed. +*/ + +typedef struct ABBREV { + struct ABBREV *ab_next; /* pointer to the next abbreviation */ + char ab_sym[MAXSYM + 1]; /* name to expand */ + char ab_exp[1]; /* string to expand to */ +} ABBREV; + +/* Search definitions... */ + +/* HICHAR - 1 is the largest character we will deal with. + * BMAPSIZE represents the number of bytes in the bitmap. + */ +#define HICHAR 256 +#define BMAPSIZE HICHAR >> 3 + +/* + * Jump table structures. + */ +typedef struct { + int jump; + int patlen; + int delta[HICHAR]; + char patrn[NPAT]; +} DELTA; + +#if MAGIC +/* + * Defines for the metacharacters in the regular expression + * search routines. MCNIL and GROUP are used in both search + * and replace metachar-arrays. + */ +#define MCNIL 0 /* Like the '\0' for strings.*/ +#define JMPTABLE 1 +#define LITSTRING 2 /* Literal string.*/ +#define LITCHAR 3 /* Literal character.*/ +#define ANY 4 /* Any character but the .*/ +#define CCL 5 +#define NCCL 6 +#define BOL 7 +#define EOL 8 +#define BOWRD 9 +#define EOWRD 10 +#define GRPBEG 11 /* Signal start of group.*/ +#define GRPEND 12 /* Signal end of group.*/ +#define GROUP 13 /* String of group match.*/ +#define DITTO 14 /* Replacement with match string.*/ + +#define CLOSURE 0x0100 /* An or-able value for a closure modifier.*/ +#define CLOSURE_1 0x0200 /* An or-able value for a closure modifier.*/ +#define ZEROONE 0x0400 /* An or-able value for a closure modifier.*/ + +#define ALLCLOS (CLOSURE | CLOSURE_1 | ZEROONE) +#define MASKCLO (~ALLCLOS) + +#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 - zero to many characters match.*/ +#define MC_CLOSURE_1 '+' /* Closure - one to many characters match.*/ +#define MC_ZEROONE '?' /* Closure - zero to one characters match.*/ +#define MC_DITTO '&' /* Use matched string in replacement.*/ +#define MC_GRPBEG '(' /* Start of group (begun with a backslash).*/ +#define MC_GRPEND ')' /* End of group (begun with a backslash).*/ +#define MC_BOWRD '<' /* Beginning of word (begun with a backslash).*/ +#define MC_EOWRD '>' /* End of word (begun with a backslash).*/ +#define MC_ESC '\\' /* Escape - suppress meta-meaning.*/ + +#define MAXGROUPS 10 /* 1 + maximum # of r. e. groups. */ +#define BIT(n) (1 << (n)) /* An integer with one bit set.*/ + +/* Typedefs that define the bitmap type for searching (EBITMAP), + * the meta-character structure for MAGIC mode searching (MC), + * and the meta-character structure for MAGIC mode replacment (RMC). + */ +typedef char *EBITMAP; + +typedef struct { + short int mc_type; + union { + int lchar; + int group_no; + char *lstring; + DELTA *jmptable; + EBITMAP cclmap; + } u; +} MC; + +typedef struct { + short int mc_type; + union { + int group_no; + char *rstr; + } u; +} RMC; +#endif + +/* + This is the message which should be added to any "About MicroEMACS" + boxes on any of the machines with window managers. + + + ------------------------------------------ + | | + | MicroEMACS v4.xx | + | for the ............ | + | | + | Text Editor and Corrector | + | | + | written by Daniel M. Lawrence | + | [based on code by Dave Conroy] | + | | + | Send inquiries and donations to: | + | 617 New York St | + | Lafayette, IN 47901 | + | | + ------------------------------------------ +*/