🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: dnet.comp.pcs
Article #11

VT220 terminfo Eintrag, 8 Bit-Support

#11
From: Stefan Stapelberg
Date: Sun, 13 Aug 1989 23:35
501 lines
13702 bytes
Hallo Fans,

hier also die terminfo entries fuer das VT220 mit 8-Bit-Support
und ein kleines sed-Script zur Umsetzung von 8-Bit Umlauten nach
troff-Umlauten. Nach dem Entpacken aus dem Shell-Archiv muss die
Datei ansi2mm.atob durch atob(1) gefiltert werden, da das Script
eben 8-Bit-Umlaute enthaelt.

Nachdem diese Eintraege (mit tic(1)) in der terminfo Datenbasis
installiert sind, kann die TERM-Variable auf vt221 (7/8-Bit-Mix)
oder vt228 (8-Bit) gesetzt werden. Am VT220 wird folgende Setup-
Einstellung noetig:

	o Allgemeines:		VT220-Modus, 7-Bit-Steuerung (vt221)
				VT220-Modus, 8-Bit-Steuerung (vt228)
	o Kommunikation:	8 Bit, keine Parity, 2 Stobits

Der Eintrag in der gettydefs lautet:

	9600i #B9600 CS8 CSTOPB CREAD CLOCAL #B9600 CS8 IGNPAR IGNBRK ISIG
	ICANON ICRNL IXON IXANY OPOST ONLCR ECHO ECHOK ECHOE CSTOPB CREAD
	CLOCAL #login: #9600i

Es gibt bei MUNIX zwar ein ISANE, das eine Grundeinstellung (wie SANE)
vornimmt, aber CS8 und PARENB zusaetzlich setzt.  Leider kann trotz
gegenteiliger Behauptung in der Manual-Seite mit -PARENB in der gettydefs
die ueberfluessige Parity-Einstellung nicht entfernt werden, also ein
"ISANE -PARENB" hilft hier nicht, daher fuehre ich alle Einstellungen
explizit auf.

Ich verwende die von PCS vorgeschlagene tty-Parameterisierung deswegen
nicht, weil ich mit dem VT220 an der Consolen-Schnittstelle haenge und
das Monitorprogramm die Console mit 8 Bit no parity anspricht. Weil ich
nicht jedesmal das Setup umstellen will, wenn ich das System boote, lass
ich die Parity eben weg.

Nach soviel Vorrede jetzt die terminfo Beschreibungen.

Viel Spass und Gruesse, Stefan

PS: Nach dem Aufreissen dieses versiegelten Shell-Archives
    besteht kein Umtausch- und kein Rueckkaberecht mehr!

-------------------------- Hier abschneiden -----------------------------
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of archive 1 (of 1)."
# Contents:  MANIFEST README ansi2mm.atob vt220.ti vt221.ti vt228.ti
# Wrapped by stefan@shiva on Fri Aug 11 18:15:10 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f MANIFEST -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"MANIFEST\"
else
echo shar: Extracting \"MANIFEST\" \(461 characters\)
sed "s/^X//" >MANIFEST <<'END_OF_MANIFEST'
X   File Name		Archive #	Description
X-----------------------------------------------------------
X MANIFEST                  1	This shipping list
X README                    1	installation description
X ansi2mm.atob              1	conversion script for troff diaresis
X vt220.ti                  1	terminfo description 7 Bit Controls
X vt221.ti                  1	terminfo description 7/8 Bit Controls
X vt228.ti                  1	terminfo description 8 Bit Controls
END_OF_MANIFEST
if test 461 -ne `wc -c <MANIFEST`; then
    echo shar: \"MANIFEST\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"README\"
