Changeset 3252

Show
Ignore:
Timestamp:
06/03/08 10:07:05 (7 months ago)
Author:
hans
Message:

Add scan code documentation from Microsoft.
Modify layout so that Local is the Windows key, not F-Mode Shift,
suggested by Bill Clementson.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/symbolics-keyboard/layout.pdf

    r3245 r3252  
    21214 0 obj 
    2222<< /Creator (cl-pdf 2.03 - ) 
    23 /CreationDate (D:20080601133830) 
     23/CreationDate (D:20080603064604) 
    2424 >> 
    2525 endobj 
    …… 
    4545 endobj 
    46466 0 obj 
    47 << /Length 44123 
     47<< /Length 44209 
    4848 >> 
    4949stream 
    …… 
    471471/CLF103 0.30 Tf 
    472472   13.85      2.6 Td 
    473 () Tj 
    474      0.0     -0.4 Td 
    475 () Tj 
     473(52) Tj 
     474     0.0     -0.4 Td 
     475(52) Tj 
    476476ET 
    477477   14.75      2.0 m 
    …… 
    513513/CLF103 0.30 Tf 
    514514     0.1      3.6 Td 
    515 () Tj 
    516      0.0     -0.4 Td 
    517 () Tj 
     515(E0 1F) Tj 
     516     0.0     -0.4 Td 
     517(E0 1F) Tj 
    518518ET 
    519519     2.0      3.0 m 
    …… 
    13501350/CLF103 0.30 Tf 
    13511351   13.85      2.6 Td 
     1352     0.0     -0.4 Td 
     1353(') Tj 
    13521354ET 
    13531355   14.75      2.0 m 
    …… 
    13861388/CLF103 0.30 Tf 
    13871389     0.1      3.6 Td 
    1388      0.0     -0.4 Td 
    1389 (F-Mode) Tj 
     1390(Windows) Tj 
     1391     0.0     -0.4 Td 
     1392(L) Tj 
    13901393ET 
    13911394     2.0      3.0 m 
    …… 
    21782181/CLF103 0.30 Tf 
    21792182   13.85      2.6 Td 
     2183     0.0     -0.4 Td 
     2184(') Tj 
    21802185ET 
    21812186   14.75      2.0 m 
    …… 
    22142219/CLF103 0.30 Tf 
    22152220     0.1      3.6 Td 
    2216      0.0     -0.4 Td 
    2217 (F-Mode) Tj 
     2221(Windows) Tj 
     2222     0.0     -0.4 Td 
     2223(L) Tj 
    22182224ET 
    22192225     2.0      3.0 m 
    …… 
    351935250000000293 00000 n  
    352035260000000529 00000 n  
    3521 0000044707 00000 n  
    3522 0000044809 00000 n  
    3523 0000044913 00000 n  
     35270000044793 00000 n  
     35280000044895 00000 n  
     35290000044999 00000 n  
    35243530trailer 
    35253531<< /Size 10 
    …… 
    35273533>> 
    35283534startxref 
    3529 45012 
     353545098 
    35303536%%EOF 

  • trunk/projects/symbolics-keyboard/make-keymap.lisp

    r3251 r3252  
    1 ;; -*- Lisp -*- 
    2  
    3 ;; Layout generation tools for Symbolics kbdbabel. 
    4  
    5 ;; MAKE-KEYMAP generates a keymap suitable to be included in the kbdbabel assembler source 
    6 ;; DRAW-KEYBOARD generates a PDF file documenting the mapping as generated 
    7  
    8 ;; Depends on :CL-PDF, :ALEXANDRIA and :CL-PPCRE 
    9  
    10 ;; Written 2008 by Hans Huebner 
    11 ;; Placed in the public domain 
     1;;; -*- Lisp -*- 
     2 
     3;;; Layout generation tools for Symbolics kbdbabel. 
     4 
     5;;; MAKE-KEYMAP generates a keymap suitable to be included in the kbdbabel assembler source 
     6;;; DRAW-KEYBOARD generates a PDF file documenting the mapping as generated 
     7 
     8;;; This file is meant to be LOADed 
     9;;; Depends on :CL-PDF, :ALEXANDRIA and :CL-PPCRE 
     10 
     11;;; Copyright 2008 by Hans Huebner, All Rights Reserved  
     12 
     13;;; Redistribution and use in source and binary forms, with or without 
     14;;; modification, are permitted provided that the following conditions 
     15;;; are met: 
     16 
     17;;;   * Redistributions of source code must retain the above copyright 
     18;;;     notice, this list of conditions and the following disclaimer. 
     19 
     20;;;   * Redistributions in binary form must reproduce the above 
     21;;;     copyright notice, this list of conditions and the following 
     22;;;     disclaimer in the documentation and/or other materials 
     23;;;     provided with the distribution. 
     24 
     25;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED 
     26;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
     27;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
     28;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY 
     29;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
     30;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE 
     31;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
     32;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 
     33;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
     34;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
     35;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
    1236 
    1337(in-package :cl-user) 
     38 
     39(asdf:oos 'asdf:load-op :cl-pdf) 
     40(asdf:oos 'asdf:load-op :alexandria) 
     41(asdf:oos 'asdf:load-op :cl-ppcre) 
    1442 
    1543(defpackage :symbolics-keyboard 
    1644  (:nicknames "SKBD") 
    1745  (:use :cl :alexandria)) 
     46 
     47(setf pdf:*compress-streams* nil) 
    1848 
    1949(in-package :symbolics-keyboard) 
    …… 
    2656    ("Resume"           "F5") 
    2757    ("Abort"            "F6") 
     58    ("Local"            "WindowsL") 
    2859    ("SuperL"           "F7") 
    2960    ("HyperL"           "F8") 
    …… 
    167198    ("Up"               #xe0 #x75) 
    168199    ("PgDn"             #xe0 #x7a) 
    169     ("PgUp"             #xe0 #x7d))) 
     200    ("PgUp"             #xe0 #x7d) 
     201    ("WindowsL"         #xe0 #x1f) 
     202    ("WindowsR"         #xe0 #x27) 
     203    ("App"              #xe0 #x2f))) 
    170204 
    171205(defparameter *symbolics-map* 
    …… 
    361395 
    362396(defun f-mode-key-p (symbolics-key-entry) 
    363   "Return a true value if the key desribed by SYMBOLICS-KEY-ENTRY is a F-mode switch." 
    364   (member (key-name symbolics-key-entry) '("Local" "ModeLock") :test #'equal)) 
     397  "Return a true value if the key desribed by SYMBOLICS-KEY-ENTRY is the F-mode switch." 
     398  (equal (key-name symbolics-key-entry) "ModeLock")) 
    365399 
    366400(defun make-keymap () 
    …… 
    469503    ((equal "ModeLock" (car entry)) 
    470504     '("F-Mode" "Lock")) 
    471     ((equal "Local" (car entry)) 
    472      '("F-Mode")) 
    473505    (t 
    474506     (let ((scan-codes (map-symbolics-key (key-name entry) f-mode)))