aboutsummaryrefslogtreecommitdiffhomepage
path: root/mods/src/em_scheme_scan.xrl
diff options
context:
space:
mode:
Diffstat (limited to 'mods/src/em_scheme_scan.xrl')
-rw-r--r--mods/src/em_scheme_scan.xrl18
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.
+