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.
fb554aadd0
yap-6.3/include/SWI-Prolog.h

685 lines
25 KiB
C
Raw Normal View History

fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
/* yap2swi.h */
/*
* Project: SWI emulation for Yap Prolog
* Author: Steve Moyle and Vitor Santos Costa
* Email: steve.moyle@comlab.ox.ac.uk
* Date: 21 January 2002
* Copyright (c) 2002 Steve Moyle and Vitor Santos Costa. All rights reserved.
*/
#ifndef _FLI_H_INCLUDED
#define _FLI_H_INCLUDED
extend SWI interface with PL_toplevel and to handle C++ code. prolog/0 built-in fixes to parms.h changes.
2009-10-23 16:50:43 +01:00
#ifdef __cplusplus
extern "C" {
#endif
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
//=== includes ===============================================================
make SWI-Prolog get YAP stuff from include/Yap at run-time.
2010-01-15 14:39:03 +00:00
#ifdef _YAP_NOT_INSTALLED_
include PL_get_intptr
2010-01-15 16:21:43 +00:00
#include "config.h"
fix SWI to be able to include gmp.h
2010-06-19 14:36:12 +01:00
#ifdef __cplusplus
}
#endif
#if USE_GMP
#include <gmp.h>
#endif
#ifdef __cplusplus
extern "C" {
#endif
include PL_get_intptr
2010-01-15 16:21:43 +00:00
#include "YapInterface.h"
make SWI-Prolog get YAP stuff from include/Yap at run-time.
2010-01-15 14:39:03 +00:00
#else
#include <Yap/config.h>
#include <Yap/YapInterface.h>
#endif
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#include <stdarg.h>
#include <stdlib.h>
#include <stddef.h>
#include <wchar.h>
#if HAVE_TIME_H
#include <time.h>
#endif
#ifndef X_API
#if (defined(_MSC_VER) || defined(__MINGW32__)) && defined(PL_KERNEL)
#define X_API __declspec(dllexport)
#else
#define X_API
#endif
#endif
/*******************************
* EXPORT *
*******************************/
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
See SWI-Prolog.h, containing the same code for an explanation on this
stuff.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#ifndef _PL_EXPORT_DONE
#define _PL_EXPORT_DONE
#if (defined(__WINDOWS__) || defined(__CYGWIN__) || defined(__MINGW32__)) && !defined(__LCC__)
#define HAVE_DECLSPEC
#endif
#ifdef HAVE_DECLSPEC
# ifdef PL_KERNEL
#define PL_EXPORT(type) __declspec(dllexport) type
#define PL_EXPORT_DATA(type) __declspec(dllexport) type
#define install_t void
# else
# ifdef __BORLANDC__
#define PL_EXPORT(type) type _stdcall
#define PL_EXPORT_DATA(type) extern type
# else
#define PL_EXPORT(type) extern type
#define PL_EXPORT_DATA(type) __declspec(dllimport) type
# endif
#define install_t __declspec(dllexport) void
# endif
#else /*HAVE_DECLSPEC*/
#define PL_EXPORT(type) extern type
#define PL_EXPORT_DATA(type) extern type
#define install_t void
#endif /*HAVE_DECLSPEC*/
#endif /*_PL_EXPORT_DONE*/
_PL_get_arg and WUNDEFINED
2010-05-06 10:58:44 +01:00
/*******************************
* GCC ATTRIBUTES *
*******************************/
#if __GNUC__ >= 4
#define WUNUSED __attribute__((warn_unused_result))
#else
#define WUNUSED
#endif
/*******************************
* TYPES *
*******************************/
64 bit cleanups.
2010-05-06 15:00:44 +01:00
#ifdef __WINDOWS__
work around iob problems
2010-07-20 22:55:27 +01:00
#ifndef INT64_T_DEFINED
#define INT64_T_DEFINED 1
64 bit cleanups.
2010-05-06 15:00:44 +01:00
typedef __int64 int64_t;
typedef unsigned __int64 uint64_t;
work around iob problems
2010-07-20 22:55:27 +01:00
#if (_MSC_VER < 1300) && !defined(__MINGW32__)
64 bit cleanups.
2010-05-06 15:00:44 +01:00
typedef long intptr_t;
typedef unsigned long uintptr_t;
#endif
work around iob problems
2010-07-20 22:55:27 +01:00
#endif
64 bit cleanups.
2010-05-06 15:00:44 +01:00
#else
#include <inttypes.h> /* more portable than stdint.h */
#endif
typedef uintptr_t term_t;
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
typedef void *module_t;
typedef void *record_t;
64 bit cleanups.
2010-05-06 15:00:44 +01:00
typedef uintptr_t atom_t;
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
typedef YAP_Term *predicate_t;
typedef struct open_query_struct *qid_t;
fix warnings
2010-05-06 16:01:48 +01:00
typedef uintptr_t functor_t;
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
typedef int (*PL_agc_hook_t)(atom_t);
typedef unsigned long foreign_t; /* return type of foreign functions */
typedef wchar_t pl_wchar_t; /* wide character support */
#include <inttypes.h> /* more portable than stdint.h */
#if !defined(_MSC_VER)
typedef uintptr_t PL_fid_t; /* opaque foreign context handle */
#endif
fix typing problems and a bug in quote.c?
2010-05-06 12:19:51 +01:00
typedef void *pl_function_t;
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#define fid_t PL_fid_t /* avoid AIX name-clash */
typedef struct _PL_extension
fix C++ complaint.
2009-11-11 10:56:19 +00:00
{ const char *predicate_name; /* Name of the predicate */
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
short arity; /* Arity of the predicate */
fix typing problems and a bug in quote.c?
2010-05-06 12:19:51 +01:00
pl_function_t function; /* Implementing functions */
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
short flags; /* Or of PL_FA_... */
} PL_extension;
typedef struct
{ unsigned long local_size; /* Stack sizes */
unsigned long global_size;
unsigned long trail_size;
unsigned long argument_size;
char * alias; /* alias name */
int (*cancel)(int id); /* cancel function */
void * reserved[5]; /* reserved for extensions */
} PL_thread_attr_t;
typedef void *PL_engine_t;
#define PL_FA_NOTRACE (0x01) /* foreign cannot be traced */
#define PL_FA_TRANSPARENT (0x02) /* foreign is module transparent */
#define PL_FA_NONDETERMINISTIC (0x04) /* foreign is non-deterministic */
#define PL_FA_VARARGS (0x08) /* call using t0, ac, ctx */
#define PL_FA_CREF (0x10) /* Internal: has clause-reference */
#define PL_FA_ISO (0x20) /* Internal: ISO core predicate */
/* begin from pl-itf.h */
#define PL_VARIABLE (1) /* nothing */
#define PL_ATOM (2) /* const char * */
#define PL_INTEGER (3) /* int */
#define PL_FLOAT (4) /* double */
#define PL_STRING (5) /* const char * */
#define PL_TERM (6)
/* PL_unify_term() */
#define PL_FUNCTOR (10) /* functor_t, arg ... */
#define PL_LIST (11) /* length, arg ... */
#define PL_CHARS (12) /* const char * */
#define PL_POINTER (13) /* void * */
/* PlArg::PlArg(text, type) */
#define PL_CODE_LIST (14) /* [ascii...] */
#define PL_CHAR_LIST (15) /* [h,e,l,l,o] */
#define PL_BOOL (16) /* PL_set_feature() */
#define PL_FUNCTOR_CHARS (17) /* PL_unify_term() */
#define PL_PREDICATE_INDICATOR (18) /* predicate_t (Procedure) */
#define PL_SHORT (19) /* short */
#define PL_INT (20) /* int */
#define PL_LONG (21) /* long */
#define PL_DOUBLE (22) /* double */
#define PL_NCHARS (23) /* unsigned, const char * */
#define PL_UTF8_CHARS (24) /* const char * */
#define PL_UTF8_STRING (25) /* const char * */
#define PL_INT64 (26) /* int64_t */
#define PL_NUTF8_CHARS (27) /* unsigned, const char * */
#define PL_NUTF8_CODES (29) /* unsigned, const char * */
#define PL_NUTF8_STRING (30) /* unsigned, const char * */
#define PL_NWCHARS (31) /* unsigned, const wchar_t * */
#define PL_NWCODES (32) /* unsigned, const wchar_t * */
#define PL_NWSTRING (33) /* unsigned, const wchar_t * */
#define PL_MBCHARS (34) /* const char * */
#define PL_MBCODES (35) /* const char * */
#define PL_MBSTRING (36) /* const char * */
#define PL_INTPTR (37) /* intptr_t */
#define PL_CHAR (38) /* int */
#define PL_CODE (39) /* int */
#define PL_BYTE (40) /* int */
#define CVT_ATOM 0x0001
#define CVT_STRING 0x0002
#define CVT_LIST 0x0004
#define CVT_INTEGER 0x0008
#define CVT_FLOAT 0x0010
#define CVT_VARIABLE 0x0020
#define CVT_NUMBER (CVT_INTEGER|CVT_FLOAT)
#define CVT_ATOMIC (CVT_NUMBER|CVT_ATOM|CVT_STRING)
#define CVT_WRITE 0x0040 /* as of version 3.2.10 */
PL_get_chars: Implement CVT_WRITE and CVT_WRITE_CANONICAL
2010-04-29 23:04:04 +01:00
#define CVT_WRITE_CANONICAL 0x0080 /* as of version 3.2.10 */
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#define CVT_ALL (CVT_ATOMIC|CVT_LIST)
#define CVT_MASK 0x00ff
#define CVT_EXCEPTION 0x10000
track recent SWI changes.
2010-02-22 09:35:21 +00:00
#define CVT_VARNOFAIL 0x20000 /* return 2 if argument is unbound */
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#define BUF_DISCARDABLE 0x0000
#define BUF_RING 0x0100
#define BUF_MALLOC 0x0200
more packages to implement better thread interface.
2010-07-23 15:54:13 +01:00
#define PL_ENGINE_MAIN ((PL_engine_t)0x1)
#define PL_ENGINE_CURRENT ((PL_engine_t)0x2)
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#define PL_ENGINE_SET 0 /* engine set successfully */
#define PL_ENGINE_INVAL 2 /* engine doesn't exist */
#define PL_ENGINE_INUSE 3 /* engine is in use */
#define PL_ACTION_TRACE 1 /* switch to trace mode */
#define PL_ACTION_DEBUG 2 /* switch to debug mode */
#define PL_ACTION_BACKTRACE 3 /* show a backtrace (stack dump) */
#define PL_ACTION_BREAK 4 /* create a break environment */
#define PL_ACTION_HALT 5 /* halt Prolog execution */
#define PL_ACTION_ABORT 6 /* generate a Prolog abort */
/* 7: Obsolete PL_ACTION_SYMBOLFILE */
#define PL_ACTION_WRITE 8 /* write via Prolog i/o buffer */
#define PL_ACTION_FLUSH 9 /* Flush Prolog i/o buffer */
#define PL_ACTION_GUIAPP 10 /* Win32: set when this is a gui */
#define PL_ACTION_ATTACH_CONSOLE 11 /* MT: Attach a console */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Foreign language interface definitions. Note that these macros MUST be
consistent with the definitions in pl-itf.h, which is included with
users foreign language code.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#define NOTRACE PL_FA_NOTRACE
#define META PL_FA_TRANSPARENT
#define NDET PL_FA_NONDETERMINISTIC
#define VA PL_FA_VARARGS
#define CREF PL_FA_CREF
#define ISO PL_FA_ISO
typedef enum
{ FRG_FIRST_CALL = 0, /* Initial call */
FRG_CUTTED = 1, /* Context was cutted */
FRG_REDO = 2 /* Normal redo */
} frg_code;
struct foreign_context
{ uintptr_t context; /* context value */
frg_code control; /* FRG_* action */
struct PL_local_data *engine; /* invoking engine */
};
typedef struct foreign_context *control_t;
#define PRED_IMPL(name, arity, fname, flags) \
foreign_t \
pl_ ## fname ## _va(term_t PL__t0, int PL__ac, control_t PL__ctx)
#define CTX_CNTRL ForeignControl(PL__ctx)
#define CTX_PTR ForeignContextPtr(PL__ctx)
#define CTX_INT ForeignContextInt(PL__ctx)
#define CTX_ARITY PL__ac
#define BeginPredDefs(id) \
PL_extension PL_predicates_from_ ## id[] = {
#define PRED_DEF(name, arity, fname, flags) \
{ name, arity, pl_ ## fname ## _va, (flags)|PL_FA_VARARGS },
#define EndPredDefs \
{ NULL, 0, NULL, 0 } \
};
#define FRG_REDO_MASK 0x00000003L
#define FRG_REDO_BITS 2
#define REDO_INT 0x02 /* Returned an integer */
#define REDO_PTR 0x03 /* returned a pointer */
#define ForeignRedoIntVal(v) (((uintptr_t)(v)<<FRG_REDO_BITS)|REDO_INT)
#define ForeignRedoPtrVal(v) (((uintptr_t)(v))|REDO_PTR)
#define ForeignRedoInt(v) return ForeignRedoIntVal(v)
#define ForeignRedoPtr(v) return ForeignRedoPtrVal(v)
#define ForeignControl(h) ((h)->control)
#define ForeignContextInt(h) ((intptr_t)(h)->context)
#define ForeignContextPtr(h) ((void *)(h)->context)
#define ForeignEngine(h) ((h)->engine)
#define FRG(n, a, f, flags) { n, a, f, flags }
/* end from pl-itf.h */
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
typedef struct PL_blob_t
{ uintptr_t magic; /* PL_BLOB_MAGIC */
uintptr_t flags; /* PL_BLOB_* */
char * name; /* name of the type */
int (*release)(atom_t a);
int (*compare)(atom_t a, atom_t b);
#ifdef SIO_MAGIC
int (*write)(IOSTREAM *s, atom_t a, int flags);
#else
int (*write)(void *s, atom_t a, int flags);
#endif
void (*acquire)(atom_t a);
#ifdef SIO_MAGIC
int (*save)(atom_t a, IOSTREAM *s);
atom_t (*load)(IOSTREAM *s);
#else
int (*save)(atom_t a, void*);
atom_t (*load)(void *s);
#endif
/* private */
void * reserved[10]; /* for future extension */
int registered; /* Already registered? */
int rank; /* Rank for ordering atoms */
struct PL_blob_t * next; /* next in registered type-chain */
atom_t atom_name; /* Name as atom */
} PL_blob_t;
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
/*******************************
* CALL-BACK *
*******************************/
#ifdef PL_KERNEL
#define PL_Q_DEBUG 0x01 /* = TRUE for backward compatibility */
#endif
#define PL_Q_NORMAL 0x02 /* normal usage */
#define PL_Q_NODEBUG 0x04 /* use this one */
#define PL_Q_CATCH_EXCEPTION 0x08 /* handle exceptions in C */
#define PL_Q_PASS_EXCEPTION 0x10 /* pass to parent environment */
#ifdef PL_KERNEL
#define PL_Q_DETERMINISTIC 0x20 /* call was deterministic */
#endif
#define PL_fail return FALSE /* fail */
#define PL_succeed return TRUE /* success */
extern X_API PL_agc_hook_t PL_agc_hook(PL_agc_hook_t);
extern X_API char* PL_atom_chars(atom_t);
new: PL_atom_nchars
2010-06-18 09:14:45 +01:00
extern X_API char* PL_atom_nchars(atom_t, size_t *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API term_t PL_copy_term_ref(term_t);
extern X_API term_t PL_new_term_ref(void);
extern X_API term_t PL_new_term_refs(int);
extern X_API void PL_reset_term_refs(term_t);
/* begin PL_get_* functions =============================*/
extern X_API int PL_get_arg(int, term_t, term_t);
_PL_get_arg and WUNDEFINED
2010-05-06 10:58:44 +01:00
extern X_API int _PL_get_arg(int, term_t, term_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_get_atom(term_t, atom_t *);
extern X_API int PL_get_atom_chars(term_t, char **);
fix get_atom_nchars (obs from Roberto Bagnara)
2010-07-05 16:00:12 +01:00
extern X_API int PL_get_atom_nchars(term_t, size_t *, char **);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_get_bool(term_t, int *);
extern X_API int PL_get_chars(term_t, char **, unsigned);
extern X_API int PL_get_nchars(term_t, size_t *, char **, unsigned);
extern X_API int PL_get_wchars(term_t, size_t *, wchar_t **, unsigned);
extern X_API int PL_get_functor(term_t, functor_t *);
extern X_API int PL_get_float(term_t, double *);
extern X_API int PL_get_head(term_t, term_t);
extern X_API int PL_get_int64(term_t, int64_t *);
extern X_API int PL_get_integer(term_t, int *);
extern X_API int PL_get_list(term_t, term_t, term_t);
extern X_API int PL_get_long(term_t, long *);
extern X_API int PL_get_list_chars(term_t, char **, unsigned);
extern X_API int PL_get_module(term_t, module_t *);
extern X_API module_t PL_context(void);
extern X_API int PL_strip_module(term_t, module_t *, term_t);
extern X_API atom_t PL_module_name(module_t);
extern X_API module_t PL_new_module(atom_t);
extern X_API int PL_get_name_arity(term_t, atom_t *, int *);
extern X_API int PL_get_nil(term_t);
extern X_API int PL_get_pointer(term_t, void **);
include PL_get_intptr
2010-01-15 16:21:43 +00:00
extern X_API int PL_get_intptr(term_t, intptr_t *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_get_tail(term_t, term_t);
/* end PL_get_* functions =============================*/
/* begin PL_new_* functions =============================*/
extern X_API atom_t PL_new_atom(const char *);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API atom_t PL_new_atom_nchars(size_t, const char *);
extern X_API atom_t PL_new_atom_wchars(size_t, const pl_wchar_t *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API char *PL_atom_nchars(atom_t, size_t *);
extern X_API pl_wchar_t *PL_atom_wchars(atom_t, size_t *);
extern X_API functor_t PL_new_functor(atom_t, int);
extern X_API atom_t PL_functor_name(functor_t);
extern X_API int PL_functor_arity(functor_t);
/* end PL_new_* functions =============================*/
/* begin PL_put_* functions =============================*/
move to more recent interface.
2010-01-15 00:49:05 +00:00
extern X_API int PL_cons_functor(term_t, functor_t,...);
extern X_API int PL_cons_functor_v(term_t, functor_t,term_t);
extern X_API int PL_cons_list(term_t, term_t, term_t);
extern X_API int PL_put_atom(term_t, atom_t);
extern X_API int PL_put_atom_chars(term_t, const char *);
support for PL_ mpz and mpq ops add missing atom_nchars
2010-06-18 23:24:36 +01:00
extern X_API int PL_put_atom_nchars(term_t, size_t ,const char *);
move to more recent interface.
2010-01-15 00:49:05 +00:00
extern X_API int PL_put_float(term_t, double);
extern X_API int PL_put_functor(term_t, functor_t t);
extern X_API int PL_put_int64(term_t, int64_t);
extern X_API int PL_put_integer(term_t, long);
extern X_API int PL_put_list(term_t);
extern X_API int PL_put_list_chars(term_t, const char *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API void PL_put_nil(term_t);
move to more recent interface.
2010-01-15 00:49:05 +00:00
extern X_API int PL_put_pointer(term_t, void *);
extern X_API int PL_put_string_chars(term_t, const char *);
imore SWI compat, including string fixes
2010-06-19 00:38:49 +01:00
extern X_API int PL_put_string_nchars(term_t, size_t, const char *);
move to more recent interface.
2010-01-15 00:49:05 +00:00
extern X_API int PL_put_term(term_t, term_t);
extern X_API int PL_put_variable(term_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_compare(term_t, term_t);
/* end PL_put_* functions =============================*/
/* begin PL_unify_* functions =============================*/
extern X_API int PL_unify(term_t, term_t);
extern X_API int PL_unify_atom(term_t, atom_t);
add missing interface functions.
2010-01-25 12:29:51 +00:00
extern X_API int PL_unify_arg(int, term_t, atom_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_unify_atom_chars(term_t, const char *);
extern X_API int PL_unify_atom_nchars(term_t, size_t len, const char *);
extern X_API int PL_unify_float(term_t, double);
extern X_API int PL_unify_functor(term_t, functor_t);
extern X_API int PL_unify_int64(term_t, int64_t);
extern X_API int PL_unify_integer(term_t, long);
extern X_API int PL_unify_list(term_t, term_t, term_t);
extern X_API int PL_unify_list_chars(term_t, const char *);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_unify_list_ncodes(term_t, size_t, const char *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_unify_nil(term_t);
extern X_API int PL_unify_pointer(term_t, void *);
extern X_API int PL_unify_string_chars(term_t, const char *);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_unify_string_nchars(term_t, size_t, const char *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_unify_term(term_t,...);
extern X_API int PL_unify_chars(term_t, int, size_t, const char *);
extern X_API int PL_unify_chars_diff(term_t, term_t, int, size_t, const char *);
extern X_API int PL_unify_wchars(term_t, int, size_t, const pl_wchar_t *);
extern X_API int PL_unify_wchars_diff(term_t, term_t, int, size_t, const pl_wchar_t *);
improve SWI interface compatibility
2010-01-26 12:21:06 +00:00
extern X_API int PL_chars_to_term(const char *,term_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
/* begin PL_is_* functions =============================*/
extern X_API int PL_is_atom(term_t);
extern X_API int PL_is_atomic(term_t);
extern X_API int PL_is_compound(term_t);
extern X_API int PL_is_float(term_t);
extern X_API int PL_is_functor(term_t, functor_t);
add missing interface functions.
2010-01-25 12:29:51 +00:00
extern X_API int PL_is_ground(term_t);
new interface pedicates fixes to bad implementation.
2010-06-23 11:44:21 +01:00
extern X_API int PL_is_callable(term_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_is_integer(term_t);
extern X_API int PL_is_list(term_t);
extern X_API int PL_is_number(term_t);
extern X_API int PL_is_string(term_t);
extern X_API int PL_is_variable(term_t);
extern X_API int PL_term_type(term_t);
extern X_API int PL_is_inf(term_t);
/* end PL_is_* functions =============================*/
extern X_API void PL_halt(int);
extern X_API int PL_initialise(int, char **);
extern X_API int PL_is_initialised(int *, char ***);
extern X_API void PL_close_foreign_frame(fid_t);
extern X_API void PL_discard_foreign_frame(fid_t);
extern X_API void PL_rewind_foreign_frame(fid_t);
extern X_API fid_t PL_open_foreign_frame(void);
extern X_API int PL_raise_exception(term_t);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_throw(term_t);
track recent SWI changes.
2010-02-22 09:35:21 +00:00
extern X_API void PL_clear_exception(void);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API void PL_register_atom(atom_t);
extern X_API void PL_unregister_atom(atom_t);
extern X_API predicate_t PL_pred(functor_t, module_t);
extern X_API predicate_t PL_predicate(const char *, int, const char *);
extern X_API void PL_predicate_info(predicate_t, atom_t *, int *, module_t *);
extern X_API qid_t PL_open_query(module_t, int, predicate_t, term_t);
extern X_API int PL_next_solution(qid_t);
extern X_API void PL_cut_query(qid_t);
extern X_API void PL_close_query(qid_t);
extend SWI interface with PL_toplevel and to handle C++ code. prolog/0 built-in fixes to parms.h changes.
2009-10-23 16:50:43 +01:00
extern X_API int PL_toplevel(void);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API term_t PL_exception(qid_t);
track recent SWI changes.
2010-02-22 09:35:21 +00:00
extern X_API term_t PL_exception(qid_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_call_predicate(module_t, int, predicate_t, term_t);
extern X_API int PL_call(term_t, module_t);
fix typing problems and a bug in quote.c?
2010-05-06 12:19:51 +01:00
extern X_API void PL_register_foreign(const char *, int, pl_function_t, int);
extern X_API void PL_register_foreign_in_module(const char *, const char *, int, pl_function_t, int);
extend SWI interface with PL_toplevel and to handle C++ code. prolog/0 built-in fixes to parms.h changes.
2009-10-23 16:50:43 +01:00
extern X_API void PL_register_extensions(const PL_extension *);
extern X_API void PL_load_extensions(const PL_extension *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_handle_signals(void);
extern X_API int PL_thread_self(void);
more packages to implement better thread interface.
2010-07-23 15:54:13 +01:00
extern X_API int PL_unify_thread_id(term_t, int);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_thread_attach_engine(const PL_thread_attr_t *);
extern X_API int PL_thread_destroy_engine(void);
extern X_API int PL_thread_at_exit(void (*)(void *), void *, int);
extern X_API PL_engine_t PL_create_engine(const PL_thread_attr_t *);
extern X_API int PL_destroy_engine(PL_engine_t);
extern X_API int PL_set_engine(PL_engine_t,PL_engine_t *);
add SWI's PL_get_string
2010-06-30 16:54:02 +01:00
extern X_API int PL_get_string(term_t, char **, size_t *);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_get_string_chars(term_t, char **, size_t *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API record_t PL_record(term_t);
track recent SWI changes.
2010-02-22 09:35:21 +00:00
extern X_API int PL_recorded(record_t, term_t);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API void PL_erase(record_t);
semweb and http compile now (but they don't work properly yet).
2010-07-15 23:35:37 +01:00
/* only partial implementation, does not guarantee export between different architectures and versions of YAP */
extern X_API char *PL_record_external(term_t, size_t *);
extern X_API int PL_recorded_external(char *, term_t);
extern X_API int PL_erase_external(char *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int PL_action(int,...);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API void PL_on_halt(void (*)(int, void *), void *);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API void *PL_malloc(int);
Extended support for SWI-Prolog C interface.
2009-11-19 21:09:22 +00:00
extern X_API void *PL_realloc(void*,int);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API void PL_free(void *);
extern X_API int PL_eval_expression_to_int64_ex(term_t t, int64_t *val);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API void PL_cleanup_fork(void);
extern X_API int PL_get_signum_ex(term_t sig, int *n);
another PL function.
2010-06-18 00:27:13 +01:00
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API size_t PL_utf8_strlen(const char *s, size_t len);
another PL function.
2010-06-18 00:27:13 +01:00
extern X_API int PL_unify_list_codes(term_t l, const char *chars);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_is_blob(term_t t, PL_blob_t **type);
extern X_API void *PL_blob_data(term_t t, size_t *len, PL_blob_t **type);
#define PL_SIGSYNC 0x00010000 /* call handler synchronously */
#define PL_SIGNOFRAME 0x00020000 /* Do not create a Prolog frame */
extern X_API void (*PL_signal(int sig, void (*func)(int)))(int);
extern X_API void PL_fatal_error(const char *msg);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API int Sprintf(const char * fm,...);
extern X_API int Sdprintf(const char *,...);
improvements in SWI-emulation
2010-06-17 00:35:25 +01:00
extern X_API int PL_get_file_name(term_t n, char **name, int flags);
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NOTE: the functions in this section are not documented, as as yet not
adviced for public usage. They are intended to provide an abstract
interface for the GNU readline interface as defined in pl-rl.c. This
abstract interface is necessary to make an embeddable system without the
readline overhead.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/* PL_dispatch() modes */
#define PL_DISPATCH_NOWAIT 0 /* Dispatch only once */
#define PL_DISPATCH_WAIT 1 /* Dispatch till input available */
#define PL_DISPATCH_INSTALLED 2 /* dispatch function installed? */
extern X_API int PL_dispatch(int fd, int wait);
typedef int (*PL_dispatch_hook_t)(int fd);
semweb and http compile now (but they don't work properly yet).
2010-07-15 23:35:37 +01:00
/********************************
* QUERY PROLOG *
*********************************/
#define PL_QUERY_ARGC 1 /* return main() argc */
#define PL_QUERY_ARGV 2 /* return main() argv */
/* 3: Obsolete PL_QUERY_SYMBOLFILE */
/* 4: Obsolete PL_QUERY_ORGSYMBOLFILE*/
#define PL_QUERY_GETC 5 /* Read character from terminal */
#define PL_QUERY_MAX_INTEGER 6 /* largest integer */
#define PL_QUERY_MIN_INTEGER 7 /* smallest integer */
#define PL_QUERY_MAX_TAGGED_INT 8 /* largest tagged integer */
#define PL_QUERY_MIN_TAGGED_INT 9 /* smallest tagged integer */
#define PL_QUERY_VERSION 10 /* 207006 = 2.7.6 */
#define PL_QUE_MAX_THREADS 11 /* maximum thread count */
#define PL_QUERY_ENCODING 12 /* I/O encoding */
#define PL_QUERY_USER_CPU 13 /* User CPU in milliseconds */
#define PL_QUERY_HALTING 14 /* If TRUE, we are in PL_cleanup() */
X_API intptr_t PL_query(int); /* get information from Prolog */
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Output representation for PL_get_chars() and friends. The
prepresentation type REP_FN is for PL_get_file_name() and friends. On
Windows we use UTF-8 which is translated by the `XOS' layer to Windows
UNICODE file functions.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#define REP_ISO_LATIN_1 0x0000 /* output representation */
#define REP_UTF8 0x1000
#define REP_MB 0x2000
#ifdef __WINDOWS__
#define REP_FN REP_UTF8
#else
#define REP_FN REP_MB
#endif
#define PL_DIFF_LIST 0x20000 /* PL_unify_chars() */
semweb and http compile now (but they don't work properly yet).
2010-07-15 23:35:37 +01:00
#define PL_WRT_QUOTED 0x01 /* quote atoms */
#define PL_WRT_IGNOREOPS 0x02 /* ignore list/operators */
#define PL_WRT_NUMBERVARS 0x04 /* print $VAR(N) as a variable */
#define PL_WRT_PORTRAY 0x08 /* call portray */
#define PL_WRT_CHARESCAPES 0x10 /* Output ISO escape sequences */
#define PL_WRT_BACKQUOTED_STRING 0x20 /* Write strings as `...` */
/* Write attributed variables */
#define PL_WRT_ATTVAR_IGNORE 0x040 /* Default: just write the var */
#define PL_WRT_ATTVAR_DOTS 0x080 /* Write as Var{...} */
#define PL_WRT_ATTVAR_WRITE 0x100 /* Write as Var{Attributes} */
#define PL_WRT_ATTVAR_PORTRAY 0x200 /* Use Module:portray_attrs/2 */
#define PL_WRT_ATTVAR_MASK \
(PL_WRT_ATTVAR_IGNORE | \
PL_WRT_ATTVAR_DOTS | \
PL_WRT_ATTVAR_WRITE | \
PL_WRT_ATTVAR_PORTRAY)
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#ifdef SIO_MAGIC /* defined from <SWI-Stream.h> */
/* Make IOSTREAM known to Prolog */
PL_EXPORT(int) PL_open_stream(term_t t, IOSTREAM *s);
PL_EXPORT(int) PL_unify_stream(term_t t, IOSTREAM *s);
#define PL_open_stream PL_unify_stream
PL_EXPORT(int) PL_get_stream_handle(term_t t, IOSTREAM **s);
PL_EXPORT(int) PL_release_stream(IOSTREAM *s);
semweb and http compile now (but they don't work properly yet).
2010-07-15 23:35:37 +01:00
PL_EXPORT(int) PL_write_term(IOSTREAM *s,term_t term,int precedence,int flags);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#endif
semweb and http compile now (but they don't work properly yet).
2010-07-15 23:35:37 +01:00
support for PL_ mpz and mpq ops add missing atom_nchars
2010-06-18 23:24:36 +01:00
#if USE_GMP
make sure gmp.h is included
2010-06-19 08:20:25 +01:00
support for PL_ mpz and mpq ops add missing atom_nchars
2010-06-18 23:24:36 +01:00
PL_EXPORT(int) PL_get_mpz(term_t t, mpz_t mpz);
PL_EXPORT(int) PL_unify_mpz(term_t t, mpz_t mpz);
PL_EXPORT(int) PL_get_mpq(term_t t, mpq_t mpz);
PL_EXPORT(int) PL_unify_mpq(term_t t, mpq_t mpz);
#endif
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
extern X_API const char *PL_cwd(void);
void swi_install(void);
X_API int PL_error(const char *pred, int arity, const char *msg, int id, ...);
Extended support for SWI-Prolog C interface.
2009-11-19 21:09:22 +00:00
X_API int PL_warning(const char *msg, ...);
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
improve emulataion of backtrackable SWI c-code (request from NF).
2010-01-06 13:25:15 +00:00
/********************************
* NON-DETERMINISTIC CALL/RETURN *
*********************************/
/* Note 1: Non-deterministic foreign functions may also use the deterministic
return methods PL_succeed and PL_fail.
Note 2: The argument to PL_retry is a sizeof(ptr)-2 bits signed
integer (use type intptr_t).
*/
#define PL_FIRST_CALL (0)
#define PL_CUTTED (1)
#define PL_REDO (2)
#define PL_retry(n) return _PL_retry(n)
#define PL_retry_address(a) return _PL_retry_address(a)
PL_EXPORT(foreign_t) _PL_retry(intptr_t);
PL_EXPORT(foreign_t) _PL_retry_address(void *);
PL_EXPORT(int) PL_foreign_control(control_t);
PL_EXPORT(intptr_t) PL_foreign_context(control_t);
PL_EXPORT(void *) PL_foreign_context_address(control_t);
make swi-yap io interface a structure.
2010-07-21 09:39:49 +01:00
typedef struct SWI_IO {
functor_t f;
void *get_c;
void *put_c;
void *get_w;
void *put_w;
improve SWI compatibility, especilaly for threaded stuff.
2010-08-04 11:37:12 +01:00
void *flush_s;
make swi-yap io interface a structure.
2010-07-21 09:39:49 +01:00
void *close_s;
} swi_io_struct;
improve emulataion of backtrackable SWI c-code (request from NF).
2010-01-06 13:25:15 +00:00
new interface pedicates fixes to bad implementation.
2010-06-23 11:44:21 +01:00
/* SWI stream info */
make swi-yap io interface a structure.
2010-07-21 09:39:49 +01:00
PL_EXPORT(void) PL_YAP_InitSWIIO(struct SWI_IO *swio);
improve emulataion of backtrackable SWI c-code (request from NF).
2010-01-06 13:25:15 +00:00
extend SWI interface with PL_toplevel and to handle C++ code. prolog/0 built-in fixes to parms.h changes.
2009-10-23 16:50:43 +01:00
#ifdef __cplusplus
}
#endif
fix compilation in older gccs.
2009-10-16 08:36:37 +01:00
#endif /* _FLI_H_INCLUDED */
Reference in New Issue Copy Permalink