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

pretty stuff

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-08-18 14:55:34 -05:00
parent c97cd1fcae
commit c33a345429
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/qlyr.c
View File

@ -721,7 +721,7 @@ checkChars(FILE *stream, char s[])
} }
static Atom static Atom
get_header(FILE *stream) do_header(FILE *stream)
{ {
char s[256], *p = s, ch; char s[256], *p = s, ch;
Atom at; Atom at;
@ -740,7 +740,7 @@ get_header(FILE *stream)
} }
static Int static Int
p_get_header( USES_REGS1 ) get_header( USES_REGS1 )
{ {
FILE *stream; FILE *stream;
Term t1 = Deref(ARG1); Term t1 = Deref(ARG1);
@ -754,7 +754,7 @@ p_get_header( USES_REGS1 )
if (!(stream = Yap_GetInputStream(t1, "header scanning in qload")) ) { if (!(stream = Yap_GetInputStream(t1, "header scanning in qload")) ) {
return FALSE; return FALSE;
} }
if ((at = get_header( stream )) == NIL) if ((at = do_header( stream )) == NIL)
rc = FALSE; rc = FALSE;
else rc = Yap_unify( ARG2, MkAtomTerm( at ) ); else rc = Yap_unify( ARG2, MkAtomTerm( at ) );
return rc; return rc;
@ -1144,7 +1144,7 @@ qload_program( USES_REGS1 )
return FALSE; return FALSE;
} }
Yap_Reset( YAP_RESET_FROM_RESTORE ); Yap_Reset( YAP_RESET_FROM_RESTORE );
if (get_header( stream ) == NIL) if (do_header( stream ) == NIL)
return FALSE; return FALSE;
read_module(stream); read_module(stream);
fclose( stream ); fclose( stream );
@ -1162,7 +1162,7 @@ Yap_Restore(char *s, char *lib_dir)
if (!stream) if (!stream)
return -1; return -1;
GLOBAL_RestoreFile = s; GLOBAL_RestoreFile = s;
if (get_header( stream ) == NIL) if (do_header( stream ) == NIL)
return FALSE; return FALSE;
read_module(stream); read_module(stream);
fclose( stream ); fclose( stream );
@ -1177,7 +1177,7 @@ void Yap_InitQLYR(void)
Yap_InitCPred("$qload_module_preds", 1, p_read_module_preds, SyncPredFlag|UserCPredFlag|HiddenPredFlag); Yap_InitCPred("$qload_module_preds", 1, p_read_module_preds, SyncPredFlag|UserCPredFlag|HiddenPredFlag);
Yap_InitCPred("$qload_file_preds", 1, p_read_module_preds, SyncPredFlag|HiddenPredFlag); Yap_InitCPred("$qload_file_preds", 1, p_read_module_preds, SyncPredFlag|HiddenPredFlag);
Yap_InitCPred("$qload_program", 1, qload_program, SyncPredFlag|HiddenPredFlag); Yap_InitCPred("$qload_program", 1, qload_program, SyncPredFlag|HiddenPredFlag);
Yap_InitCPred("$q_header", 2, p_get_header, SyncPredFlag|HiddenPredFlag); Yap_InitCPred("$q_header", 2, get_header, SyncPredFlag|HiddenPredFlag);
if (FALSE) { if (FALSE) {
restore_codes(); restore_codes();
} }