Language-MzScheme
view release on metacpan or search on metacpan
mzscheme_wrap.h view on Meta::CPAN
int scheme_set_in_main_thread(void);
void scheme_restore_nonmain_thread(void);
#endif
#ifdef MAC_FILE_SYSTEM
extern long scheme_creator_id;
#endif
/* Initialization */
#ifdef USE_MSVC_MD_LIBRARY
#endif
/* image dump enabling startup: */
/* GC registration: */
#ifdef GC_MIGHT_USE_REGISTERED_STATICS
#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
#ifdef LINK_EXTENSIONS_BY_TABLE
/* Constants and function prototypes as function pointers in a struct: */
# ifdef INCLUDE_WITHOUT_PATHS
# include "schemex.h"
# else
# include "../src/schemex.h"
# endif
extern Scheme_Extension_Table *scheme_extension_table;
/* Macro mapping names to record access */
# ifdef INCLUDE_WITHOUT_PATHS
# include "schemexm.h"
# else
# include "../src/schemexm.h"
# endif
#else
/* Not LINK_EXTENSIONS_BY_TABLE */
# ifdef INCLUDE_WITHOUT_PATHS
# include "schemef.h"
# else
# include "../src/schemef.h"
# endif
#endif
#endif
/*========================================================================*/
/* misc flags */
/*========================================================================*/
/* For use with scheme_symbol_name_and_size: */
#define SCHEME_SNF_FOR_TS 0x1
#define SCHEME_SNF_PIPE_QUOTE 0x2
#define SCHEME_SNF_NO_PIPE_QUOTE 0x4
#define SCHEME_SNF_NEED_CASE 0x8
/* For use with scheme_make_struct_values et al.: */
#define SCHEME_STRUCT_NO_TYPE 0x01
#define SCHEME_STRUCT_NO_CONSTR 0x02
#define SCHEME_STRUCT_NO_PRED 0x04
#define SCHEME_STRUCT_NO_GET 0x08
#define SCHEME_STRUCT_NO_SET 0x10
#define SCHEME_STRUCT_GEN_GET 0x20
#define SCHEME_STRUCT_GEN_SET 0x40
#define SCHEME_STRUCT_EXPTIME 0x80
/*========================================================================*/
/* file descriptors */
/*========================================================================*/
#if defined(DETECT_WIN32_CONSOLE_STDIN) || defined(WINDOWS_PROCESSES)
# ifndef NO_STDIO_THREADS
# define USE_FAR_MZ_FDCALLS
# endif
#endif
#ifdef USE_DYNAMIC_FDSET_SIZE
# define USE_FAR_MZ_FDCALLS
#endif
#ifdef USE_BEOS_PORT_THREADS
# define USE_FAR_MZ_FDCALLS
#endif
#ifdef USE_FAR_MZ_FDCALLS
# define MZ_GET_FDSET(p, n) scheme_get_fdset(p, n)
# define MZ_FD_ZERO(p) scheme_fdzero(p)
# define MZ_FD_SET(n, p) scheme_fdset(p, n)
# define MZ_FD_CLR(n, p) scheme_fdclr(p, n)
# define MZ_FD_ISSET(n, p) scheme_fdisset(p, n)
#else
# define MZ_GET_FDSET(p, n) ((void *)(((fd_set *)p) + n))
# define MZ_FD_ZERO(p) FD_ZERO(p)
# define MZ_FD_SET(n, p) FD_SET(n, p)
# define MZ_FD_CLR(n, p) FD_CLR(n, p)
# define MZ_FD_ISSET(n, p) FD_ISSET(n, p)
#endif
#ifdef __cplusplus
}
#endif
#if defined(__MWERKS__)
# ifdef MZSCHEME_USES_NEAR_GLOBALS
# pragma far_data reset
# endif
#endif
#endif /* ! SCHEME_H */
/*
MzScheme
Copyright (c) 2004 PLT Scheme, Inc.
Copyright (c) 1995-2001 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
Originally based on:
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* MzScheme function prototypes */
/* Macros generally shouldn't go in this file; it is used both to
prototype functions, and as a parsing source for
declaring scheme_extension_table */
/* The scheme_extension_table "parser" is picky; don't leave a space
between a function name and it's opening parameter parenthesis. */
/* After this START tag, all comments should start & end on same line */
/*========================================================================*/
/* setjmpup (continuations) */
/*========================================================================*/
void scheme_init_jmpup_buf(Scheme_Jumpup_Buf *b);
int scheme_setjmpup_relative(Scheme_Jumpup_Buf *b, void *base,
void * volatile start, Scheme_Jumpup_Buf *cont);
void scheme_longjmpup(Scheme_Jumpup_Buf *b);
void scheme_reset_jmpup_buf(Scheme_Jumpup_Buf *b);
#ifdef USE_MZ_SETJMP
int scheme_mz_setjmp(mz_pre_jmp_buf b);
void scheme_mz_longjmp(mz_pre_jmp_buf b, int v);
#endif
void scheme_clear_escape(void);
Scheme_Jumpup_Buf_Holder *scheme_new_jmpupbuf_holder(void);
/*========================================================================*/
/* parameters */
/*========================================================================*/
Scheme_Object *scheme_make_config(Scheme_Config *base);
Scheme_Object *scheme_branch_config(void);
int scheme_new_param(void);
Scheme_Object *scheme_param_config(char *name, Scheme_Object *pos,
int argc, Scheme_Object **argv,
int arity,
Scheme_Prim *check, char *expected,
int isbool);
Scheme_Object *scheme_register_parameter(Scheme_Prim *function, char *name, int which);
Scheme_Env *scheme_get_env(Scheme_Config *config);
/*========================================================================*/
/* threads */
/*========================================================================*/
#ifndef LINK_EXTENSIONS_BY_TABLE
Scheme_Thread *scheme_current_thread;
volatile int scheme_fuel_counter;
#else
Scheme_Thread **scheme_current_thread_ptr;
volatile int *scheme_fuel_counter_ptr;
#endif
void scheme_out_of_fuel(void);
Scheme_Object *scheme_thread(Scheme_Object *thunk, Scheme_Config *config);
Scheme_Object *scheme_thread_w_custodian(Scheme_Object *thunk, Scheme_Config *config,
Scheme_Custodian *mgr);
Scheme_Object *scheme_thread_w_custodian_killkind(Scheme_Object *thunk, Scheme_Config *config,
Scheme_Custodian *mgr, int normal_kill);
void scheme_kill_thread(Scheme_Thread *p);
void scheme_break_thread(Scheme_Thread *p);
void scheme_thread_block(float sleep_time);
void scheme_swap_thread(Scheme_Thread *process);
void scheme_making_progress();
void scheme_weak_suspend_thread(Scheme_Thread *p);
void scheme_weak_resume_thread(Scheme_Thread *p);
int scheme_block_until(Scheme_Ready_Fun f, Scheme_Needs_Wakeup_Fun, Scheme_Object *, float);
int scheme_in_main_thread(void);
mzscheme_wrap.h view on Meta::CPAN
Scheme_Object *scheme_make_null(void);
Scheme_Object *scheme_true;
Scheme_Object *scheme_make_true(void);
Scheme_Object *scheme_false;
Scheme_Object *scheme_make_false(void);
Scheme_Object *scheme_void;
Scheme_Object *scheme_make_void(void);
Scheme_Object *scheme_undefined;
Scheme_Object *scheme_tail_call_waiting;
Scheme_Object *scheme_multiple_values;
/*========================================================================*/
/* evaluation */
/*========================================================================*/
Scheme_Object *scheme_eval(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *scheme_eval_multi(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *scheme_eval_compiled(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *scheme_eval_compiled_multi(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *_scheme_eval_compiled(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *_scheme_eval_compiled_multi(Scheme_Object *obj, Scheme_Env *env);
Scheme_Object *scheme_apply(Scheme_Object *rator, int num_rands, Scheme_Object **rands);
Scheme_Object *scheme_apply_multi(Scheme_Object *rator, int num_rands, Scheme_Object **rands);
Scheme_Object *scheme_apply_eb(Scheme_Object *rator, int num_rands, Scheme_Object **rands);
Scheme_Object *scheme_apply_multi_eb(Scheme_Object *rator, int num_rands, Scheme_Object **rands);
Scheme_Object *scheme_apply_to_list(Scheme_Object *rator, Scheme_Object *argss);
Scheme_Object *scheme_eval_string(const char *str, Scheme_Env *env);
Scheme_Object *scheme_eval_string_multi(const char *str, Scheme_Env *env);
Scheme_Object *scheme_eval_string_all(const char *str, Scheme_Env *env, int all);
Scheme_Object *_scheme_apply_known_closed_prim(Scheme_Object *rator, int argc,
Scheme_Object **argv);
Scheme_Object *_scheme_apply_known_closed_prim_multi(Scheme_Object *rator, int argc,
Scheme_Object **argv);
Scheme_Object *_scheme_apply_closed_prim(Scheme_Object *rator, int argc,
Scheme_Object **argv);
Scheme_Object *_scheme_apply_closed_prim_multi(Scheme_Object *rator, int argc,
Scheme_Object **argv);
Scheme_Object *scheme_values(int c, Scheme_Object **v);
Scheme_Object *scheme_check_one_value(Scheme_Object *v);
/* Tail calls - only use these when you're writing new functions/syntax */
Scheme_Object *scheme_tail_apply(Scheme_Object *f, int n, Scheme_Object **arg);
Scheme_Object *scheme_tail_apply_no_copy(Scheme_Object *f, int n, Scheme_Object **arg);
Scheme_Object *scheme_tail_apply_to_list(Scheme_Object *f, Scheme_Object *l);
Scheme_Object *scheme_tail_eval_expr(Scheme_Object *obj);
void scheme_set_tail_buffer_size(int s);
Scheme_Object *scheme_force_value(Scheme_Object *);
void scheme_set_cont_mark(Scheme_Object *key, Scheme_Object *val);
void scheme_push_continuation_frame(Scheme_Cont_Frame_Data *);
void scheme_pop_continuation_frame(Scheme_Cont_Frame_Data *);
void scheme_temp_dec_mark_depth();
void scheme_temp_inc_mark_depth();
Scheme_Object *scheme_current_continuation_marks(void);
/* Internal */
Scheme_Object *scheme_do_eval(Scheme_Object *obj, int _num_rands, Scheme_Object **rands, int val);
Scheme_Object *scheme_eval_compiled_stx_string(Scheme_Object *expr, Scheme_Env *env,
long shift, Scheme_Object *modidx);
Scheme_Object *scheme_load_compiled_stx_string(const char *str, long len);
Scheme_Object *scheme_compiled_stx_symbol(Scheme_Object *stx);
Scheme_Object *scheme_eval_compiled_sized_string(const char *str, int len, Scheme_Env *env);
/*========================================================================*/
/* memory management */
/*========================================================================*/
/* The core allocator functions depend on the GC. Macros in scheme.h */
/* map to the apporpriate core allocation function. */
#ifndef SCHEME_NO_GC
# ifndef SCHEME_NO_GC_PROTO
void *GC_malloc(size_t size_in_bytes);
void *GC_malloc_atomic(size_t size_in_bytes);
# ifdef MZ_PRECISE_GC
void *GC_malloc_one_tagged(size_t size_in_bytes);
void *GC_malloc_atomic_uncollectable(size_t size_in_bytes);
void *GC_malloc_array_tagged(size_t size_in_bytes);
# else
void *GC_malloc_stubborn(size_t size_in_bytes);
void *GC_malloc_uncollectable(size_t size_in_bytes);
# endif
# endif
#endif
void *scheme_malloc_eternal(size_t n);
void scheme_end_stubborn_change(void *p);
void *scheme_calloc(size_t num, size_t size);
char *scheme_strdup(const char *str);
char *scheme_strdup_eternal(const char *str);
void *scheme_malloc_fail_ok(void *(*f)(size_t), size_t);
#ifndef MZ_PRECISE_GC
void scheme_weak_reference(void **p);
void scheme_weak_reference_indirect(void **p, void *v);
void scheme_unweak_reference(void **p);
#endif
void scheme_add_finalizer(void *p, void (*f)(void *p, void *data), void *data);
void scheme_add_finalizer_once(void *p, void (*f)(void *p, void *data), void *data);
void scheme_add_scheme_finalizer(void *p, void (*f)(void *p, void *data), void *data);
void scheme_add_scheme_finalizer_once(void *p, void (*f)(void *p, void *data), void *data);
void scheme_register_finalizer(void *p,
void f(void *p, void *data), void *data,
void (**oldf)(void *p, void *data),
void **olddata);
void scheme_remove_all_finalization(void *p);
void scheme_dont_gc_ptr(void *p);
void scheme_gc_ptr_ok(void *p);
void scheme_collect_garbage(void);
#ifdef MZ_PRECISE_GC
void **GC_variable_stack;
void GC_register_traversers(short tag, Size_Proc size, Mark_Proc mark, Fixup_Proc fixup,
int is_constant_size, int is_atomic);
void *GC_resolve(void *p);
void GC_mark(const void *p);
void GC_fixup(void *p);
#endif
/*========================================================================*/
/* hash tables */
/*========================================================================*/
Scheme_Bucket_Table *scheme_make_bucket_table(int size_hint, int type);
void scheme_add_to_table(Scheme_Bucket_Table *table, const char *key, void *val, int);
void scheme_change_in_table(Scheme_Bucket_Table *table, const char *key, void *new_val);
void *scheme_lookup_in_table(Scheme_Bucket_Table *table, const char *key);
Scheme_Bucket *scheme_bucket_from_table(Scheme_Bucket_Table *table, const char *key);
int scheme_bucket_table_equal(Scheme_Bucket_Table *t1, Scheme_Bucket_Table *t2);
Scheme_Hash_Table *scheme_make_hash_table(int type);
Scheme_Hash_Table *scheme_make_hash_table_equal();
void scheme_hash_set(Scheme_Hash_Table *table, Scheme_Object *key, Scheme_Object *val);
Scheme_Object *scheme_hash_get(Scheme_Hash_Table *table, Scheme_Object *key);
int scheme_hash_table_equal(Scheme_Hash_Table *t1, Scheme_Hash_Table *t2);
( run in 2.557 seconds using v1.01-cache-2.11-cpan-75ffa21a3d4 )