diff options
| author | lukeg <lukeg> | 2003-02-21 19:01:14 +0000 |
|---|---|---|
| committer | lukeg <lukeg> | 2003-02-21 19:01:14 +0000 |
| commit | e7d48fe500f6ed676ee1b212ebd61408bced1c5b (patch) | |
| tree | 11a756c7bb4906f3e186c1cb8331cb7ed27bc69c /mods/src/em_scheme_scan.xrl | |
| download | ermacs-fork-e7d48fe500f6ed676ee1b212ebd61408bced1c5b.tar.gz | |
*** empty log message ***
Diffstat (limited to 'mods/src/em_scheme_scan.xrl')
| -rw-r--r-- | mods/src/em_scheme_scan.xrl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/mods/src/em_scheme_scan.xrl b/mods/src/em_scheme_scan.xrl new file mode 100644 index 0000000..632cf13 --- /dev/null +++ b/mods/src/em_scheme_scan.xrl @@ -0,0 +1,18 @@ +Definitions. + +AtomChar = [^\s\r\n\(\)] +WS = [\s\r\n] + +Rules. + +\( : {token, {'(', YYline}}. +\) : {token, {')', YYline}}. + +lambda : {token, {special, YYline}}. +define : {token, {special, YYline}}. +let : {token, {special, YYline}}. + +({AtomChar}{AtomChar}*) : {token, {atom, YYline, YYtext}}. +%% Ignore +{WS} : skip_token. + |