src/Tools/8bit/term/isaterm
author oheimb
Fri, 11 Dec 1998 17:15:20 +0100
changeset 6025 f0e244e2123c
parent 5672 329225a6b6e0
permissions -rwxr-xr-x
initisaterm now obsolete changed modifiers
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     1
#!/bin/bash
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     2
################################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     3
# Title:      Tools/8bit/term/isaterm
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     4
# ID:         $Id$
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     5
# Author:     Franz Regensburger
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     6
# Copyright   1995 TU Muenchen
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     7
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     8
# open an xterm with isabelle font
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
     9
# derived from specterm
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    10
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    11
# Franz Regensburger <regensbu@informatik.tu-muenchen.de> 22.3.95
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    12
# 
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    13
###############################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    14
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    15
# The script `isaterm' opens a xterm window with the special 8bit font
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    16
# for Isabelle. It also provides keyboard bindings for the access to the
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    17
# graphical characters.
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    18
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    19
# The script is configured by the master makefile ../Makefile and
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    20
# the perl script ../bin/gen-isaterm which reads the configuration file
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    21
# ../config/key-table.inp. Edit these files to make changes!
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    22
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    23
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    24
###############################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    25
# do not edit below
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    26
###############################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    27
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    28
# directory where the scripts isaterm and initisaterm a located
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    29
ISATERMDIR=$ISABELLE8BIT/term
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    30
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    31
###############################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    32
# Everything below and including the line
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    33
# `*xterm*vt100.translations: #override\'
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    34
# is configured by the perl script `gen-isaterm'. 
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    35
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    36
# DO NOT EDIT THE TRANSLATION MAP.
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    37
#
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    38
# In order to make changes to the keyboard mappings you should edit
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    39
# the configuration file `key-table.inp' which is interpreted by
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    40
# the perl script `gen-isaterm', 
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    41
###############################################
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    42
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    43
# start xterm ; keyboard translations are given as resource string
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    44
# the fonts can be selected in the xterm via ctrl-button3
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    45
2852
ddb85eb8385f eliminated references to old 8bit fonts;
wenzelm
parents: 1826
diff changeset
    46
xterm -fn "isabelle14" -title "IsaTerm" -geometry 80x40 -xrm "\
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    47
*fontMenu.Label:         8 Bit Fonts for Isabelle" -xrm "\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    48
*fontMenu*font1*Label:        Isabelle 14"      -xrm "\
2852
ddb85eb8385f eliminated references to old 8bit fonts;
wenzelm
parents: 1826
diff changeset
    49
*VT100*font1:            isabelle14"          -xrm "\
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    50
*fontMenu*font2*Label:        Isabelle 24 bold"      -xrm "\
2852
ddb85eb8385f eliminated references to old 8bit fonts;
wenzelm
parents: 1826
diff changeset
    51
*VT100*font2:            isabelle24"          -xrm "\
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
    52
