treerack/scheme.parser

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*;