diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow calling directives with VL and Line Number.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-02-13 09:39:29 +00:00
parent 88cc8a0bdb
commit a128d1d78d
1 changed files with 10 additions and 10 deletions

20
pl/boot.yap

@ -311,7 +311,7 @@ true :- true.
( (
O = (:- G1) O = (:- G1)
-> ->
'$process_directive'(G1, Option, M) '$process_directive'(G1, Option, M, VL, Pos)
; ;
'$execute_commands'(O,VL,Pos,Option,O) '$execute_commands'(O,VL,Pos,Option,O)
). ).
@ -328,33 +328,33 @@ true :- true.
% SICStus accepts everything in files % SICStus accepts everything in files
% YAP accepts everything everywhere % YAP accepts everything everywhere
% %
'$process_directive'(G, top, M) :- '$process_directive'(G, top, M, VL, Pos) :-
'$access_yap_flags'(8, 0), !, % YAP mode, go in and do it, '$access_yap_flags'(8, 0), !, % YAP mode, go in and do it,
'$process_directive'(G, consult, M). '$process_directive'(G, consult, M, VL, Pos).
'$process_directive'(G, top, _) :- !, '$process_directive'(G, top, _, _, _) :- !,
'$do_error'(context_error((:- G),clause),query). '$do_error'(context_error((:- G),clause),query).
% %
% allow modules % allow modules
% %
'$process_directive'(M:G, Mode, _) :- !, '$process_directive'(M:G, Mode, _, VL, Pos) :- !,
'$process_directive'(G, Mode, M). '$process_directive'(G, Mode, M, VL, Pos).
% %
% default case % default case
% %
'$process_directive'(Gs, Mode, M) :- '$process_directive'(Gs, Mode, M, VL, Pos) :-
'$all_directives'(Gs), !, '$all_directives'(Gs), !,
'$exec_directives'(Gs, Mode, M). '$exec_directives'(Gs, Mode, M, VL, Pos).
% %
% ISO does not allow goals (use initialization). % ISO does not allow goals (use initialization).
% %
'$process_directive'(D, _, M) :- '$process_directive'(D, _, M, VL, Pos) :-
'$access_yap_flags'(8, 1), !, % ISO Prolog mode, go in and do it, '$access_yap_flags'(8, 1), !, % ISO Prolog mode, go in and do it,
'$do_error'(context_error((:- M:D),query),directive). '$do_error'(context_error((:- M:D),query),directive).
% %
% but YAP and SICStus does. % but YAP and SICStus does.
% %
'$process_directive'(G, _, M) :- '$process_directive'(G, _, M, VL, Pos) :-
'$exit_system_mode', '$exit_system_mode',
( '$notrace'(M:G) -> true ; format(user_error,':- ~w:~w failed.~n',[M,G]) ), ( '$notrace'(M:G) -> true ; format(user_error,':- ~w:~w failed.~n',[M,G]) ),
'$enter_system_mode'. '$enter_system_mode'.