*xterm*vt100.translations: #override\
6025
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    53
	!Mod2 <Key>space:		string(0xa0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    54
	!Mod2 Shift <Key>g:		string(0xa1)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    55
	!Mod2 Shift <Key>d:		string(0xa2)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    56
	!Mod2 Shift <Key>j:		string(0xa3)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    57
	!Mod2 Shift <Key>l:		string(0xa4)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    58
	!Mod2 Shift <Key>p:		string(0xa5)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    59
	!Mod2 Shift <Key>s:		string(0xa6)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    60
	!Mod2 Shift <Key>f:		string(0xa7)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    61
	!Mod2 Shift <Key>q:		string(0xa8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    62
	!Mod2 Shift <Key>w:		string(0xa9)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    63
	!Mod2 <Key>a:		string(0xaa)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    64
	!Mod2 <Key>b:		string(0xab)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    65
	!Mod2 <Key>g:		string(0xac)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    66
	!Mod2 <Key>d:		string(0xad)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    67
	!Mod2 <Key>e:		string(0xae)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    68
	!Mod2 <Key>z:		string(0xaf)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    69
	!Mod2 <Key>h:		string(0xb0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    70
	!Mod2 <Key>j:		string(0xb1)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    71
	!Mod2 <Key>k:		string(0xb2)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    72
	!Mod2 <Key>l:		string(0xb3)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    73
	!Mod2 <Key>m:		string(0xb4)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    74
	!Mod2 <Key>n:		string(0xb5)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    75
	!Mod2 <Key>x:		string(0xb6)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    76
	!Mod2 <Key>p:		string(0xb7)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    77
	!Mod2 <Key>r:		string(0xb8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    78
	!Mod2 <Key>s:		string(0xb9)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    79
	!Mod2 <Key>t:		string(0xba)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    80
	!Mod2 <Key>f:		string(0xbb)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    81
	!Mod2 <Key>c:		string(0xbc)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    82
	!Mod2 <Key>q:		string(0xbd)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    83
	!Mod2 <Key>w:		string(0xbe)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    84
	!Mod4 <Key>n:		string(0xbf)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    85
	!Mod4 <Key>a:		string(0xc0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    86
	!Mod4 <Key>o:		string(0xc1)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    87
	!Mod4 <Key>f:		string(0xc2)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    88
	!Mod4 <Key>t:		string(0xc3)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    89
	!Mod4 Shift <Key>f:		string(0xc4)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    90
	!Mod4 <Key>b:		string(0xd8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    91
	!Mod4 <Key>e:		string(0xd9)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    92
	!Mod4 Shift <Key>e:		string(0xda)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    93
	!Mod4 <Key>u:		string(0xdb)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    94
	!Mod4 <Key>p:		string(0xdc)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    95
	!Mod4 Shift <Key>p:		string(0xdd)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    96
	!Mod4 <Key>l:		string(0xde)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    97
	!Mod4 Shift <Key>l:		string(0xdf)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    98
	!Mod4 <Key>g:		string(0xe0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
    99
	!Mod4 Shift <Key>g:		string(0xe1)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   100
	!Mod4 <Key>s:		string(0xe2)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   101
	!Mod4 Shift <Key>s:		string(0xe3)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   102
	!Mod4 <Key>i:		string(0xe7) string(0xe8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   103
	!Mod4 Shift <Key>i:		string(0xea) string(0xeb)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   104
	!Mod4 Shift <Key>m:		string(0xe8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   105
	!Mod4 <Key>m:		string(0xeb)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   106
	!Mod4 Shift <Key>n:		string(0xf7)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   107
	!Mod4 <Key>x:		string(0xf2)  \n\
4638
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   108
	! <Key>F2:		string(0xe4)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   109
	! <Key>F3:		string(0xdd)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   110
	! <Key>F4:		string(0xcf)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   111
	! <Key>F5:		string(0xce)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   112
	! <Key>F6:		string(0xf1)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   113
	! <Key>F7:		string(0xe5)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   114
	! <Key>F8:		string(0xda)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   115
	! <Key>F9:		string(0xc4)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   116
	! <Key>F10:		string(0xcb)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   117
	! <Key>F11:		string(0xcc)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   118
	! <Key>F12:		string(0xea) string(0xeb)  \n\
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   119
	!Shift <Key>F1:		string(0xe9)  \n\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   120
	!Shift <Key>F2:		string(0xea)  \n\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   121
	!Shift <Key>F3:		string(0xeb)  \n\
4638
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   122
	!Shift <Key>F4:		string(0xe9) string(0xeb)  \n\
1826
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   123
	!Shift <Key>F5:		string(0xf3)  \n\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   124
	!Shift <Key>F6:		string(0xf4)  \n\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   125
	!Shift <Key>F7:		string(0xf5)  \n\
2a2c0dbeb4ac Initial revision
oheimb
parents:
diff changeset
   126
	!Shift <Key>F8:		string(0xf6)  \n\
4638
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   127
	!Shift <Key>F9:		string(0xca)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   128
	!Shift <Key>F10:		string(0xc9)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   129
	!Ctrl <Key>F1:		string(0xe6)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   130
	!Ctrl <Key>F2:		string(0xe7)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   131
	!Ctrl <Key>F3:		string(0xe8)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   132
	!Ctrl <Key>F4:		string(0xe6) string(0xe8)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   133
	!Ctrl <Key>F5:		string(0xc5)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   134
	!Ctrl <Key>F6:		string(0xc6)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   135
	!Ctrl <Key>F7:		string(0xc7)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   136
	!Ctrl <Key>F8:		string(0xc8)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   137
	!Ctrl <Key>F9:		string(0xfd)  \n\
49c1b2b63aa0 re-arranged bindings for many function keys
oheimb
parents: 2852
diff changeset
   138
	!Ctrl <Key>F10:		string(0xcd)  \n\
6025
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   139
	!Mod2 <Key>F1:		string(0xed)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   140
	!Mod2 <Key>F2:		string(0xee)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   141
	!Mod2 <Key>F3:		string(0xef)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   142
	!Mod2 <Key>F4:		string(0xf0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   143
	!Mod2 <Key>F5:		string(0xd4)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   144
	!Mod2 <Key>F6:		string(0xd5)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   145
	!Mod2 <Key>F7:		string(0xd6)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   146
	!Mod2 <Key>F8:		string(0xd7)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   147
	!Mod2 <Key>F9:		string(0xdc)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   148
	!Mod2 <Key>F10:		string(0xf8)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   149
	!Mod4 <Key>F1:		string(0xf9)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   150
	!Mod4 <Key>F2:		string(0xfa)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   151
	!Mod4 <Key>F3:		string(0xfb)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   152
	!Mod4 <Key>F4:		string(0xfc)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   153
	!Mod4 <Key>F5:		string(0xd0)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   154
	!Mod4 <Key>F6:		string(0xd1)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   155
	!Mod4 <Key>F7:		string(0xd2)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   156
	!Mod4 <Key>F8:		string(0xd3)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   157
	!Mod4 <Key>F9:		string(0xf7)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   158
	!Mod4 <Key>F10:		string(0xec)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   159
	!Mod4 <Key>F11:		string(0xfe)  \n\
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   160
	!Mod4 <Key>F12:		string(0xff)  \
f0e244e2123c initisaterm now obsolete
oheimb
parents: 5672
diff changeset
   161
" $*