12 lines
484 B
Plaintext
12 lines
484 B
Plaintext
whitespace:ws = [ \b\f\n\r\t\v];
|
|
comment:ws = ";" [^\n]*;
|
|
number:nows = "-"? ("0" | [1-9][0-9]*) ("." [0-9]+)? ([eE] [+\-]? [0-9]+)?;
|
|
string:nows = "\"" ([^\\"] | "\\" .)* "\"";
|
|
symbol:nows = ([^\\ \n\t\b\f\r\v\"()\[\]#] | "\\" .)+;
|
|
list-form:alias = "(" expression* ")"
|
|
| "[" expression* "]";
|
|
list = list-form;
|
|
vector = "#" list-form;
|
|
expression:alias = number | string | symbol | list;
|
|
scheme = expression*;
|