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

Read scryerrc if goals specified but not -f specified

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2021-08-20 14:15:16 +02:00
parent 80e228f236
commit dce0c43e26
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/toplevel.pl
View File

@@ -10,6 +10,8 @@
:- use_module(library('$project_atts')). :- use_module(library('$project_atts')).
:- use_module(library('$atts')). :- use_module(library('$atts')).
:- dynamic(custom_init_file/0).
load_scryerrc :- load_scryerrc :-
( '$home_directory'(HomeDir) -> ( '$home_directory'(HomeDir) ->
append(HomeDir, "./scryerrc", ScryerrcFile), append(HomeDir, "./scryerrc", ScryerrcFile),
@@ -35,6 +37,7 @@ load_init_file(ScryerrcFile) :-
Args = Args0 Args = Args0
), ),
delegate_task(Args, []), delegate_task(Args, []),
(\+ custom_init_file -> load_scryerrc ; true),
repl. repl.
'$repl'(_) :- '$repl'(_) :-
( \+ argv(_) -> asserta('$toplevel':argv([])) ( \+ argv(_) -> asserta('$toplevel':argv([]))
@@ -46,6 +49,7 @@ load_init_file(ScryerrcFile) :-
delegate_task([], []). delegate_task([], []).
delegate_task([], Goals0) :- delegate_task([], Goals0) :-
reverse(Goals0, Goals), reverse(Goals0, Goals),
(\+ custom_init_file -> load_scryerrc ; true),
run_goals(Goals), run_goals(Goals),
repl. repl.
@@ -89,12 +93,14 @@ gather_goal(Type, Args0, Goals) :-
delegate_task(Args, [Gs|Goals]). delegate_task(Args, [Gs|Goals]).
init_file(Args0, Goals) :- init_file(Args0, Goals) :-
\+ custom_init_file,
length(Args0, N), length(Args0, N),
( N < 1 -> print_help, halt ( N < 1 -> print_help, halt
; true ; true
), ),
[File|Args] = Args0, [File|Args] = Args0,
load_init_file(File), load_init_file(File),
asserta('custom_init_file'),
delegate_task(Args, Goals). delegate_task(Args, Goals).
arg_type(g). arg_type(g).