/[cmucl]/src/hemlock/keytrandefs.lisp
ViewVC logotype

Contents of /src/hemlock/keytrandefs.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Mon Oct 31 04:50:12 1994 UTC (19 years, 5 months ago) by ram
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, RELEASE_18d, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, LINKAGE_TABLE, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, PRE_LINKAGE_TABLE, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, RELEASE_18a, RELEASE_18b, RELEASE_18c, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, UNICODE-BASE, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, RELENG_18, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, UNICODE-BRANCH, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.2: +0 -2 lines
Fix headed boilerplate.
1 ;;; -*- Log: hemlock.log; Mode: Lisp; Package: Hemlock-Internals -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/hemlock/keytrandefs.lisp,v 1.3 1994/10/31 04:50:12 ram Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; This file initializes character translation that would otherwise be done
13 ;;; in Rompsite.Slisp, but there are no good hacks for mapping X11 keysyms
14 ;;; to CMU Common Lisp character codes.
15 ;;;
16 ;;; Written by Bill Chiles.
17 ;;;
18
19 ;;; The IBM RT keyboard has X11 keysyms defined for the following modifier
20 ;;; keys, but we leave them mapped to nil indicating that they are non-events
21 ;;; to be ignored:
22 ;;; ctrl 65507
23 ;;; meta (left) 65513
24 ;;; meta (right) 65514
25 ;;; shift (left) 65505
26 ;;; shift (right) 65506
27 ;;; lock 65509
28
29 (in-package "HEMLOCK-INTERNALS")
30
31
32 ;;; Function keys for the RT.
33 ;;;
34 (define-keysym 65470 #\f1 #\s-f1)
35 (define-keysym 65471 #\f2 #\s-f2)
36 (define-keysym 65472 #\f3 #\s-f3)
37 (define-keysym 65473 #\f4 #\s-f4)
38 (define-keysym 65474 #\f5 #\s-f5)
39 (define-keysym 65475 #\f6 #\s-f6)
40 (define-keysym 65476 #\f7 #\s-f7)
41 (define-keysym 65477 #\f8 #\s-f8)
42 (define-keysym 65478 #\f9 #\s-f9)
43 (define-keysym 65479 #\f10 #\s-f10)
44 (define-keysym 65480 #\f11 #\s-f11)
45 (define-keysym 65481 #\f12 #\s-f12)
46
47 ;;; Function keys for the Sun (and other keyboards) -- L1-L10 and R1-R15.
48 ;;;
49 (define-keysym 65482 #\f13 #\s-f13)
50 (define-keysym 65483 #\f14 #\s-f14)
51 (define-keysym 65484 #\f15 #\s-f15)
52 (define-keysym 65485 #\f16 #\s-f16)
53 (define-keysym 65486 #\f17 #\s-f17)
54 (define-keysym 65487 #\f18 #\s-f18)
55 (define-keysym 65488 #\f19 #\s-f19)
56 (define-keysym 65489 #\f20 #\s-f20)
57 (define-keysym 65490 #\f21 #\s-f21)
58 (define-keysym 65491 #\f22 #\s-f22)
59 (define-keysym 65492 #\f23 #\s-f23)
60 (define-keysym 65493 #\f24 #\s-f24)
61 (define-keysym 65494 #\f25 #\s-f25)
62 (define-keysym 65495 #\f26 #\s-f26)
63 (define-keysym 65496 #\f27 #\s-f27)
64 (define-keysym 65497 #\f28 #\s-f28)
65 (define-keysym 65498 #\f29 #\s-f29)
66 (define-keysym 65499 #\f30 #\s-f30)
67 (define-keysym 65500 #\f31 #\s-f31)
68 (define-keysym 65501 #\f32 #\s-f32)
69 (define-keysym 65502 #\f33 #\s-f33)
70 (define-keysym 65503 #\f34 #\s-f34)
71 (define-keysym 65504 #\f35 #\s-f35)
72
73 ;;; Upper right key bank.
74 ;;;
75 (define-keysym 65377 #\printscreen #\s-printscreen)
76 ;; Couldn't type scroll lock.
77 (define-keysym 65299 #\pause #\s-pause)
78
79 ;;; Middle right key bank.
80 ;;;
81 (define-keysym 65379 #\insert #\s-insert)
82 (define-keysym 65535 #\delete #\delete)
83 (define-keysym 65360 #\home #\s-home)
84 (define-keysym 65365 #\pageup #\s-pageup)
85 (define-keysym 65367 #\end #\s-end)
86 (define-keysym 65366 #\pagedown #\s-pagedown)
87
88 ;;; Arrows.
89 ;;;
90 (define-keysym 65361 #\leftarrow #\s-leftarrow)
91 (define-keysym 65362 #\uparrow #\s-uparrow)
92 (define-keysym 65364 #\downarrow #\s-downarrow)
93 (define-keysym 65363 #\rightarrow #\s-rightarrow)
94
95 ;;; Number pad.
96 ;;;
97 (define-keysym 65407 #\numlock #\s-numlock)
98 (define-keysym 65421 #\s-return #\s-return) ;num-pad-enter
99 (define-keysym 65455 #\s-/ #\s-/) ;num-pad-/
100 (define-keysym 65450 #\s-* #\s-*) ;num-pad-*
101 (define-keysym 65453 #\s-- #\s--) ;num-pad--
102 (define-keysym 65451 #\s-+ #\s-+) ;num-pad-+
103 (define-keysym 65456 #\s-0 #\s-0) ;num-pad-0
104 (define-keysym 65457 #\s-1 #\s-1) ;num-pad-1
105 (define-keysym 65458 #\s-2 #\s-2) ;num-pad-2
106 (define-keysym 65459 #\s-3 #\s-3) ;num-pad-3
107 (define-keysym 65460 #\s-4 #\s-4) ;num-pad-4
108 (define-keysym 65461 #\s-5 #\s-5) ;num-pad-5
109 (define-keysym 65462 #\s-6 #\s-6) ;num-pad-6
110 (define-keysym 65463 #\s-7 #\s-7) ;num-pad-7
111 (define-keysym 65464 #\s-8 #\s-8) ;num-pad-8
112 (define-keysym 65465 #\s-9 #\s-9) ;num-pad-9
113 (define-keysym 65454 #\s-. #\s-.) ;num-pad-.
114
115 ;;; "Named" keys.
116 ;;;
117 (define-keysym 65289 #\tab #\tab)
118 (define-keysym 65307 #\escape #\escape) ;esc
119 (define-keysym 65288 #\backspace #\backspace)
120 (define-keysym 65293 #\return #\return) ;enter
121 (define-keysym 65512 #\linefeed #\linefeed) ;action
122 (define-keysym 32 #\space #\space)
123
124 ;;; Letters.
125 ;;;
126 (define-keysym 97 #\a) (define-keysym 65 #\A)
127 (define-keysym 98 #\b) (define-keysym 66 #\B)
128 (define-keysym 99 #\c) (define-keysym 67 #\C)
129 (define-keysym 100 #\d) (define-keysym 68 #\D)
130 (define-keysym 101 #\e) (define-keysym 69 #\E)
131 (define-keysym 102 #\f) (define-keysym 70 #\F)
132 (define-keysym 103 #\g) (define-keysym 71 #\G)
133 (define-keysym 104 #\h) (define-keysym 72 #\H)
134 (define-keysym 105 #\i) (define-keysym 73 #\I)
135 (define-keysym 106 #\j) (define-keysym 74 #\J)
136 (define-keysym 107 #\k) (define-keysym 75 #\K)
137 (define-keysym 108 #\l) (define-keysym 76 #\L)
138 (define-keysym 109 #\m) (define-keysym 77 #\M)
139 (define-keysym 110 #\n) (define-keysym 78 #\N)
140 (define-keysym 111 #\o) (define-keysym 79 #\O)
141 (define-keysym 112 #\p) (define-keysym 80 #\P)
142 (define-keysym 113 #\q) (define-keysym 81 #\Q)
143 (define-keysym 114 #\r) (define-keysym 82 #\R)
144 (define-keysym 115 #\s) (define-keysym 83 #\S)
145 (define-keysym 116 #\t) (define-keysym 84 #\T)
146 (define-keysym 117 #\u) (define-keysym 85 #\U)
147 (define-keysym 118 #\v) (define-keysym 86 #\V)
148 (define-keysym 119 #\w) (define-keysym 87 #\W)
149 (define-keysym 120 #\x) (define-keysym 88 #\X)
150 (define-keysym 121 #\y) (define-keysym 89 #\Y)
151 (define-keysym 122 #\z) (define-keysym 90 #\Z)
152
153 ;;; Standard number keys.
154 ;;;
155 (define-keysym 49 #\1) (define-keysym 33 #\!)
156 (define-keysym 50 #\2) (define-keysym 64 #\@)
157 (define-keysym 51 #\3) (define-keysym 35 #\#)
158 (define-keysym 52 #\4) (define-keysym 36 #\$)
159 (define-keysym 53 #\5) (define-keysym 37 #\%)
160 (define-keysym 54 #\6) (define-keysym 94 #\^)
161 (define-keysym 55 #\7) (define-keysym 38 #\&)
162 (define-keysym 56 #\8) (define-keysym 42 #\*)
163 (define-keysym 57 #\9) (define-keysym 40 #\()
164 (define-keysym 48 #\0) (define-keysym 41 #\))
165
166 ;;; "Standard" symbol keys.
167 ;;;
168 (define-keysym 96 #\`) (define-keysym 126 #\~)
169 (define-keysym 45 #\-) (define-keysym 95 #\_)
170 (define-keysym 61 #\=) (define-keysym 43 #\+)
171 (define-keysym 91 #\[) (define-keysym 123 #\{)
172 (define-keysym 93 #\]) (define-keysym 125 #\})
173 (define-keysym 92 #\\) (define-keysym 124 #\|)
174 (define-keysym 59 #\;) (define-keysym 58 #\:)
175 (define-keysym 39 #\') (define-keysym 34 #\")
176 (define-keysym 44 #\,) (define-keysym 60 #\<)
177 (define-keysym 46 #\.) (define-keysym 62 #\>)
178 (define-keysym 47 #\/) (define-keysym 63 #\?)
179
180
181 ;;; Sun keyboard.
182 ;;;
183 (define-keysym 65387 #\break #\s-break) ;alternate (Sun).
184 (define-keysym 65290 #\linefeed #\s-linefeed)

  ViewVC Help
Powered by ViewVC 1.1.5