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

Diff of /src/hemlock/charmacs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.5 by chiles, Tue Jun 4 15:07:19 1991 UTC revision 1.1.1.6 by chiles, Fri Jun 21 19:42:58 1991 UTC
# Line 14  Line 14 
14  ;;; Implementation specific character-hacking macros and constants.  ;;; Implementation specific character-hacking macros and constants.
15  ;;;  ;;;
16  (in-package 'hemlock-internals)  (in-package 'hemlock-internals)
17  (export ' (syntax-char-code-limit command-char-bits-limit  (export ' (syntax-char-code-limit search-char-code-limit do-alpha-chars))
18             command-char-code-limit search-char-code-limit  
19             do-alpha-chars))  ;;; This file contains various constants and macros which are implementation or
20    ;;; ASCII dependant.  It contains some versions of CHAR-CODE which do not check
21  ;;; This file contains various constants and macros which are  ;;; types and ignore the top bit so that various structures can be allocated
22  ;;; implementation or ASCII dependant.  In particular it contains  ;;; 128 long instead of 256, and we don't get errors if a loser visits a binary
23  ;;; all the character implementation parameters such as  ;;; file.
24  ;;; Command-Char-Bits-Limit, and contains various versions  ;;;
25  ;;; of char-code which don't check types and omit the top bit  ;;; There are so many different constants and macros implemented the same.
26  ;;; so that various structures can be allocated 128 long instead  ;;; This is to separate various mechanisms; for example, in principle the
27  ;;; of 256, and we don't get errors if a loser visits a binary file.  ;;; char-code-limit for the syntax functions is independant of that for the
28    ;;; searching functions
29  ;;; There are so many different constants and macros that do the same  ;;;
30  ;;; thing because in principle the char-code-limit for the syntax  
 ;;; functions is independant of that for the searching functions, etc.  
   
 ;;; This file also contains code which adds any implementation specific  
 ;;; character names to the char file's Char-Name-Alist so that there  
 ;;; is a reasonable read-syntax and print-representation for all  
 ;;; characters a user might run across.  
31    
32    
33  ;;;; Stuff for the Syntax table functions (syntax)  ;;;; Stuff for the Syntax table functions (syntax)
# Line 45  Line 39 
39  (defmacro syntax-char-code (char)  (defmacro syntax-char-code (char)
40    `(char-code ,char))    `(char-code ,char))
41    
 ;;;; Stuff for the command interpreter (interp)  
 ;;;  
 ;;;    On the Perq we have bits for command bindings, on the VAX there  
 ;;; aren't.  The code to interpret them is conditionally compiled  
 ;;; so that the VAX isnt't slowed down.  
 ;;;  
 ;;; Make command-char-code-limit 256 instead of 128 for X keyboard scan-codes.  
 (defconstant command-char-code-limit 256  
   "The upper bound on character codes supported for key bindings.")  
 (defconstant command-char-bits-limit 16  
   "The maximum value of character bits supported for key bindings.")  
 (defmacro key-char-bits (char)  
   `(logand (char-bits ,char) #xF))  
 (defmacro key-char-code (char)  
   `(char-code ,char))  
   
42    
43  ;;;; Stuff used by the searching primitives (search)  ;;;; Stuff used by the searching primitives (search)
44  ;;;  ;;;

Legend:
Removed from v.1.1.1.5  
changed lines
  Added in v.1.1.1.6

  ViewVC Help
Powered by ViewVC 1.1.5