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

Merge pull request #327 from srenatus/sr/pass-argv-as-partial-strings

Browse Source 
use partial strings for passing argv to toplevel.pl
This commit is contained in:
Mark Thom
2020-04-13 11:17:08 -03:00
committed by GitHub
parent 7a135bd87c 155645307a
commit 378e9b5539
2 changed files with 12 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/prolog/toplevel.pl
View File

@@ -3,13 +3,14 @@
:- module('$toplevel', ['$repl'/1, consult/1, use_module/1, use_module/2]).
'$repl'(ListOfModules) :-
maplist('$use_list_of_modules', ListOfModules),
'$repl'([_|Args]) :-
maplist('$use_list_of_modules', Args),
false.
'$repl'(_) :- '$repl'.
'$use_list_of_modules'(Module) :-
catch(use_module(Module), E, '$print_exception'(E)).
'$use_list_of_modules'(Mod0) :-
atom_chars(Mod, Mod0),
catch(use_module(Mod), E, '$print_exception'(E)).
'$repl' :-
catch('$read_and_match', E, '$print_exception'(E)),