|
HP OpenVMS Systemsask the wizard |
|
The Question is: Is there a description of the scan codes for the LK46W-AM keyboard (Swedish)? I need it to make a keyboard map file for an X window emulator (SCO Vision) running under Windows NT. I mainly access Unix systems, but the keyboard is genuine Digital. I have managed to figure out many of the codes, but there are a few that I miss (for example, "<" and ">" to the left of the "Z" key). Thank you in advance. The Answer is :
Since you have asked the question of the OpenVMS Wizard, the OpenVMS
Wizard will assume that an OpenVMS system is available to you and that
the mapping involves OpenVMS. If not, you will need to find a local
system equivilent.
$ @decw$utils:DECW$DEFINE_UTILS.COM
$ xmodmap -pk
The xkeycaps tool (not available in decw$utils) might be useful to you,
as well. (Source code to xkeycaps is accessable via www.jwz.org.)
The attached UNIX shell script example is for remapping Sun, AIX PC, and
Linux PC keyboards for use with OpenVMS
#!/bin/sh
# The procedure will run xterm and remap the Sun Keyboard, IBM AIX PC type
# Keyboard, Linux PC type Keyboard and Tru64 Compaq Unix keyboards to mappings
# suitable for VMS
# Created by Geoff Kingsmill (Geoff.Kingsmill@compaq.com)
# Revision 1.0 20-Oct-1997
# Revision 1.1 15-Nov-1997 - added Linux support
# Revision 1.2 27-May-1998 - added help text for keys above arrow keys
# Revision 1.3 19-May-1999 - fixed Linux Insert, Home, Prior, Delete and Endkey
# Revision 1.4 29-Jun-1999 - added Tru64 Unix, Digital Unix, OSF1
# Revision 1.5 10-Oct-1999 - modified OSF1 keyboard mapping to support both
# the LKxxx keyboards and the PC keyboards.
# Modified default xterm options which can be
# overriden by the DECXTERM_OPTIONS variable.
# The default Terminal Emulator can now be
# overridden using the variable DECXTERM_EMULATOR.
# Alt/F1-F10 now replaced with Shift/F1-F10 as
# most of the window managers have these keys
# mapped to special functions.
# Added HP-UX support.
# Revision 1.6 19-Oct-1999 - minor modifications and added lots of help.
# usage: DECxterm [-option ...]
# which are identical to xterm. "#man xterm" for further details
# eg: DECxterm -e telnet yakka.ali.dec.com
# Note 1: All keys in the same position are mapped to the standard
# VMS LKxxx ikeyboard except for the keys between the main keyboard
# keys and the Numeric/Application keys which remain as labelled.
# The keys on an DEC LKxxx Keyboard are marked on other keyboards as:-
# Find marked Home, Insert marked the same, Remove marked Delete,
# Select marked End, Previous marked Page-Up and Next marked Page-Down.
# Note 2: Shift/F1 to Shift/F10 are mapped to F11 to F20
# Note 3: Other Terminal Emulators such as dtterm or dxterm can be used
# by setting the variable DECXTERM_EMULATOR. The default is xterm.
# Note 4: The default xterm qualiers are defined by the variable
# DECXTERM_OPTIONS and are set to:-
# -fn 9X15 Default font
# -sb Enable scroll bars
# -sl 500 Number of lines saved that are scrolled off the top of window
# -cr red Set the cursor color to red
# -tn vt100 Set the terminal type to vt100
# -132 Allow switching between 80 and 132 columns
# The default settings can be changed by defining this environment
# variable before running DECxterm.
xterm_options="${DECXTERM_OPTIONS:=-fn 9X15 -sb -sl 500 -bg Black -fg Green -cr red -T "VT100" -tn vt100 -132}"
# Note 5: To modify this program or to add further keyboard mappings do the
# following:-
# 1. Build the following program using the command:-
# HP-UX: "# cc -Aa -o vmskbmap vmskbmap.c"
# Linux,OSF1,AIX,Solaris: "# cc -o vmskbmap vmskbmap.c"
##include <stdio.h>
#main() {
# long key=0xa;
# int ch, esc=0x1b, lf=0xa;
# char keytext[80]="This Key has been mapped to";
# while (1) {
# /* get a character from input */
# ch=getchar();
# /* Print the Key Name when an escape or line-feed character is returned*/
# if (ch == lf || (ch == esc && (key != 0 && key != lf))) {
# switch (key)
# {
# case 0x5b31317e: printf("%s F1",keytext); break;
# case 0x5b31327e: printf("%s F2",keytext); break;
# case 0x5b31337e: printf("%s F3",keytext); break;
# case 0x5b31347e: printf("%s F4",keytext); break;
# case 0x5b31357e: printf("%s F5",keytext); break;
# case 0x5b31377e: printf("%s F6/Intr-Halt",keytext); break;
# case 0x5b31387e: printf("%s F7/Resume",keytext); break;
# case 0x5b31397e: printf("%s F8/Cancel",keytext); break;
# case 0x5b32307e: printf("%s F9/Main-Screen",keytext); break;
# case 0x5b32317e: printf("%s F10/Exit",keytext); break;
# case 0x5b32337e: printf("%s F11/Alt-Char",keytext); break;
# case 0x5b32347e: printf("%s F12/Pr-Field",keytext); break;
# case 0x5b32357e: printf("%s F13/Er-Line",keytext); break;
# case 0x5b32367e: printf("%s F14/Insert-Overstrike",keytext); break;
# case 0x5b32387e: printf("%s F15/Help",keytext); break;
# case 0x5b32397e: printf("%s F16/Do",keytext); break;
# case 0x5b33317e: printf("%s F17",keytext); break;
# case 0x5b33327e: printf("%s F18",keytext); break;
# case 0x5b33337e: printf("%s F19",keytext); break;
# case 0x5b33347e: printf("%s F20",keytext); break;
# case 0x4f50: printf("%s PF1",keytext); break;
# case 0x4f51: printf("%s PF2",keytext); break;
# case 0x4f52: printf("%s PF3",keytext); break;
# case 0x4f53: printf("%s PF4",keytext); break;
# case 0x4f4d: printf("%s KP_Enter",keytext); break;
# case 0x4f6c: printf("%s KP_Separator",keytext); break;
# case 0x4f6d: printf("%s KP_Subtract",keytext); break;
# case 0x4f6e: printf("%s KP_Decimal",keytext); break;
# case 0x4f70: printf("%s KP_0",keytext); break;
# case 0x4f71: printf("%s KP_1",keytext); break;
# case 0x4f72: printf("%s KP_2",keytext); break;
# case 0x4f73: printf("%s KP_3",keytext); break;
# case 0x4f74: printf("%s KP_4",keytext); break;
# case 0x4f75: printf("%s KP_5",keytext); break;
# case 0x4f76: printf("%s KP_6",keytext); break;
# case 0x4f77: printf("%s KP_7",keytext); break;
# case 0x4f78: printf("%s KP_8",keytext); break;
# case 0x4f79: printf("%s KP_9",keytext); break;
# case 0x5b317e: printf("%s Find",keytext); break;
# case 0x5b327e: printf("%s Insert",keytext); break;
# case 0x5b337e: printf("%s Remove",keytext); break;
# case 0x5b347e: printf("%s Select",keytext); break;
# case 0x5b357e: printf("%s Previous",keytext); break;
# case 0x5b367e: printf("%s Next",keytext); break;
# case 0x5b41: printf("%s Up",keytext); break;
# case 0x5b42: printf("%s Down",keytext); break;
# case 0x5b43: printf("%s Left",keytext); break;
# case 0x5b44: printf("%s Right",keytext); break;
# case 0xa: break; /* Ignore LF */
# case 0x7f: printf("%s Delete",keytext); break;
# default: printf("This Key has NOT been remapped");
# }
# printf("\n");
# }
# /* keep appending each byte. x256 moves character left one byte */
# key = key*256+ch;
# /* reset the key code if the last entered character is Newline or ESCAPE */
# /* Don't include the Escape as it makes the case string too long */
# if (ch == lf || ch == esc) key = 0;
# /* print the byte value if it is not a line terminator */
# if (ch != lf) printf("Value = Hex %x", ch);
# /* if the character is printable then print the ascii char */
# if (ch >= ' ') printf(", char = >%c<", ch);
# /* if the character is an Escape the print <ESC> */
# if (ch == esc) printf(", char = <ESC>");
# /* start a new line for next character */
# printf("\n");
# }
#}
# 2. Find the Xwindow key names by running the standard X utility XEV.
# 3. Now modify DECxterm and Map the key names to a keyboard code
# using the keyboard mapping information supplied below.
# 4. Create an xterm display using the newly created DECxterm script.
# 5. Configure the terminal to display control characters by entering the
# command "# stty echoctl iexten"
# 6. Now run the vmskbmap problem that was built in step 1.
# If you now enter a key followed by a return you should see the
# ascii text, the hexadecimal representation and the VMS mapped keyname.
# This should be compared to the keyboard mapping information supplied
# below to ensure the key is mapped correctly.
# 7. Please mail any updates to Geoff.Kingsmill@compaq.com
# Keyboard Mapping
# ================
## VMS keyname "KB code required for VMS", alternate Key Name
# Delete "\177 - octal 177" = BackSpace
# Top row of keys
# ---------------
## VMS keyname "KB code required for VMS", alternate Key Name or mapping
# F1 "<ESC>[11~"
# F2 "<ESC>[12~"
# F3 "<ESC>[13~"
# F4 "<ESC>[14~"
# F5 "<ESC>[15~"
# Interrupt "<ESC>[17~" = F6
# Resume "<ESC>[18~" = F7
# Cancel "<ESC>[19~" = F8
# Main Screen "<ESC>[20~" = F9
# Exit "<ESC>[21~" = F10
# Alt Char "<ESC>[23~" = F11, Shift/F1
# (SUN) F11 key called SunF36
# (OSF1) F11 key called Escape
# Previous Field "<ESC>[24~" = F12, Shift/F2
# (SUN) F12 key called SunF37
# Erase Line "<ESC>[25~" = F13, Shift/F3
# Insert/Overstrike "<ESC>[26~" = F14, Shift/F4
# HELP "<ESC>[28~" = Shift/F5,
# (SUN) F22 (key in usual location marked Print Screen)
# (AIX) Print (key in usual location marked Print Screen)
# (Linux|HP-UX) Print (key in usual location marked Print Screen)
# DO "<ESC>[29~" = Shift/F6,
# (SUN) F21, F23 (key in usual location marked Scroll/Pause)
# (AIX) Cancel, Pause (key in usual location marked Cancel/Pause)
# (LinuxHP-UX) Scroll, Pause (key in usual location marked Scroll/Pause)
# F17 "<ESC>[31~" = Shift/F7,
# (SUN) SunAudioMute (key in usual location above NumLock PF1)
# F18 "<ESC>[32~" = Shift/F8,
# (SUN) SunAudioLowerVolume (key in usual location above KP/ PF2)
# (on Sun CDE systems this key not mapped to X)
# F19 "<ESC>[33~" = Shift/F9
# (SUN) SunAudioRaiseVolume (key in usual location above KP* PF3)
# (on Sun CDE systems this key not mapped to X)
# F20 "<ESC>[34~" = Shift/F10,
# (SUN) SunPowerSwitch (key in usual location above KP- PF4)
# (on Sun CDE systems this key not mapped to X)
# Keypad
# ------
## VMS keyname "KB code required for VMS", alternate Key Name or mapping
# PF1 "<ESC>[OP"
# (SUN, AIX, HP-UX, Linux, OSF1-PC) Num_Lock
# PF2 "<ESC>[OQ"
# (SUN, AIX, HP-UX, Linux, OSF1-PC) KP_Divide, F25
# PF3 "<ESC>[OR"
# (SUN, AIX, HP-UX, Linux, OSF1-PC) KP_Multiply, F26
# PF4 "<ESC>[OS"
# (SUN, AIX, HP-UX, Linux, OSF1-PC) KP_Subtract, F24
# KP_Subtract "<ESC>[Om"
# (SUN, AIX, HP-UX, Linux, OSF1-PC) Shift/KP_Add
# KP_Separator "<ESC>[Ol"
# (SUN, AIX, HP-UX, Linux) KP_Add
# KP_Enter "<ESC>[OM"
# KP_Decimal "<ESC>[On"
## For Keyboards with Num_Lock
## Off On
# KP_0 "<ESC>[Op" = KP_0, Insert
# KP_1 "<ESC>[Oq" = KP_1, F33
# KP_2 "<ESC>[Or" = KP_2, Down
# KP_3 "<ESC>[Os" = KP_3, F35
# KP_4 "<ESC>[Ot" = KP_4, Left
# KP_5 "<ESC>[Ou" = KP_5, F31
# KP_6 "<ESC>[Ov" = KP_6, Right
# KP_7 "<ESC>[Ow" = KP_7, F27
# KP_8 "<ESC>[Ox" = KP_8, Up
# KP_9 "<ESC>[Oy" = KP_9, F29
# Keys above Arrow Keys
# ---------------------
## VMS keyname "KB code required for VMS", alternate Key Name or mapping
# Find "<ESC>[1~" = Home
# Insert "<ESC>[2~" = Insert
# Remove "<ESC>[3~" = Delete
# Select "<ESC>[4~" = End
# Previous "<ESC>[5~" = Prior, Page Up
# Next "<ESC>[6~" = Next, Page Down
# Up "<ESC>[A"
# Down "<ESC>[B"
# Left "<ESC>[C"
# Right "<ESC>[D"
# Notes:
# - Shift<Key> must precede <Key>
# - string("\033") is an <ESC> seven bit character Octal=33, Decimal 27
# - <ESC>[ is equivalent to the <CSI> eight bit character Decimal 155
# - <ESC>O is equivalent to the <SS3> eight bit character Decimal 143
# - The VMS keyboard mapping codes can be found in sys$system:smgterms.txt
# - these lines can also be included in a resource file if required
# as follows:-
# # xrdb -nocpp -merge <<endxrdb
# myxterm*VT100.Translations: #override\n\
# <Key>BackSpace:string("\177")\n\
# Shift<Key>F1:string("\033")string("[23~")
# endxrdb
# # xterm -name myxterm
case `uname` in
SunOS)
${DECXTERM_EMULATOR:=/usr/openwin/bin/xterm} \
-xrm 'xterm*VT100.Translations: #override\n\
<Key>BackSpace : string("\177")\n\
Shift<Key>F1 :string("\033") string("[23~")\n\
<Key>SunF36 :string("\033") string("[23~")\n\
Shift<Key>F2 :string("\033") string("[24~")\n\
<Key>SunF37 :string("\033") string("[24~")\n\
Shift<Key>F3 :string("\033") string("[25~")\n\
Shift<Key>F4 :string("\033") string("[26~")\n\
Shift<Key>F5 :string("\033") string("[28~")\n\
<Key>F22 :string("\033") string("[28~")\n\
Shift<Key>F6 :string("\033") string("[29~")\n\
<Key>F21 :string("\033") string("[29~")\n\
<Key>F23 :string("\033") string("[29~")\n\
<Key>F6 :string("\033") string("[17~")\n\
Shift<Key>F7 :string("\033") string("[31~")\n\
<Key>SunAudioMute :string("\033") string("[31~")\n\
<Key>F7 :string("\033") string("[18~")\n\
Shift<Key>F8 :string("\033") string("[32~")\n\
<Key>SunAudioLowerVolume :string("\033") string("[32~")\n\
<Key>F8 :string("\033") string("[19~")\n\
Shift<Key>F9 :string("\033") string("[33~")\n\
<Key>SunAudioRaiseVolume :string("\033") string("[33~")\n\
<Key>F9 :string("\033") string("[20~")\n\
Shift<Key>F10 :string("\033") string("[34~")\n\
<Key>SunPowerSwitch :string("\033") string("[34~")\n\
<Key>F10 :string("\033") string("[21~")\n\
<KeyPress>Num_Lock :string("\033") string("OP")\n\
<KeyRelease>Num_Lock :string("\033") string("OP")\n\
<Key>KP_Divide :string("\033") string("OQ")\n\
<Key>F25 :string("\033") string("OQ")\n\
<Key>KP_Multiply :string("\033") string("OR")\n\
<Key>F26 :string("\033") string("OR")\n\
<Key>KP_Subtract :string("\033") string("OS")\n\
<Key>F24 :string("\033") string("OS")\n\
Shift<Key>KP_Add :string("\033") string("Om")\n\
<Key>KP_Add :string("\033") string("Ol")\n\
<Key>KP_Enter :string("\033") string("OM")\n\
<Key>Delete :string("\033") string("On")\n\
<Key>KP_0 :string("\033") string("Op")\n\
<Key>KP_1 :string("\033") string("Oq")\n\
<Key>KP_2 :string("\033") string("Or")\n\
<Key>KP_3 :string("\033") string("Os")\n\
<Key>KP_4 :string("\033") string("Ot")\n\
<Key>KP_5 :string("\033") string("Ou")\n\
<Key>KP_6 :string("\033") string("Ov")\n\
<Key>KP_7 :string("\033") string("Ow")\n\
<Key>KP_8 :string("\033") string("Ox")\n\
<Key>KP_9 :string("\033") string("Oy")\n\
<Key>Insert :string("\033") string("[2~")\n\
<Key>Home :string("\033") string("[1~")\n\
<Key>Prior :string("\033") string("[5~")\n\
<Key>Delete :string("\033") string("[3~")\n\
<Key>End :string("\033") string("[4~")\n\
<Key>Next :string("\033") string("[6~")' \
$xterm_options $*
;;
AIX)
# It appears that AIX CDE has a character limit restriction with the
# -xrm qualifier. The spaced formatting used elsewhere failed on AIX
# systems. Reducing the number of characters resolved this problem.
# The error message received was similar to the following:-
# Warning: translation table syntax error: ',' or ':' expected while i
# parsing event sequence.
# Warning: ... found while parsing '<Key>Prior '
# There was no syntax error. Merely reducing the number of characters
# anywhere in the -xrm string resolved the problem.
${DECXTERM_EMULATOR:=/usr/lpp/X11/bin/xterm} \
-xrm 'xterm*VT100.Translations: #override\n\
<Key>BackSpace :string("\177")\n\
Shift<Key>F1 :string("\033[23~")\n\
Shift<Key>F2 :string("\033[24~")\n\
Shift<Key>F3 :string("\033[25~")\n\
Shift<Key>F4 :string("\033[26~")\n\
Shift<Key>F5 :string("\033[28~")\n\
<Key>Print :string("\033[28~")\n\
Shift<Key>F6 :string("\033[29~")\n\
<Key>Pause :string("\033[29~")\n\
<Key>Cancel :string("\033[29~")\n\
<Key>F6 :string("\033[17~")\n\
Shift<Key>F7 :string("\033[31~")\n\
<Key>F7 :string("\033[18~")\n\
Shift<Key>F8 :string("\033[32~")\n\
<Key>F8 :string("\033[19~")\n\
Shift<Key>F9 :string("\033[33~")\n\
<Key>F9 :string("\033[20~")\n\
Shift<Key>F10 :string("\033[34~")\n\
<Key>F10 :string("\033[21~")\n\
<KeyPress>Num_Lock :string("\033OP")\n\
<KeyRelease>Num_Lock :string("\033OP")\n\
<Key>KP_Divide :string("\033OQ")\n\
<Key>F25 :string("\033OQ")\n\
<Key>KP_Multiply :string("\033OR")\n\
<Key>F26 :string("\033OR")\n\
<Key>KP_Subtract :string("\033OS")\n\
<Key>F24 :string("\033OS")\n\
Shift<Key>KP_Add :string("\033Om")\n\
<Key>KP_Add :string("\033Ol")\n\
<Key>KP_Enter :string("\033OM")\n\
<Key>KP_Decimal :string("\033On")\n\
<Key>KP_0 :string("\033Op")\n\
<Key>KP_1 :string("\033Oq")\n\
<Key>KP_2 :string("\033Or")\n\
<Key>KP_3 :string("\033Os")\n\
<Key>KP_4 :string("\033Ot")\n\
<Key>KP_5 :string("\033Ou")\n\
<Key>KP_6 :string("\033Ov")\n\
<Key>KP_7 :string("\033Ow")\n\
<Key>KP_8 :string("\033Ox")\n\
<Key>KP_9 :string("\033Oy")\n\
<Key>Insert :string("\033[2~")\n\
<Key>Home :string("\033[1~")\n\
<Key>Prior :string("\033[5~")\n\
<Key>Delete :string("\033[3~")\n\
<Key>End :string("\033[4~")\n\
<Key>Next :string("\033[6~")' \
$xterm_options $*
;;
HP-UX | Linux)
${DECXTERM_EMULATOR:=/usr/bin/X11/xterm} \
-xrm 'xterm*VT100.Translations: #override\n\
<Key>BackSpace : string("\177")\n\
Shift<Key>F1 :string("\033") string("[23~")\n\
<Key>F1 :string("\033") string("[11~")\n\
Shift<Key>F2 :string("\033") string("[24~")\n\
<Key>F2 :string("\033") string("[12~")\n\
Shift<Key>F3 :string("\033") string("[25~")\n\
<Key>F3 :string("\033") string("[13~")\n\
Shift<Key>F4 :string("\033") string("[26~")\n\
<Key>F4 :string("\033") string("[14~")\n\
Shift<Key>F5 :string("\033") string("[28~")\n\
<Key>Print :string("\033") string("[28~")\n\
<Key>F5 :string("\033") string("[15~")\n\
Shift<Key>F6 :string("\033") string("[29~")\n\
<Key>Pause :string("\033") string("[29~")\n\
<Key>Scroll_Lock :string("\033") string("[29~")\n\
<Key>F6 :string("\033") string("[17~")\n\
Shift<Key>F7 :string("\033") string("[31~")\n\
<Key>F7 :string("\033") string("[18~")\n\
Shift<Key>F8 :string("\033") string("[32~")\n\
<Key>F8 :string("\033") string("[19~")\n\
Shift<Key>F9 :string("\033") string("[33~")\n\
<Key>F9 :string("\033") string("[20~")\n\
Shift<Key>F10 :string("\033") string("[34~")\n\
<Key>F10 :string("\033") string("[21~")\n\
<Key>Num_Lock :string("\033") string("OP")\n\
<Key>KP_Divide :string("\033") string("OQ")\n\
<Key>F25 :string("\033") string("OQ")\n\
<Key>KP_Multiply :string("\033") string("OR")\n\
<Key>F26 :string("\033") string("OR")\n\
<Key>KP_Subtract :string("\033") string("OS")\n\
<Key>F24 :string("\033") string("OS")\n\
Shift<Key>KP_Add :string("\033") string("Om")\n\
<Key>KP_Add :string("\033") string("Ol")\n\
<Key>KP_Enter :string("\033") string("OM")\n\
<Key>KP_Decimal :string("\033") string("On")\n\
<Key>KP_0 :string("\033") string("Op")\n\
<Key>KP_1 :string("\033") string("Oq")\n\
<Key>KP_2 :string("\033") string("Or")\n\
<Key>KP_3 :string("\033") string("Os")\n\
<Key>KP_4 :string("\033") string("Ot")\n\
<Key>KP_5 :string("\033") string("Ou")\n\
<Key>KP_6 :string("\033") string("Ov")\n\
<Key>KP_7 :string("\033") string("Ow")\n\
<Key>KP_8 :string("\033") string("Ox")\n\
<Key>KP_9 :string("\033") string("Oy")\n\
<Key>Insert :string("\033") string("[2~")\n\
<Key>Home :string("\033") string("[1~")\n\
<Key>Prior :string("\033") string("[5~")\n\
<Key>Delete :string("\033") string("[3~")\n\
<Key>End :string("\033") string("[4~")\n\
<Key>Next :string("\033") string("[6~")\n\
<Key>Up :string("\033") string("[A")\n\
<Key>Down :string("\033") string("[B")\n\
<Key>Left :string("\033") string("[C")\n\
<Key>Right :string("\033") string("[D")' \
$xterm_options $*
;;
OSF1)
KB=`/usr/sbin/sizer -wk | cut -c -2`
case $KB in
LK) # OSF1 LK2xx or LK4xx VMS style keyboards
${DECXTERM_EMULATOR:=/usr/bin/X11/xterm} \
-xrm 'xterm*VT100.Translations: #override\n\
Shift<Key>F1 :string("\033") string("[23~")\n\
<Key>Escape :string("\033") string("[23~")\n\
Shift<Key>F2 :string("\033") string("[24~")\n\
Shift<Key>F3 :string("\033") string("[25~")\n\
Shift<Key>F4 :string("\033") string("[26~")\n\
Shift<Key>F5 :string("\033") string("[28~")\n\
Shift<Key>F6 :string("\033") string("[29~")\n\
Shift<Key>F7 :string("\033") string("[31~")\n\
Shift<Key>F8 :string("\033") string("[32~")\n\
Shift<Key>F9 :string("\033") string("[33~")\n\
Shift<Key>F10 :string("\033") string("[34~")\n\
<Key>KP_Subtract :string("\033") string("Om")\n\
<Key>KP_Separator :string("\033") string("Ol")\n\
<Key>KP_Enter :string("\033") string("OM")\n\
<Key>KP_Decimal :string("\033") string("On")\n\
<Key>KP_0 :string("\033") string("Op")\n\
<Key>KP_1 :string("\033") string("Oq")\n\
<Key>KP_2 :string("\033") string("Or")\n\
<Key>KP_3 :string("\033") string("Os")\n\
<Key>KP_4 :string("\033") string("Ot")\n\
<Key>KP_5 :string("\033") string("Ou")\n\
<Key>KP_6 :string("\033") string("Ov")\n\
<Key>KP_7 :string("\033") string("Ow")\n\
<Key>KP_8 :string("\033") string("Ox")\n\
<Key>KP_9 :string("\033") string("Oy")' \
$xterm_options $*
;;
PC|''|*) # OSF1 PC style keyboard
if [ "$KB" = "" ]; then
echo -n "Unable to determine Keyboard Type for `uname`, "
echo "Using default PC keyboard."
else
if [ "$KB" != PC ]; then
echo -n "DECxterm has not been configured for Keyboard Type $KB "
echo "on `uname`."
echo "Using default PC keyboard."
fi
fi
${DECXTERM_EMULATOR:=/usr/bin/X11/xterm} \
-xrm 'xterm*VT100.Translations: #override\n\
<Key>BackSpace : string("\177")\n\
Shift<Key>F1 :string("\033") string("[23~")\n\
<Key>Escape :string("\033") string("[23~")\n\
Shift<Key>F2 :string("\033") string("[24~")\n\
Shift<Key>F3 :string("\033") string("[25~")\n\
Shift<Key>F4 :string("\033") string("[26~")\n\
Shift<Key>F5 :string("\033") string("[28~")\n\
<Key>Print :string("\033") string("[28~")\n\
Shift<Key>F6 :string("\033") string("[29~")\n\
<Key>Pause :string("\033") string("[29~")\n\
<Key>Scroll_Lock :string("\033") string("[29~")\n\
<Key>F6 :string("\033") string("[17~")\n\
Shift<Key>F7 :string("\033") string("[31~")\n\
<Key>F7 :string("\033") string("[18~")\n\
Shift<Key>F8 :string("\033") string("[32~")\n\
<Key>F8 :string("\033") string("[19~")\n\
Shift<Key>F9 :string("\033") string("[33~")\n\
<Key>F9 :string("\033") string("[20~")\n\
Shift<Key>F10 :string("\033") string("[34~")\n\
<Key>F10 :string("\033") string("[21~")\n\
<Key>Num_Lock :string("\033") string("OP")\n\
<Key>KP_Divide :string("\033") string("OQ")\n\
<Key>F25 :string("\033") string("OQ")\n\
<Key>KP_Multiply :string("\033") string("OR")\n\
<Key>F26 :string("\033") string("OR")\n\
<Key>KP_Subtract :string("\033") string("OS")\n\
<Key>F24 :string("\033") string("OS")\n\
Shift<Key>KP_Add :string("\033") string("Om")\n\
<Key>KP_Add :string("\033") string("Ol")\n\
<Key>KP_Separator :string("\033") string("Ol")\n\
<Key>KP_Enter :string("\033") string("OM")\n\
<Key>KP_Decimal :string("\033") string("On")\n\
<Key>KP_0 :string("\033") string("Op")\n\
<Key>KP_1 :string("\033") string("Oq")\n\
<Key>KP_2 :string("\033") string("Or")\n\
<Key>KP_3 :string("\033") string("Os")\n\
<Key>KP_4 :string("\033") string("Ot")\n\
<Key>KP_5 :string("\033") string("Ou")\n\
<Key>KP_6 :string("\033") string("Ov")\n\
<Key>KP_7 :string("\033") string("Ow")\n\
<Key>KP_8 :string("\033") string("Ox")\n\
<Key>KP_9 :string("\033") string("Oy")\n\
<Key>Insert :string("\033") string("[2~")\n\
<Key>Home :string("\033") string("[1~")\n\
<Key>Prior :string("\033") string("[5~")\n\
<Key>Delete :string("\033") string("[3~")\n\
<Key>End :string("\033") string("[4~")\n\
<Key>Next :string("\033") string("[6~")' \
$xterm_options $*
;;
esac
;;
*)
echo "No Keyboard Mapping defined for `uname`, Using default settings"
${DECXTERM_EMULATOR:=xterm} $xterm_options $*
;;
esac
|