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

get rid of annoying debugging message. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@697 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-11-20 15:04:37 +00:00
parent f339741dd2
commit 4e727b2f34
6 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/iopreds.c
View File

@ -4715,20 +4715,20 @@ p_write_depth (void)
return (FALSE); return (FALSE);
if (IsVarTerm (t1)) if (IsVarTerm (t1))
{ {
Term t = MkIntTerm (*max_depth); Term t = MkIntTerm (max_depth);
if (!Yap_unify_constant(ARG1, t)) if (!Yap_unify_constant(ARG1, t))
return (FALSE); return (FALSE);
} }
else else
*max_depth = IntOfTerm (t1); max_depth = IntOfTerm (t1);
if (IsVarTerm (ARG2)) if (IsVarTerm (ARG2))
{ {
Term t = MkIntTerm (*max_list); Term t = MkIntTerm (max_list);
if (!Yap_unify_constant (ARG2, t)) if (!Yap_unify_constant (ARG2, t))
return (FALSE); return (FALSE);
} }
else else
*max_list = IntOfTerm (t2); max_list = IntOfTerm (t2);
return (TRUE); return (TRUE);
} }

4
C/write.c
View File

@ -364,7 +364,7 @@ writeTerm(Term t, int p, int depth, int rinfixarg)
/* context priority */ /* context priority */
{ {
if (*max_depth != 0 && depth > *max_depth) { if (max_depth != 0 && depth > max_depth) {
putAtom(Yap_LookupAtom("...")); putAtom(Yap_LookupAtom("..."));
return; return;
} }
@ -423,7 +423,7 @@ writeTerm(Term t, int p, int depth, int rinfixarg)
int new_depth = depth + 1; int new_depth = depth + 1;
long sl= 0; long sl= 0;
if (*max_list && eldepth > *max_list) { if (max_list && eldepth > max_list) {
putAtom(Yap_LookupAtom("...")); putAtom(Yap_LookupAtom("..."));
wrputc(']'); wrputc(']');
lastw = separator; lastw = separator;

8
H/Heap.h
View File

@ -10,7 +10,7 @@
* File: Heap.h * * File: Heap.h *
* mods: * * mods: *
* comments: Heap Init Structure * * comments: Heap Init Structure *
* version: $Id: Heap.h,v 1.34 2002-11-11 17:37:58 vsc Exp $ * * version: $Id: Heap.h,v 1.35 2002-11-20 15:04:35 vsc Exp $ *
*************************************************************************/ *************************************************************************/
/* information that can be stored in Code Space */ /* information that can be stored in Code Space */
@ -128,7 +128,7 @@ typedef struct various_codes {
struct pred_entry *compiler_current_pred; struct pred_entry *compiler_current_pred;
AtomHashEntry invisiblechain; AtomHashEntry invisiblechain;
OPCODE dummycode; OPCODE dummycode;
Int maxdepth, maxlist; UInt maxdepth, maxlist;
int update_mode; int update_mode;
Atom atprompt; Atom atprompt;
char prompt[MAX_PROMPT]; char prompt[MAX_PROMPT];
@ -361,8 +361,8 @@ typedef struct various_codes {
#define DUMMYCODE (&(heap_regs->dummycode )) #define DUMMYCODE (&(heap_regs->dummycode ))
#define CLAUSECODE (&(heap_regs->clausecode )) #define CLAUSECODE (&(heap_regs->clausecode ))
#define INVISIBLECHAIN heap_regs->invisiblechain #define INVISIBLECHAIN heap_regs->invisiblechain
#define max_depth (&(heap_regs->maxdepth )) #define max_depth heap_regs->maxdepth
#define max_list (&(heap_regs->maxlist )) #define max_list heap_regs->maxlist
#define AtPrompt (&(heap_regs->atprompt )) #define AtPrompt (&(heap_regs->atprompt ))
#define Prompt heap_regs->prompt #define Prompt heap_regs->prompt
#if USE_THREADED_CODE #if USE_THREADED_CODE

2
console/yap.c
View File

@ -147,7 +147,6 @@ do_bootfile (char *bootfilename)
YAP_Functor functor_query = YAP_MkFunctor(YAP_LookupAtom("?-"),1); YAP_Functor functor_query = YAP_MkFunctor(YAP_LookupAtom("?-"),1);
fprintf(stderr,"Entering Yap\n");
/* consult boot.pl */ /* consult boot.pl */
bootfile = fopen (bootfilename, "r"); bootfile = fopen (bootfilename, "r");
if (bootfile == NULL) if (bootfile == NULL)
@ -491,7 +490,6 @@ main (int argc, char **argv)
int BootMode; int BootMode;
YAP_init_args init_args; YAP_init_args init_args;
fprintf(stderr,"Entering YAP\n");
#ifdef SIMICS #ifdef SIMICS
fprintf(stdout,"Entering YAP\n"); fprintf(stdout,"Entering YAP\n");
#endif /* SIMICS */ #endif /* SIMICS */

8
docs/yap.tex
View File

@ -8784,11 +8784,7 @@ variable. In the latter case, YAP discards previous values for the
attributes. attributes.
@item The built-in @code{get_atts/2} can be used to check the values of @item The built-in @code{get_atts/2} can be used to check the values of
an attribute associated with a variable. an attribute associated with a variable.
<<<<<<< yap.tex
@item The unification algorithm calls the user-defined predicate @item The unification algorithm calls the user-defined predicate
=======
@item The unification algoritm calls the user-defined predicate
>>>>>>> 1.89
@t{verify_attributes/3} before trying to bind an attributed @t{verify_attributes/3} before trying to bind an attributed
variable. Unification will resume after this call. variable. Unification will resume after this call.
@item The user-defined predicate @item The user-defined predicate
@ -11691,8 +11687,8 @@ prints the current rule instantiated by the matched constraints. Example:
While in the debugger, a @dfn{printdepth} is in effect for limiting While in the debugger, a @dfn{printdepth} is in effect for limiting
the subterm nesting level when printing rules and constraints. the subterm nesting level when printing rules and constraints.
The limit is initially 10. This command, without arguments, resets the The limit is initially 10. This command, without arguments, resets the
limit to 10. With an argument of @var{n}, the limit is set to @var{n}, limit to 10. With an argument of @var{n}, the limit is set to
treating 0 as infinity. @var{n}. An argument @var{n} of 0 disables depth limit in the debugger.
@refill @refill
@item a @item a

12
pl/debug.yap
View File

@ -792,13 +792,13 @@ debugging :-
'$set_value'(debug,0), '$set_value'(debug,0),
'$get_value'('$trace',OldTrace), '$get_value'('$trace',OldTrace),
'$set_value'('$trace',0), '$set_value'('$trace',0),
('$pred_being_spied'(G,Module) -> write(user_error,'*') ; write(user_error,' ')), ('$pred_being_spied'(G,Module) -> CSPY = '*' ; CSPY = ' '),
( SL = L -> write(user_error,'>') ; write(user_error,' ')), ( SL = L -> SLL = '>' ; SLL = ' '),
write(user_error,' ('), write(user_error,L), write(user_error,') '),
write(user_error,P), write(user_error,': '),
( Module\=prolog, ( Module\=prolog,
Module\=user -> write(user_error,Module),write(user_error,':'); Module\=user ->
true '$format'(user_error,"~a~a (~d) ~a: ~a:",[CSPY,SLL,L,P,Module]),
;
'$format'(user_error,"~a~a (~d) ~a:",[CSPY,SLL,L,P]),
), ),
'$debugger_write'(user_error,G), '$debugger_write'(user_error,G),
'$set_value'(debug,1), '$set_value'(debug,1),