Move parser to own file.

2019-08-10 20:57:11 -07:00
parent 3af9e7e174
commit 32e77f6d73
3 changed files with 74 additions and 49 deletions
@@ -205,17 +205,6 @@ Definitions
 def(x, [dup, i]).


-/*
-Parser
-*/
-
-joy_parse([T|S]) --> blanks, joy_term(T), blanks, joy_parse(S).
-joy_parse([]) --> [].
-
-joy_term(N) --> num(N), !.
-joy_term(S) --> [0'[], !, joy_parse(S), [0']].
-joy_term(A) --> chars(Chars), !, {atom_codes(A, Chars)}.
-

 /*
 Main Loop
@@ -236,39 +225,3 @@ do_line(_Line, S,   S) :- write('Err'), nl.



-% Line is the next new-line delimited line from standard input stream as
-% a list of character codes.
-
-line(Line) :- get_code(X), line(X, Line).
-
-line(10,      []) :- !.  % break on new-lines.
-line(-1,   [eof]) :- !.  % break on EOF
-line(X, [X|Line]) :- get_code(Y), !, line(Y, Line).
-
-
-chars([Ch|Rest]) --> char(Ch), chars(Rest).
-chars([Ch])      --> char(Ch).
-
-char(Ch) --> [Ch], { Ch \== 0'[, Ch \== 0'], Ch >= 33, Ch =< 126 }.
-
-
-blanks --> blank, !, blanks.
-blanks --> [].
-
-blank --> [32].
-
-
-% TODO: negative numbers, floats, scientific notation.
-
-num(N) --> digits(Codes), !, { num(N, Codes) }.
-
-num(_, []) :- fail, !.
-num(N, [C|Codes]) :- number_codes(N, [C|Codes]).
-
-
-digits([H|T]) --> digit(H), !, digits(T).
-digits([]) --> [].
-
-digit(C) --> [C], { nonvar(C), C =< 57, C >= 48 }.
-
-