MicroEMACS UNIX-PC patchkit part 2 of 2
Floyd Davidson
floydd at attctc.Dallas.TX.US
Fri Nov 17 17:59:30 AEST 1989
# This is part 2 of 2 of the patch kit for MicroEMACS on the UNIX-PC.
# This shar file contains: emacs.pat
#
#
#----- cut here -----
#!/bin/sh
#
# TO EXTRACT: remove the header and type "sh filename"
#
#
if `test ! -s ./emacs.pat`
then
echo "\nWriting ./emacs.pat"
echo "Original file: 35535 Nov 11 15:06 ./emacs.pat"
cat > ./emacs.pat << '!rebmevoN!9891!'
*** ebind.h- distribution file
--- ebind.h patched file
***************
*** 167,170 ****
--- 167,171 ----
#endif
+ #ifndef UNIXPC
{ALTD|'S', BINDFNC, forwhunt},
{ALTD|'R', BINDFNC, backhunt},
***************
*** 195,198 ****
--- 196,200 ----
{SPEC|SHFT|'9', BINDFNC, cbuf9},
{SPEC|SHFT|'0', BINDFNC, cbuf10},
+ #endif /* UNIXPC */
#if HP150
***************
*** 326,330 ****
SPEC|0x9F, BINDFNC, usebuffer, /* ^GoTo */
#endif
!
{0x7F, BINDFNC, backdel},
--- 328,374 ----
SPEC|0x9F, BINDFNC, usebuffer, /* ^GoTo */
#endif
! #ifdef UNIXPC
! {SPEC|'1', BINDFNC, ctlxe}, /* F1 */
! {SPEC|'2', BINDFNC, ctlxlp}, /* F2 */
! {SPEC|'3', BINDFNC, ctlxrp}, /* F3 */
! /* {SPEC|'4', BINDFNC, backsent}, /* F4 */
! /* {SPEC|'5', BINDFNC, forwsent}, /* F5 */
! /* {SPEC|'6', BINDFNC, delbsent}, /* F6 */
! /* {SPEC|'7', BINDFNC, delfsent}, /* F7 */
! {SPEC|'8', BINDFNC, ctrlg}, /* F8 */
! {SPEC|'A', BINDFNC, gotobob}, /* Clear/Rfrsh */
! {SPEC|'B', BINDFNC, gotobol}, /* Beg */
! {SPEC|'C', BINDFNC, killregion}, /* Move */
! {SPEC|'D', BINDFNC, copyregion}, /* Copy */
! {SPEC|'E', BINDFNC, backdel}, /* Dlete */
! {SPEC|'F', BINDFNC, forwdel}, /* DleteChar */
! {SPEC|'G', BINDFNC, backword}, /* Prev */
! {SPEC|'H', BINDFNC, forwword}, /* Next */
! {SPEC|'I', BINDFNC, delbword}, /* Slect/Mark */
! {SPEC|'J', BINDFNC, delfword}, /* InputMode */
! {SPEC|'K', BINDFNC, backchar}, /* Leftarrow */
! {SPEC|'L', BINDFNC, forwchar}, /* RghtArrow */
! {SPEC|'M', BINDFNC, gotoeob}, /* Home */
! {SPEC|'N', BINDFNC, gotoeol}, /* End */
! {SPEC|'O', BINDFNC, reposition}, /* ClearLine */
! {SPEC|'P', BINDFNC, refresh}, /* Rstrt/Ref */
! {SPEC|'Q', BINDFNC, spawncli}, /* Exit */
! {SPEC|'S', BINDFNC, help}, /* Help */
! {SPEC|'T', BINDFNC, filewrite}, /* Creat */
! {SPEC|'U', BINDFNC, filesave}, /* Save */
! {SPEC|'X', BINDFNC, deskey}, /* Opts */
! {SPEC|'Y', BINDFNC, yank}, /* Undo */
! {SPEC|'Z', BINDFNC, filewrite}, /* Redo */
! {SPEC|'a', BINDFNC, namedcmd}, /* Cmd */
! {SPEC|'b', BINDFNC, spawn}, /* Close/Open */
! {SPEC|'c', BINDFNC, ctrlg}, /* Cancl */
! {SPEC|'d', BINDFNC, backhunt}, /* Find */
! {SPEC|'e', BINDFNC, forwhunt}, /* Rplac */
! {SPEC|'f', BINDFNC, backpage}, /* Print */
! {SPEC|'g', BINDFNC, backline}, /* UpArrow */
! {SPEC|'h', BINDFNC, forwline}, /* DownArrow */
! {SPEC|'i', BINDFNC, forwpage}, /* Page */
! #endif /* UNIXPC */
!
{0x7F, BINDFNC, backdel},
*** estruct.h- distribution file
--- estruct.h patched file
***************
*** 44,48 ****
#define V7 0 /* V7 UNIX or Coherent or BSD4.2*/
#define BSD 0 /* UNIX BSD 4.2 and ULTRIX */
! #define USG 0 /* UNIX system V */
#define XENIX 0 /* IBM-PC SCO XENIX */
#define SUN 0 /* SUN v4.0 */
--- 44,48 ----
#define V7 0 /* V7 UNIX or Coherent or BSD4.2*/
#define BSD 0 /* UNIX BSD 4.2 and ULTRIX */
! #define USG 1 /* UNIX system V */
#define XENIX 0 /* IBM-PC SCO XENIX */
#define SUN 0 /* SUN v4.0 */
***************
*** 55,59 ****
/* Compiler definitions */
/* [Set one of these!!] */
! #define UNIX 0 /* a random UNIX compiler */
#define MWC 0 /* Mark Williams C */
#define ALCYON 0 /* ALCYON Atari ST compiler */
--- 55,60 ----
/* Compiler definitions */
/* [Set one of these!!] */
! #define UNIX 1 /* a random UNIX compiler */
! #define GCC 1 /* a non-random UNIX compiler (set UNIX=1 also) */
#define MWC 0 /* Mark Williams C */
#define ALCYON 0 /* ALCYON Atari ST compiler */
***************
*** 79,82 ****
--- 80,84 ----
/* Special keyboard/network definitions */
+ #define UNIXPC 1 /* AT&T Unix-Pc 7300/3b1 */
#define WANGPC 0 /* WangPC - mostly escape sequences */
#define VT100 0 /* Handle VT100 style keypad. */
***************
*** 93,97 ****
#define VT52 0 /* VT52 terminal (Zenith). */
#define RAINBOW 0 /* Use Rainbow fast video. */
! #define TERMCAP 0 /* Use TERMCAP */
#define IBMPC 0 /* IBM-PC CGA/MONO/EGA/VGA drvr */
#define OS2NPM 0 /* OS/2 non-Presentation Mgr. */
--- 95,99 ----
#define VT52 0 /* VT52 terminal (Zenith). */
#define RAINBOW 0 /* Use Rainbow fast video. */
! #define TERMCAP 1 /* Use TERMCAP */
#define IBMPC 0 /* IBM-PC CGA/MONO/EGA/VGA drvr */
#define OS2NPM 0 /* OS/2 non-Presentation Mgr. */
***************
*** 131,135 ****
#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 */
--- 133,137 ----
#define REVSTA 1 /* Status line appears in reverse video */
! #define COLOR 0 /* color commands and windows */
#define FILOCK 0 /* file locking under unix BSD 4.2 */
***************
*** 165,169 ****
#else
#ifdef __STDC__
! #define CONST const
#define VOID void
#define NOSHARE
--- 167,175 ----
#else
#ifdef __STDC__
! #if (UNIX && GCC)
! #define CONST const
! #else
! #define CONST
! #endif
#define VOID void
#define NOSHARE
***************
*** 182,186 ****
--- 188,196 ----
#if __STDC__ /* if ANSI C compatible */
+ #if UNIX
+ #define ETYPE struct
+ #else
#define ETYPE union
+ #endif
#else
#define ETYPE struct
*** etype.h- distribution file
--- etype.h patched file
***************
*** 84,391 ****
LINE *PASCAL NEAR lalloc();
LINE *PASCAL NEAR mouseline();
! PASCAL NEAR addline();
! PASCAL NEAR adjustmode();
! PASCAL NEAR anycb();
! PASCAL NEAR apro();
! PASCAL NEAR asc_int();
! PASCAL NEAR backchar();
! PASCAL NEAR backdel();
! PASCAL NEAR backhunt();
! PASCAL NEAR backline();
! PASCAL NEAR backpage();
! PASCAL NEAR backsearch();
! PASCAL NEAR backword();
! PASCAL NEAR bclear();
! PASCAL NEAR bindtokey();
! PASCAL NEAR bktoshell();
! PASCAL NEAR buildlist();
! PASCAL NEAR capword();
! PASCAL NEAR cbuf();
! PASCAL NEAR cbuf1();
! PASCAL NEAR cbuf10();
! PASCAL NEAR cbuf11();
! PASCAL NEAR cbuf12();
! PASCAL NEAR cbuf13();
! PASCAL NEAR cbuf14();
! PASCAL NEAR cbuf15();
! PASCAL NEAR cbuf16();
! PASCAL NEAR cbuf17();
! PASCAL NEAR cbuf18();
! PASCAL NEAR cbuf19();
! PASCAL NEAR cbuf2();
! PASCAL NEAR cbuf20();
! PASCAL NEAR cbuf21();
! PASCAL NEAR cbuf22();
! PASCAL NEAR cbuf23();
! PASCAL NEAR cbuf24();
! PASCAL NEAR cbuf25();
! PASCAL NEAR cbuf26();
! PASCAL NEAR cbuf27();
! PASCAL NEAR cbuf28();
! PASCAL NEAR cbuf29();
! PASCAL NEAR cbuf3();
! PASCAL NEAR cbuf30();
! PASCAL NEAR cbuf31();
! PASCAL NEAR cbuf32();
! PASCAL NEAR cbuf33();
! PASCAL NEAR cbuf34();
! PASCAL NEAR cbuf35();
! PASCAL NEAR cbuf36();
! PASCAL NEAR cbuf37();
! PASCAL NEAR cbuf38();
! PASCAL NEAR cbuf39();
! PASCAL NEAR cbuf4();
! PASCAL NEAR cbuf40();
! PASCAL NEAR cbuf5();
! PASCAL NEAR cbuf6();
! PASCAL NEAR cbuf7();
! PASCAL NEAR cbuf8();
! PASCAL NEAR cbuf9();
! PASCAL NEAR cex();
! PASCAL NEAR cinsert();
! PASCAL NEAR clean();
! PASCAL NEAR clrmes();
! PASCAL NEAR cmdstr();
! PASCAL NEAR copyregion();
! PASCAL NEAR crypt();
! PASCAL NEAR ctlxe();
! PASCAL NEAR ctlxlp();
! PASCAL NEAR ctlxrp();
! PASCAL NEAR ctoec();
! PASCAL NEAR ctrlg();
! PASCAL NEAR dcline();
! PASCAL NEAR deblank();
! PASCAL NEAR debug();
! PASCAL NEAR delbword();
! PASCAL NEAR delfword();
! PASCAL NEAR delgmode();
! PASCAL NEAR delins();
! PASCAL NEAR delmode();
! PASCAL NEAR delwind();
! PASCAL NEAR desbind();
! PASCAL NEAR deskey();
! PASCAL NEAR detab();
! PASCAL NEAR dobuf();
! PASCAL NEAR docmd();
! PASCAL NEAR dofile();
! PASCAL NEAR ectoc();
! PASCAL NEAR edinit();
! PASCAL NEAR editloop();
! PASCAL NEAR endword();
! PASCAL NEAR enlargewind();
! PASCAL NEAR entab();
! PASCAL NEAR execbuf();
! PASCAL NEAR execcmd();
! PASCAL NEAR execfile();
! PASCAL NEAR execprg();
! PASCAL NEAR execproc();
! PASCAL NEAR execprog();
! PASCAL NEAR execute();
! PASCAL NEAR expandp();
! PASCAL NEAR ffclose();
! PASCAL NEAR ffgetline();
! PASCAL NEAR ffputline();
! PASCAL NEAR ffropen();
! PASCAL NEAR ffwopen();
! PASCAL NEAR filefind();
! PASCAL NEAR filename();
! PASCAL NEAR fileread();
! PASCAL NEAR filesave();
! PASCAL NEAR filewrite();
! PASCAL NEAR fillpara();
! PASCAL NEAR filter();
! PASCAL NEAR findvar();
! PASCAL NEAR fmatch();
! PASCAL NEAR fnclabel();
! PASCAL NEAR forwchar();
! PASCAL NEAR forwdel();
! PASCAL NEAR forwhunt();
! PASCAL NEAR forwline();
! PASCAL NEAR forwpage();
! PASCAL NEAR forwsearch();
! PASCAL NEAR forwword();
! PASCAL NEAR freewhile();
! PASCAL NEAR getccol();
! PASCAL NEAR getcline();
! PASCAL NEAR getcmd();
! PASCAL NEAR getfence();
! PASCAL NEAR getfile();
! PASCAL NEAR getgoal();
! PASCAL NEAR getregion();
! PASCAL NEAR getstring();
! PASCAL NEAR gotobob();
! PASCAL NEAR gotobol();
! PASCAL NEAR gotobop();
! PASCAL NEAR gotoeob();
! PASCAL NEAR gotoeol();
! PASCAL NEAR gotoeop();
! PASCAL NEAR gotoline();
! PASCAL NEAR gotomark();
! PASCAL NEAR help();
! PASCAL NEAR ifile();
! PASCAL NEAR indent();
! PASCAL NEAR initchars();
! PASCAL NEAR insbrace();
! PASCAL NEAR insfile();
! PASCAL NEAR inspound();
! PASCAL NEAR insspace();
! PASCAL NEAR inword();
! PASCAL NEAR isearch();
! PASCAL NEAR ismodeline();
! PASCAL NEAR istring();
! PASCAL NEAR kdelete();
! PASCAL NEAR killbuffer();
! PASCAL NEAR killpara();
! PASCAL NEAR killregion();
! PASCAL NEAR killtext();
! PASCAL NEAR kinsert();
! PASCAL NEAR lchange();
! PASCAL NEAR ldelete();
! PASCAL NEAR ldelnewline();
! PASCAL NEAR lfree();
! PASCAL NEAR linsert();
! PASCAL NEAR linstr();
! PASCAL NEAR listbuffers();
! PASCAL NEAR lnewline();
! PASCAL NEAR long_asc();
! PASCAL NEAR lover();
! PASCAL NEAR lowerregion();
! PASCAL NEAR lowerword();
! PASCAL NEAR lowrite();
! PASCAL NEAR macarg();
! PASCAL NEAR macrotokey();
! PASCAL NEAR makelist();
! PASCAL NEAR makelit();
! PASCAL NEAR mcclear();
! PASCAL NEAR meexit();
! PASCAL NEAR meta();
! PASCAL NEAR mlerase();
! PASCAL NEAR mlforce();
! PASCAL NEAR mlout();
! PASCAL NEAR mlputf();
! PASCAL NEAR mlputi();
! PASCAL NEAR mlputli();
! PASCAL NEAR mlputs();
! PASCAL NEAR mlreply();
! PASCAL NEAR mltreply();
! PASCAL NEAR mlyesno();
! PASCAL NEAR modeline();
! PASCAL NEAR mouseoffset();
! PASCAL NEAR movecursor();
! PASCAL NEAR movemd();
! PASCAL NEAR movemu();
! PASCAL NEAR mregdown();
! PASCAL NEAR mregup();
! PASCAL NEAR mvdnwind();
! PASCAL NEAR mvupwind();
! PASCAL NEAR namebuffer();
! PASCAL NEAR namedcmd();
! PASCAL NEAR narrow();
! PASCAL NEAR newline();
! PASCAL NEAR newsize();
! PASCAL NEAR newwidth();
! PASCAL NEAR nextarg();
! PASCAL NEAR nextbuffer();
! PASCAL NEAR nextdown();
! PASCAL NEAR nextup();
! PASCAL NEAR nextwind();
! PASCAL NEAR nullproc();
! PASCAL NEAR onlywind();
! PASCAL NEAR openline();
! PASCAL NEAR ostring();
! PASCAL NEAR outstring();
! PASCAL NEAR ovstring();
! PASCAL NEAR pipecmd();
! PASCAL NEAR prevwind();
! PASCAL NEAR putctext();
! PASCAL NEAR putline();
! PASCAL NEAR qreplace();
! PASCAL NEAR quickexit();
! PASCAL NEAR quit();
! PASCAL NEAR quote();
! PASCAL NEAR rdonly();
! PASCAL NEAR readin();
! PASCAL NEAR reform();
! PASCAL NEAR reframe();
! PASCAL NEAR refresh();
! PASCAL NEAR reposition();
! PASCAL NEAR resetkey();
! PASCAL NEAR resize();
! PASCAL NEAR resizm();
! PASCAL NEAR resterr();
! PASCAL NEAR restwnd();
! PASCAL NEAR rmcclear();
! PASCAL NEAR rmcstr();
! PASCAL NEAR rvstrcpy();
! PASCAL NEAR savematch();
! PASCAL NEAR savewnd();
! PASCAL NEAR scwrite();
! PASCAL NEAR setbit();
! PASCAL NEAR setccol();
! PASCAL NEAR setekey();
! PASCAL NEAR setfillcol();
! PASCAL NEAR setgmode();
! PASCAL NEAR setjtable();
! PASCAL NEAR setmark();
! PASCAL NEAR setmod();
! PASCAL NEAR shellprog();
! PASCAL NEAR showcpos();
! PASCAL NEAR shrinkwind();
! PASCAL NEAR spal();
! PASCAL NEAR spawn();
! PASCAL NEAR spawncli();
! PASCAL NEAR splitwind();
! PASCAL NEAR sreplace();
! PASCAL NEAR startup();
! PASCAL NEAR storemac();
! PASCAL NEAR storeproc();
! PASCAL NEAR strinc();
! PASCAL NEAR swapmark();
! PASCAL NEAR swbuffer();
! PASCAL NEAR tab();
! PASCAL NEAR trim();
! PASCAL NEAR ttclose();
! PASCAL NEAR ttflush();
! PASCAL NEAR ttgetc();
! PASCAL NEAR ttopen();
! PASCAL NEAR ttputc();
! PASCAL NEAR twiddle();
! PASCAL NEAR typahead();
! PASCAL NEAR unarg();
! PASCAL NEAR unbindchar();
! PASCAL NEAR unbindkey();
! PASCAL NEAR unmark();
! PASCAL NEAR unqname();
! PASCAL NEAR updall();
! PASCAL NEAR update();
! PASCAL NEAR updateline();
! PASCAL NEAR upddex();
! PASCAL NEAR updext();
! PASCAL NEAR updgar();
! PASCAL NEAR updone();
! PASCAL NEAR updpos();
! PASCAL NEAR updupd();
! PASCAL NEAR upmode();
! PASCAL NEAR upperregion();
! PASCAL NEAR upperword();
! PASCAL NEAR upscreen();
! PASCAL NEAR upwind();
! PASCAL NEAR usebuffer();
! PASCAL NEAR varclean();
! PASCAL NEAR varinit();
! PASCAL NEAR viewfile();
! PASCAL NEAR vteeol();
! PASCAL NEAR vtfree();
! PASCAL NEAR vtinit();
! PASCAL NEAR vtmove();
! PASCAL NEAR vtputc();
! PASCAL NEAR vttidy();
! PASCAL NEAR widen();
! PASCAL NEAR wordcount();
! PASCAL NEAR wrapword();
! PASCAL NEAR writemsg();
! PASCAL NEAR writeout();
! PASCAL NEAR yank();
! PASCAL NEAR zotbuf();
unsigned int PASCAL NEAR chcase();
unsigned int PASCAL NEAR getckey();
--- 84,391 ----
LINE *PASCAL NEAR lalloc();
LINE *PASCAL NEAR mouseline();
! int PASCAL NEAR addline();
! int PASCAL NEAR adjustmode();
! int PASCAL NEAR anycb();
! int PASCAL NEAR apro();
! int PASCAL NEAR asc_int();
! int PASCAL NEAR backchar();
! int PASCAL NEAR backdel();
! int PASCAL NEAR backhunt();
! int PASCAL NEAR backline();
! int PASCAL NEAR backpage();
! int PASCAL NEAR backsearch();
! int PASCAL NEAR backword();
! int PASCAL NEAR bclear();
! int PASCAL NEAR bindtokey();
! int PASCAL NEAR bktoshell();
! int PASCAL NEAR buildlist();
! int PASCAL NEAR capword();
! int PASCAL NEAR cbuf();
! int PASCAL NEAR cbuf1();
! int PASCAL NEAR cbuf10();
! int PASCAL NEAR cbuf11();
! int PASCAL NEAR cbuf12();
! int PASCAL NEAR cbuf13();
! int PASCAL NEAR cbuf14();
! int PASCAL NEAR cbuf15();
! int PASCAL NEAR cbuf16();
! int PASCAL NEAR cbuf17();
! int PASCAL NEAR cbuf18();
! int PASCAL NEAR cbuf19();
! int PASCAL NEAR cbuf2();
! int PASCAL NEAR cbuf20();
! int PASCAL NEAR cbuf21();
! int PASCAL NEAR cbuf22();
! int PASCAL NEAR cbuf23();
! int PASCAL NEAR cbuf24();
! int PASCAL NEAR cbuf25();
! int PASCAL NEAR cbuf26();
! int PASCAL NEAR cbuf27();
! int PASCAL NEAR cbuf28();
! int PASCAL NEAR cbuf29();
! int PASCAL NEAR cbuf3();
! int PASCAL NEAR cbuf30();
! int PASCAL NEAR cbuf31();
! int PASCAL NEAR cbuf32();
! int PASCAL NEAR cbuf33();
! int PASCAL NEAR cbuf34();
! int PASCAL NEAR cbuf35();
! int PASCAL NEAR cbuf36();
! int PASCAL NEAR cbuf37();
! int PASCAL NEAR cbuf38();
! int PASCAL NEAR cbuf39();
! int PASCAL NEAR cbuf4();
! int PASCAL NEAR cbuf40();
! int PASCAL NEAR cbuf5();
! int PASCAL NEAR cbuf6();
! int PASCAL NEAR cbuf7();
! int PASCAL NEAR cbuf8();
! int PASCAL NEAR cbuf9();
! int PASCAL NEAR cex();
! int PASCAL NEAR cinsert();
! int PASCAL NEAR clean();
! int PASCAL NEAR clrmes();
! int PASCAL NEAR cmdstr();
! int PASCAL NEAR copyregion();
! int PASCAL NEAR crypt();
! int PASCAL NEAR ctlxe();
! int PASCAL NEAR ctlxlp();
! int PASCAL NEAR ctlxrp();
! int PASCAL NEAR ctoec();
! int PASCAL NEAR ctrlg();
! int PASCAL NEAR dcline();
! int PASCAL NEAR deblank();
! int PASCAL NEAR debug();
! int PASCAL NEAR delbword();
! int PASCAL NEAR delfword();
! int PASCAL NEAR delgmode();
! int PASCAL NEAR delins();
! int PASCAL NEAR delmode();
! int PASCAL NEAR delwind();
! int PASCAL NEAR desbind();
! int PASCAL NEAR deskey();
! int PASCAL NEAR detab();
! int PASCAL NEAR dobuf();
! int PASCAL NEAR docmd();
! int PASCAL NEAR dofile();
! int PASCAL NEAR ectoc();
! int PASCAL NEAR edinit();
! int PASCAL NEAR editloop();
! int PASCAL NEAR endword();
! int PASCAL NEAR enlargewind();
! int PASCAL NEAR entab();
! int PASCAL NEAR execbuf();
! int PASCAL NEAR execcmd();
! int PASCAL NEAR execfile();
! int PASCAL NEAR execprg();
! int PASCAL NEAR execproc();
! int PASCAL NEAR execprog();
! int PASCAL NEAR execute();
! int PASCAL NEAR expandp();
! int PASCAL NEAR ffclose();
! int PASCAL NEAR ffgetline();
! int PASCAL NEAR ffputline();
! int PASCAL NEAR ffropen();
! int PASCAL NEAR ffwopen();
! int PASCAL NEAR filefind();
! int PASCAL NEAR filename();
! int PASCAL NEAR fileread();
! int PASCAL NEAR filesave();
! int PASCAL NEAR filewrite();
! int PASCAL NEAR fillpara();
! int PASCAL NEAR filter();
! int PASCAL NEAR findvar();
! int PASCAL NEAR fmatch();
! int PASCAL NEAR fnclabel();
! int PASCAL NEAR forwchar();
! int PASCAL NEAR forwdel();
! int PASCAL NEAR forwhunt();
! int PASCAL NEAR forwline();
! int PASCAL NEAR forwpage();
! int PASCAL NEAR forwsearch();
! int PASCAL NEAR forwword();
! int PASCAL NEAR freewhile();
! int PASCAL NEAR getccol();
! int PASCAL NEAR getcline();
! int PASCAL NEAR getcmd();
! int PASCAL NEAR getfence();
! int PASCAL NEAR getfile();
! int PASCAL NEAR getgoal();
! int PASCAL NEAR getregion();
! int PASCAL NEAR getstring();
! int PASCAL NEAR gotobob();
! int PASCAL NEAR gotobol();
! int PASCAL NEAR gotobop();
! int PASCAL NEAR gotoeob();
! int PASCAL NEAR gotoeol();
! int PASCAL NEAR gotoeop();
! int PASCAL NEAR gotoline();
! int PASCAL NEAR gotomark();
! int PASCAL NEAR help();
! int PASCAL NEAR ifile();
! int PASCAL NEAR indent();
! int PASCAL NEAR initchars();
! int PASCAL NEAR insbrace();
! int PASCAL NEAR insfile();
! int PASCAL NEAR inspound();
! int PASCAL NEAR insspace();
! int PASCAL NEAR inword();
! int PASCAL NEAR isearch();
! int PASCAL NEAR ismodeline();
! int PASCAL NEAR istring();
! int PASCAL NEAR kdelete();
! int PASCAL NEAR killbuffer();
! int PASCAL NEAR killpara();
! int PASCAL NEAR killregion();
! int PASCAL NEAR killtext();
! int PASCAL NEAR kinsert();
! int PASCAL NEAR lchange();
! int PASCAL NEAR ldelete();
! int PASCAL NEAR ldelnewline();
! int PASCAL NEAR lfree();
! int PASCAL NEAR linsert();
! int PASCAL NEAR linstr();
! int PASCAL NEAR listbuffers();
! int PASCAL NEAR lnewline();
! int PASCAL NEAR long_asc();
! int PASCAL NEAR lover();
! int PASCAL NEAR lowerregion();
! int PASCAL NEAR lowerword();
! int PASCAL NEAR lowrite();
! int PASCAL NEAR macarg();
! int PASCAL NEAR macrotokey();
! int PASCAL NEAR makelist();
! int PASCAL NEAR makelit();
! int PASCAL NEAR mcclear();
! int PASCAL NEAR meexit();
! int PASCAL NEAR meta();
! int PASCAL NEAR mlerase();
! int PASCAL NEAR mlforce();
! int PASCAL NEAR mlout();
! int PASCAL NEAR mlputf();
! int PASCAL NEAR mlputi();
! int PASCAL NEAR mlputli();
! int PASCAL NEAR mlputs();
! int PASCAL NEAR mlreply();
! int PASCAL NEAR mltreply();
! int PASCAL NEAR mlyesno();
! int PASCAL NEAR modeline();
! int PASCAL NEAR mouseoffset();
! int PASCAL NEAR movecursor();
! int PASCAL NEAR movemd();
! int PASCAL NEAR movemu();
! int PASCAL NEAR mregdown();
! int PASCAL NEAR mregup();
! int PASCAL NEAR mvdnwind();
! int PASCAL NEAR mvupwind();
! int PASCAL NEAR namebuffer();
! int PASCAL NEAR namedcmd();
! int PASCAL NEAR narrow();
! int PASCAL NEAR newline();
! int PASCAL NEAR newsize();
! int PASCAL NEAR newwidth();
! int PASCAL NEAR nextarg();
! int PASCAL NEAR nextbuffer();
! int PASCAL NEAR nextdown();
! int PASCAL NEAR nextup();
! int PASCAL NEAR nextwind();
! int PASCAL NEAR nullproc();
! int PASCAL NEAR onlywind();
! int PASCAL NEAR openline();
! int PASCAL NEAR ostring();
! int PASCAL NEAR outstring();
! int PASCAL NEAR ovstring();
! int PASCAL NEAR pipecmd();
! int PASCAL NEAR prevwind();
! int PASCAL NEAR putctext();
! int PASCAL NEAR putline();
! int PASCAL NEAR qreplace();
! int PASCAL NEAR quickexit();
! int PASCAL NEAR quit();
! int PASCAL NEAR quote();
! int PASCAL NEAR rdonly();
! int PASCAL NEAR readin();
! int PASCAL NEAR reform();
! int PASCAL NEAR reframe();
! int PASCAL NEAR refresh();
! int PASCAL NEAR reposition();
! int PASCAL NEAR resetkey();
! int PASCAL NEAR resize();
! int PASCAL NEAR resizm();
! int PASCAL NEAR resterr();
! int PASCAL NEAR restwnd();
! int PASCAL NEAR rmcclear();
! int PASCAL NEAR rmcstr();
! int PASCAL NEAR rvstrcpy();
! int PASCAL NEAR savematch();
! int PASCAL NEAR savewnd();
! int PASCAL NEAR scwrite();
! int PASCAL NEAR setbit();
! int PASCAL NEAR setccol();
! int PASCAL NEAR setekey();
! int PASCAL NEAR setfillcol();
! int PASCAL NEAR setgmode();
! int PASCAL NEAR setjtable();
! int PASCAL NEAR setmark();
! int PASCAL NEAR setmod();
! int PASCAL NEAR shellprog();
! int PASCAL NEAR showcpos();
! int PASCAL NEAR shrinkwind();
! int PASCAL NEAR spal();
! int PASCAL NEAR spawn();
! int PASCAL NEAR spawncli();
! int PASCAL NEAR splitwind();
! int PASCAL NEAR sreplace();
! int PASCAL NEAR startup();
! int PASCAL NEAR storemac();
! int PASCAL NEAR storeproc();
! int PASCAL NEAR strinc();
! int PASCAL NEAR swapmark();
! int PASCAL NEAR swbuffer();
! int PASCAL NEAR tab();
! int PASCAL NEAR trim();
! int PASCAL NEAR ttclose();
! int PASCAL NEAR ttflush();
! int PASCAL NEAR ttgetc();
! int PASCAL NEAR ttopen();
! int PASCAL NEAR ttputc();
! int PASCAL NEAR twiddle();
! int PASCAL NEAR typahead();
! int PASCAL NEAR unarg();
! int PASCAL NEAR unbindchar();
! int PASCAL NEAR unbindkey();
! int PASCAL NEAR unmark();
! int PASCAL NEAR unqname();
! int PASCAL NEAR updall();
! int PASCAL NEAR update();
! int PASCAL NEAR updateline();
! int PASCAL NEAR upddex();
! int PASCAL NEAR updext();
! int PASCAL NEAR updgar();
! int PASCAL NEAR updone();
! int PASCAL NEAR updpos();
! int PASCAL NEAR updupd();
! int PASCAL NEAR upmode();
! int PASCAL NEAR upperregion();
! int PASCAL NEAR upperword();
! int PASCAL NEAR upscreen();
! int PASCAL NEAR upwind();
! int PASCAL NEAR usebuffer();
! int PASCAL NEAR varclean();
! int PASCAL NEAR varinit();
! int PASCAL NEAR viewfile();
! int PASCAL NEAR vteeol();
! int PASCAL NEAR vtfree();
! int PASCAL NEAR vtinit();
! int PASCAL NEAR vtmove();
! int PASCAL NEAR vtputc();
! int PASCAL NEAR vttidy();
! int PASCAL NEAR widen();
! int PASCAL NEAR wordcount();
! int PASCAL NEAR wrapword();
! int PASCAL NEAR writemsg();
! int PASCAL NEAR writeout();
! int PASCAL NEAR yank();
! int PASCAL NEAR zotbuf();
unsigned int PASCAL NEAR chcase();
unsigned int PASCAL NEAR getckey();
***************
*** 396,402 ****
#if MSDOS & TURBO
! PASCAL NEAR binary(char *, char *(PASCAL NEAR *)(), int);
#else
! PASCAL NEAR binary();
#endif
--- 396,402 ----
#if MSDOS & TURBO
! int PASCAL NEAR binary(char *, char *(PASCAL NEAR *)(), int);
#else
! int PASCAL NEAR binary();
#endif
***************
*** 422,426 ****
CDECL NEAR mlwrite(...);
#else
! CDECL NEAR mlwrite();
#endif
--- 422,426 ----
CDECL NEAR mlwrite(...);
#else
! int CDECL NEAR mlwrite();
#endif
*** evar.h- distribution file
--- evar.h patched file
***************
*** 82,86 ****
"writehook", /* write file hook */
"xpos", /* current mouse X position */
! "ypos" /* current mouse Y position */
};
--- 82,102 ----
"writehook", /* write file hook */
"xpos", /* current mouse X position */
! "ypos", /* current mouse Y position */
! "tlabel1", /* function key 1 label, top line */
! "tlabel2", /* function key 2 label, top line */
! "tlabel3", /* function key 3 label, top line */
! "tlabel4", /* function key 4 label, top line */
! "tlabel5", /* function key 5 label, top line */
! "tlabel6", /* function key 6 label, top line */
! "tlabel7", /* function key 7 label, top line */
! "tlabel8", /* function key 8 label, top line */
! "blabel1", /* function key 1 label, bottom line */
! "blabel2", /* function key 2 label, bottom line */
! "blabel3", /* function key 3 label, bottom line */
! "blabel4", /* function key 4 label, bottom line */
! "blabel5", /* function key 5 label, bottom line */
! "blabel6", /* function key 6 label, bottom line */
! "blabel7", /* function key 7 label, bottom line */
! "blabel8" /* function key 8 label, bottom line */
};
***************
*** 152,155 ****
--- 168,191 ----
#define EVYPOS 61
+ #if UNIXPC
+ #define EVTLABEL1 62
+ #define EVTLABEL2 63
+ #define EVTLABEL3 64
+ #define EVTLABEL4 65
+ #define EVTLABEL5 66
+ #define EVTLABEL6 67
+ #define EVTLABEL7 68
+ #define EVTLABEL8 69
+ #define EVBLABEL1 70
+ #define EVBLABEL2 71
+ #define EVBLABEL3 72
+ #define EVBLABEL4 73
+ #define EVBLABEL5 74
+ #define EVBLABEL6 75
+ #define EVBLABEL7 76
+ #define EVBLABEL8 77
+
+ extern char *setflabel();
+ #endif
/* list of recognized user functions */
*** bind.c- distribution file
--- bind.c patched file
***************
*** 994,998 ****
bindname = getfname(getbind(stock(skey)));
if (bindname == NULL)
! bindname = errorm;
return(bindname);
--- 994,998 ----
bindname = getfname(getbind(stock(skey)));
if (bindname == NULL)
! bindname = (char *PASCAL NEAR) errorm;
return(bindname);
***************
*** 1021,1025 ****
/* set a KEYTAB to the given name of the given type */
! setkey(key, type, name)
KEYTAB *key; /* ptr to key to set */
--- 1021,1025 ----
/* set a KEYTAB to the given name of the given type */
! setakey(key, type, name)
KEYTAB *key; /* ptr to key to set */
*** crypt.c- distribution file
--- crypt.c patched file
***************
*** 34,39 ****
/* and encrypt it */
! crypt((char *)NULL, (unsigned int) 0);
! crypt(key, (unsigned int) strlen(key));
/* and save it off */
--- 34,39 ----
/* and encrypt it */
! krypt((char *)NULL, (unsigned int) 0);
! krypt(key, (unsigned int) strlen(key));
/* and save it off */
***************
*** 136,140 ****
**********/
! PASCAL NEAR crypt(bptr, len)
register char *bptr; /* buffer of characters to be encrypted */
register unsigned len; /* number of characters in the buffer */
--- 136,140 ----
**********/
! PASCAL NEAR krypt(bptr, len)
register char *bptr; /* buffer of characters to be encrypted */
register unsigned len; /* number of characters in the buffer */
*** eval.c- distribution file
--- eval.c patched file
***************
*** 53,57 ****
/* return errorm on a bad reference */
if (fnum == -1)
! return(errorm);
#else
for (fnum = 0; fnum < NFUNCS; fnum++)
--- 53,57 ----
/* return errorm on a bad reference */
if (fnum == -1)
! return((char *PASCAL NEAR)errorm);
#else
for (fnum = 0; fnum < NFUNCS; fnum++)
***************
*** 61,65 ****
/* return errorm on a bad reference */
if (fnum == NFUNCS)
! return(errorm);
#endif
--- 61,65 ----
/* return errorm on a bad reference */
if (fnum == NFUNCS)
! return((char *PASCAL NEAR)errorm);
#endif
***************
*** 67,71 ****
if (funcs[fnum].f_type >= MONAMIC) {
if (macarg(arg1) != TRUE)
! return(errorm);
/* if needed, retrieve the second argument */
--- 67,71 ----
if (funcs[fnum].f_type >= MONAMIC) {
if (macarg(arg1) != TRUE)
! return((char *PASCAL NEAR)errorm);
/* if needed, retrieve the second argument */
***************
*** 72,76 ****
if (funcs[fnum].f_type >= DYNAMIC) {
if (macarg(arg2) != TRUE)
! return(errorm);
/* if needed, retrieve the third argument */
--- 72,76 ----
if (funcs[fnum].f_type >= DYNAMIC) {
if (macarg(arg2) != TRUE)
! return((char *PASCAL NEAR)errorm);
/* if needed, retrieve the third argument */
***************
*** 77,81 ****
if (funcs[fnum].f_type >= TRINAMIC)
if (macarg(arg3) != TRUE)
! return(errorm);
}
}
--- 77,81 ----
if (funcs[fnum].f_type >= TRINAMIC)
if (macarg(arg3) != TRUE)
! return((char *PASCAL NEAR)errorm);
}
}
***************
*** 163,167 ****
for (vnum = 0; vnum < MAXVARS; vnum++) {
if (uv[vnum].u_name[0] == 0)
! return(errorm);
if (strcmp(vname, uv[vnum].u_name) == 0) {
vptr = uv[vnum].u_value;
--- 163,167 ----
for (vnum = 0; vnum < MAXVARS; vnum++) {
if (uv[vnum].u_name[0] == 0)
! return((char *PASCAL NEAR)errorm);
if (strcmp(vname, uv[vnum].u_name) == 0) {
vptr = uv[vnum].u_value;
***************
*** 169,173 ****
return(vptr);
else
! return(errorm);
}
}
--- 169,173 ----
return(vptr);
else
! return((char *PASCAL NEAR)errorm);
}
}
***************
*** 174,178 ****
/* return errorm if we run off the end */
! return(errorm);
}
--- 174,178 ----
/* return errorm if we run off the end */
! return((char *PASCAL NEAR)errorm);
}
***************
*** 240,244 ****
/* return errorm on a bad reference */
if (vnum == -1)
! return(errorm);
#else
for (vnum = 0; vnum < NEVARS; vnum++)
--- 240,244 ----
/* return errorm on a bad reference */
if (vnum == -1)
! return((char *PASCAL NEAR)errorm);
#else
for (vnum = 0; vnum < NEVARS; vnum++)
***************
*** 248,252 ****
/* return errorm on a bad reference */
if (vnum == NEVARS)
! return(errorm);
#endif
--- 248,252 ----
/* return errorm on a bad reference */
if (vnum == NEVARS)
! return((char *PASCAL NEAR)errorm);
#endif
***************
*** 297,301 ****
return(ltos(typahead()));
#else
! return(falsem);
#endif
case EVLWIDTH: return(int_asc(llength(curwp->w_dotp)));
--- 297,301 ----
return(ltos(typahead()));
#else
! return((char *PASCAL NEAR)falsem);
#endif
case EVLWIDTH: return(int_asc(llength(curwp->w_dotp)));
***************
*** 325,328 ****
--- 325,346 ----
case EVMSFLAG: return(ltos(mouseflag));
case EVOCRYPT: return(ltos(oldcrypt));
+ #if UNIXPC
+ case EVTLABEL1: return(setflabel((char *)NULL,0));
+ case EVTLABEL2: return(setflabel((char *)NULL,1));
+ case EVTLABEL3: return(setflabel((char *)NULL,2));
+ case EVTLABEL4: return(setflabel((char *)NULL,3));
+ case EVTLABEL5: return(setflabel((char *)NULL,4));
+ case EVTLABEL6: return(setflabel((char *)NULL,5));
+ case EVTLABEL7: return(setflabel((char *)NULL,6));
+ case EVTLABEL8: return(setflabel((char *)NULL,7));
+ case EVBLABEL1: return(setflabel((char *)NULL,8));
+ case EVBLABEL2: return(setflabel((char *)NULL,9));
+ case EVBLABEL3: return(setflabel((char *)NULL,10));
+ case EVBLABEL4: return(setflabel((char *)NULL,11));
+ case EVBLABEL5: return(setflabel((char *)NULL,12));
+ case EVBLABEL6: return(setflabel((char *)NULL,13));
+ case EVBLABEL7: return(setflabel((char *)NULL,14));
+ case EVBLABEL8: return(setflabel((char *)NULL,15));
+ #endif
}
meexit(-12); /* again, we should never get here */
***************
*** 522,525 ****
--- 540,546 ----
register int c; /* translated character */
register char * sp; /* scratch string pointer */
+ #if UNIXPC
+ void wndwopen();
+ #endif
/* simplify the vd structure (we are gonna look at it a lot) */
***************
*** 632,640 ****
break;
case EVRVAL: break;
! case EVREADHK: setkey(&readhook, BINDFNC, value);
break;
! case EVWRAPHK: setkey(&wraphook, BINDFNC, value);
break;
! case EVCMDHK: setkey(&cmdhook, BINDFNC, value);
break;
case EVXPOS: xpos = asc_int(value);
--- 653,661 ----
break;
case EVRVAL: break;
! case EVREADHK: setakey(&readhook, BINDFNC, value);
break;
! case EVWRAPHK: setakey(&wraphook, BINDFNC, value);
break;
! case EVCMDHK: setakey(&cmdhook, BINDFNC, value);
break;
case EVXPOS: xpos = asc_int(value);
***************
*** 673,681 ****
hjump = term.t_ncol - 1;
break;
! case EVBUFHOOK: setkey(&bufhook, BINDFNC, value);
break;
! case EVEXBHOOK: setkey(&exbhook, BINDFNC, value);
break;
! case EVWRITEHK: setkey(&writehook, BINDFNC, value);
break;
case EVDIAGFLAG:diagflag = stol(value);
--- 694,702 ----
hjump = term.t_ncol - 1;
break;
! case EVBUFHOOK: setakey(&bufhook, BINDFNC, value);
break;
! case EVEXBHOOK: setakey(&exbhook, BINDFNC, value);
break;
! case EVWRITEHK: setakey(&writehook, BINDFNC, value);
break;
case EVDIAGFLAG:diagflag = stol(value);
***************
*** 685,688 ****
--- 706,728 ----
case EVOCRYPT: oldcrypt = stol(value);
break;
+ #if UNIXPC
+ case EVTLABEL1: setflabel(value,0);wndwopen(FALSE);break;
+ case EVTLABEL2: setflabel(value,1);wndwopen(FALSE);break;
+ case EVTLABEL3: setflabel(value,2);wndwopen(FALSE);break;
+ case EVTLABEL4: setflabel(value,3);wndwopen(FALSE);break;
+ case EVTLABEL5: setflabel(value,4);wndwopen(FALSE);break;
+ case EVTLABEL6: setflabel(value,5);wndwopen(FALSE);break;
+ case EVTLABEL7: setflabel(value,6);wndwopen(FALSE);break;
+ case EVTLABEL8: setflabel(value,7);wndwopen(FALSE);break;
+ case EVBLABEL1: setflabel(value,8);wndwopen(FALSE);break;
+ case EVBLABEL2: setflabel(value,9);wndwopen(FALSE);break;
+ case EVBLABEL3: setflabel(value,10);wndwopen(FALSE);break;
+ case EVBLABEL4: setflabel(value,11);wndwopen(FALSE);break;
+ case EVBLABEL5: setflabel(value,12);wndwopen(FALSE);break;
+ case EVBLABEL6: setflabel(value,13);wndwopen(FALSE);break;
+ case EVBLABEL7: setflabel(value,14);wndwopen(FALSE);break;
+ case EVBLABEL8: setflabel(value,15);wndwopen(FALSE);break;
+ #endif
+
}
break;
***************
*** 896,902 ****
{
if (val)
! return(truem);
else
! return(falsem);
}
--- 936,942 ----
{
if (val)
! return((char *PASCAL NEAR)truem);
else
! return((char *PASCAL NEAR)falsem);
}
*** isearch.c- distribution file
--- isearch.c patched file
***************
*** 40,43 ****
--- 40,46 ----
/* some local function type definitions */
+ #if UNIX
+ int
+ #endif
PASCAL NEAR reeat();
*** region.c- distribution file
--- region.c patched file
***************
*** 395,399 ****
/* get the region limits */
if ((s=getregion(®ion)) != TRUE)
! return(errorm);
linep = region.r_linep; /* Current line. */
loffs = region.r_offset; /* Current offset. */
--- 395,399 ----
/* get the region limits */
if ((s=getregion(®ion)) != TRUE)
! return((char *PASCAL NEAR)errorm);
linep = region.r_linep; /* Current line. */
loffs = region.r_offset; /* Current offset. */
*** tcap.c- distribution file
--- tcap.c patched file
***************
*** 162,166 ****
#define TCAPSLEN 1024
char tcapbuf[TCAPSLEN];
! char *UP, PC, *CM, *CE, *CL, *SO, *SE, *IS, *KS, *KE;
TERM term = {
--- 162,166 ----
#define TCAPSLEN 1024
char tcapbuf[TCAPSLEN];
! char *UPP, PCC, *CM, *CE, *CL, *SO, *SE, *IS, *KS, *KE;
TERM term = {
***************
*** 278,282 ****
t = tgetstr("pc", &p);
if (t)
! PC = *t;
CL = tgetstr("cl", &p);
--- 278,282 ----
t = tgetstr("pc", &p);
if (t)
! PCC = *t;
CL = tgetstr("cl", &p);
***************
*** 283,287 ****
CM = tgetstr("cm", &p);
CE = tgetstr("ce", &p);
! UP = tgetstr("up", &p);
SE = tgetstr("se", &p);
SO = tgetstr("so", &p);
--- 283,287 ----
CM = tgetstr("cm", &p);
CE = tgetstr("ce", &p);
! UPP = tgetstr("up", &p);
SE = tgetstr("se", &p);
SO = tgetstr("so", &p);
***************
*** 289,293 ****
revexist = TRUE;
! if (CL == NULL || CM == NULL || UP == NULL)
{
puts(TEXT186);
--- 289,293 ----
revexist = TRUE;
! if (CL == NULL || CM == NULL || UPP == NULL)
{
puts(TEXT186);
*** window.c- distribution file
--- window.c patched file
***************
*** 30,34 ****
*/
PASCAL NEAR refresh(f, n)
! {
if (f == FALSE)
sgarbf = TRUE;
--- 30,36 ----
*/
PASCAL NEAR refresh(f, n)
! {
! extern void wndwopen();
!
if (f == FALSE)
sgarbf = TRUE;
***************
*** 38,41 ****
--- 40,46 ----
curwp->w_flag |= WFFORCE;
}
+ #if UNIXPC
+ wndwopen(FALSE); /* refresh the fkey labels too */
+ #endif
return (TRUE);
*** exit
!rebmevoN!9891!
else
echo "\nWill not over write ./emacs.pat"
fi
ls -l ./emacs.pat
#
echo "\nPart 2 Finished...\n"
More information about the Unix-pc.sources
mailing list