mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-15 23:50:44 +00:00
Code Issues Releases Activity
14dfca546f
freebsd-ports/editors/uemacs/files/patch-ab

1258 lines
40 KiB
Plaintext
Raw Blame History

--- freebsd/estruct.h.orig Wed Mar 25 14:21:05 1998
+++ freebsd/estruct.h Wed Mar 25 14:25:34 1998
@@ -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 /* FREEBSD 386 version 2 or + */
+#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 varargs.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 dependant 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 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 <windows.h> /* --------- Huge include file here !!! ---------*/
+#if NTCON
+#include <wincon.h>
+#include <stdio.h>
+#include <dos.h>
+#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 <dos.h>
+#include <mem.h>
+#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 <dos.h>
+#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 <dos.h>
+#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 <dos.h>
+#include <memory.h>
+#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 <dos.h>
+#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) && (USG || AIX || AUX || BSD || FREEBSD || SUN || XENIX || HPUX8 || HPUX9 || AVIION || MPE)
+#define VARG 1
+#define SARG 0
+#include <varargs.h>
+#else
+#define VARG 0
+#define SARG 1
+#include <stdarg.h>
+#endif
+#endif
+
+#if ZTC
+#include <dos.h>
+#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
+ 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 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 <NL>.*/
+#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 |
+ | |
+ ------------------------------------------
+*/
Reference in New Issue View Git Blame Copy Permalink