sforman/Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

swoncat and fiddling with parser.

Browse Source
This commit is contained in:
Simon Forman
2019-08-12 19:09:49 -07:00
parent 2e1f598aa2
commit cae79ded8f
3 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/gnu-prolog/parser.pl
+2 -2
View File
@@ -46,13 +46,13 @@ 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 }.
char(Ch) --> [Ch], { Ch \== 0'[, Ch \== 0'], between(33, 126, Ch) }.
blanks --> blank, !, blanks.
blanks --> [].
blank --> [32] | [13] | [10].
blank --> [Ch], { Ch =:= 32 ; between(9, 13, Ch) }.
% TODO: negative numbers, floats, scientific notation.