github.com/PDP-10.klh10
1
0
Fork 0
mirror of https://github.com/PDP-10/klh10.git synced 2026-01-11 23:52:54 +00:00
Code Issues Releases Wiki Activity

Add two helper scripts to put xterms in a nice mood for ITS.

Browse Source
This commit is contained in:
Olaf Seibert 2015-07-18 03:14:59 +02:00
parent 6c0cbe0f91
commit b03241657d
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
run/ksits/setvt100 Executable file
View File

@ -0,0 +1,12 @@
#!/bin/sh
# This is a shell script for running in an XTerm
# to set the opposite of the settings from the setvt52 script.
# Reverse the settings from setvt52 (SET <-> RESET)
printf '\e< ' # Exit VT52 mode (Enter VT100 mode).
printf '\e[?67h' # Ps = 6 7 -> Backarrow key sends delete (DECBKM)
printf '\e[?1036h' # Ps = 1 0 3 6 -> Send ESC when Meta modifies a key (enables the metaSendsEscape resource).
stty intr ^C

24
run/ksits/setvt52 Executable file
View File

@ -0,0 +1,24 @@
#!/bin/sh
#
# This is a shell script for running in an XTerm
# to set it to better modes to run ITS in:
#
# - VT52 mode;
# - the backarrow key sends DEL (not backspace);
# - the meta key sends ESC before a key instead of setting its 8th bit;
# - correct terminal size.
printf '\e< ' # Exit VT52 mode (Enter VT100 mode).
# CSI ? Pm l DEC Private Mode Reset (DECRST)
printf '\e[?67l' # Ps = 6 7 -> Backarrow key sends delete (DECBKM)
# CSI ? Pm h DEC Private Mode Set (DECSET)
printf '\e[?1036l' # Ps = 1 0 3 6 -> Send ESC when Meta modifies a key
# (enables the metaSendsEscape resource).
# CSI Ps ; Ps ; Ps t Window manipulation
# May be disabled using the allowWindowOps resource.
printf '\e[8;24;80t' # Ps = 8 ; height ; width -> Resize the text area to [height;width] in characters.
printf '\e[?2l' # Ps = 2 -> Designate VT52 mode (DECANM).
# After this, run ITS, then setvt100.