diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-30 02:48:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-30 02:48:44 +0000 |
| commit | c8d016a2c7b8a2781eb013ecc88cff8b7b361a2b (patch) | |
| tree | 8814485e8e5ec95d79388ec122d4a752a2935fa8 /src | |
| parent | e739fdc538405684ca1a4c7e58ef26bb9d5eacad (diff) | |
| download | open-axiom-c8d016a2c7b8a2781eb013ecc88cff8b7b361a2b.tar.gz | |
* boot/tokens.boot: Declare tokens as constants.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 2 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 22 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 24 |
3 files changed, 25 insertions, 23 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index dae86473..19fc995e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2008-04-29 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/tokens.boot: Declare tokens as constants. + * boot/parser.boot (bpExportItemList): New. (bpExports): Likewise. (bpModule): Use it. diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index c286f0d5..b564c939 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -4,7 +4,7 @@ (IN-PACKAGE "BOOTTRAN") -(DEFPARAMETER |shoeKeyWords| +(DEFCONSTANT |shoeKeyWords| (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE) (LIST "catch" 'CATCH) (LIST "cross" 'CROSS) (LIST "else" 'ELSE) (LIST "for" 'FOR) (LIST "if" 'IF) @@ -44,27 +44,27 @@ (DEFPARAMETER |shoeKeyTable| (|shoeKeyTableCons|)) -(DEFPARAMETER |shoeSPACE| (QENUM " " 0)) +(DEFCONSTANT |shoeSPACE| (QENUM " " 0)) -(DEFPARAMETER |shoeESCAPE| (QENUM "_ " 0)) +(DEFCONSTANT |shoeESCAPE| (QENUM "_ " 0)) (DEFPARAMETER |shoeLispESCAPE| (QENUM "! " 0)) -(DEFPARAMETER |shoeSTRINGCHAR| (QENUM "\" " 0)) +(DEFCONSTANT |shoeSTRINGCHAR| (QENUM "\" " 0)) -(DEFPARAMETER |shoePLUSCOMMENT| (QENUM "+ " 0)) +(DEFCONSTANT |shoePLUSCOMMENT| (QENUM "+ " 0)) -(DEFPARAMETER |shoeMINUSCOMMENT| (QENUM "- " 0)) +(DEFCONSTANT |shoeMINUSCOMMENT| (QENUM "- " 0)) -(DEFPARAMETER |shoeDOT| (QENUM ". " 0)) +(DEFCONSTANT |shoeDOT| (QENUM ". " 0)) -(DEFPARAMETER |shoeEXPONENT1| (QENUM "E " 0)) +(DEFCONSTANT |shoeEXPONENT1| (QENUM "E " 0)) -(DEFPARAMETER |shoeEXPONENT2| (QENUM "e " 0)) +(DEFCONSTANT |shoeEXPONENT2| (QENUM "e " 0)) -(DEFPARAMETER |shoeCLOSEPAREN| (QENUM ") " 0)) +(DEFCONSTANT |shoeCLOSEPAREN| (QENUM ") " 0)) -(DEFPARAMETER |shoeTAB| 9) +(DEFCONSTANT |shoeTAB| 9) (DEFUN |shoeInsert| (|s| |d|) (PROG (|v| |k| |n| |u| |h| |l|) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 8895fe53..5c8382a3 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -38,7 +38,7 @@ import initial_-env )package "BOOTTRAN" ++ Table of Boot keywords and their token name. -shoeKeyWords := [ _ +shoeKeyWords == [ _ ['"and","AND"] , _ ['"by", "BY" ], _ ['"case","CASE"] , _ @@ -108,27 +108,27 @@ shoeKeyTableCons()== shoeKeyTable:=shoeKeyTableCons() -shoeSPACE := QENUM('" ", 0) +shoeSPACE == QENUM('" ", 0) -shoeESCAPE := QENUM('"__ ", 0) +shoeESCAPE == QENUM('"__ ", 0) shoeLispESCAPE := QENUM('"! ", 0) -shoeSTRING_CHAR := QENUM('"_" ", 0) +shoeSTRING_CHAR == QENUM('"_" ", 0) -shoePLUSCOMMENT := QENUM('"+ ", 0) +shoePLUSCOMMENT == QENUM('"+ ", 0) -shoeMINUSCOMMENT:= QENUM('"- ", 0) +shoeMINUSCOMMENT == QENUM('"- ", 0) -shoeDOT := QENUM('". ", 0) +shoeDOT == QENUM('". ", 0) -shoeEXPONENT1 := QENUM('"E ", 0) +shoeEXPONENT1 == QENUM('"E ", 0) -shoeEXPONENT2 := QENUM('"e ", 0) +shoeEXPONENT2 == QENUM('"e ", 0) -shoeCLOSEPAREN := QENUM('") ", 0) +shoeCLOSEPAREN == QENUM('") ", 0) ---shoeCLOSEANGLE := QENUM('"> ", 0) -shoeTAB := 9 +--shoeCLOSEANGLE == QENUM('"> ", 0) +shoeTAB == 9 shoeInsert(s,d) == l := #s |