exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

lookahead, sequence

Browse source
This commit is contained in:
Mirek Kratochvil 2023-03-23 21:51:43 +01:00
parent 535598bd84
commit 17138aabda
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
inst/prelude.pl
View file

@ -57,10 +57,15 @@ lcm(X,Y,R) :- gcd(X,Y,GCD), R is X*(Y/GCD).
:- op(1200, xfx, -->).
say([], SameState, SameState) :- !.
say(Tokens, ParsedList, Rest) :-
sequence([], SameState, SameState) :- !.
sequence(Tokens, ParsedList, Rest) :-
append(Tokens, Rest, ParsedList).
load_expansion((X, L) --> Y, Xp :- (Yp, Lp)) :- !,
expand_phrasecall(X, Xp, S0, S),
expand_phrase(Y, Yp, S0, S),
expand_phrase(L, Lp, S, _).
load_expansion(X --> Y, Xp :- Yp) :- !,
expand_phrasecall(X, Xp, S0, S),
expand_phrase(Y, Yp, S0, S).
@ -71,7 +76,7 @@ expand_phrase((A, B), (Ap, Bp), S0, S) :- !,
expand_phrase((A; B), (Ap; Bp), S0, S) :- !,
expand_phrase(A, Ap, S0, S),
expand_phrase(B, Bp, S0, S).
expand_phrase(L, say(L, S0, S), S0, S) :- list(L), !.
expand_phrase(L, sequence(L, S0, S), S0, S) :- list(L), !.
expand_phrase({X}, X, S, S) :- !.
expand_phrase(!, !, S, S) :- !.
expand_phrase(X, Xp, S0, S) :- expand_phrasecall(X, Xp, S0, S).