/************************************************************************* * * * 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: yap_structs.h * * Last rev: 15/5/2000 * * mods: * * comments: Data structures and defines used in the Interface * * * *************************************************************************/ #ifndef _YAPDEFS_H #define _YAPDEFS_H 1 #include #ifdef YAP_H /* if Yap.h is available, just reexport */ #define YAP_CELL CELL #define YAP_Term Term typedef UInt YAP_Arity; typedef Term YAP_Module; #define YAP_Functor Functor #define YAP_Atom Atom #define YAP_Int Int #define YAP_UInt UInt #define YAP_Float Float typedef int YAP_Bool; typedef yhandle_t YAP_handle_t; #define YAP_PredEntryPtr struct pred_entry * #define YAP_UserCPred CPredicate #define YAP_agc_hook Agc_hook #else /* Type definitions */ #if _WIN64 typedef unsigned long long YAP_CELL; #else typedef unsigned long YAP_CELL; #endif typedef int YAP_Bool; typedef YAP_CELL YAP_Term; typedef YAP_CELL YAP_Arity; typedef YAP_Term YAP_Module; typedef struct FunctorEntry *YAP_Functor; typedef struct AtomEntry *YAP_Atom; #if _WIN64 typedef long long int YAP_Int; typedef unsigned long long int YAP_UInt; #else typedef long int YAP_Int; typedef unsigned long int YAP_UInt; #endif typedef double YAP_Float; #ifndef TRUE #define TRUE 1 #endif #ifndef FALSE #define FALSE 0 #endif typedef YAP_Int YAP_handle_t; typedef struct YAP_pred_entry *YAP_PredEntryPtr; typedef YAP_Bool (* YAP_UserCPred)(void); typedef int (*YAP_agc_hook)(void *_Atom); #include "YapError.h" #endif typedef struct YAP_thread_attr_struct { size_t ssize; size_t tsize; size_t sysize; int (*cancel)(int thread); YAP_Term egoal, alias; } YAP_thread_attr; #ifdef YAP_H #include #endif typedef enum { YAP_TAG_ATT = 0x1, YAP_TAG_UNBOUND = 0x2, YAP_TAG_REF = 0x4, YAP_TAG_PAIR = 0x8, YAP_TAG_ATOM = 0x10, YAP_TAG_INT = 0x20, YAP_TAG_LONG_INT = 0x40, YAP_TAG_BIG_INT = 0x80, YAP_TAG_RATIONAL = 0x100, YAP_TAG_FLOAT = 0x200, YAP_TAG_OPAQUE = 0x400, YAP_TAG_APPL = 0x800, YAP_TAG_DBREF = 0x1000 } YAP_tag_t; #define YAP_BOOT_FROM_PROLOG 0 #define YAP_BOOT_FROM_SAVED_CODE 1 #define YAP_BOOT_FROM_SAVED_STACKS 2 #define YAP_FULL_BOOT_FROM_PROLOG 4 #define YAP_BOOT_DONE_BEFOREHAND 8 #define YAP_BOOT_ERROR -1 #define YAP_WRITE_QUOTED 1 #define YAP_WRITE_IGNORE_OPS 2 #define YAP_WRITE_HANDLE_VARS 4 #define YAP_WRITE_USE_PORTRAY 8 #define YAP_WRITE_HANDLE_CYCLES 0x20 #define YAP_WRITE_BACKQUOTE_STRING 0x80 #define YAP_WRITE_ATTVAR_NONE 0x100 #define YAP_WRITE_ATTVAR_DOTS 0x200 #define YAP_WRITE_ATTVAR_PORTRAY 0x400 #define YAP_WRITE_BLOB_PORTRAY 0x800 #define YAP_CONSULT_MODE 0 #define YAP_RECONSULT_MODE 1 typedef struct yap_boot_params { /* if NON-NULL, path where we can find the saved state */ char *SavedState; /* if NON-0, minimal size for Heap or Code Area */ unsigned long int HeapSize; /* if NON-0, maximal size for Heap or Code Area */ unsigned long int MaxHeapSize; /* if NON-0, minimal size for Local+Global Stack */ unsigned long int StackSize; /* if NON-0, maximal size for Local+Global Stack */ unsigned long int MaxStackSize; unsigned long int MaxGlobalSize; /* if NON-0, minimal size for Trail */ unsigned long int TrailSize; /* if NON-0, maximal size for Trail */ unsigned long int MaxTrailSize; /* if NON-0, minimal size for AttributeVarStack */ unsigned long int AttsSize; /* if NON-0, maximal size for AttributeVarStack */ unsigned long int MaxAttsSize; /* if NON-NULL, value for YAPLIBDIR */ char *YapLibDir; /* if NON-NULL, name for a Prolog file to use when booting */ char *YapPrologBootFile; /* if NON-NULL, name for a Prolog file to use when initialising */ char *YapPrologInitFile; /* if NON-NULL, name for a Prolog file to consult before entering top-level */ char *YapPrologRCFile; /* if NON-NULL, a goal to run before top-level */ char *YapPrologGoal; /* if NON-NULL, a goal to run as top-level */ char *YapPrologTopLevelGoal; /* if NON-NULL, a path to extend file-search-path */ char *YapPrologAddPath; /* if previous NON-NULL and TRUE, halt after consulting that file */ int HaltAfterConsult; /* ignore .yaprc, .prolog.ini, etc. files. */ int FastBoot; /* the next field only interest YAPTAB */ /* if NON-0, maximum size for Table Space */ unsigned long int MaxTableSpaceSize; /* the next three fields only interest YAPOR, but we keep them so that users don't need to recompile DLL in order to use YAPOR */ /* if NON-0, number of workers we want to have (default=1) */ unsigned long int NumberWorkers; /* if NON-0, manage the inner scheduler loop (default = 10) */ unsigned long int SchedulerLoop; /* if NON-0, say how long to keep nodes (default = 3) */ unsigned long int DelayedReleaseLoad; /* end of YAPOR fields */ /* whether Prolog should handle interrupts */ int PrologShouldHandleInterrupts; /* flag for JIT mode */ int ExecutionMode; /* number of arguments that Prolog will see */ int Argc; /* array of arguments as seen by Prolog */ char **Argv; /* QuietMode */ int QuietMode; /* nf: Begin ypp preprocessor code */ #define YAP_MAX_YPP_DEFS 100 char *def_var[YAP_MAX_YPP_DEFS]; char *def_value[YAP_MAX_YPP_DEFS]; int def_c; /* End preprocessor code */ #ifdef MYDDAS_MYSQL /* If any myddas option was given */ short myddas; /* MYDDAS Fields */ char *myddas_user; char *myddas_pass; char *myddas_db; char *myddas_host; #endif /* errornumber */ int ErrorNo; /* errorstring */ char *ErrorCause; } YAP_init_args; #ifdef YAP_H Int Yap_InitDefaults( YAP_init_args *init_args, char saved_state[] ); #endif /* this should be opaque to the user */ typedef struct { unsigned long b; //> choice-point at entry YAP_Int CurSlot; //> variables at entry YAP_Int EndSlot; //> variables at successful execution struct yami *p; //> Program Counter at entry struct yami *cp; //> Continuation PC at entry } YAP_dogoalinfo; typedef void (*YAP_halt_hook)(int exit_code, void *closure); typedef YAP_Int YAP_opaque_tag_t; typedef int (*YAP_Opaque_CallOnFail)(void *); typedef int (*YAP_Opaque_CallOnWrite)(void *, YAP_opaque_tag_t, void *, int); typedef YAP_Int (*YAP_Opaque_CallOnGCMark)(YAP_opaque_tag_t, void *, YAP_Term *, YAP_Int); typedef int (*YAP_Opaque_CallOnGCRelocate)(YAP_opaque_tag_t, void *, YAP_Term *, YAP_Int); typedef struct YAP_opaque_handler_struct { YAP_Opaque_CallOnFail fail_handler; YAP_Opaque_CallOnWrite write_handler; YAP_Opaque_CallOnGCMark mark_handler; YAP_Opaque_CallOnGCRelocate relocate_handler; } YAP_opaque_handler_t; /********* execution mode ***********************/ typedef enum { YAPC_INTERPRETED, /* interpreted */ YAPC_MIXED_MODE_USER, /* mixed mode only for user predicates */ YAPC_MIXED_MODE_ALL, /* mixed mode for all predicates */ YAPC_COMPILE_USER, /* compile all user predicates*/ YAPC_COMPILE_ALL /* compile all predicates */ } yapc_exec_mode; /********* encoding ***********************/ typedef enum { PL_ENC_UNKNOWN = 0, /* invalid/unknown */ PL_ENC_OCTET, /* raw 8 bit input */ PL_ENC_ASCII, /* US-ASCII (0..127) */ PL_ENC_ISO_LATIN_1, /* ISO Latin-1 (0..256) */ PL_ENC_ANSI, /* default (multibyte) codepage */ PL_ENC_UTF8, PL_ENC_UNICODE_BE, /* big endian unicode file */ PL_ENC_UNICODE_LE, /* little endian unicode file */ PL_ENC_WCHAR /* pl_wchar_t */ } PL_IOENC; /********* YAP C-Flags ***********************/ typedef enum { YAPC_ENABLE_GC, /* enable or disable garbage collection */ YAPC_ENABLE_AGC /* enable or disable atom garbage collection */ } yap_flag_t; typedef enum yap_enum_reset_t { YAP_EXEC_ABSMI = 0, YAP_FULL_RESET = 1, YAP_RESET_FROM_RESTORE = 3 } yap_reset_t; \ #endif /* _YAPDEFS_H */