rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use seq//1 and ... //0 which are now available in library(dcgs)

Browse Source
This commit is contained in:
Markus Triska
2021-11-27 16:19:16 +01:00
parent 91af72e8b1
commit 25a06b0bea
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/xpath.pl
View File

@@ -540,7 +540,7 @@ xpath_condition(contains(Haystack, Needle), Value) :- % contains(Haysta
!, !,
val_or_function(Haystack, Value, HaystackValue), val_or_function(Haystack, Value, HaystackValue),
val_or_function(Needle, Value, NeedleValue), val_or_function(Needle, Value, NeedleValue),
( phrase((list(_),list(NeedleValue),list(_)), HaystackValue) ( phrase((...,seq(NeedleValue),...), HaystackValue)
-> true -> true
). ).
xpath_condition(Spec, Dom) :- xpath_condition(Spec, Dom) :-
@@ -626,10 +626,7 @@ text_of_list([H|T]) -->
text_of_1(element(_,_,Content)) --> text_of_1(element(_,_,Content)) -->
text_of_list(Content). text_of_list(Content).
text_of_1([C|Cs]) --> list([C|Cs]). text_of_1([C|Cs]) --> seq([C|Cs]).
list([]) --> [].
list([L|Ls]) --> [L], list(Ls).
% For now, we use number_chars/2 to parse XML numbers. % For now, we use number_chars/2 to parse XML numbers.
% If the need arises, we can extend this to additional % If the need arises, we can extend this to additional