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

warnings + some work on naming funnctions

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-07-06 11:51:24 +01:00
parent 4c56769210
commit 3a00568489
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
C/errors.c
View File

@ -99,6 +99,31 @@ Yap_Warning( const char *s, ... )
return true; return true;
} }
bool
Yap_PrintWarning( Term twarning )
{
CACHE_REGS
PredEntry * pred = RepPredProp(PredPropByFunc(FunctorPrintMessage,PROLOG_MODULE)); //PROCEDURE_print_message2;
bool rc;
Term ts[2];
if (LOCAL_within_print_message)
return false;
LOCAL_within_print_message = true;
if (pred->OpcodeOfPred == UNDEF_OPCODE) {
fprintf(stderr, "warning message:\n");
Yap_DebugPlWrite( twarning );
fprintf(stderr, "\n");
LOCAL_within_print_message = false;
return true;
}
ts[0] = MkAtomTerm( AtomWarning );
ts[1] = twarning;
rc = Yap_execute_pred( pred, ts , true PASS_REGS);
LOCAL_within_print_message = false;
return rc;
}
int Yap_HandleError( const char *s, ... ) { int Yap_HandleError( const char *s, ... ) {
CACHE_REGS CACHE_REGS
yap_error_number err = LOCAL_Error_TYPE; yap_error_number err = LOCAL_Error_TYPE;
@ -598,6 +623,7 @@ Yap_NilError(yap_error_number type, const char *format,...)
return res; return res;
} }
yamop * yamop *
Yap_Error(yap_error_number type, Term where, const char *format,...) Yap_Error(yap_error_number type, Term where, const char *format,...)
{ {