Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!nrl-cmf!ames!pasteur!ucbvax!decwrl!hplabs!hpda!hpsemc!bd
From: bd@hpsemc.HP.COM (bob desinger)
Newsgroups: comp.sys.hp
Subject: Re: GNUemacs and HP2392
Message-ID: <1250005@hpsemc.HP.COM>
Date: 11 May 88 00:55:14 GMT
References: <4698@batcomputer.tn.cornell.edu>
Organization: HP Technology Access Center, Cupertino, CA
Lines: 173

Rohit Aggarwal (rohit@hpindda.HP.COM) writes:
> 	In the same area does anyone have a terminal-emulator for
> 	hp2392 that works in gnumacs?

I'm not sure what you mean.  Do you mean "can someone please tell me
how to work the M-x shell command?"  If so, I found that `M-x shell'
finally worked under 18.50 but not on previous versions of Gnu Emacs.

To answer the original question, I have in my .emacs file a line of:
	
	(load "local/hp")		; DWIM with C-h and DEL

In /usr/local/emacs/lisp/local/hp.el, we have the file below.  Unwrap
according to the directions, install in the right place, and your
keypad editing keys will all work.  (You'll also have Backspace mapped
to DEL and vice-versa, at a level lower than Emacs knows about it.)
This doesn't know about function-keys, however, unlike the previous
posting.

Oh, yes, the file contains control characters so it's uuencoded.
The format below is compatible with uudecode, but you won't need
it to unpack this.

-- bd

#! /bin/sh
# This is a shell archive.  Remove anything before this line,
# then unwrap it by saving it in a file and typing "sh file".
#
# Wrapped by bd at hpsemc on Tue May 10 17:51:09 1988
# Contents:
#	hp.el 	

PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:$PATH; export PATH
echo 'At the end, you should see the message "End of shell archive."'


echo Compiling the unpacker for files containing control characters
pwd=`pwd`; cd /tmp
cat >unpack$$.c <<'E*O*F'
#include <stdio.h>
#define DEC(c)	(((c) - ' ') & 077)
main()
{
	int n;
	char dest[128], a,b,c,d;

	scanf("begin %o ", &n);
	gets(dest);

	if (freopen(dest, "w", stdout) == NULL) {
		perror(dest);
		exit(1);
	}

	while ((n=getchar()) != EOF && (n=DEC(n)) != 0)  {
		while (n>0) {
			a = DEC(getchar());
			b = DEC(getchar());
			c = DEC(getchar());
			d = DEC(getchar());
			if (n-- > 0) putchar(a << 2 | b >> 4);
			if (n-- > 0) putchar(b << 4 | c >> 2);
			if (n-- > 0) putchar(c << 6 | d);
		}
		n=getchar();
	}
	exit(0);
}
E*O*F
cc -o unpack$$ unpack$$.c && rm unpack$$.c
cd $pwd

