#!/bin/sh
#ident  "@(#)xterm_keys.sh  1.0  program xterm(1) keys - John S. Urban"
(
cat <<\EOF
*VT100.allowWindowOps: true
*VT100.allowTitleOps: true
*VT100.allowFontOps: true
!=============================================================================
! for btn3up, btn2up, btn2down see xclipboard ( see man page or volume 3 of O'Reilly manuals )
!=============================================================================
! TO PRODUCE THE ASCII CONTROL CHARACTERS:

!^5 00 (NUL) ctrl ? NULL                  ^# 10 (DLE) ctrl P DATA LINK ESCAPE
!^6 01 (SOH) ctrl A START OF HEADING      ^[ 11 (DC1) ctrl Q DEVICE CONTROL 1
!^7 02 (STX) ctrl B START OF TEXT         ^] 12 (DC2) ctrl R DEVICE CONTROL 2
!^8 03 (ETX) ctrl C END OF TEXT           ^% 13 (DC3) ctrl S DEVICE CONTROL 3
!^9 04 (EOT) ctrl D END OF TRANSMISSION   ^" 14 (DC4) ctrl T DEVICE CONTROL 4
!^+ 05 (ENQ) ctrl E ENQUIRY               ^_ 15 (NAK) ctrl U NEGATIVE ACKNOWLEDGE
!^- 06 (ACK) ctrl F ACKNOWLEDGE           ^! 16 (SYN) ctrl V SYNCHRONOUS IDLE
!^* 07 (BEL) ctrl G BELL                  ^& 17 (ETB) ctrl W END OF TRANSMISSION BLOCK
!^/ 08 (BS)  ctrl H BACKSPACE             ^' 18 (CAN) ctrl X CANCEL
!^( 09 (HT)  ctrl I HORIZONTAL TABULATION ^? 19 (EM)  ctrl Y END OF MEDIUM
!^) 0A (LF)  ctrl J LINE FEED             ^< 1A (SUB) ctrl Z SUBSTITUTE
!^$ 0B (VT)  ctrl K VERTICAL TABULATION   ^> 1B (ESC) ctrl [ ESCAPE
!^= 0C (FF)  ctrl L FORM FEED or NEW PAGE ^@ 1C (FS)  ctrl @ FILE SEPERATOR
!^  0D (CR)  ctrl M CARRIAGE RETURN       ^\ 1D (GS)  ctrl ] GROUP SEPERATOR
!^, 0E (SO)  ctrl N SHIFT OUT             ^^ 1E (RS)  ctrl = RECORD SEPERATOR
!^. 0F (SI)  ctrl O SHIFT IN              ^; 1F (US)  ctrl _ UNIT SEPERATOR
!=============================================================================
! this table is handy when programming keys:

!         | 00 nul| 01 soh| 02 stx| 03 etx| 04 eot| 05 enq| 06 ack| 07 bel|
!         | 08 bs | 09 ht | 0a nl | 0b vt | 0c np | 0d cr | 0e so | 0f si |
!         | 10 dle| 11 dc1| 12 dc2| 13 dc3| 14 dc4| 15 nak| 16 syn| 17 etb|
!         | 18 can| 19 em | 1a sub| 1b esc| 1c fs | 1d gs | 1e rs | 1f us |
!         | 20 sp | 21  ! | 22  " | 23  # | 24  $ | 25  % | 26  & | 27  ' |
!         | 28  ( | 29  ) | 2a  * | 2b  + | 2c  , | 2d  - | 2e  . | 2f  / |
!         | 30  0 | 31  1 | 32  2 | 33  3 | 34  4 | 35  5 | 36  6 | 37  7 |
!         | 38  8 | 39  9 | 3a  : | 3b  ; | 3c  < | 3d  = | 3e  > | 3f  ? |
!         | 40  @ | 41  A | 42  B | 43  C | 44  D | 45  E | 46  F | 47  G |
!         | 48  H | 49  I | 4a  J | 4b  K | 4c  L | 4d  M | 4e  N | 4f  O |
!         | 50  P | 51  Q | 52  R | 53  S | 54  T | 55  U | 56  V | 57  W |
!         | 58  X | 59  Y | 5a  Z | 5b  [ | 5c  \ | 5d  ] | 5e  ^ | 5f  _ |
!         | 60  ` | 61  a | 62  b | 63  c | 64  d | 65  e | 66  f | 67  g |
!         | 68  h | 69  i | 6a  j | 6b  k | 6c  l | 6d  m | 6e  n | 6f  o |
!         | 70  p | 71  q | 72  r | 73  s | 74  t | 75  u | 76  v | 77  w |
!         | 78  x | 79  y | 7a  z | 7b  { | 7c  | | 7d  } | 7e  ~ | 7f del|
!=============================================================================
! Mod-G     go to Tektronix 4010 graphics mode
! Mod-T     go to Digital VT102 text mode
! alt-z     abbreviation for set noglob;eval `resize`;unset noglob
!=============================================================================
! for xclipboard ( see man page or volume 3 of O'Reilly manuals )
! XTerm*Translations programs tektronix and vt100 keys
!*VT100.Translations: #override
!---------------------------------------------
! THIS DOES NOT WORK
!---------------------------------------------
! go to tek 4010 mode         g
!=============================================
! in tek mode ....
!---------------------------------------------
! go to vt102 mode            v
! copy to COPY file           c
! page (clear)                p
! reset                       r
! text size               [1-4]
!
XTerm*tek4014*Translations: #override\n\
   Alt<KeyPress>1: set-tek-text(small) \n\
   Alt<KeyPress>2: set-tek-text(3) \n\
   Alt<KeyPress>3: set-tek-text(2) \n\
   Alt<KeyPress>4: set-tek-text(large) \n\
   Alt<KeyPress>C: tek-copy() \n\
   Alt<KeyPress>P: tek-page() \n\
   Alt<KeyPress>R: tek-reset() \n\
   Alt<KeyPress>V: set-visibility(vt,on) tek-terminal-type(vt) set-visibility(tek,off) \n\
   Ctrl<KeyPress>1: set-tek-text(small) \n\
   Ctrl<KeyPress>2: set-tek-text(3) \n\
   Ctrl<KeyPress>3: set-tek-text(2) \n\
   Ctrl<KeyPress>4: set-tek-text(large) \n\
   Ctrl<KeyPress>C: tek-copy() \n\
   Ctrl<KeyPress>P: tek-page() \n\
   Ctrl<KeyPress>R: tek-reset() \n\
   Ctrl<KeyPress>V: set-visibility(vt,on) tek-terminal-type(vt) set-visibility(tek,off) \n\
  <KeyPress>Delete: string(0x08)
!
!================================================================================================================
*customization: -color
!================================================================================================================
!        The default bindings in the VT102 window are:
!
!                    Shift <KeyPress> Prior:scroll-back(1,halfpage) \n\
!                     Shift <KeyPress> Next:scroll-forw(1,halfpage) \n\
!                   Shift <KeyPress> Select:select-cursor-start() \
!                                           select-cursor-end(PRIMARY, CUT_BUFFER0) \n\
!                   Shift <KeyPress> Insert:insert-selection(PRIMARY, CUT_BUFFER0) \n\
!              Shift~Ctrl <KeyPress> KP_Add:larger-vt-font() \n\
!              Shift Ctrl <KeyPress> KP_Add:smaller-vt-font() \n\
!              Shift <KeyPress> KP_Subtract:smaller-vt-font() \n\
!                          ~Meta <KeyPress>:insert-seven-bit() \n\
!                           Meta <KeyPress>:insert-eight-bit() \n\
!                          !Ctrl <Btn1Down>:popup-menu(mainMenu) \n\
!                     !Lock Ctrl <Btn1Down>:popup-menu(mainMenu) \n\
!           !Lock Ctrl @Num_Lock <Btn1Down>:popup-menu(mainMenu) \n\
!               ! @Num_Lock Ctrl <Btn1Down>:popup-menu(mainMenu) \n\
!                          ~Meta <Btn1Down>:select-start() \n\
!                        ~Meta <Btn1Motion>:select-extend() \n\
!                          !Ctrl <Btn2Down>:popup-menu(vtMenu) \n\
!                     !Lock Ctrl <Btn2Down>:popup-menu(vtMenu) \n\
!           !Lock Ctrl @Num_Lock <Btn2Down>:popup-menu(vtMenu) \n\
!               ! @Num_Lock Ctrl <Btn2Down>:popup-menu(vtMenu) \n\
!                    ~Ctrl ~Meta <Btn2Down>:ignore() \n\
!                           Meta <Btn2Down>:clear-saved-lines() \n\
!                      ~Ctrl ~Meta <Btn2Up>:insert-selection(PRIMARY, CUT_BUFFER0) \n\
!                          !Ctrl <Btn3Down>:popup-menu(fontMenu) \n\
!                     !Lock Ctrl <Btn3Down>:popup-menu(fontMenu) \n\
!           !Lock Ctrl @Num_Lock <Btn3Down>:popup-menu(fontMenu) \n\
!               ! @Num_Lock Ctrl <Btn3Down>:popup-menu(fontMenu) \n\
!                    ~Ctrl ~Meta <Btn3Down>:start-extend() \n\
!                        ~Meta <Btn3Motion>:select-extend() \n\
!                           Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\
!                      Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\
!            Lock @Num_Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\
!                 @Num_Lock Ctrl <Btn4Down>:scroll-back(1,halfpage,m) \n\
!                                <Btn4Down>:scroll-back(5,line,m)     \n\
!                           Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\
!                      Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\
!            Lock @Num_Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\
!                 @Num_Lock Ctrl <Btn5Down>:scroll-forw(1,halfpage,m) \n\
!                                <Btn5Down>:scroll-forw(5,line,m)     \n\
!                                   <BtnUp>:select-end(PRIMARY, CUT_BUFFER0) \n\
!                                 <BtnDown>:ignore()
!
!
!        The default bindings in the Tektronix window are:
!
!                          ~Meta<KeyPress>: insert-seven-bit() \n\
!                           Meta<KeyPress>: insert-eight-bit() \n\
!                         !Ctrl <Btn1Down>: popup-menu(mainMenu) \n\
!                    !Lock Ctrl <Btn1Down>: popup-menu(mainMenu) \n\
!          !Lock Ctrl @Num_Lock <Btn1Down>:popup-menu(mainMenu) \n\
!               !Ctrl @Num_Lock <Btn1Down>:popup-menu(mainMenu) \n\
!                         !Ctrl <Btn2Down>: popup-menu(tekMenu) \n\
!                    !Lock Ctrl <Btn2Down>: popup-menu(tekMenu) \n\
!          !Lock Ctrl @Num_Lock <Btn2Down>:popup-menu(tekMenu) \n\
!               !Ctrl @Num_Lock <Btn2Down>:popup-menu(tekMenu) \n\
!                    Shift ~Meta<Btn1Down>:gin-press(L) \n\
!                          ~Meta<Btn1Down>:gin-press(l) \n\
!                    Shift ~Meta<Btn2Down>:gin-press(M) \n\
!                          ~Meta<Btn2Down>:gin-press(m) \n\
!                    Shift ~Meta<Btn3Down>:gin-press(R) \n\
!                          ~Meta<Btn3Down>:gin-press(r)
!---------------------------------------------
! While holding down
! the ALT key ....
!---------------------------------------------
! vi-like scrolling
!  up one line               e
!  down one line             y
!  up half page              u
!  down half page            d
!  forward full page         f
!  backward full page        b
!---------------------------------------------
! font size change
! bigger                     +
! smaller                    -
! text size               [0-6]
!---------------------------------------------
! iconify                     i
!---------------------------------------------
! toggle logging (if allowed) l

!---------------------------------------------
! restore                     r
! maximize                    m
! secure                      s
!---------------------------------------------
!        load-vt-fonts(name[,class])
!              Load fontnames from the given subresource name and class.  That
!              is, load the "*VT100.name.font", resource as "*VT100.font" etc.
!              If no name is given, the original set of fontnames is restored.
!
!
!              Unlike set-vt-font(), this does  not  affect  the  escape-  and
!              select-fonts, since those are not based on resource values.  It
!              does affect the fonts loosely organized under  the  ``Default''
!              menu entry: font, boldFont, wideFont and wideBoldFont.
!
! XTerm*Translations programs tektronix and vt100 keys
! XTerm*VT100.Translations programs vt100 mode only
EOF
for NAME in  \
 'XTerm*Translations' \
 'XTerm*.VT100.Translations' \
 'xterm*.VT100.Translations' \
 'xterm*Translations' \
 'xterm*VT100*Translations' 
do
cat <<EOF
${NAME}: #override\\n\\
EOF
cat <<\EOF
  Alt<KeyPress>0: set-vt-font(d) \n\
  Alt<KeyPress>1: set-vt-font(1) \n\
  Alt<KeyPress>2: set-vt-font(2) \n\
  Alt<KeyPress>3: set-vt-font(3) \n\
  Alt<KeyPress>4: set-vt-font(4) \n\
  Alt<KeyPress>5: set-vt-font(5) \n\
  Alt<KeyPress>6: set-vt-font(6) \n\
  Alt<KeyPress>7: set-vt-font(e) \n\
  Alt<KeyPress>8: set-vt-font(s) \n\
  Ctrl<KeyPress>0: set-vt-font(d) \n\
  Ctrl<KeyPress>1: set-vt-font(1) \n\
  Ctrl<KeyPress>2: set-vt-font(2) \n\
  Ctrl<KeyPress>3: set-vt-font(3) \n\
  Ctrl<KeyPress>4: set-vt-font(4) \n\
  Ctrl<KeyPress>5: set-vt-font(5) \n\
  Ctrl<KeyPress>6: set-vt-font(6) \n\
  Ctrl<KeyPress>7: set-vt-font(e) \n\
  Ctrl<KeyPress>8: set-vt-font(s) \n\
  Alt<KeyPress>plus:          larger-vt-font() \n\
  Alt<KeyPress>minus:         smaller-vt-font() \n\
  Alt<KeyPress>equal:         larger-vt-font() \n\
  Alt<KeyPress>underscore:    smaller-vt-font() \n\
  Alt<KeyPress>KP_Add:        larger-vt-font() \n\
  Alt<KeyPress>KP_Subtract:   smaller-vt-font() \n\
  Alt<KeyPress>I:   iconify() \n\
  Alt<KeyPress>S:   secure() \n\
  Alt<KeyPress>E:   scroll-back(1,line) \n\
  Alt<KeyPress>Y:   scroll-forw(1,line) \n\
  Alt<KeyPress>U:   scroll-back(1,halfpage) \n\
  Alt<KeyPress>D:   scroll-forw(1,halfpage) \n\
  Alt<KeyPress>F:   scroll-forw(1,page) \n\
  Alt<KeyPress>B:   scroll-back(1,page) \n\
  Alt<KeyPress>R:   restore() \n\
  Alt<KeyPress>M:   maximize() \n\
  Alt<KeyPress>z: string("set noglob;eval `resize`;unset noglob") string(0x10) \n\
  Shift<KeyPress>F1: string("e#") \n\
  Shift<KeyPress>F2: string("d'm") \n\
  Shift<KeyPress>F3: string(0x09) \n\
  Shift<KeyPress>F4: string("dd") \n\
  Shift<KeyPress>F5: string("u") \n\
  Shift<KeyPress>F6: string(":q!") string(0xff0d) \n\
  Shift<KeyPress>F7: string("n") \n\
  Shift<KeyPress>F8: string("z-") string(0xff0d) \n\
  Shift<KeyPress>F10: string("G") \n\
  Shift<KeyPress>F12: string(":s/") \n\
  Ctrl<KeyPress>F1:   string("mm") \n\
  Ctrl<KeyPress>F3:   string("i") string(0xff0d) string(0x1b) \n\
  Ctrl<KeyPress>F4:   string("j") \n\
  Ctrl<KeyPress>F6:   string("C") string(0x1b) \n\
  Ctrl<KeyPress>F11:  string("/SYSTEM BULLETIN/") string(0xff0d) \n\
  <KeyPress>F1: string("e ~/bin/wccsvi.hlp") string(0xff0d) \n\
  <KeyPress>F2: string("P") \n\
  <KeyPress>F4: string("o") \n\
  <KeyPress>F5: string("U") \n\
  <KeyPress>F6: string(":wq") string(0xff0d) \n\
  <KeyPress>F7: string("/") \n\
  <KeyPress>F8: string("z") string(0xff0d) \n\
  <KeyPress>F10: string("1G") \n\
  <KeyPress>Home: string(":") \n\
  <KeyPress>End: string("$") \n\
  <KeyPress>Next: string(0x06) \n\
  <KeyPress>Prior: string(0x02) \n\
  <KeyPress>Insert: string("i") \n\
  Alt<KeyPress>G: set-visibility(tek,on) tek-terminal-type(tek) set-visibility(vt,off) \n\
  <KeyPress>Delete: string(0x08)
EOF
done
)|xrdb -merge -