diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-19 21:07:00 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-19 21:07:00 -0800 |
| commit | 6d2f271a45759bd792d299f04a424d3382ef4798 (patch) | |
| tree | a8a3e2f8538ab70a828f47f3ed87e62e2a0c5adc /src/lisp/ao_lisp_read.h | |
| parent | 12a1f6ad48f2b924f71239effeb90afca75a090f (diff) | |
altos/lisp: Add floats
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_read.h')
| -rw-r--r-- | src/lisp/ao_lisp_read.h | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h index fc74a8e4..20c9c18a 100644 --- a/src/lisp/ao_lisp_read.h +++ b/src/lisp/ao_lisp_read.h @@ -26,28 +26,30 @@ # define QUOTE 4 # define STRING 5 # define NUM 6 -# define DOT 7 -# define BOOL 8 +# define FLOAT 7 +# define DOT 8 +# define BOOL 9 /* * character classes */ # define PRINTABLE 0x0001 /* \t \n ' ' - '~' */ -# define QUOTED 0x0002 /* \ anything */ -# define SPECIAL 0x0004 /* ( [ { ) ] } ' . */ +# define SPECIAL 0x0002 /* ( [ { ) ] } ' */ +# define DOTC 0x0004 /* . */ # define WHITE 0x0008 /* ' ' \t \n */ # define DIGIT 0x0010 /* [0-9] */ # define SIGN 0x0020 /* +- */ -# define ENDOFFILE 0x0040 /* end of file */ -# define COMMENT 0x0080 /* ; */ -# define IGNORE 0x0100 /* \0 - ' ' */ -# define BACKSLASH 0x0200 /* \ */ -# define VBAR 0x0400 /* | */ +# define FLOATC 0x0040 /* . e E */ +# define ENDOFFILE 0x0080 /* end of file */ +# define COMMENT 0x0100 /* ; */ +# define IGNORE 0x0200 /* \0 - ' ' */ +# define BACKSLASH 0x0400 /* \ */ # define STRINGC 0x0800 /* " */ # define POUND 0x1000 /* # */ -# define NOTNAME (STRINGC|VBAR|COMMENT|ENDOFFILE|WHITE|SPECIAL) -# define NUMBER (DIGIT|SIGN) +# define NOTNAME (STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL) +# define INTEGER (DIGIT|SIGN) +# define NUMBER (INTEGER|FLOATC) #endif /* _AO_LISP_READ_H_ */ |