use SWI user_*.

This commit is contained in:
Vitor Santos Costa
2011-02-13 01:03:08 +00:00
parent 0d0a95ae8a
commit 80f190bc8a
10 changed files with 21 additions and 197 deletions

View File

@@ -362,6 +362,11 @@ initIO()
addHTable(streamAliases, (void *)*np, (void *)(intptr_t)i);
GD->io_initialised = TRUE;
#if __YAP_PROLOG__
Yap_LookupSWIStream(Suser_input);
Yap_LookupSWIStream(Suser_output);
Yap_LookupSWIStream(Suser_error);
#endif
}

View File

@@ -32,7 +32,7 @@ typedef YAP_Term (*Func)(term_t); /* foreign functions */
extern const char *Yap_GetCurrentPredName(void);
extern YAP_Int Yap_GetCurrentPredArity(void);
extern int Yap_read_term(term_t t, IOSTREAM *st, term_t *vs);
extern int Yap_LookupSWIStream(void *swi_s);
extern atom_t codeToAtom(int chrcode);