else
echo shar: Extracting \"README\" \(1266 characters\)
sed "s/^X//" >README <<'END_OF_README'
X#
X# DEC VT220 terminfo files
X#
X# The vt220 doesn't need the keypad for function keys
X# anymore. PF1, PF2, PF3, and PF4 can be used as kf1,
X# kf2, kf3, and kf4. The remaining 15 keys are kf6 to
X# kf14, kf17 to kf20, khlp (HELP), kcmd (DO), kfnd
X# (FIND), kich1 (INSERT), kdch1 (REMOVE), kslt (SELECT),
X# and kpp (PREV SCREEN).
X#
X# Because the vt220 has no escape key, the shifted function
X# keys f11, f12, and f13 are set up to generate ESC, BS, and
X# LF respectively (as it does in VT52 mode).
X#
X# Since tab stops are stored in the non-volatile memory
X# it#8 is given. If you sometime need to set the tabs,
X# use the tabs(1) command which uses hts/tbc.
X#
X# The charset for DEC line drawing has been enhanced.
X# A visible bell has been added (flash).
X#
X# There are following different types:
X#	vt220	send/receive 7 bit (S7C1T)
X#	vt228	send/receive 8 bit (S8C1T)
X#	vt221	send 7 bit / receive 8 bit
X# The last type is for weird programs such as adduser.
X#
X# Note, that video attributes do not longer clear
X# any previous attributes (except sgr and sgr0).
X#
X# I also include the Auto-Wrap command sequence "CSI?7h"
X# after reseting terminal modes, since Auto-Wrap always
X# will be disabled after reset.
X#
X# Send comments, bug fixes, improvements to stefan@mikros.uucp
X#
END_OF_README
if test 1266 -ne `wc -c <README`; then
    echo shar: \"README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ansi2mm.atob -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"ansi2mm.atob\"
