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

verbosity cleanup -- not finished yet

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-05-10 15:44:28 +01:00
parent e98c4c9f2a
commit 516f89b76d
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CMakeLists.txt
View File

@ -129,6 +129,7 @@ else()
endif() endif()
option (WITH_CUDD "BDD CUDD package" ON)
if (WITH_CUDD) if (WITH_CUDD)
#detect cudd setup, as it is shared between different installations. #detect cudd setup, as it is shared between different installations.

6
pl/boot.yap
View File

@ -1383,11 +1383,9 @@ not(G) :- \+ '$execute'(G).
'$silent_bootstrap'(F) :- '$silent_bootstrap'(F) :-
yap_flag(verbose, _, silent), yap_flag(verbose, Old, silent),
yap_flag(verbose_load, _, silent),
bootstrap( F ), bootstrap( F ),
yap_flag(verbose, _, normal), yap_flag(verbose, _, Old),
yap_flag(verbose_load, _, normal),
'$live'. '$live'.

1
pl/consult.yap
View File

@ -260,7 +260,6 @@ load_files(Files,Opts) :-
'$load_files'(Files, Opts, Call) :- '$load_files'(Files, Opts, Call) :-
( '$nb_getval'('$lf_status', OldTOpts, fail), nonvar(OldTOpts) -> ( '$nb_getval'('$lf_status', OldTOpts, fail), nonvar(OldTOpts) ->
'$lf_opt'(silent, OldTOpts, OldVerbosity),
'$lf_opt'(autoload, OldTOpts, OldAutoload) '$lf_opt'(autoload, OldTOpts, OldAutoload)
; ;
'$lf_option'(last_opt, LastOpt), '$lf_option'(last_opt, LastOpt),

8
pl/messages.yap
View File

@ -884,13 +884,15 @@ stub to ensure everything os ok
*/ */
prolog:print_message(Level, _Msg) :-
current_prolog_flag(verbose, silent),
Level \= error,
Level \= warning,
!.
prolog:print_message(_, _Msg) :- prolog:print_message(_, _Msg) :-
% first step at hook processi --ng % first step at hook processi --ng
'$nb_getval'('$if_skip_mode',skip,fail), '$nb_getval'('$if_skip_mode',skip,fail),
!. !.
prolog:print_message(informational, _Msg) :-
current_prolog_flag(verbose, silent),
!.
prolog:print_message(banner, _Msg) :- prolog:print_message(banner, _Msg) :-
current_prolog_flag(verbose, silent), current_prolog_flag(verbose, silent),
!. !.