313 lines
9.1 KiB
C
313 lines
9.1 KiB
C
/*************************************************************************
|
|
* *
|
|
* YAP Prolog @(#)c_interface.h 2.2 *
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
* *
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
* *
|
|
**************************************************************************
|
|
* *
|
|
* File: c_interface.h *
|
|
* Last rev: 19/2/88 *
|
|
* mods: *
|
|
* comments: c_interface header file for YAP *
|
|
* *
|
|
*************************************************************************/
|
|
/**
|
|
* @file c_interface.h
|
|
*
|
|
* @addtogroup ChYInterface
|
|
*/
|
|
#if !defined(_c_interface_h) && !defined(_YAP_NOT_INSTALLED_)
|
|
|
|
#define _c_interface_h 1
|
|
|
|
#include "YapInterface.h"
|
|
|
|
#define CELL YAP_CELL
|
|
|
|
#ifndef Bool
|
|
#define Bool YAP_Bool
|
|
#endif
|
|
|
|
#define Int long int
|
|
|
|
#define flt double
|
|
|
|
#define Term YAP_Term
|
|
|
|
#define Functor YAP_Functor
|
|
|
|
#define Atom YAP_Atom
|
|
|
|
#define yap_init_args YAP_init_args
|
|
|
|
#define A(X) YAP_A(X)
|
|
#define ARG1 YAP_ARG1
|
|
#define ARG2 YAP_ARG2
|
|
#define ARG3 YAP_ARG3
|
|
#define ARG4 YAP_ARG4
|
|
#define ARG5 YAP_ARG5
|
|
#define ARG6 YAP_ARG6
|
|
#define ARG7 YAP_ARG7
|
|
#define ARG8 YAP_ARG8
|
|
#define ARG9 YAP_ARG9
|
|
#define ARG10 YAP_ARG10
|
|
#define ARG11 YAP_ARG11
|
|
#define ARG12 YAP_ARG12
|
|
#define ARG13 YAP_ARG13
|
|
#define ARG14 YAP_ARG14
|
|
#define ARG15 YAP_ARG15
|
|
#define ARG16 YAP_ARG16
|
|
|
|
/* YAP_Term Deref(YAP_Term) */
|
|
#define Deref(t) YAP_Deref(t)
|
|
#define YapDeref(t) YAP_Deref(t)
|
|
|
|
/* YAP_Bool IsVarTerm(YAP_Term) */
|
|
#define IsVarTerm(t) YAP_IsVarTerm(t)
|
|
#define YapIsVarTerm(t) YAP_IsVarTerm(t)
|
|
|
|
/* YAP_Bool IsNonVarTerm(YAP_Term) */
|
|
#define IsNonVarTerm(t) YAP_IsNonVarTerm(t)
|
|
#define YapIsNonVarTerm(t) YAP_IsNonVarTerm(t)
|
|
|
|
/* YAP_Term MkVarTerm() */
|
|
#define MkVarTerm() YAP_MkVarTerm()
|
|
#define YapMkVarTerm() YAP_MkVarTerm()
|
|
|
|
/* YAP_Bool IsIntTerm(YAP_Term) */
|
|
#define IsIntTerm(t) YAP_IsIntTerm(t)
|
|
#define YapIsIntTerm(t) YAP_IsIntTerm(t)
|
|
|
|
/* YAP_Bool IsFloatTerm(YAP_Term) */
|
|
#define IsFloatTerm(t) YAP_IsFloatTerm(t)
|
|
#define YapIsFloatTerm(t) YAP_IsFloatTerm(t)
|
|
|
|
/* YAP_Bool IsDbRefTerm(YAP_Term) */
|
|
#define IsDbRefTerm(t) YAP_IsDbRefTerm(t)
|
|
#define YapIsDbRefTerm(t) YAP_IsDbRefTerm(t)
|
|
|
|
/* YAP_Bool IsAtomTerm(YAP_Term) */
|
|
#define IsAtomTerm(t) YAP_IsAtomTerm(t)
|
|
#define YapIsAtomTerm(t) YAP_IsAtomTerm(t)
|
|
|
|
/* YAP_Bool IsPairTerm(YAP_Term) */
|
|
#define IsPairTerm(t) YAP_IsPairTerm(t)
|
|
#define YapIsPairTerm(t) YAP_IsPairTerm(t)
|
|
|
|
/* YAP_Bool IsApplTerm(YAP_Term) */
|
|
#define IsApplTerm(t) YAP_IsApplTerm(t)
|
|
#define YapIsApplTerm(t) YAP_IsApplTerm(t)
|
|
|
|
/* Term MkIntTerm(YAP_Int) */
|
|
#define MkIntTerm(t) YAP_MkIntTerm(t)
|
|
#define YapMkIntTerm(t) YAP_MkIntTerm(t)
|
|
|
|
/* YAP_Int IntOfTerm(Term) */
|
|
#define IntOfTerm(t) YAP_IntOfTerm(t)
|
|
#define YapIntOfTerm(t) YAP_IntOfTerm(t)
|
|
|
|
/* Term MkFloatTerm(YAP_flt) */
|
|
#define MkFloatTerm(f) YAP_MkFloatTerm(f)
|
|
#define YapMkFloatTerm(f) YAP_MkFloatTerm(f)
|
|
|
|
/* YAP_flt FloatOfTerm(YAP_Term) */
|
|
#define FloatOfTerm(t) YAP_FloatOfTerm(t)
|
|
#define YapFloatOfTerm(t) YAP_FloatOfTerm(t)
|
|
|
|
/* Term MkAtomTerm(Atom) */
|
|
#define MkAtomTerm(a) YAP_MkAtomTerm(a)
|
|
#define YapMkAtomTerm(a) YAP_MkAtomTerm(a)
|
|
|
|
/* YAP_Atom AtomOfTerm(Term) */
|
|
#define AtomOfTerm(t) YAP_AtomOfTerm(t)
|
|
#define YapAtomOfTerm(t) YAP_AtomOfTerm(t)
|
|
|
|
/* YAP_Atom LookupAtom(char *) */
|
|
#define LookupAtom(s) YAP_LookupAtom(s)
|
|
#define YapLookupAtom(s) YAP_LookupAtom(s)
|
|
|
|
/* YAP_Atom FullLookupAtom(char *) */
|
|
#define FullLookupAtom(s) YAP_FullLookupAtom(s)
|
|
#define YapFullLookupAtom(s) YAP_FullLookupAtom(s)
|
|
|
|
/* char* AtomName(YAP_Atom) */
|
|
#define AtomName(a) YAP_AtomName(a)
|
|
#define YapAtomName(a) YAP_AtomName(a)
|
|
|
|
/* YAP_Term MkPairTerm(YAP_Term Head, YAP_Term Tail) */
|
|
#define MkPairTerm(h,t) YAP_MkPairTerm(h,t)
|
|
#define YapMkPairTerm(h,t) YAP_MkPairTerm(h,t)
|
|
|
|
/* YAP_Term MkNewPairTerm(void) */
|
|
#define MkNewPairTerm() YAP_MkNewPairTerm()
|
|
#define YapMkNewPairTerm() YAP_MkNewPairTerm()
|
|
|
|
/* Term HeadOfTerm(Term) */
|
|
#define HeadOfTerm(t) YAP_HeadOfTerm(t)
|
|
#define YapHeadOfTerm(t) YAP_HeadOfTerm(t)
|
|
|
|
/* Term TailOfTerm(Term) */
|
|
#define TailOfTerm(t) YAP_TailOfTerm(t)
|
|
#define YapTailOfTerm(t) YAP_TailOfTerm(t)
|
|
|
|
/* YAP_Term MkApplTerm(YAP_Functor f, int n, YAP_Term[] args) */
|
|
#define MkApplTerm(f,i,ts) YAP_MkApplTerm(f,i,ts)
|
|
#define YapMkApplTerm(f,i,ts) YAP_MkApplTerm(f,i,ts)
|
|
|
|
/* YAP_Term MkNewApplTerm(YAP_Functor f, int n) */
|
|
#define MkNewApplTerm(f,i) YAP_MkNewApplTerm(f,i)
|
|
#define YapMkNewApplTerm(f,i) YAP_MkNewApplTerm(f,i)
|
|
|
|
/* YAP_Functor YAP_FunctorOfTerm(Term) */
|
|
#define FunctorOfTerm(t) YAP_FunctorOfTerm(t)
|
|
#define YapFunctorOfTerm(t) YAP_FunctorOfTerm(t)
|
|
|
|
/* YAP_Term ArgOfTerm(int argno,YAP_Term t) */
|
|
#define ArgOfTerm(i,t) YAP_ArgOfTerm(i,t)
|
|
#define YapArgOfTerm(i,t) YAP_ArgOfTerm(i,t)
|
|
|
|
/* YAP_Functor MkFunctor(YAP_Atom a,int arity) */
|
|
#define MkFunctor(a,i) YAP_MkFunctor(a,i)
|
|
#define YapMkFunctor(a,i) YAP_MkFunctor(a,i)
|
|
|
|
/* YAP_Atom NameOfFunctor(Functor) */
|
|
#define NameOfFunctor(f) YAP_NameOfFunctor(f)
|
|
#define YapNameOfFunctor(f) YAP_NameOfFunctor(f)
|
|
|
|
/* YAP_Int YAP_ArityOfFunctor(Functor) */
|
|
#define ArityOfFunctor(f) YAP_ArityOfFunctor(f)
|
|
#define YapArityOfFunctor(f) YAP_ArityOfFunctor(f)
|
|
|
|
#define PRESERVE_DATA(ptr, type) (ptr = (type *)YAP_ExtraSpace())
|
|
#define PRESERVED_DATA(ptr, type) (ptr = (type *)YAP_ExtraSpace())
|
|
#define PRESERVED_DATA_CUT(ptr,type) (ptr = (type *)YAP_ExtraSpaceCut())
|
|
|
|
/* YAP_Int unify(YAP_Term a, YAP_Term b) */
|
|
#define unify(t1,t2) YAP_Unify(t1, t2)
|
|
#define YapUnify(t1,t2) YAP_Unify(t1, t2)
|
|
|
|
/* void UserCPredicate(char *name, int *fn(), int arity) */
|
|
#define UserCPredicate(s,f,i) YAP_UserCPredicate(s,f,i);
|
|
|
|
/* void UserBackCPredicate(char *name, int *init(), int *cont(), int
|
|
arity, int extra) */
|
|
#define UserBackCPredicate(s,f1,f2,i,i2) YAP_UserBackCPredicate(s,f1,f2,i,i2)
|
|
|
|
/* void UserCPredicate(char *name, int *fn(), int arity) */
|
|
#define UserCPredicateWithArgs(s,f,i1,i2) YAP_UserCPredicateWithArgs(s,f,i1,i2)
|
|
/* void CallProlog(YAP_Term t) */
|
|
#define CallProlog(t) YAP_CallProlog(t)
|
|
#define YapCallProlog(t) YAP_CallProlog(t)
|
|
|
|
/* void cut_fail(void) */
|
|
#define cut_fail() YAP_cut_fail()
|
|
|
|
/* void cut_succeed(void) */
|
|
#define cut_succeed() YAP_cut_succeed()
|
|
|
|
/* void *AllocSpaceFromYap(int) */
|
|
#define AllocSpaceFromYap(s) YAP_AllocSpaceFromYap(s)
|
|
|
|
/* void FreeSpaceFromYap(void *) */
|
|
#define FreeSpaceFromYap(s) YAP_FreeSpaceFromYap(s)
|
|
|
|
/* int YAP_RunGoal(YAP_Term) */
|
|
#define RunGoal(t) YAP_RunGoal(t)
|
|
#define YapRunGoal(t) YAP_RunGoal(t)
|
|
|
|
/* int YAP_RestartGoal(void) */
|
|
#define RestartGoal() YAP_RestartGoal()
|
|
#define YapRestartGoal() YAP_RestartGoal()
|
|
|
|
/* int YAP_ContinueGoal(void) */
|
|
#define ContinueGoal() YAP_ContinueGoal()
|
|
#define YapContinueGoal() YAP_ContinueGoal()
|
|
|
|
/* void YAP_PruneGoal(void) */
|
|
#define PruneGoal() YAP_PruneGoal()
|
|
#define YapPruneGoal() YAP_PruneGoal()
|
|
|
|
/* int YAP_GoalHasException(void) */
|
|
#define GoalHasException(tp) YAP_GoalHasException(tp)
|
|
#define YapGoalHasException(tp) YAP_GoalHasException(tp)
|
|
|
|
/* int YAP_Reset(void) */
|
|
#define YapReset() YAP_Reset()
|
|
|
|
/* void YAP_Error(char *) */
|
|
#define YapError(s) YAP_Error(s)
|
|
|
|
/* YAP_Term YAP_Read(int (*)(void)) */
|
|
#define YapRead(f) YAP_Read(f);
|
|
|
|
/* void YAP_Write(YAP_Term,void (*)(int),int) */
|
|
#define YapWrite(t,f) YAP_Write(t,f);
|
|
|
|
/* char *YAP_CompileClause(YAP_Term) */
|
|
#define CompileClause(t) YAP_CompileClause(t)
|
|
#define YapCompileClause(t) YAP_CompileClause(t)
|
|
|
|
/* int YAP_Init(YAP_init_args *) */
|
|
#define YapInit(as) YAP_Init(as)
|
|
|
|
/* int YAP_FastInit(char *) */
|
|
#define YapFastInit(s) YAP_FastInit(s)
|
|
|
|
/* int YAP_InitConsult(int, char *) */
|
|
#define YapInitConsult(i,s) YAP_InitConsult(i,s)
|
|
|
|
/* int YAP_StartConsult(int, char *) */
|
|
#define YapEndConsult() YAP_EndConsult()
|
|
|
|
/* void YAP_Exit(int) */
|
|
#define YapExit(code) YAP_Exit(code)
|
|
|
|
/* void YAP_PutValue(YAP_Atom, YAP_Term) */
|
|
#define PutValue() YAP_PutValue(a, t)
|
|
#define YapPutValue() YAP_PutValue(a, t)
|
|
|
|
/* YAP_Term YAP_GetValue(YAP_Atom) */
|
|
#define GetValue(a) YAP_GetValue(a)
|
|
#define YapGetValue(a) YAP_GetValue(a)
|
|
|
|
/* int StringToBuffer(YAP_Term,char *,unsigned int) */
|
|
#define StringToBuffer(t,s,l) YAP_StringToBuffer(t,s,l)
|
|
#define YapStringToBuffer(t,s,l) YAP_StringToBuffer(t,s,l)
|
|
|
|
/* int BufferToString(char *) */
|
|
#define BufferToString(s) YAP_BufferToString(s)
|
|
#define YapBufferToString(s) YAP_BufferToString(s)
|
|
|
|
/* int BufferToAtomList(char *) */
|
|
#define BufferToAtomList(s) YAP_BufferToAtomList(s)
|
|
#define YapBufferToAtomList(s) YAP_BufferToAtomList(s)
|
|
|
|
/* void YAP_InitSocks(char *,long) */
|
|
#define InitSocks(s,l) YAP_InitSocks(s,l)
|
|
#define YapInitSocks(s,l) YAP_InitSocks(s,l)
|
|
|
|
#ifdef SFUNC
|
|
|
|
#define SFArity 0
|
|
#define ArgsOfSFTerm(s,t) YAP_ArgsOfSFTerm(s,t)
|
|
|
|
extern MkSFTerm(t) YAP_MkSFTerm(t)
|
|
|
|
#endif /* SFUNC */
|
|
|
|
/* YAP_Term YAP_SetOutputMessage() */
|
|
#define YapSetOutputMessage(s) YAP_SetOutputMessage(s)
|
|
|
|
/* YAP_Term YAP_SetOutputMessage() */
|
|
#define YapStreamToFileNo(st) YAP_StreamToFileNo(st)
|
|
|
|
/* YAP_Term YAP_SetOutputMessage() */
|
|
#define YapCloseAllOpenStreams() YAP_CloseAllOpenStreams()
|
|
|
|
/* YAP_Term YAP_OpenStream() */
|
|
#define YapOpenStream(st, s, t, i) YAP_OpenStream(st, s, t, i)
|
|
|
|
#endif
|