echo Extracting hp.el '[contains control characters]'
/tmp/unpack$$ <<'@eof'
begin 664 hp.el
M.SL[('1E<FTO:' N96P@+2!-86ME<R!(4"!T97)M:6YA;"!F=6YC=&EO;B!K
M97ES('=O<FLL(&EN=&5R8VAA;F=E<PH[.SL@1$5,(&%N9"!"04-+4U!!0T4L
M(&%N9"!B<F5A:W,@87,@9F5W(&]T:&5R('1H:6YG<R!A<R!P;W-S:6)L92X*
M"CL[.R @0V]P>7)I9VAT("A#*2 Q.3@U+" Q.3@V+" Q.3@W($9R964@4V]F
M='=A<F4@1F]U;F1A=&EO;@H*.SL@1TY5($5M86-S(&ES(&1I<W1R:6)U=&5D
M(&EN('1H92!H;W!E('1H870@:70@=VEL;"!B92!U<V5F=6PL"CL[(&)U="!W
M:71H;W5T(&%N>2!W87)R86YT>2X@($YO(&%U=&AO<B!O<B!D:7-T<FEB=71O
M<@H[.R!A8V-E<'1S(')E<W!O;G-I8FEL:71Y('1O(&%N>6]N92!F;W(@=&AE
M(&-O;G-E<75E;F-E<R!O9B!U<VEN9R!I= H[.R!O<B!F;W(@=VAE=&AE<B!I
M="!S97)V97,@86YY('!A<G1I8W5L87(@<'5R<&]S92!O<B!W;W)K<R!A="!A
M;&PL"CL[('5N;&5S<R!H92!S87ES('-O(&EN('=R:71I;F<N"@H[.R!%=F5R
M>6]N92!I<R!G<F%N=&5D('!E<FUI<W-I;VX@=&\@8V]P>2P@;6]D:69Y(&%N
M9"!R961I<W1R:6)U=&4*.SL@1TY5($5M86-S+"!B=70@;VYL>2!U;F1E<B!T
M:&4@8V]N9&ET:6]N<R!D97-C<FEB960@:6X@=&AE"CL[(&1O8W5M96YT(")'
M3E4@16UA8W,@8V]P>6EN9R!P97)M:7-S:6]N(&YO=&EC92(N(" @06X@97AA
M8W0@8V]P>0H[.R!O9B!T:&4@9&]C=6UE;G0@:7,@<W5P<&]S960@=&\@:&%V
M92!B965N(&=I=F5N('1O('EO=2!A;&]N9R!W:71H"CL[($=.52!%;6%C<R!S
M;R!T:&%T('EO=2!C86X@:VYO=R!H;W<@>6]U(&UA>2!R961I<W1R:6)U=&4@
M:70@86QL+@H[.R!)="!S:&]U;&0@8F4@:6X@82!F:6QE(&YA;65D($-/4%E)
M3D<N("!!;6]N9R!O=&AE<B!T:&EN9W,L('1H90H[.R!C;W!Y<FEG:'0@;F]T
M:6-E(&%N9"!T:&ES(&YO=&EC92!M=7-T(&)E('!R97-E<G9E9"!O;B!A;&P@
M8V]P:65S+@H*.SL[($A0('1E<FUI;F%L<R!U<W5A;&QY(&5N8V]U<F%G92!U
M<VEN9R!>2"!A<R!T:&4@<G5B;W5T(&-H87)A8W1E<@H[.SL@36%P($A0(&9U
M;F-T:6]N(&ME>2!E<V-A<&4@<V5Q=65N8V5S"CL[.R!I;G1O('1H92!S=&%N
M9&%R9"!S;&]T<R!I;B!F=6YC=&EO;BUK97EM87 N"@HH<F5Q=6ER92 G:V5Y
M<&%D*0H**&QE=" H*'1H92UT86)L92 H;6%K92US=')I;F<@,3(X(# I*2D*
M(" H;&5T("@H:2 P*2D*(" @("AW:&EL92 H/"!I(#$R."D*(" @(" @*&%S
M970@=&AE+71A8FQE(&D@:2D*(" @(" @*'-E='$@:2 H,2L@:2DI*2D*(" H
M87-E="!T:&4M=&%B;&4@/UPQ-S<@/UQ>:"D)"0D[.R!3=V%P(%Y((&%N9"!$
M14P*(" H87-E="!T:&4M=&%B;&4@/UQ>:" _7#$W-RD)"0D[.R!3=V%P(%Y(
M(&%N9"!$14P*(" H<V5T<2!K97EB;V%R9"UT<F%N<VQA=&4M=&%B;&4@=&AE
M+71A8FQE*2D*"CL[.R!$969I;F4@<V]M92!F=6YC=&EO;G,@=7-E9"!B>2!T
M:&4@87)R;W<@:V5Y<R M+0H*.SL[($$@<&]P=6QA<B!U<V4@9F]R(")C;&5A
M<B!D:7-P;&%Y(B H86QT:&]U9V@@=&AI<R!F:6QE(&)I;F1S(&ET('1O"CL[
M.R!D96QE=&4M;W1H97(M=VEN9&]W<RDN( H[.SL@06YO=&AE<B!P;W!U;&%R
M('5S92!I<R!R96-E;G1E<BX**&1E9G5N(&MI;&PM=&\M96YD+6]F+69I;&4@
M*"D*(" B2VEL;"!F<F]M('!O:6YT('1O(&5N9"UO9BUF:6QE+B(*(" H:6YT
M97)A8W1I=F4I"B @*&MI;&PM<F5G:6]N("AP;VEN="D@*'!O:6YT+6UA>"DI
M*0H**&1E9G5N('-C<F]L;"UD;W=N+6)Y+6QI;F5S("AA<F<I"B @(E-C<F]L
M;"!D;W=N('1H92!S8W)E96X@05)'(&QI;F5S("AD969A=6QT.B Q*2XB"B @
M*&EN=&5R86-T:79E(")P(BD*(" H<V-R;VQL+61O=VX@87)G*2D*"BAD969U
M;B!S8W)O;&PM=7 M8GDM;&EN97,@*&%R9RD*(" B4V-R;VQL('5P('1H92!S
M8W)E96X@05)'(&QI;F5S("AD969A=6QT.B Q*2XB"B @*&EN=&5R86-T:79E
M(")P(BD*(" H<V-R;VQL+75P(&%R9RDI"@HH9&5F=6X@"61E;&5T92UL:6YE
M*"D@"B @(D1E;&5T92!T:&4@8W5R<F5N="!L:6YE(&EN=&\@=&AE(&MI;&PM
M8G5F9F5R+@I3970@=&AE('!O:6YT(&%T('1H92!S=&%R="!O9B!T:&4@;&EN
M92!F;VQL;W=I;F<@=&AE(&1E;&5T960@;VYE+B(*"2AI;G1E<F%C=&EV92 B
M*B(I"B )*&)E9VEN;FEN9RUO9BUL:6YE*0H)*&MI;&PM;&EN92 Q*2D*"BAD
M969U;B!I;G-E<G0M;&EN92 H*0H@("));G-E<G0@8FQA;FL@;&EN92!B969O
M<F4@8W5R<F5N="!L:6YE(&%N9"!P;&%C92!C=7)S;W(@870@8F5G:6YN:6YG
M+B(*(" H:6YT97)A8W1I=F4I"B @*&)E9VEN;FEN9RUO9BUL:6YE*0H@("AO
M<&5N+6QI;F4@,2DI"@H[.SL@+2T@3&]C86P@<')E9F5R96YC97,@=&\@=&AE
M($=N=2!V97)S:6]N<R M+0HH9&5F:6YE+6ME>2!F=6YC=&EO;BUK97EM87 @
M(D$B("=I;G-E<G0M;&EN92D**&1E9FEN92UK97D@9G5N8W1I;VXM:V5Y;6%P
M(")#(B G9&5L971E+6]T:&5R+7=I;F1O=W,I"BAD969I;F4M:V5Y(&9U;F-T
M:6]N+6ME>6UA<" B1"(@)V1E;&5T92UC:&%R*0HH9&5F:6YE+6ME>2!F=6YC
M=&EO;BUK97EM87 @(D4B("=K:6QL+6QI;F4I"BAD969I;F4M:V5Y(&9U;F-T
M:6]N+6ME>6UA<" B1B(@)W-C<F]L;"UD;W=N+6)Y+6QI;F5S*0HH9&5F:6YE
M+6ME>2!F=6YC=&EO;BUK97EM87 @(DDB("=O=F5R=W)I=&4M;6]D92D**&1E
M9FEN92UK97D@9G5N8W1I;VXM:V5Y;6%P("),(B G9&5L971E+6QI;F4I"BAD
M969I;F4M:V5Y(&9U;F-T:6]N+6ME>6UA<" B4B(@)W-C<F]L;"UU<"UB>2UL
M:6YE<RD**&1E9FEN92UK97D@9G5N8W1I;VXM:V5Y;6%P("(%(B G8F5G:6YN
M:6YG+6]F+6)U9F9E<BD**&1E9FEN92UK97D@9G5N8W1I;VXM:V5Y;6%P("(&
M(B G96YD+6]F+6)U9F9E<BD*"BAD969U;B!E;F%B;&4M87)R;W<M:V5Y<R H
M*2 *(" B16YA8FQE('1H92!U<V4@;V8@=&AE($A0(&%R<F]W(&ME>7,@9F]R
M(&-U<G-O<B!M;W1I;VXN("!$969E871S"F)I;F1I;F=S(&]F(&UA<FLM<&%R
M86=R87!H(&%N9"!T<F%N<W!O<V4M=V]R9',B"B @*&EN=&5R86-T:79E*0H@
M("AS971U<"UT97)M:6YA;"UK97EM87 @97-C+6UA< H)"0D@)R@*"0D)(" @
M*" B02(N(#]U*0D[('5P+6%R<F]W"@D)"2 @("@@(D(B+B _9"D).R!D;W=N
M+6%R<F]W"@D)"2 @("@@(D,B+B _<BD).R!R:6=H="UA<G)O=PH)"0D@(" H
M(")$(BX@/VPI"3L@;&5F="UA<G)O=PH)"0D@(" H(")&(BX@/P8I(" [(#Q3
M2$E&5#XM/$A/344^"@D)"2 @("@@(DHB+B _0RD).R \0TQ%05(@1$E34$Q!
M63X*"0D)(" @*" B2R(N(#]%*0D[(#Q#3$5!4B!,24Y%/@H)"0D@(" H("),
M(BX@/T$I"3L@/$E.4R!,24Y%/@H)"0D@(" H(")-(BX@/TPI"3L@/$1%3"!,
M24Y%/@H)"0D@(" H(").(BX@/TDI"3L@/%-(2494/BT\24Y3($-(05(^"@D)
M"2 @("@@(D\B+B _1"D).R \4TA)1E0^+3Q$14P@0TA!4CX*"0D)(" @*" B
M4"(N(#]$*0D[(#Q$14P@0TA!4CX*"0D)(" @*" B42(N(#])*0D[(#Q)3E,@
M0TA!4CX*"0D)(" @*" B4B(N(&1I;F<I"3L@/S\_"@D)"2 @("@@(E,B+B _
M4BD).R \4D],3"!54#X*"0D)(" @*" B5"(N(#]&*0D[(#Q23TQ,($1/5TX^
M"@D)"2 @("@@(E4B+B _3BD).R \3D585"!004=%/@H)"0D@(" H(")6(BX@
M/U I"3L@/%!2158@4$%'13X*"0D)(" @*" B:"(N(#\%*2 @.SL@5T%3(&UA
M<FLM<&%R86=R87!H"@D)"2 @("D*"0D)("DI"@HH96YA8FQE+6%R<F]W+6ME
%>7,I( IR
 
end
@eof

set `wc -lwc <hp.el`
if test $1 -ne 108 -o $2 -ne 538 -o $3 -ne 3695
then	echo ! hp.el should have 108 lines, 538 words, and 3695 characters
	echo ! but has $1 lines, $2 words, and $3 characters
fi
chmod 664 hp.el

rm /tmp/unpack$$
echo "End of shell archive."
exit 0