juices@jhunix.hcf.jhu.edu (Michael A Guttman) (01/18/91)
RPaul, I don't know how to make patch files so I'm just listing our diffs. At the end, there is a "jove.rc" file that makes the IBM hft keyboard work. Mike ************************************************************************* Here are the diffs: ############################################# Makefile ############################################# 32c32 < JOVEHOME = /local --- > JOVEHOME = /usr/local 36,37c36,37 < MANDIR = $(JOVEHOME)/man/man$(MANEXT) < MANEXT = 1 --- > MANDIR = /usr/man/man$(MANEXT) > MANEXT = l 65c65 < LIBS = -ltermcap --- > LIBS = -lcurses 95c95,96 < SYSDEFS = --- > # [I'm not sure that UNIX, SYSV and SVR3 are all necessary - MAG] > SYSDEFS = -DUNIX -DSYSV -DSVR3 -D_NO_PROTO -DBSD_DIR -D_BSD -D_BSD_INCLUDES -DAIX 103c104 < CFLAGS = -O $(SYSDEFS) --- > CFLAGS = -O -w $(SYSDEFS) ############################################# jove.c ############################################# 705c705 < if (HZ) --- > if (HAZ) ############################################# recover.c ############################################# 40c40 < extern void UNMACRO(perror) proto((const char *)); --- > /*extern void UNMACRO(perror) proto((const char *));*/ ############################################# screen.c ############################################# 370c370 < } else if (HZ && c == '~') { --- > } else if (HAZ && c == '~') { 472c472 < } else if (HZ && c == '~') { --- > } else if (HAZ && c == '~') { ############################################# sysdep.h ############################################# 106a107,109 > #ifdef AIX > # define HAVE_GETWD > #endif ############################################# term.c ############################################# 82c82 < HZ, /* Hazeltine tilde kludge */ --- > HAZ, /* Hazeltine tilde kludge */ 89c89 < #ifdef notdef --- > #ifdef UNIX /*notdef*/ 96a97 > char *BC, *UP; 168,169c169,170 < if ((HZ = tgetflag("hz")) == -1) < HZ = 0; /* Hazeltine tilde kludge */ --- > if ((HAZ = tgetflag("hz")) == -1) > HAZ = 0; /* Hazeltine tilde kludge */ ############################################# termcap.h ############################################# 58c58 < HZ, /* Hazeltine tilde kludge */ --- > HAZ, /* Hazeltine tilde kludge */ ************************************************************************** Here is the jove.rc file: auto-execute-command auto-fill-mode /tmp/Re\|/tmp/article\|.*\.tex$ auto-execute-command show-match .*\.[lchyf]$\|.*\.lisp$\|.*\.scm$ auto-execute-command c-mode .*\.[chy]$ auto-execute-command lisp-mode .*\.l$\|.*\.lisp$\|.*\.scm$ bind-to-key pause-jove ^[S bind-to-key pause-jove ^[s bind-to-key list-processes ^X^L set process-prompt ^[^%$#]*[%$#] set meta-key on set make-backup-files on set allow-^S-and-^Q on process-bind-to-key interrupt-process ^C process-bind-to-key process-newline ^M make-keymap ansi-codes bind-keymap-to-key ansi-codes ^[[ bind-to-key previous-line ^[[A bind-to-key next-line ^[[B bind-to-key forward-character ^[[C bind-to-key backward-character ^[[D # Stuff added for IBM terminal (MAG): bind-to-key kill-previous-word ^[^H bind-to-key delete-next-character ^[[P bind-to-key beginning-of-line ^[[H # It doesn't work without nesting the key maps. make-keymap dummy1 bind-keymap-to-key dummy1 ^[[1 make-keymap dummy2 bind-keymap-to-key dummy2 ^[[14 make-keymap dummy3 bind-keymap-to-key dummy3 ^[[15 make-keymap dummy4 bind-keymap-to-key dummy4 ^[[16 make-keymap dummy5 bind-keymap-to-key dummy5 ^[[0 make-keymap dummy6 bind-keymap-to-key dummy6 ^[[00 make-keymap hft-end bind-keymap-to-key hft-end ^[[146 bind-to-key end-of-line ^[[146q make-keymap hft-pgdn bind-keymap-to-key hft-pgdn ^[[154 bind-to-key next-page ^[[154q make-keymap hft-pgup bind-keymap-to-key hft-pgup ^[[150 bind-to-key previous-page ^[[150q make-keymap hft-C-leftarrow bind-keymap-to-key hft-C-leftarrow ^[[159 bind-to-key backward-word ^[[159q make-keymap hft-C-rightarrow bind-keymap-to-key hft-C-rightarrow ^[[168 bind-to-key forward-word ^[[168q make-keymap hft-C-uparrow bind-keymap-to-key hft-C-uparrow ^[[162 bind-to-key backward-paragraph ^[[162q make-keymap hft-C-downarrow bind-keymap-to-key hft-C-downarrow ^[[165 bind-to-key forward-paragraph ^[[165q make-keymap hft-C-del bind-keymap-to-key hft-C-del ^[[142 bind-to-key kill-next-word ^[[142q # Function keys are ^[[001q, ^[[002q, etc.