diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
a1632ff3e7
yap-6.3/include/c_interface.h
tiagosoares 83b5a160f8 support for executing c code when a cut occurs 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1463 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-11-18 18:52:41 +00:00

309 lines
9.0 KiB
C
Raw Blame History

/*************************************************************************
* *
* 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 *
* *
*************************************************************************/
#ifndef _c_interface_h
#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
Reference in New Issue View Git Blame Copy Permalink