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

Some new functions

This commit is contained in:
Vítor Santos Costa 2015-06-19 00:52:03 +01:00
parent aef6cf35d6
commit e77b9bd32d
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
H/Yapproto.h
View File

@ -121,7 +121,7 @@ Int YAP_RunGoalOnce(Term);
/* cdmgr.c */ /* cdmgr.c */
Term Yap_all_calls(void); Term Yap_all_calls(void);
Atom Yap_ConsultingFile( USES_REGS1 ); Atom Yap_ConsultingFile( USES_REGS1 );
struct pred_entry *Yap_PredForChoicePt(choiceptr); struct pred_entry *Yap_PredForChoicePt(choiceptr bptr, op_numbers *op);
void Yap_InitCdMgr(void); void Yap_InitCdMgr(void);
struct pred_entry * Yap_PredFromClause( Term t USES_REGS ); struct pred_entry * Yap_PredFromClause( Term t USES_REGS );
int Yap_discontiguous(struct pred_entry *ap USES_REGS ); int Yap_discontiguous(struct pred_entry *ap USES_REGS );
@ -167,6 +167,7 @@ Yap_PrintPredName( struct pred_entry *ap );
#endif #endif
void Yap_RestartYap(int); void Yap_RestartYap(int);
void Yap_exit(int); void Yap_exit(int);
bool Yap_Warning( const char *s, ... );
yamop *Yap_Error(yap_error_number,Term,const char *msg, ...); yamop *Yap_Error(yap_error_number,Term,const char *msg, ...);
yamop *Yap_NilError(yap_error_number,const char *msg, ...); yamop *Yap_NilError(yap_error_number,const char *msg, ...);
int Yap_HandleError( const char *msg, ... ); int Yap_HandleError( const char *msg, ... );
@ -182,17 +183,18 @@ void Yap_InitExecFs(void);
Int Yap_JumpToEnv(Term); Int Yap_JumpToEnv(Term);
Term Yap_RunTopGoal(Term); Term Yap_RunTopGoal(Term);
void Yap_ResetExceptionTerm(int); void Yap_ResetExceptionTerm(int);
Int Yap_execute_goal(Term, int, Term); Int Yap_execute_goal(Term, int, Term, bool);
Int Yap_exec_absmi( bool, yap_reset_t ); Int Yap_exec_absmi( bool, yap_reset_t );
void Yap_trust_last(void); void Yap_trust_last(void);
Term Yap_GetException(void); Term Yap_GetException(void);
void Yap_PrepGoal(UInt, CELL *, choiceptr USES_REGS); void Yap_PrepGoal(UInt, CELL *, choiceptr USES_REGS);
int Yap_execute_pred(struct pred_entry *ppe, CELL *pt USES_REGS); int Yap_execute_pred(struct pred_entry *ppe, CELL *pt, bool pass_exception USES_REGS);
int Yap_dogc( int extra_args, Term *tp USES_REGS ); int Yap_dogc( int extra_args, Term *tp USES_REGS );
Term Yap_PredicateIndicator(Term t, Term mod); Term Yap_PredicateIndicator(Term t, Term mod);
/* exo.c */ /* exo.c */
void Yap_InitExoPreds(void); void Yap_InitExoPreds(void);
void Yap_udi_Interval_init(void); void Yap_udi_Interval_init(void);
bool Yap_Reset( yap_reset_t mode );
/* foreign.c */ /* foreign.c */
char *Yap_FindExecutable(void); char *Yap_FindExecutable(void);
@ -244,7 +246,8 @@ int Yap_locked_gcl(UInt, Int, CELL *, yamop *);
/* init.c */ /* init.c */
#ifdef DEBUG #ifdef DEBUG
int Yap_DebugPutc(int,wchar_t); int Yap_DebugPutc(FILE *,wchar_t);
int Yap_DebugPuts(FILE *,const char *);
void Yap_DebugSetIFile(char *); void Yap_DebugSetIFile(char *);
void Yap_DebugEndline(void); void Yap_DebugEndline(void);
int Yap_DebugGetc(void); int Yap_DebugGetc(void);
@ -273,11 +276,9 @@ void Yap_InitInlines(void);
int Yap_eq(Term, Term); int Yap_eq(Term, Term);
/* iopreds.c */ /* iopreds.c */
void Yap_InitPlIO (void);
void Yap_InitBackIO(void); void Yap_InitBackIO(void);
void Yap_InitIOPreds(void); void Yap_InitIOPreds(void);
void *Yap_GetStreamHandle(Atom at);
void *Yap_GetInputStream(Atom at);
void *Yap_GetOutputStream(Atom at);
#ifdef DEBUG #ifdef DEBUG
extern void Yap_DebugPlWrite (Term t); extern void Yap_DebugPlWrite (Term t);
extern void Yap_DebugErrorPutc (int n); extern void Yap_DebugErrorPutc (int n);
@ -286,7 +287,8 @@ extern void Yap_DebugErrorPuts (const char *s);
void Yap_PlWriteToStream(Term, int, int); void Yap_PlWriteToStream(Term, int, int);
/* depth_lim.c */ /* depth_lim.c */
void Yap_InitItDeepenPreds(void); void Yap_InitItDeepenPreds(void);
struct AliasDescS * Yap_InitStandardAliases(void);
/* load_foreign.c */ /* load_foreign.c */
void Yap_InitLoadForeign(void); void Yap_InitLoadForeign(void);
@ -308,7 +310,7 @@ void Yap_InitModules(void);
void Yap_InitModulesC(void); void Yap_InitModulesC(void);
struct mod_entry *Yap_GetModuleEntry(Term tmod); struct mod_entry *Yap_GetModuleEntry(Term tmod);
Term Yap_GetModuleFromEntry(struct mod_entry *me); Term Yap_GetModuleFromEntry(struct mod_entry *me);
bool Yap_CharacterEscapes(Term mt);
#if HAVE_MPI #if HAVE_MPI
/* mpi.c */ /* mpi.c */
@ -342,7 +344,7 @@ void Yap_InitRange(void);
/* save.c */ /* save.c */
int Yap_SavedInfo(char *,char *,CELL *,CELL *,CELL *); int Yap_SavedInfo(char *,char *,CELL *,CELL *,CELL *);
int Yap_SavedStateRestore(char *, char *); int Yap_SavedStateRestore(char *, char *);
struct io_stream *Yap_OpenRestore(char *, char *); FILE *Yap_OpenRestore(char *, char *);
void Yap_InitSavePreds(void); void Yap_InitSavePreds(void);
/* scanner.c */ /* scanner.c */
@ -351,6 +353,8 @@ void Yap_InitSavePreds(void);
void Yap_InitSignalCPreds(void); void Yap_InitSignalCPreds(void);
void *Yap_InitSignals(int wid); void *Yap_InitSignals(int wid);
void Yap_InitSockets (void);
/* sort.c */ /* sort.c */
void Yap_InitSortPreds(void); void Yap_InitSortPreds(void);
@ -412,7 +416,7 @@ int Yap_NOfThreads( void );
#if THREADS #if THREADS
int Yap_InitThread(int); int Yap_InitThread(int);
#endif #endif
intptr_t system_thread_id(void);
/* tracer.c */ /* tracer.c */
#ifdef LOW_LEVEL_TRACER #ifdef LOW_LEVEL_TRACER
void Yap_InitLowLevelTrace(void); void Yap_InitLowLevelTrace(void);
@ -456,9 +460,6 @@ Int Yap_SkipList(Term *, Term **);
/* write.c */ /* write.c */
void Yap_plwrite(Term, void *, int, int, int);
int Yap_FormatFloat( Float f, const char *s, size_t sz );
void Yap_WriteAtom(struct io_stream *s, Atom atom);
/* yap2swi.c */ /* yap2swi.c */
void Yap_swi_install(void); void Yap_swi_install(void);
@ -471,7 +472,7 @@ struct AtomEntryStruct *Yap_lookupBlob(void *blob, size_t len, void *type, int *
void Yap_init_optyap_preds(void); void Yap_init_optyap_preds(void);
/* pl-file.c */ /* pl-file.c */
struct PL_local_data *Yap_InitThreadIO(int wid); // struct PL_local_data *Yap_InitThreadIO(int wid);
void Yap_flush(void); void Yap_flush(void);
/* pl-yap.c */ /* pl-yap.c */
@ -484,3 +485,8 @@ gc_P(yamop *p, yamop *cp)
{ {
return (p->opc == Yap_opcode(_execute_cpred) ? cp : p); return (p->opc == Yap_opcode(_execute_cpred) ? cp : p);
} }
void
Yap_install_blobs(void);