Cute! I normally re-run using the graphical debugger to find out. Maybe we should extend this to show a couple of frames of the stack above the choicepoint? In many cases I do an “up” in the gui tracer to find the call. Should we add it to the debug primitives?
Can you elaborate? No clear idea comes to mind reading that statement.
Just considering to make it work nicely, e.g., by adding source location and the immediate caller (you often do not need more), invent a good name and add it to the core system just like spy/1, trap/1, etc.
An alternative could be to add some key binding to the toplevel you can use after an nondet answer. For example, typing ? could provide this. Thus
?- p. true ? % choice point in r(a,b), File:Line % called by s(x), File:Line true
Could the use of identifying the choice points also be used when det/1 is used, the code encounters a choice point when executed and throws an error? The error could be enhanced with the details as prototyped above.
I think this would be great.
Sound good to me, most especially to add it to plunit when it prints:
PL-Unit: Test my_test: Test succeeded with choicepoint
That’s where I find it most useful.
For the fun, some progress. To use this, get the latest git version of Prolog as I’ve added a way to get access to the next candidate clause (according to clause indexing)
chp.pl (2.3 KB)
109 ?- p, print_chpoint. Warning: Last choice after success r <alt clause> Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:7: clause succeeded Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:8: next candidate clause Warning: Called from Warning:  p at /home/janw/src/swipl-devel/build.debug/chp.pl:4 true . 110 ?- p2, print_chpoint. Warning: Last choice after success r2 <in clause choice> Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:16 Warning: Called from Warning:  p2 at /home/janw/src/swipl-devel/build.debug/chp.pl:11 true . 111 ?- p3, print_chpoint. Warning: Last choice after success between(1,2,1) <foreign> Warning: Called from Warning:  p3 at /home/janw/src/swipl-devel/build.debug/chp.pl:23 true ; true.
My plan is to add this to library(prolog_stack). First I let it shimmer a bit and wait for suggesting to make the messages clearer. One annoying thing is that it might be better to show the call rather than the success of the goal that left a choicepoint. We can’t access that without backtracking though
Nice! The only suggestion I would have is to reword the messages like this:
109 ?- p, print_chpoint. % rename "Warning: Last choice after success r <alt clause>" to Warning: r left a choice point in alternate clause (after success) % rename "Warning: ...chp.pl:7: clause succeeded" to Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:7: this clause succeeded Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:8: next candidate clause Warning: Called from Warning:  p at /home/janw/src/swipl-devel/build.debug/chp.pl:4 true . 110 ?- p2, print_chpoint. % rename "Warning: Last choice after success r2 <in clause choice>" to Warning: r2 left an in-clause choice point (after success) Warning: /home/janw/src/swipl-devel/build.debug/chp.pl:16 Warning: Called from Warning:  p2 at /home/janw/src/swipl-devel/build.debug/chp.pl:11 true . 111 ?- p3, print_chpoint. % rename "Warning: Last choice after success between(1,2,1) <foreign>" to Warning: between(1,2,1) left a foreign choice point (after success) Warning: Called from Warning:  p3 at /home/janw/src/swipl-devel/build.debug/chp.pl:23 true ; true.
What would be really nice is to add escape sequences to the file and line number so one could click on it, on the terminal, and the editor would open.
Many terminal emulators support these links, (including teminator, by checking the “use custom URL handler” and providing a simple shell script to open the editor) and it is easy to do from SWI-Prolog:
link :- Line = 10, Url = 'file:///tmp/chp.pl', format('\e]8;;~w#~w\e\\This is a link to chp.pl:~w\e]8;;\e\\~n',[Url,Line,Line]).
9 ?- link. This is a link to chp.pl:10 % this would be clickable in modern terminal emulators true.
A simple script that can be used with e.g. terminator 's custom url handler (to open vim when the link is clicked):
#!/usr/bin/env swipl :- use_module(library(url)). :- initialization(main,main). main([Url]) :- parse_url(Url,Attrs), memberchk(path(File),Attrs), memberchk(fragment(Line),Attrs), format(string(Cmd),"terminator -x vim +~w '~w'",[Line,File]), shell(Cmd).
ls --hyperlink=auto are now emitting these kinds of links, albeit gcc decided to use it only for
-Wname-of-option documentation links.
Thanks for the text updates. I think that is better. I wasn’t very happy with the text anyway.
Nice to know about this escape sequence. I already hacked something using a plugin in terminator that does this for anything that looks like a filename followed by :Line. That was not very nice though. A much more widely supported option is better. Mostly means we must have a central rule to link to file locations and use this from all messages that include a file position. Should be doable Guess we do need a flag to avoid problems with some terminal emulators? Even good old xterm doesn’t get upset though (doesn’t like either )
A post was split to a new topic: Hyperlinks in terminal
Pushed some stuff that allows for
* as a reply to a toplevel answer that will call this. Added the core functionality as print_last_choice_point/0,2 to library(prolog_stack). Adding with unit tests is an exercise to the user
That is very nice, the ‘*’ in the toplevel result is useful too, good addition.
Could you add it to pl_unit when it prints:
PL-Unit: Test my_test: Test succeeded with choicepoint
? I think that would be useful too.
I left it as an exercise Haven’t looked at it. There is quite some indirection in plunit, so you may need to add the choicepoint as output argument in quite a few places
The ‘*’ at the toplevel result menu has already proven useful many times already in a short time! Quite good thinking adding that to the menu.