Import "uemacs" port from FreeBSD ports collection:

A full screen editor

12 files changed, 1431 insertions, 0 deletions

diff --git a/editors/uemacs/Makefile b/editors/uemacs/Makefile
new file mode 100644
index 00000000000..dc8bf8ff84d
--- /dev/null
+++ b/editors/uemacs/Makefile
@@ -0,0 +1,23 @@
+# New ports collection makefile for:	MicroEmacs
+# Version required:     4.0
+# Date created:         16 Jan 1995
+# Whom:                 Thomas Gellekum <tg@FreeBSD.org>
+#
+# FreeBSD: ports/editors/uemacs/Makefile,v 1.14 1999/10/07 06:49:01 tg Exp
+#
+
+DISTNAME=	ue400dev
+PKGNAME=	uemacs-4.0
+CATEGORIES=	editors
+MASTER_SITES=	ftp://aquest.com/pub/uemacs400/disk2/
+
+MAINTAINER=	ports@FreeBSD.org
+
+NO_WRKSUBDIR=	yes
+USE_ZIP=	yes
+EXTRACT_BEFORE_ARGS=	-Laq
+
+post-patch:
+	@${PERL} -pi -e "s|%%PREFIX%%|${PREFIX}|g" ${WRKSRC}/src/*.c
+
+.include <bsd.port.mk>
diff --git a/editors/uemacs/files/md5 b/editors/uemacs/files/md5
new file mode 100644
index 00000000000..feba1067679
--- /dev/null
+++ b/editors/uemacs/files/md5
@@ -0,0 +1 @@
+MD5 (ue400dev.zip) = a7903b48bd27e67f6e82aee328804ab1
diff --git a/editors/uemacs/patches/patch-aa b/editors/uemacs/patches/patch-aa
new file mode 100644
index 00000000000..011756c6577
--- /dev/null
+++ b/editors/uemacs/patches/patch-aa
@@ -0,0 +1,15 @@
+--- Makefile.orig	Wed Mar 25 14:28:24 1998
++++ Makefile	Wed Mar 25 14:41:41 1998
+@@ -0,0 +1,12 @@
++#
++# simple makefile for uemacs 
++#
++
++all:
++	(cd freebsd; make emacs)
++
++install:	all
++	${BSD_INSTALL_PROGRAM} freebsd/emacs ${PREFIX}/bin/uemacs
++	mkdir -p ${PREFIX}/share/uemacs
++	${BSD_INSTALL_DATA} cmd/* ${PREFIX}/share/uemacs
++	mv ${PREFIX}/share/uemacs/emacs.rc ${PREFIX}/share/uemacs/.emacsrc
diff --git a/editors/uemacs/patches/patch-ab b/editors/uemacs/patches/patch-ab
new file mode 100644
index 00000000000..839fa34c9da
--- /dev/null
+++ b/editors/uemacs/patches/patch-ab
@@ -0,0 +1,1257 @@
+--- 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		 |
++	|					 |
++	------------------------------------------
++*/
diff --git a/editors/uemacs/patches/patch-ac b/editors/uemacs/patches/patch-ac
new file mode 100644
index 00000000000..e511ee39a9f
--- /dev/null
+++ b/editors/uemacs/patches/patch-ac
@@ -0,0 +1,25 @@
+--- src/bind.c.orig	Sun Nov 19 03:09:20 1995
++++ src/bind.c	Wed Mar 25 15:00:37 1998
+@@ -634,7 +634,8 @@
+ 	register char *sp;	/* pointer into path spec */
+ 	register int i; 	/* index */
+ 	static char fspec[NFILEN];	/* full path spec to search */
+-
++        char patha[NFILEN];
++        
+ 	/* if we have an absolute path.. check only there! */
+ 	sp = fname;
+ 	while (*sp) {
+@@ -689,9 +690,11 @@
+ #if OS2
+ 	path = getenv("DPATH");
+ #else
+-	path = getenv("PATH");
++	strncpy(patha, getenv("PATH"), NFILEN - 25);
++        strcat(patha, ":%%PREFIX%%/share/uemacs");
+ #endif
+ #endif
++        path = patha;
+ 	if (path != NULL)
+ 		while (*path) {
+ 
diff --git a/editors/uemacs/patches/patch-ad b/editors/uemacs/patches/patch-ad
new file mode 100644
index 00000000000..ac37d423030
--- /dev/null
+++ b/editors/uemacs/patches/patch-ad
@@ -0,0 +1,20 @@
+--- src/lock.c.orig	Sun Nov 19 03:09:22 1995
++++ src/lock.c	Wed Mar 25 13:56:13 1998
+@@ -10,10 +10,17 @@
+ 
+ #if	FILOCK
+ 
++#if BSD
++#undef BSD
++#include <sys/param.h>
++#endif
++
+ #if	BSD || FREEBSD || WMCS || SUN || XENIX || HPUX8 || HPUX9 || AVIION || USG || AIX || AUX
+ #include <sys/errno.h>
++#if !(defined(BSD) && (BSD >= 199103))
+ extern int sys_nerr;		/* number of system error messages defined */
+ extern char *sys_errlist[];	/* list of message texts */
++#endif
+ #endif
+ 
+ #if	MSC
diff --git a/editors/uemacs/patches/patch-ae b/editors/uemacs/patches/patch-ae
new file mode 100644
index 00000000000..0d567efcbbc
--- /dev/null
+++ b/editors/uemacs/patches/patch-ae
@@ -0,0 +1,12 @@
+--- h/epath.h.orig	Sun Nov 19 03:09:52 1995
++++ h/epath.h	Wed Mar 25 13:57:22 1998
+@@ -68,7 +68,8 @@
+ {
+ 	".emacsrc",
+ 	"emacs.hlp",
+-	"/usr/local/",
++	"/usr/local/share/uemacs/",
++	"/usr/local/lib/uemacs/",
+ 	"/usr/lib/",
+ 	""
+ };
diff --git a/editors/uemacs/patches/patch-af b/editors/uemacs/patches/patch-af
new file mode 100644
index 00000000000..714cfa903fd
--- /dev/null
+++ b/editors/uemacs/patches/patch-af
@@ -0,0 +1,13 @@
+--- freebsd/makefile.orig	Sat Nov 18 13:19:02 1995
++++ freebsd/makefile	Wed Mar 25 15:07:14 1998
+@@ -14,8 +14,8 @@
+ 
+ # options and arguments to the C compiler
+ 
+-#CFLAGS += -I. -I$(HDIR)
+-CFLAGS = -O -I. -I$(HDIR)
++CFLAGS += -I. -I$(HDIR)
++#CFLAGS = -O -I. -I$(HDIR)
+ 
+ # list of header files
+ 
diff --git a/editors/uemacs/patches/patch-ag b/editors/uemacs/patches/patch-ag
new file mode 100644
index 00000000000..b595477251e
--- /dev/null
+++ b/editors/uemacs/patches/patch-ag
@@ -0,0 +1,25 @@
+--- src/unix.c.orig	Sat Nov 13 14:57:12 1999
++++ src/unix.c	Sat Nov 13 15:04:45 1999
+@@ -816,9 +816,19 @@
+ 		exit(1);
+ 	}
+ 
+-	/* Get size from termcap */
+-	term.t_nrow = tgetnum("li") - 1;
+-	term.t_ncol = tgetnum("co");
++	/*
++	 * If LINES and/or COLUMNS are set in the environment then use those
++	 * values, otherwise get them from termcap.
++	 */
++	if ((cp = getenv("LINES")) == NULL || sscanf(cp, "%d",
++	    &term.t_nrow) != 1)
++		term.t_nrow = tgetnum("li");
++	term.t_nrow -= 1;
++
++	if ((cp = getenv("COLUMNS")) == NULL || sscanf(cp, "%d",
++	    &term.t_ncol) != 1)
++		term.t_ncol = tgetnum("co");
++
+ 	if (term.t_nrow < 3 || term.t_ncol < 3) {
+ 		puts("Screen size is too small!");
+ 		exit(1);
diff --git a/editors/uemacs/pkg/COMMENT b/editors/uemacs/pkg/COMMENT
new file mode 100644
index 00000000000..d59bb107749
--- /dev/null
+++ b/editors/uemacs/pkg/COMMENT
@@ -0,0 +1 @@
+A full screen editor
diff --git a/editors/uemacs/pkg/DESCR b/editors/uemacs/pkg/DESCR
new file mode 100644
index 00000000000..ce0eed580f2
--- /dev/null
+++ b/editors/uemacs/pkg/DESCR
@@ -0,0 +1,17 @@
+	MicroEMACS is a tool for creating and changing documents,
+programs, and other text files. It is both relatively easy for the
+novice to use, but also very powerful in the hands of an expert.
+MicroEMACS can be extensively customized for the needs of the individual
+user.
+
+	MicroEMACS allows several files to be edited at the same time.
+The screen can be split into different windows and screens, and text may
+be moved freely from one window on any screen to the next. Depending on
+the type of file being edited, MicroEMACS can change how it behaves to
+make editing simple. Editing standard text files, program files and
+word processing documents are all possible at the same time.
+
+	There are extensive capabilities to make word processing and
+editing easier. These include commands for string searching and
+replacing, paragraph reformatting and deleting, automatic word wrapping,
+word move and deletes, easy case controlling, and automatic word counts.
diff --git a/editors/uemacs/pkg/PLIST b/editors/uemacs/pkg/PLIST
new file mode 100644
index 00000000000..655d0208f5f
--- /dev/null
+++ b/editors/uemacs/pkg/PLIST
@@ -0,0 +1,22 @@
+bin/uemacs
+share/uemacs/.emacsrc
+share/uemacs/bpage.cmd
+share/uemacs/chklist.ms
+share/uemacs/cpage.cmd
+share/uemacs/cua.cmd
+share/uemacs/dev.cmd
+share/uemacs/ehelp.cmd
+share/uemacs/ehelp1.txt
+share/uemacs/ehelp2.txt
+share/uemacs/epage.cmd
+share/uemacs/error.cmd
+share/uemacs/filter.cmd
+share/uemacs/lpage.cmd
+share/uemacs/mdi.cmd
+share/uemacs/mewin.cmd
+share/uemacs/newpage.cmd
+share/uemacs/opage.cmd
+share/uemacs/ppage.cmd
+share/uemacs/shell.cmd
+share/uemacs/wpage.cmd
+@dirrm share/uemacs