From 612f09893cffd4205fb19bba5a93a0c101f91289 Mon Sep 17 00:00:00 2001 From: Markus Triska Date: Sat, 13 Aug 2022 21:42:44 +0200 Subject: [PATCH] use newly available ... //0 from library(dcgs) --- src/lib/xpath.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/lib/xpath.pl b/src/lib/xpath.pl index 1701e424..b4d74770 100644 --- a/src/lib/xpath.pl +++ b/src/lib/xpath.pl @@ -26,22 +26,22 @@ :- use_module(library(http/http_open)). :- use_module(library(sgml)). - :- use_module(library(lists)). :- use_module(library(xpath)). + :- use_module(library(dcgs)). link_to_pl_file(File) :- http_open("https://github.com/mthom/scryer-prolog", S, []), load_html(stream(S), DOM, []), xpath(DOM, //a(@href), File), - append(_, ".pl", File). + phrase((...,".pl"), File). Yielding: ?- link_to_pl_file(File). - %@ File = "/mthom/scryer-prolog/blob/master/src/lib/tabling.pl" - %@ ; File = "/mthom/scryer-prolog/blob/master/src/lib/dif.pl" - %@ ; File = "/mthom/scryer-prolog/blob/master/src/lib/freeze.pl" - %@ ; ... + %@ File = "/mthom/scryer-prolog/blob/master/src/lib/dcgs.pl" + %@ ; File = "/mthom/scryer-prolog/blob/master/src/lib/pio.pl" + %@ ; File = "/mthom/scryer-prolog/blob/master/src/lib/tabling.pl" + %@ ; ... . Parts of the original functionality may not yet work. Please consider such parts opportunities for improvements, and file -- 2.54.0