projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: Allow unicode in lexer
[fw/altos]
/
src
/
scheme
/
ao_scheme_read.h
diff --git
a/src/scheme/ao_scheme_read.h
b/src/scheme/ao_scheme_read.h
index d0b9b36a466f7636066177d60a2765de30d1e1a2..34739c9ebfc601f29f11569319574874c93bfa8b 100644
(file)
--- a/
src/scheme/ao_scheme_read.h
+++ b/
src/scheme/ao_scheme_read.h
@@
-35,9
+35,10
@@
# define FLOAT 10
#endif
# define DOT 11
# define FLOAT 10
#endif
# define DOT 11
-# define BOOL 12
+# define TRUE_TOKEN 12
+# define FALSE_TOKEN 13
#ifdef AO_SCHEME_FEATURE_VECTOR
#ifdef AO_SCHEME_FEATURE_VECTOR
-# define OPEN_VECTOR 1
3
+# define OPEN_VECTOR 1
4
#endif
/*
#endif
/*
@@
-51,7
+52,8
@@
#else
# define SPECIAL_QUASI 0
#endif
#else
# define SPECIAL_QUASI 0
#endif
-# define DOTC 0x0004 /* . */
+#
+# define ALPHA 0x0004 /* A-Z a-z */
# define WHITE 0x0008 /* ' ' \t \n */
# define DIGIT 0x0010 /* [0-9] */
# define SIGN 0x0020 /* +- */
# define WHITE 0x0008 /* ' ' \t \n */
# define DIGIT 0x0010 /* [0-9] */
# define SIGN 0x0020 /* +- */
@@
-63,9
+65,8
@@
# define ENDOFFILE 0x0080 /* end of file */
# define COMMENT 0x0100 /* ; */
# define IGNORE 0x0200 /* \0 - ' ' */
# define ENDOFFILE 0x0080 /* end of file */
# define COMMENT 0x0100 /* ; */
# define IGNORE 0x0200 /* \0 - ' ' */
-# define BACKSLASH 0x0400 /* \ */
-# define STRINGC 0x0800 /* " */
-# define HEX_LETTER 0x1000 /* a-f A-F */
+# define STRINGC 0x0400 /* " */
+# define HEX_LETTER 0x0800 /* a-f A-F */
# define NOTNAME (STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL)
# define INTEGER (DIGIT|SIGN)
# define NOTNAME (STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL)
# define INTEGER (DIGIT|SIGN)