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

Parse negative numbers.

This commit is contained in:
Simon Forman 2019-08-12 21:13:11 -07:00
parent 143b711028
commit 8947dff010
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
thun/gnu-prolog/parser.pl
View File

@ -35,7 +35,7 @@ symbol(C) --> chars(Chars), !, {Chars \= "==", atom_codes(C, Chars)}.
% TODO: negative numbers, floats, scientific notation.
num(N) --> digits(Codes), !, { number_codes(N, Codes) }.
num(N) --> signed_digits(Codes), !, { number_codes(N, Codes) }.
% Groups of characters.
@ -43,6 +43,9 @@ chars(Chars) --> one_or_more(char, Chars).
blanks --> blank, !, blanks | [].
digits(Digits) --> one_or_more(digit, Digits).
signed_digits([45|Codes]) --> "-", !, digits(Codes).
signed_digits( Codes ) --> digits(Codes).
% Character types.
char(Ch) --> [Ch], { nonvar(Ch), Ch =\= 0'[, Ch =\= 0'], between(33, 126, Ch) }.