[comp.emacs] JOVE on iIBM-RS/6000

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.