get rid of silly compilation messages in CLPQR
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@271 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
1012146c28
commit
821af0b738
|
@ -8,9 +8,9 @@
|
||||||
@c @setchapternewpage odd
|
@c @setchapternewpage odd
|
||||||
@c %**end of header
|
@c %**end of header
|
||||||
|
|
||||||
@set VERSION 4.3.20
|
@set VERSION 4.3.21
|
||||||
@set EDITION 4.1.0
|
@set EDITION 4.1.1
|
||||||
@set UPDATED July 2001
|
@set UPDATED January 2002
|
||||||
|
|
||||||
@c Index for C-Prolog compatible predicate
|
@c Index for C-Prolog compatible predicate
|
||||||
@defindex cy
|
@defindex cy
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
Name: Yap
|
Name: Yap
|
||||||
Summary: Prolog Compiler
|
Summary: Prolog Compiler
|
||||||
Version: 4.3.20
|
Version: 4.3.21
|
||||||
Packager: Vitor Santos Costa <vitor@cos.ufrj.br>
|
Packager: Vitor Santos Costa <vitor@cos.ufrj.br>
|
||||||
Release: 1
|
Release: 1
|
||||||
Source: http://www.ncc.up.pt/~vsc/Yap/Yap4.3/%{name}-%{version}.tar.gz
|
Source: http://www.ncc.up.pt/~vsc/Yap/Yap4.3/%{name}-%{version}.tar.gz
|
||||||
|
|
|
@ -56,7 +56,7 @@ print_message(informational,M) :-
|
||||||
print_message(warning,M) :-
|
print_message(warning,M) :-
|
||||||
format(user_error,"[ Warning: ", []),
|
format(user_error,"[ Warning: ", []),
|
||||||
'$do_print_message'(M),
|
'$do_print_message'(M),
|
||||||
format(user_error," ]", []).
|
format(user_error," ]~n", []).
|
||||||
print_message(help,M) :-
|
print_message(help,M) :-
|
||||||
format(user_error,"help on ~p",[M]).
|
format(user_error,"help on ~p",[M]).
|
||||||
|
|
||||||
|
@ -65,6 +65,9 @@ print_message(help,M) :-
|
||||||
format(user_error,"[ The debugger will first creep -- showing everything (trace) ]~n",[]).
|
format(user_error,"[ The debugger will first creep -- showing everything (trace) ]~n",[]).
|
||||||
'$do_print_message'(format(Msg, Args)) :- !,
|
'$do_print_message'(format(Msg, Args)) :- !,
|
||||||
format(user_error,Msg,Args).
|
format(user_error,Msg,Args).
|
||||||
|
'$do_print_message'(import(Pred,To,From,private)) :-
|
||||||
|
format(user_error,"importing private predicate ~w:~w to ~w",
|
||||||
|
[From,Pred,To]).
|
||||||
'$do_print_message'(Messg) :-
|
'$do_print_message'(Messg) :-
|
||||||
format(user_error,"~q",Messg).
|
format(user_error,"~q",Messg).
|
||||||
|
|
||||||
|
|
|
@ -245,8 +245,7 @@ module(N) :-
|
||||||
'$use_preds'(Ps,Publics,Mod,M).
|
'$use_preds'(Ps,Publics,Mod,M).
|
||||||
'$use_preds'(N/K,Publics,M,Mod) :-
|
'$use_preds'(N/K,Publics,M,Mod) :-
|
||||||
( '$member'(N/K,Publics) -> true ;
|
( '$member'(N/K,Publics) -> true ;
|
||||||
format(user_error,'[ Warning: there is no exported predicate ~w in module ~w]~n',
|
print_message(warning,import(N/K,Mod,M,private))
|
||||||
[N/K,M])
|
|
||||||
),
|
),
|
||||||
( '$check_import'(M,Mod,N,K) ->
|
( '$check_import'(M,Mod,N,K) ->
|
||||||
% format(user_error,'[ Importing ~w to ~w]~n',[M:N/K,Mod]),
|
% format(user_error,'[ Importing ~w to ~w]~n',[M:N/K,Mod]),
|
||||||
|
|
Reference in New Issue