diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-27 07:01:11 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-27 07:01:11 +0000 |
commit | 66c8612e257defa8e42bb7b50b0c88a73422e660 (patch) | |
tree | 6da0dcbef2c96b7ff01dc39ff73c737eaf435290 /src/boot/tokens.boot | |
parent | 7ade11e95e821f312618b60b76ff94f94e7edfdd (diff) | |
download | open-axiom-66c8612e257defa8e42bb7b50b0c88a73422e660.tar.gz |
* boot/includer.boot (char): Move to token.boot.
* boot/tokens.boot (shoeStartsId): Move from initial-env.lisp
(shoeIdChar): Likewise.
* boot/initial-env.lisp (CHARMEM): Remove.
Diffstat (limited to 'src/boot/tokens.boot')
-rw-r--r-- | src/boot/tokens.boot | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index a9b603ba..bf7cb255 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -36,6 +36,16 @@ import initial_-env namespace BOOTTRAN module tokens +++ converts `x', a 1-length symbol, to a character. +char x == + CHAR(symbolName x, 0) + +shoeStartsId x == + alphabetic? x or x in [char "$", char "?", char "%"] + +shoeIdChar x == + alphanumeric? x or x in [char "'", char "?", char "%"] + ++ Table of Boot keywords and their token name. shoeKeyWords == [ _ ['"and","AND"] , _ @@ -245,6 +255,7 @@ for i in [ _ for i in [ _ ["abs", "ABS"], _ ["alphabetic?", "ALPHA-CHAR-P"], _ + ["alphanumeric?", "ALPHANUMERICP"], _ ["and", "AND"] , _ ["append", "APPEND"] , _ ["apply", "APPLY"] , _ |