use SWI user_*.
This commit is contained in:
@@ -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
|
||||
}
|
||||
|
||||
|
||||
|
@@ -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);
|
||||
|
||||
|
Reference in New Issue
Block a user