Add a version of Erlang parser that injects Erlson at parse time

This is the first step in making Erlson work from Erlang shell.
alavrik · Jul 9, 2011 · 17efac2 · 17efac2
1 parent 3a888a1
commit 17efac2
Show file tree

Hide file tree

Showing 4 changed files with 1,115 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -3,6 +3,7 @@ ebin
 *.beam
 *.P
 src/erl_parse.erl
+src/erl_parse_shell.erl
 
 # vim:
 *.swp
diff --git a/src/Makefile b/src/Makefile
@@ -1,4 +1,4 @@
-ERL_SOURCES = erl_parse.erl erlson_pt.erl erlson.erl
+ERL_SOURCES = erl_parse.erl erl_parse_shell.erl erlson_pt.erl erlson.erl
 ERL_TESTS = erlson_tests.erl
 TEST = erlson_tests
 

diff --git a/src/erl_parse.yrl b/src/erl_parse.yrl
@@ -352,10 +352,12 @@ record_expr -> expr_max '#' record_tuple :
 	{record,?line('$2'),'$1','','$3'}.
 record_expr -> record_expr '#' atom '.' atom :
 	{record_field,?line('$2'),'$1',element(3, '$3'),'$5'}.
+% XXX: is this useful? include anyway for completeness?
 record_expr -> record_expr '.' atom :
 	{record_field,?line('$2'),'$1','','$3'}.
 record_expr -> record_expr '#' atom record_tuple :
 	{record,?line('$2'),'$1',element(3, '$3'),'$4'}.
+% XXX: is this useful? include anyway for completeness?
 record_expr -> record_expr '#' record_tuple :
 	{record,?line('$2'),'$1','','$3'}.