Language-MzScheme
view release on metacpan or search on metacpan
lib/Language/MzScheme_in.pm view on Meta::CPAN
# This file was automatically generated by SWIG
package Language::MzScheme;
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
package Language::MzScheme;
bootstrap Language::MzScheme;
package Language::MzScheme;
@EXPORT = qw( mzscheme_init mzscheme_make_perl_prim_w_arity mzscheme_make_perl_object_w_arity mzscheme_from_perl_scalar mzscheme_from_perl_symbol mzscheme_from_perl_arrayref mzscheme_from_perl_hashref mzscheme_to_perl_scalar mzscheme_do_apply mzschem...
1;
mzscheme_wrap.c view on Meta::CPAN
/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */
static swig_constant_info swig_constants[] = {
{ SWIG_INT, (char *) SWIG_prefix "SCHEME_STACK_SIZE", (long) 5000, 0, 0, 0},
{ SWIG_STRING, (char *) SWIG_prefix "SYSTEM_TYPE_NAME", 0, 0, (void *)"unix", 0},
{ SWIG_INT, (char *) SWIG_prefix "STACK_SAFETY_MARGIN", (long) 50000, 0, 0, 0},
{ SWIG_STRING, (char *) SWIG_prefix "_MZ_SPECIAL_TAG", 0, 0, (void *)"\0", 0},
{ SWIG_INT, (char *) SWIG_prefix "MZSCHEME_VERSION_MAJOR", (long) 208, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "MZSCHEME_VERSION_MINOR", (long) 0, 0, 0, 0},
{ SWIG_STRING, (char *) SWIG_prefix "MZSCHEME_VERSION", 0, 0, (void *)"208", 0},
{ SWIG_INT, (char *) SWIG_prefix "SCHEME_DIRECT_EMBEDDED", (long) 1, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_toplevel_type", (long) scheme_toplevel_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_local_type", (long) scheme_local_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_local_unbox_type", (long) scheme_local_unbox_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_syntax_type", (long) scheme_syntax_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_application_type", (long) scheme_application_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_application2_type", (long) scheme_application2_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_application3_type", (long) scheme_application3_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_sequence_type", (long) scheme_sequence_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_branch_type", (long) scheme_branch_type, 0, 0, 0},
{ SWIG_INT, (char *) SWIG_prefix "scheme_unclosed_procedure_type", (long) scheme_unclosed_procedure_type, 0, 0, 0},
mzscheme_wrap.h view on Meta::CPAN
#else
# define MZ_HASH_KEY_EX /**/
#endif
#ifdef PALMOS_STUFF
# include <PalmOS.h>
typedef long FILE;
# define _LINUX_TYPES_H /* Blocks types.h */
#endif
#ifndef SCHEME_DIRECT_EMBEDDED
# define SCHEME_DIRECT_EMBEDDED 1
#endif
#ifndef MSC_IZE
# define MSC_IZE(x) x
#endif
#ifndef MSCBOR_IZE
# define MSCBOR_IZE(x) MSC_IZE(x)
#endif
#ifdef SIGSET_IS_SIGNAL
mzscheme_wrap.h view on Meta::CPAN
#ifdef MACINTOSH_EVENTS
/* We avoid #including the Carbon headers because we only
need a few abstract struct types: */
typedef struct FSSpec mzFSSpec;
#endif
/* Set up MZ_EXTERN for DLL build */
#if defined(WINDOWS_DYNAMIC_LOAD) \
&& !defined(LINK_EXTENSIONS_BY_TABLE) \
&& !defined(SCHEME_EMBEDDED_NO_DLL)
# define MZ_DLLIMPORT __declspec(dllimport)
# ifdef __mzscheme_private__
# define MZ_DLLSPEC __declspec(dllexport)
# else
# define MZ_DLLSPEC __declspec(dllimport)
# endif
#else
# define MZ_DLLSPEC
# define MZ_DLLIMPORT
#endif
mzscheme_wrap.h view on Meta::CPAN
typedef struct Scheme_Custodian Scheme_Custodian;
typedef int (*Scheme_Ready_Fun)(Scheme_Object *o);
typedef void (*Scheme_Needs_Wakeup_Fun)(Scheme_Object *, void *);
typedef Scheme_Object *(*Scheme_Wait_Sema_Fun)(Scheme_Object *, int *repost);
typedef int (*Scheme_Wait_Filter_Fun)(Scheme_Object *);
/* The Scheme_Thread structure represents a MzScheme thread. */
#if !SCHEME_DIRECT_EMBEDDED
# ifdef LINK_EXTENSIONS_BY_TABLE
# define scheme_current_thread (*scheme_current_thread_ptr)
# endif
#endif
typedef void (*Scheme_Kill_Action_Func)(void *);
# define BEGIN_ESCAPEABLE(func, data) \
{ mz_jmp_buf savebuf; \
scheme_push_kill_action((Scheme_Kill_Action_Func)func, (void *)data); \
mzscheme_wrap.h view on Meta::CPAN
#define scheme_tail_apply_buffer_wp(n, p) ((p)->tail_buffer)
#define scheme_tail_apply_buffer(n) scheme_tail_apply_buffer_wp(n, scheme_current_thread)
#define _scheme_tail_apply_no_copy_wp_tcw(f, n, args, p, tcw) (p->ku.apply.tail_rator = f, p->ku.apply.tail_rands = args, p->ku.apply.tail_num_rands = n, tcw)
#define _scheme_tail_apply_no_copy_wp(f, n, args, p) _scheme_tail_apply_no_copy_wp_tcw(f, n, args, p, SCHEME_TAIL_CALL_WAITING)
#define _scheme_tail_apply_no_copy(f, n, args) _scheme_tail_apply_no_copy_wp(f, n, args, scheme_current_thread)
#define scheme_thread_block_w_thread(t,p) scheme_thread_block(t)
#if !SCHEME_DIRECT_EMBEDDED
# ifdef LINK_EXTENSIONS_BY_TABLE
# define scheme_fuel_counter (*scheme_fuel_counter_ptr)
# endif
#else
#endif
#ifdef FUEL_AUTODECEREMENTS
# define DECREMENT_FUEL(f, p) (f)
#else
# define DECREMENT_FUEL(f, p) (f -= (p))
#endif
#define SCHEME_USE_FUEL(n) \
{ if (DECREMENT_FUEL(scheme_fuel_counter, n) <= 0) { scheme_out_of_fuel(); }}
#if SCHEME_DIRECT_EMBEDDED
#define scheme_tail_eval(obj) \
(scheme_eval_wait_expr = obj, SCHEME_EVAL_WAITING)
#endif
#define scheme_break_waiting(p) (p->external_break)
#ifndef USE_MZ_SETJMP
# ifdef USE_UNDERSCORE_SETJMP
# define scheme_mz_longjmp(b, v) _longjmp(b, v)
# define scheme_mz_setjmp(b) _setjmp(b)
mzscheme_wrap.h view on Meta::CPAN
#ifdef USE_MEMORY_TRACING
# define USE_TAGGED_ALLOCATION
# define MEMORY_COUNTING_ON
#endif
#ifdef MZ_PRECISE_GC
# ifndef GC2_EXTERN
# define GC2_EXTERN MZ_EXTERN
# endif
# ifdef INCLUDE_WITHOUT_PATHS
# if SCHEME_DIRECT_EMBEDDED
# include "gc2.h"
# else
# define GC2_JUST_MACROS_AND_TYPEDEFS
# include "schemegc2.h"
# endif
# else
# include "../gc2/gc2.h"
# endif
# define scheme_malloc_tagged GC_malloc_one_tagged
# define scheme_malloc_array_tagged GC_malloc_array_tagged
mzscheme_wrap.h view on Meta::CPAN
# define MZ_GC_VAR_IN_REG(x, v) /* empty */
# define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) /* empty */
# define MZ_GC_REG() /* empty */
# define MZ_GC_UNREG() /* empty */
#endif
/*========================================================================*/
/* embedding configuration and hooks */
/*========================================================================*/
#if SCHEME_DIRECT_EMBEDDED
#if defined(_IBMR2)
#endif
/* These flags must be set before MzScheme is started: */
/* Set these global hooks (optionally): */
#ifdef MZ_PRECISE_GC
mzscheme_wrap.h view on Meta::CPAN
#endif
#if defined(MUST_REGISTER_GLOBALS) || defined(GC_MIGHT_USE_REGISTERED_STATICS)
# define MZ_REGISTER_STATIC(x) scheme_register_static((void *)&x, sizeof(x))
#else
# define MZ_REGISTER_STATIC(x) /* empty */
#endif
#endif /* SCHEME_DIRECT_EMBEDDED */
/*========================================================================*/
/* FFI functions */
/*========================================================================*/
/* If MzScheme is being empbedded, then we just include the
prototypes. Otherwise, we may include a function-table definition
instead, plus macros that map the usual name to table lookups. */
#if SCHEME_DIRECT_EMBEDDED
/* All functions & global constants prototyped here */
#ifdef INCLUDE_WITHOUT_PATHS
# include "schemef.h"
#else
# include "../src/schemef.h"
#endif
#else
( run in 0.609 second using v1.01-cache-2.11-cpan-71847e10f99 )