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

silent

Browse Source
This commit is contained in:
Vitor Santos Costa 2019-03-03 02:19:34 +00:00
parent ff61ab9953
commit 3f4fd7d7a3
1 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
pl/consult.yap
View File

@ -42,6 +42,7 @@
use_module/3], use_module/3],
['$add_multifile'/3, ['$add_multifile'/3,
'$csult'/2, '$csult'/2,
'$do_startup_reconsult'/1,
'$elif'/2, '$elif'/2,
'$else'/1, '$else'/1,
'$endif'/1, '$endif'/1,
@ -515,8 +516,8 @@ load_files(Files0,Opts) :-
'$start_lf'(_, Mod, PlStream, TOpts, _UserFile, File, Reexport, ImportList) :- '$start_lf'(_, Mod, PlStream, TOpts, _UserFile, File, Reexport, ImportList) :-
% check if there is a qly file % check if there is a qly file
% start_low_level_trace, % start_low_level_trace,
'$pred_exists'(absolute_file_name__(File,[],F),prolog), '$pred_exists'('$absolute_file_name'(File,[],F),prolog),
absolute_file_name__(File,[access(read),file_type(qly),file_errors(fail),solutions(first),expand(true)],F), '$absolute_file_name'(File,[access(read),file_type(qly),file_errors(fail),solutions(first),expand(true)],F),
open( F, read, Stream , [type(binary)] ), open( F, read, Stream , [type(binary)] ),
( (
'$q_header'( Stream, Type ), '$q_header'( Stream, Type ),
@ -803,7 +804,7 @@ db_files(Fs) :-
'$lf_opt'('$source_pos', TOpts, Pos), '$lf_opt'('$source_pos', TOpts, Pos),
'$lf_opt'('$from_stream', TOpts, false), '$lf_opt'('$from_stream', TOpts, false),
( QComp == auto ; QComp == large, Pos > 100*1024), ( QComp == auto ; QComp == large, Pos > 100*1024),
absolute_file_name__(UserF,[file_type(qly),solutions(first),expand(true)],F), '$absolute_file_name'(UserF,[file_type(qly),solutions(first),expand(true)],F),
!, !,
'$qsave_file_'( File, UserF, F ). '$qsave_file_'( File, UserF, F ).
'$q_do_save_file'(_File, _, _TOpts ). '$q_do_save_file'(_File, _, _TOpts ).
@ -861,6 +862,7 @@ nb_setval('$if_level',0).
'__NB_getval__'('$lf_status', TOpts, fail), '__NB_getval__'('$lf_status', TOpts, fail),
'$lf_opt'( initialization, TOpts, Ref), '$lf_opt'( initialization, TOpts, Ref),
nb:nb_queue_close(Ref, Answers, []), nb:nb_queue_close(Ref, Answers, []),
writeln(init:Answers),
'$process_init_goal'(Answers). '$process_init_goal'(Answers).
'$exec_initialization_goals'. '$exec_initialization_goals'.
@ -927,6 +929,14 @@ nb_setval('$if_level',0).
% %
% reconsult at startup... % reconsult at startup...
% %
'$do_startup_reconsult'(_X) :-
'$init_win_graphics',
fail.
'$do_startup_reconsult'(X) :-
catch(load_files(user:X, [silent(true)]), Error, '$LoopError'(Error, consult)),
!,
( current_prolog_flag(halt_after_consult, false) -> true ; halt).
'$do_startup_reconsult'(_).
'$skip_unix_header'(Stream) :- '$skip_unix_header'(Stream) :-
peek_code(Stream, 0'#), !, % 35 is ASCII for '# peek_code(Stream, 0'#), !, % 35 is ASCII for '#
@ -1033,7 +1043,7 @@ prolog_load_context(stream, Stream) :-
%format( 'L=~w~n', [(F0)] ), %format( 'L=~w~n', [(F0)] ),
( (
atom_concat(Prefix, '.qly', F0 ), atom_concat(Prefix, '.qly', F0 ),
absolute_file_name__(Prefix,[access(read),file_type(prolog),file_errors(fail),solutions(first),expand(true)],F) '$absolute_file_name'(Prefix,[access(read),file_type(prolog),file_errors(fail),solutions(first),expand(true)],F)
; ;
F0 = F F0 = F
), ),
@ -1140,11 +1150,11 @@ exists_source(File) :-
'$full_filename'(F0, F) :- '$full_filename'(F0, F) :-
'$undefined'(absolute_file_name__(F0,[],F),prolog_complete), '$undefined'('$absolute_file_name'(F0,[],F),prolog_complete),
!, !,
absolute_file_system_path(F0, F). absolute_file_system_path(F0, F).
'$full_filename'(F0, F) :- '$full_filename'(F0, F) :-
absolute_file_name__(F0,[access(read), '$absolute_file_name'(F0,[access(read),
file_type(prolog), file_type(prolog),
file_errors(fail), file_errors(fail),
solutions(first), solutions(first),
@ -1263,7 +1273,6 @@ module(Mod, Decls) :-
% prevent modules within the kernel module... % prevent modules within the kernel module...
/** @pred use_module(? _M_,? _F_,+ _L_) is directive /** @pred use_module(? _M_,? _F_,+ _L_) is directive
SICStus compatible way of using a module SICStus compatible way of using a module
@ -1441,7 +1450,9 @@ environment. Use initialization/2 for more flexible behavior.
'$initialization_queue'(G) :- '$initialization_queue'(G) :-
b_getval('$lf_status', TOpts), b_getval('$lf_status', TOpts),
'$lf_opt'( initialization, TOpts, Ref), '$lf_opt'( initialization, TOpts, Ref),
writeln(G),
nb:nb_queue_enqueue(Ref, G), nb:nb_queue_enqueue(Ref, G),
writeln(Ref),
fail. fail.
'$initialization_queue'(_). '$initialization_queue'(_).
@ -1493,6 +1504,9 @@ initialization(_G,_OPT).
@} @}
*/ */
%% @{
/** /**
@ -1500,9 +1514,6 @@ initialization(_G,_OPT).
@ingroup YAPCompilerSettings @ingroup YAPCompilerSettings
%% @{
Conditional compilation builds on the same principle as Conditional compilation builds on the same principle as
term_expansion/2, goal_expansion/2 and the expansion of term_expansion/2, goal_expansion/2 and the expansion of
grammar rules to compile sections of the source-code grammar rules to compile sections of the source-code
@ -1625,7 +1636,6 @@ no test succeeds the else branch is processed.
'$elif'(_,_). '$elif'(_,_).
/** @pred endif /** @pred endif
End of conditional compilation. End of conditional compilation.
*/ */
@ -1678,7 +1688,7 @@ End of conditional compilation.
current_prolog_flag(source, true), !. current_prolog_flag(source, true), !.
'$fetch_comp_status'(compact). '$fetch_comp_status'(compact).
/** @pred consult_depth(-int:_LV_) /** consult_depth(-int:_LV_)
* *
* Unify _LV_ with the number of files being consulted. * Unify _LV_ with the number of files being consulted.
*/ */