else
echo shar: Extracting \"ansi2mm.atob\" \(856 characters\)
sed "s/^X//" >ansi2mm.atob <<'END_OF_ansi2mm.atob'
Xxbtoa Begin
X,9\^LBl5SFBF5sk,9UK7DK]T3F<G"0F(lb-Bk;<rF(o\<@q]:k@:OCjEcVR4+EVNED/CD:FE2)5B6,
X2(DIal5Bk(]sG%G]8@1"4d,9U'.BlnH.DBL?/.3L?*3&r*jGp$%-AS,@g+B*AjE+NipATDE+4EGUUA
XmoRBD/!d+Df[ORF^oAS$4:`i@;TR=?t*PcAStpnAKW6P?j_$t@:s.7,#r\mB4X,/F<kgC@;TQu>@qS
XcAKWTX/mTY.$?p/tCh4_n+=&0S/SB/J0HaX.A8_e]@psFi+=&ZaBl47a+<W6c.1'QqBQ#"=F`Uu(AN
XM#GG\M7B0d&P>$4.gt.Ob[5Eb/Zp+?MXl$"\0d@gWN`BPD(#$=n'mAI8cS@<6!&,]IX0D.Oi(D@.L/
X@;^.#12UkW$$0Zg+>%.I-Z^rZ03ha15rpZ3-Qk!P+=D4`eh:95-r2lWB."fRAKW@A0AJ3c>UWT504u
XXT>RCcD+<VdL/S-%PF"cT->[/[c3\P+n+>%.I-Z^s703ha1D`TOa-Qk!P+=D4`r%D;[.!7R(B."g,$
X4."]+<VdYAKW@A0AeEf>UXZ704uXT,Us--#s13U+<YN<11>'ABdj@0ARlo8AKW@A03ha15rp[;04uX
XT/S-%PF"^d'-r2lWeh:Y`+>%.I-Z^qG>UWT50AJ3n-QlY$#mh^s+<W7I+=D4`>[/[c3\TPIB."fRAK
XW@A03ha1D`TQF04uXT/S-%PF"^d'.!7R(r%D\1+C#6[#p:?5+>%.I-Z^qG>UXZ70AeEq-QjZa$4.##
X3soP?@:KWO
Xxbtoa End N 632 278 E 5f S b737 R 5b345f48
END_OF_ansi2mm.atob
if test 856 -ne `wc -c <ansi2mm.atob`; then
    echo shar: \"ansi2mm.atob\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f vt220.ti -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"vt220.ti\"
else
echo shar: Extracting \"vt220.ti\" \(1537 characters\)
sed "s/^X//" >vt220.ti <<'END_OF_vt220.ti'
Xvt220|DEC VT220 7 bit,
X	am,
X	mir,
X	msgr,
X	xenl,
X	xon,
X	cols#80,
X	lines#24,
X	vt#220,
X	it#8,
X	acsc=``aaffggjjkkllmmnnooqqrrssttuuvvwwxxyyzz{{||}}~~,
X	flash=\E[?5h$<150>\E[?5l,
X	bel=^G,
X	cr=\r,
X	ht=\t,
X	hts=\EH,
X	tbc=\E[3g,
X	civis=\E[?25l,
X	cnorm=\E[?25h,
X	csr=\E[%i%p1%d;%p2%dr,
X	clear=\E[2J\E[H$<20>,
X	cup=\E[%i%p1%d;%p2%dH$<2>,
X	smkx=\E[62;1"p\E[?1l\E[?7h\EP0;1|23/1B;24/08;25/0A\E\\,
X	.rmkx=\E[?7h,
X	cuu=\E[%p1%dA,
X	cud=\E[%p1%dB,
X	cuf=\E[%p1%dC,
X	cub=\E[%p1%dD,
X	cuu1=\E[A$<2>,
X	cud1=\E[B$<2>,
X	cuf1=\E[C$<2>,
X	cub1=^H,
X	nel=\EE,
X	dch=\E[%p1%dP,
X	dl=\E[%p1%dM,
X	il=\E[%p1%dL,
X	dch1=\E[P$<2>,
X	dl1=\E[M$<2>,
X	il1=\E[L$<2>,
X	home=\E[H,
X	ech=\E[%p1%dX,
X	ed=\E[J$<20>,
X	el=\E[K$<3>,
X	el1=\E[1K$<3>,
X	enacs=\E)0,
X	smacs=^N,
X	rmacs=^O,
X	smso=\E[7m,
X	rmso=\E[27m,
X	smul=\E[4m,
X	rmul=\E[24m,
X	bold=\E[1m,
X	blink=\E[5m,
X	rev=\E[7m,
X	sgr0=\E[0m^O,
X	sgr=\E[0%?%p1%t;7%;%?%p2%t;4%;%?%p3%t;7%;%?%p4%t;5%;%?%p6%t;1%;m%?%p9%t^N%e^O%;,
X	smir=\E[4h,
X	rmir=\E[4l,
X	is2=\E[62;1"p\E>\E[?1l\E[?4l\E[?7h,
X	rs3=\E[2l\E[4l\E[?3l\E[?5l\E[?7h\E[?25h,
X	kbs=\b,
X	kcuu1=\E[A,
X	kcud1=\E[B,
X	kcuf1=\E[C,
X	kcub1=\E[D,
X	kfnd=\E[1~,
X	kich1=\E[2~,
X	kdch1=\E[3~,
X	kslt=\E[4~,
X	kpp=\E[5~,
X	knp=\E[6~,
X	khlp=\E[28~,
X	kcmd=\E[29~,
X	kf1=\EOP,
X	kf2=\EOQ,
X	kf3=\EOR,
X	kf4=\EOS,
X	kf6=\E[17~,
X	kf7=\E[18~,
X	kf8=\E[19~,
X	kf9=\E[20~,
X	kf10=\E[21~,
X	kf11=\E[23~,
X	kf12=\E[24~,
X	kf13=\E[25~,
X	kf14=\E[26~,
X	kf17=\E[31~,
X	kf18=\E[32~,
X	kf19=\E[33~,
X	kf20=\E[34~,
X	lf1=PF1,
X	lf2=PF2,
X	lf3=PF3,
X	lf4=PF4,
X	mc0=\E[i,
X	mc5=\E[?5i,
X	mc4=\E[?4i,
X	mc5i,
X	ind=\ED,
X	ri=\EM,
X	sc=\E7,
X	rc=\E8,
END_OF_vt220.ti
if test 1537 -ne `wc -c <vt220.ti`; then
    echo shar: \"vt220.ti\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f vt221.ti -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"vt221.ti\"
else
echo shar: Extracting \"vt221.ti\" \(1597 characters\)
sed "s/^X//" >vt221.ti <<'END_OF_vt221.ti'
Xvt221|DEC VT220 8 bit,
X	am,
X	mir,
X	msgr,
X	xenl,
X	xon,
X	cols#80,
X	lines#24,
X	vt#221,
X	it#8,
X	acsc=``aaffggjjkkllmmnnooqqrrssttuuvvwwxxyyzz{{||}}~~,
X	flash=\233?5h$<150>\233?5l,
X	bel=^G,
X	cr=\r,
X	ht=\t,
X	hts=\210,
X	tbc=\2333g,
X	civis=\233?25l,
X	cnorm=\233?25h,
X	csr=\233%i%p1%d;%p2%dr,
X	clear=\2332J\233H$<20>,
X	cup=\233%i%p1%d;%p2%dH$<2>,
X	smkx=\23362;1"p\233?1l\233?7h\2200;1|23/1B;24/08;25/0A\234,
X	.rmkx=\233?7h,
X	cuu=\233%p1%dA,
X	cud=\233%p1%dB,
X	cuf=\233%p1%dC,
X	cub=\233%p1%dD,
X	cuu1=\233A$<2>,
X	cud1=\233B$<2>,
X	cuf1=\233C$<2>,
X	cub1=^H,
X	nel=\205,
X	dch=\233%p1%dP,
X	dl=\233%p1%dM,
X	il=\233%p1%dL,
X	dch1=\233P$<2>,
X	dl1=\233M$<2>,
X	il1=\233L$<2>,
X	home=\233H,
X	ech=\233%p1%dX,
X	ed=\233J$<20>,
X	el=\233K$<3>,
X	el1=\2331K$<3>,
X	enacs=\E)0,
X	smacs=^N,
X	rmacs=^O,
X	smso=\2337m,
X	rmso=\23327m,
X	smul=\2334m,
X	rmul=\23324m,
X	bold=\2331m,
X	blink=\2335m,
X	rev=\2337m,
X	sgr0=\2330m^O,
X	sgr=\2330%?%p1%t;7%;%?%p2%t;4%;%?%p3%t;7%;%?%p4%t;5%;%?%p6%t;1%;m%?%p9%t^N%e^O%;,
X	smir=\2334h,
X	rmir=\2334l,
X	is2=\23362;1"p\E>\233?1l\233?4l\233?7h,
X	rs3=\2332l\2334l\233?3l\233?5l\233?7h\233?25h,
X	kbs=\b,
X	kcuu1=\E[A,
X	kcud1=\E[B,
X	kcuf1=\E[C,
X	kcub1=\E[D,
X	kfnd=\E[1~,
X	kich1=\E[2~,
X	kdch1=\E[3~,
X	kslt=\E[4~,
X	kpp=\E[5~,
X	knp=\E[6~,
X	khlp=\E[28~,
X	kcmd=\E[29~,
X	kf1=\EOP,
X	kf2=\EOQ,
X	kf3=\EOR,
X	kf4=\EOS,
X	kf6=\E[17~,
X	kf7=\E[18~,
X	kf8=\E[19~,
X	kf9=\E[20~,
X	kf10=\E[21~,
X	kf11=\E[23~,
X	kf12=\E[24~,
X	kf13=\E[25~,
X	kf14=\E[26~,
X	kf17=\E[31~,
X	kf18=\E[32~,
X	kf19=\E[33~,
X	kf20=\E[34~,
X	lf1=PF1,
X	lf2=PF2,
X	lf3=PF3,
X	lf4=PF4,
X	mc0=\233i,
X	mc5=\233?5i,
X	mc4=\233?4i,
X	mc5i,
X	ind=\204,
X	ri=\215,
X	sc=\E7,
X	rc=\E8,
END_OF_vt221.ti
if test 1597 -ne `wc -c <vt221.ti`; then
    echo shar: \"vt221.ti\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f vt228.ti -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"vt228.ti\"
else
echo shar: Extracting \"vt228.ti\" \(1652 characters\)
sed "s/^X//" >vt228.ti <<'END_OF_vt228.ti'
Xvt228|DEC VT220 full 8 bit,
X	am,
X	km,
X	mir,
X	msgr,
X	xenl,
X	xon,
X	cols#80,
X	lines#24,
X	vt#221,
X	it#8,
X	acsc=``aaffggjjkkllmmnnooqqrrssttuuvvwwxxyyzz{{||}}~~,
X	flash=\233?5h$<150>\233?5l,
X	bel=^G,
X	cr=\r,
X	ht=\t,
X	hts=\210,
X	tbc=\2333g,
X	civis=\233?25l,
X	cnorm=\233?25h,
X	csr=\233%i%p1%d;%p2%dr,
X	clear=\2332J\233H$<20>,
X	cup=\233%i%p1%d;%p2%dH$<2>,
X	smkx=\23362;2"p\233?1l\233?7h\2200;1|23/1B;24/08;25/0A\234,
X	rmkx=\23362;1"p\233?1l\233?7h,
X	cuu=\233%p1%dA,
X	cud=\233%p1%dB,
X	cuf=\233%p1%dC,
X	cub=\233%p1%dD,
X	cuu1=\233A$<2>,
X	cud1=\233B$<2>,
X	cuf1=\233C$<2>,
X	cub1=^H,
X	nel=\205,
X	dch=\233%p1%dP,
X	dl=\233%p1%dM,
X	il=\233%p1%dL,
X	dch1=\233P$<2>,
X	dl1=\233M$<2>,
X	il1=\233L$<2>,
X	home=\233H,
X	ech=\233%p1%dX,
X	ed=\233J$<20>,
X	el=\233K$<3>,
X	el1=\2331K$<3>,
X	enacs=\E)0,
X	smacs=^N,
X	rmacs=^O,
X	smso=\2337m,
X	rmso=\23327m,
X	smul=\2334m,
X	rmul=\23324m,
X	bold=\2331m,
X	blink=\2335m,
X	rev=\2337m,
X	sgr0=\2330m^O,
X	sgr=\2330%?%p1%t;7%;%?%p2%t;4%;%?%p3%t;7%;%?%p4%t;5%;%?%p6%t;1%;m%?%p9%t^N%e^O%;,
X	smir=\2334h,
X	rmir=\2334l,
X	is2=\23362;1"p\E>\233?1l\233?4l\233?7h,
X	rs3=\2332l\2334l\233?3l\233?5l\233?7h\233?25h,
X	kbs=\b,
X	kcuu1=\233A,
X	kcud1=\233B,
X	kcuf1=\233C,
X	kcub1=\233D,
X	kfnd=\2331~,
X	kich1=\2332~,
X	kdch1=\2333~,
X	kslt=\2334~,
X	kpp=\2335~,
X	knp=\2336~,
X	khlp=\23328~,
X	kcmd=\23329~,
X	kf1=\217P,
X	kf2=\217Q,
X	kf3=\217R,
X	kf4=\217S,
X	kf6=\23317~,
X	kf7=\23318~,
X	kf8=\23319~,
X	kf9=\23320~,
X	kf10=\23321~,
X	kf11=\23323~,
X	kf12=\23324~,
X	kf13=\23325~,
X	kf14=\23326~,
X	kf17=\23331~,
X	kf18=\23332~,
X	kf19=\23333~,
X	kf20=\23334~,
X	lf1=PF1,
X	lf2=PF2,
X	lf3=PF3,
X	lf4=PF4,
X	mc0=\233i,
X	mc5=\233?5i,
X	mc4=\233?4i,
X	mc5i,
X	ind=\204,
X	ri=\215,
X	sc=\E7,
X	rc=\E8,
END_OF_vt228.ti
if test 1652 -ne `wc -c <vt228.ti`; then
    echo shar: \"vt228.ti\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 1 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
Technical Details
Message-ID: <541@mikros.systemware.de>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mikros!stefan

Show Full Headers
Complete Article Headers
X-Google-Language: GERMAN,ASCII-7-bit
X-Google-Thread: 1354df,e64c162b1de3e725,start
X-Google-Attributes: gid1354df,public
X-Google-ArrivalTime: 1989-08-13 17:53:15 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mikros!stefan
From: stefan@mikros.systemware.de (Stefan Stapelberg)
Newsgroups: dnet.comp.pcs
Subject: VT220 terminfo Eintrag, 8 Bit-Support
Message-ID: <541@mikros.systemware.de>
Date: 13 Aug 89 23:35:52 GMT
Reply-To: stefan@mikros.UUCP (Stefan Stapelberg)
Distribution: dnet
Organization: MIKROS Systemware, Lohr/W-Germany
Lines: 501
Posted: Mon Aug 14 00:35:52 1989