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

DebugIO + the big sys split

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 17:16:10 +00:00
parent 99ee24ba69
commit 83fdeab85f
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
os/iopreds.c
View File

@ -384,9 +384,9 @@ PlIOError__ (const char *file, const char *function, int lineno, yap_error_numb
va_end( args ); va_end( args );
Yap_Error__(file, function, lineno, type, culprit, who); Yap_Error__(file, function, lineno, type, culprit, who);
/* and fail */ /* and fail */
return FALSE; return false;
} else { } else {
return FALSE; return false;
} }
} }
@ -420,9 +420,9 @@ InTTYLine(char *line)
TTYChar('\n'); TTYChar('\n');
*p = 0; *p = 0;
} }
#endif #endif
void void
Yap_DebugSetIFile(char *fname) Yap_DebugSetIFile(char *fname)
{ {
@ -431,10 +431,11 @@ Yap_DebugSetIFile(char *fname)
curfile = fopen(fname, "r"); curfile = fopen(fname, "r");
if (curfile == NULL) { if (curfile == NULL) {
curfile = stdin; curfile = stdin;
fprintf(stderr,"%% YAP Warning: can not open %s for input\n", fname); Yap_Warning("%% YAP open %s for input\n", fname);
} }
} }
void void
Yap_DebugEndline() Yap_DebugEndline()
{ {
@ -496,9 +497,18 @@ Yap_DebugPlWrite(Term t)
void void
Yap_DebugPlWriteln(Term t) Yap_DebugPlWriteln(Term t)
{
CACHE_REGS
Yap_plwrite(t, NULL, 15, 0, 1200);
Yap_DebugPutc (GLOBAL_Stream[LOCAL_c_error_stream].file, '.');
Yap_DebugPutc (GLOBAL_Stream[LOCAL_c_error_stream].file, 10);
}
void
Yap_DebugErrorPutc(int c) Yap_DebugErrorPutc(int c)
{ {
Yap_DebugPutc (stderr, c); CACHE_REGS
Yap_DebugPutc (GLOBAL_Stream[LOCAL_c_error_stream].file, c);
} }
void Yap_DebugWriteIndicator( PredEntry *ap ) void Yap_DebugWriteIndicator( PredEntry *ap )
@ -1980,7 +1990,10 @@ Yap_InitIOPreds(void)
Yap_InitWriteTPreds(); Yap_InitWriteTPreds();
Yap_InitReadTPreds(); Yap_InitReadTPreds();
Yap_InitFormat(); Yap_InitFormat();
Yap_InitRandomPreds();
Yap_InitReadline(); Yap_InitReadline();
Yap_InitSockets(); Yap_InitSockets();
Yap_InitSignalPreds();
Yap_InitSysPreds(); Yap_InitSysPreds();
Yap_InitTimePreds();
} }