floydd@attctc.Dallas.TX.US (Floyd Davidson) (11/17/89)
# 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"