belle@skipper.dfrf.nasa.gov (Steve Belle) (04/09/91)
Does anyone have or know where I can get an Ingres termcap entry for an X11R4 xterm and/or an OpenWindows shell tool? All of the sun termcap entries delivered to us with Ingres are made for SunView. If anyone can send me one or can point me to one, I'd appreciate it. Thanks, Steve Belle PRC Inc Dryden Flight Research Facility Edwards, CA email: belle@skipper.dfrf.nasa.gov voice: 805 258 2198
ajk@gdwb.oz.au (Adrian Keats) (04/23/91)
Posting in response to belle@skipper.dfrf.nasa.gov 8 Apr 1991
#! /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 shell archive."
# Contents: README termcap xsun4.map Xdefaults
# Wrapped by ajk@skye.isd.gdwb.OZ.AU on Fri Apr 19 16:37:04 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(709 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XThe files included in this archive are for ingres running under
XOpenWindows.
X
X
XREADME this file
Xtermcap extract from .../ingres/files/termcap
Xxsun4.map put in .../ingres/files
XXdefaults resources to be set for users
X
X
XThe site conditions are as follows:
X
X-----------------------------------------------
XSun Sparcstations 1, 1+, 2, SLCs and IPCs
XSun 4 Type Keyboards
XOpenWindows v2
XSunOS 4.1.1
XIngres 6.3
X-----------------------------------------------
X
XThe keyboard mapping was done to utilise the actual key functions as much
Xas possible. It works well here.
X
XYour comments as to its suitability for your site would be appreciated as I
Xam more than happy to improve the mapping.
X
X
X
XRegards
Xajk@gdwb.OZ.AU
END_OF_FILE
if test 709 -ne `wc -c <'README'`; then
echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'termcap' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'termcap'\"
else
echo shar: Extracting \"'termcap'\" \(2816 characters\)
sed "s/^X//" >'termcap' <<'END_OF_FILE'
X########################################################################
X# Modifications by ajk@gdwb.oz.au 4.Oct.1990
X########################################################################
X# This is an improvement on the Sun terminal running under suntools
X# Modified by ajk 3.Oct.90 to suit Sun Type 4 Keyboard
X# Blinking and Change Intensity don't work, so aren't defined.
X# Anything and Reverse Video is set to Reverse Video.
X# Anything (but RV) and Underline is set to Underline.
XMu|sun4|Sun Microsystems Workstation console Type 4:\
X :co#80:li#24:cl=^L:bs:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:\
X :am:bs:km:mi:ms:pt:\
X :ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:\
X :us=2\E[4m:ue=2\E[m:\
X :ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:\
X :cs=5\E[%2;%2r:\
X :be=1\E[m:eb=1\E[m:rv=1\E[7m:re=1\E[m:ea=1\E[m:\
X :za=1\E[7m:zb=1\E[4m:zd=1\E[7m:\
X :ze=1\E[4m:zf=1\E[7m:zg=1\E[7m:zh=1\E[4m:\
X :zi=1\E[7m:zj=1\E[7m:zk=1\E[7m:es=\E[?7h:\
X :kh=\E[H:ky:k0=\E[208z:k1=\E[209z:k2=\E[210z:k3=\E[211z:pt:sr=5\EM:\
X :k4=\E[212z:k5=\E[213z:k6=\E[214z:k7=\E[216z:k8=\E[218z:k9=\E[220z:\
X :kA=\E[222z:kB=\E[225z:kC=\E[226z:kD=\E[227z:kE=\E[228z:kF=\E[229z:\
X :kG=\E[230z:kH=\E[231z:kI=\E[232z:kJ=\E[233z:kK=\E[234z:kL=\E[235z:\
X :kM=\E[193z:kN=\E[194z:kO=\E[195z:kP=\E[247z:kQ=\E[249z:kR=\E[250z:\
X :kS=\E[253z:kT=\E[254z:kn#30:\
X :mf=sun4.map:Ge=ansi:Gp=ansi:Gh:Go:Gw:GC#68:GR#23:
X# This is an improvement on the Sun terminal running under X
X# Modified by ajk 3.Oct.90 to suit Sun Type 4 Keyboard
X# Blinking and Change Intensity don't work, so aren't defined.
X# Anything and Reverse Video is set to Reverse Video.
X# Anything (but RV) and Underline is set to Underline.
XMu|xsun4|Sun Microsystems Workstation console Type 4:\
X :co#80:li#25:cl=\E[;H\E[2J:bs:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:\
X :am:bs:km:mi:ms:pt:\
X :ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:\
X :us=2\E[4m:ue=2\E[m:\
X :ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:\
X :cs=5\E[%2;%2r:\
X :be=1\E[m:eb=1\E[m:rv=1\E[7m:re=1\E[m:ea=1\E[m:\
X :za=1\E[7m:zb=1\E[4m:zd=1\E[7m:\
X :ze=1\E[4m:zf=1\E[7m:zg=1\E[7m:zh=1\E[4m:\
X :zi=1\E[7m:zj=1\E[7m:zk=1\E[7m:es=\E[?7h:\
X :kh=\E[H:ky:k0=\E[208z:k1=\E[209z:k2=\E[210z:k3=\E[211z:pt:sr=5\EM:\
X :k4=\E[212z:k5=\E[213z:k6=\E[214z:k7=\E[216z:k8=\E[218z:k9=\E[220z:\
X :kA=\E[222z:kB=\E[225z:kC=\E[226z:kD=\E[227z:kE=\E[228z:kF=\E[229z:\
X :kG=\E[230z:kH=\E[231z:kI=\E[232z:kJ=\E[233z:kK=\E[234z:kL=\E[235z:\
X :kM=\E[193z:kN=\E[194z:kO=\E[195z:kP=\E[247z:kQ=\E[249z:kR=\E[250z:\
X :kS=\E[253z:kT=\E[254z:kU=\E[224z:kn#31:\
X :mf=xsun4.map:Ge=ansi:Gp=ansi:Gh:Go:Gw:GC#68:GR#23:
X########################################################################
X# End of modifications by ajk@gdwb.oz.au 4.Oct.1990
X########################################################################
END_OF_FILE
if test 2816 -ne `wc -c <'termcap'`; then
echo shar: \"'termcap'\" unpacked with wrong size!
fi
# end of 'termcap'
fi
if test -f 'xsun4.map' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'xsun4.map'\"
else
echo shar: Extracting \"'xsun4.map'\" \(2692 characters\)
sed "s/^X//" >'xsun4.map' <<'END_OF_FILE'
X/* FRS mapping file for xsun4 (ajk) with Function Keys */
X
X/* Menu Key */
X menu = pf9 (R11)
X
X/* Help facility */
X frskey1 = pf31 (F1)
X
X/* Quit from program */
X frskey2 = pf21 (F11)
X
X/* End current screen and return to previous screen */
X frskey3 = pf20 (F10)
X
X/* Go or execute function */
X frskey4 = pf28 (Enter)
X
X/* Put cursor on top of form or table field */
X frskey5 = pf7 (Home)
X
X/* Put cursor on bottom of form or table field */
X frskey6 = pf10 (End)
X
X/* Find next occurrence of string in this column of table field */
X frskey7 = pf22 (F12)
X
X/* Save object in database */
X frskey8 = pf24 (Props)
X
X/* Forget and Undo */
X frskey9 = pf25 (Undo)
X
X/* Scroll page or form left */
X scrollleft = controlL (^L)
X
X/* Scroll page or form right */
X scrollright = controlR (^R)
X
X/* Previous screen or set of rows in table field */
X scrolldown = pf8 (PgUp)
X
X/* Next screen or set of rows in table field */
X scrollup = pf11 (PgDn)
X
X/* Print contents of current screen to file or printer */
X printscreen = pf2 (PrSc)
X
X/* Select first menu item */
X menuitem1 = pf12 (F2)
X
X/* Select second menu item */
X menuitem2 = pf13 (F3)
X
X/* Select third menu item */
X menuitem3 = pf14 (F4)
X
X/* Select fourth menu item */
X menuitem4 = pf15 (F5)
X
X/* Select fifth menu item */
X menuitem5 = pf16 (F6)
X
X/* Select sixth menu item */
X menuitem6 = pf17 (F7)
X
X/* Select seventh menu item */
X menuitem7 = pf18 (F8)
X
X/* Select eighth menu item */
X menuitem8 = pf19 (F9)
X
X/* Select ninth menu item */
X menuitem9 = pf1 (R1)
X menuitem10 = pf3 (R3)
X menuitem11 = pf4 (R4)
X menuitem12 = pf5 (R5)
X menuitem13 = pf6 (R6)
X
X/* Move cursor to next field */
X/* nextfield = controlI (Tab)*/
X nextfield = controlM (Return)
X
X/* Move cursor to previous field */
X/* previousfield = controlP (^P)*/
X/* previousfield = controlH (BS)*/
X previousfield = controlI (Tab)
X
X/* Move up one word within field */
X nextword = pf29 (grey+)
X
X/* Move back one word within field */
X previousword = pf30 (grey-)
X
X/* Switch between insert and overstrike mode */
X mode = pf26 (Ins)
X
X/* Redraw the screen */
X redraw = controlW (^W)
X
X/* Delete the character under the cursor */
X/* deletechar = controlD (^D)*/
X deletechar = controlDEL (Delete)
X
X/* Delete character immediately to left of cursor */
X/* rubout = controlDEL (Delete)*/
X/* rubout = controlD (^D)*/
X rubout = controlH (BS)
X
X/* Start default text editor on field */
X editor = controlE (^E)
X
X/* Move to first column of next row in table field */
X newrow = controlN (^N)
X
X/* Clear out the rest of the field */
X clear = pf27 (Del)
X
X/* Clear out the rest of the field, and move to next field */
X clearrest = controlF (^F)
X
X/* Auto-duplicate value while in fill mode */
X duplicate = controlA (^A)
X
END_OF_FILE
if test 2692 -ne `wc -c <'xsun4.map'`; then
echo shar: \"'xsun4.map'\" unpacked with wrong size!
fi
# end of 'xsun4.map'
fi
if test -f 'Xdefaults' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Xdefaults'\"
else
echo shar: Extracting \"'Xdefaults'\" \(1692 characters\)
sed "s/^X//" >'Xdefaults' <<'END_OF_FILE'
Xingres*sunFunctionKeys: true
Xingres*VT100*geometry: 80x25
Xingres.VT100.Translations: \
X#override <Key>F1: string(0x1b) string("[224z") \n\
X <Key>F2: string(0x1b) string("[225z") \n\
X <Key>F3: string(0x1b) string("[226z") \n\
X <Key>F4: string(0x1b) string("[227z") \n\
X <Key>F5: string(0x1b) string("[228z") \n\
X <Key>F6: string(0x1b) string("[229z") \n\
X <Key>F7: string(0x1b) string("[230z") \n\
X <Key>F8: string(0x1b) string("[231z") \n\
X <Key>F9: string(0x1b) string("[232z") \n\
X <Key>F10: string(0x1b) string("[233z") \n\
X <Key>F11: string(0x1b) string("[234z") \n\
X <Key>F12: string(0x1b) string("[235z") \n\
X <Key>F19: string(0x1b) string("[235z") \n\
X <Key>F20: string(0x06) \n\
X <Key>F21: string(0x1b) string("[208z") \n\
X <Key>F22: string(0x1b) string("[209z") \n\
X <Key>F23: string(0x1b) string("[210z") \n\
X <Key>F24: string(0x1b) string("[211z") \n\
X <Key>F25: string(0x1b) string("[212z") \n\
X <Key>F26: string(0x1b) string("[213z") \n\
X <Key>F27: string(0x1b) string("[214z") \n\
X <Key>Help: string(0x1b) string("[224z") \n\
X <Key>F29: string(0x1b) string("[216z") \n\
X <Key>F31: string(0x1b) string("[218z") \n\
X <Key>R13: string(0x1b) string("[220z") \n\
X <Key>F35: string(0x1b) string("[222z") \n\
X <Key>Up: string(0x1b) string("[A") \n\
X <Key>Left: string(0x1b) string("[D") \n\
X <Key>Right: string(0x1b) string("[C") \n\
X <Key>Down: string(0x1b) string("[B") \n\
X <Key>Insert: string(0x1b) string("[247z") \n\
X <Key>KP_Decimal: string(0x1b) string("[249z") \n\
X <Key>KP_Enter: string(0x1b) string("[250z") \n\
X <Key>KP_Subtract: string(0x1b) string("[254z") \n\
X <Key>KP_Add: string(0x1b) string("[253z")
END_OF_FILE
if test 1692 -ne `wc -c <'Xdefaults'`; then
echo shar: \"'Xdefaults'\" unpacked with wrong size!
fi
# end of 'Xdefaults'
fi
echo shar: End of shell archive.
exit 0
--
Adrian Keats Geelong & District Water Board
Phone: +61 52 262334 61-67 Ryrie St Geelong
Fax: +61 52 218236 Victoria 3220 Australia