You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
469 lines
23 KiB
C
469 lines
23 KiB
C
27 years ago
|
/*
|
||
|
|
MzScheme
|
||
|
|
Copyright (c) 1995 Matthew Flatt
|
||
|
|
All rights reserved.
|
||
|
|
|
||
|
|
Please see the full copyright in the documentation.
|
||
|
|
|
||
|
|
libscheme
|
||
|
|
Copyright (c) 1994 Brent Benson
|
||
|
|
All rights reserved.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* MzScheme function prototypes */
|
||
|
|
/* No macros should 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 touchy: 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 */
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
/* Call/cc utilities */
|
||
|
|
void (*scheme_init_jmpup_buf)(Scheme_Jumpup_Buf *b);
|
||
|
|
int (*scheme_setjmpup_relative)(Scheme_Jumpup_Buf *b, void *start,
|
||
|
|
Scheme_Jumpup_Buf *cont);
|
||
|
|
void (*scheme_longjmpup)(Scheme_Jumpup_Buf *b);
|
||
|
|
#ifdef USE_MZ_SETJMP
|
||
|
|
int (*scheme_setjmp)(jmp_buf b);
|
||
|
|
void (*scheme_longjmp)(jmp_buf b, int v);
|
||
|
|
#endif
|
||
|
|
/* 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, long 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);
|
||
|
|
/* Processes */
|
||
|
|
#ifdef MZ_REAL_THREADS
|
||
|
|
Scheme_Process *(*scheme_get_current_process)();
|
||
|
|
#else
|
||
|
|
#ifndef LINK_EXTENSIONS_BY_TABLE
|
||
|
|
Scheme_Process *scheme_current_process;
|
||
|
|
int scheme_fuel_counter;
|
||
|
|
#else
|
||
|
|
Scheme_Process **scheme_current_process_ptr;
|
||
|
|
int *scheme_fuel_counter_ptr;
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
#ifndef NO_SCHEME_THREADS
|
||
|
|
Scheme_Object *(*scheme_make_namespace)(int argc, Scheme_Object *argv[]);
|
||
|
|
Scheme_Object *(*scheme_thread)(Scheme_Object *thunk, Scheme_Config *config);
|
||
|
|
void (*scheme_break_thread)(Scheme_Process *p);
|
||
|
|
void (*scheme_kill_thread)(Scheme_Process *p);
|
||
|
|
#endif
|
||
|
|
#ifndef MZ_REAL_THREADS
|
||
|
|
void (*scheme_process_block)(float sleep_time);
|
||
|
|
void (*scheme_swap_process)(Scheme_Process *process);
|
||
|
|
#else
|
||
|
|
void (*scheme_process_block_w_process)(float sleep_time, Scheme_Process *p);
|
||
|
|
#endif
|
||
|
|
int (*scheme_block_until)(int (*f)(Scheme_Object *), void (*fdfd)(Scheme_Object *, void *), void *, float);
|
||
|
|
int (*scheme_in_main_thread)(void);
|
||
|
|
int (*scheme_tls_allocate)();
|
||
|
|
void (*scheme_tls_set)(int pos, void *v);
|
||
|
|
void *(*scheme_tls_get)(int pos);
|
||
|
|
void (*scheme_add_namespace_option)(Scheme_Object *key, void (*f)(Scheme_Env *));
|
||
|
|
Scheme_Manager *(*scheme_make_manager)(Scheme_Manager *);
|
||
|
|
Scheme_Manager_Reference *(*scheme_add_managed)(Scheme_Manager *m, Scheme_Object *o,
|
||
|
|
Scheme_Close_Manager_Client *f, void *data,
|
||
|
|
int strong);
|
||
|
|
void (*scheme_remove_managed)(Scheme_Manager_Reference *m, Scheme_Object *o);
|
||
|
|
void (*scheme_close_managed)(Scheme_Manager *m);
|
||
|
|
/* error handling */
|
||
|
|
void (*scheme_signal_error)(char *msg, ...);
|
||
|
|
void (*scheme_raise_exn)(int exnid, ...);
|
||
|
|
void (*scheme_warning)(char *msg, ...);
|
||
|
|
void (*scheme_wrong_count)(const char *name, int minc, int maxc, int argc,
|
||
|
|
Scheme_Object **argv);
|
||
|
|
void (*scheme_case_lambda_wrong_count)(const char *name, int argc,
|
||
|
|
Scheme_Object **argv, int count, ...);
|
||
|
|
void (*scheme_wrong_type)(const char *name, const char *expected,
|
||
|
|
int which, int argc,
|
||
|
|
Scheme_Object **argv);
|
||
|
|
void (*scheme_wrong_return_arity)(const char *where,
|
||
|
|
int expected, int got,
|
||
|
|
Scheme_Object **argv,
|
||
|
|
const char *context_detail, ...);
|
||
|
|
void (*scheme_unbound_global)(Scheme_Object *name);
|
||
|
|
Scheme_Object *(*scheme_dynamic_wind)(void (*pre)(void *),
|
||
|
|
Scheme_Object *(*act)(void *),
|
||
|
|
void (*post)(void *),
|
||
|
|
Scheme_Object *(*jmp_handler)(void *),
|
||
|
|
void *data);
|
||
|
|
/* Types */
|
||
|
|
Scheme_Type (*scheme_make_type)(const char *name);
|
||
|
|
/* Type readers & writers for compiled code data */
|
||
|
|
void (*scheme_install_type_reader)(Scheme_Type type, Scheme_Type_Reader f);
|
||
|
|
void (*scheme_install_type_writer)(Scheme_Type type, Scheme_Type_Writer f);
|
||
|
|
/* Constants */
|
||
|
|
Scheme_Object *scheme_eof;
|
||
|
|
Scheme_Object *scheme_null;
|
||
|
|
Scheme_Object *scheme_true;
|
||
|
|
Scheme_Object *scheme_false;
|
||
|
|
Scheme_Object *scheme_void;
|
||
|
|
Scheme_Object *scheme_undefined;
|
||
|
|
Scheme_Object *scheme_tail_call_waiting;
|
||
|
|
Scheme_Object *scheme_multiple_values;
|
||
|
|
/* Basics */
|
||
|
|
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_Object *(*scheme_eval_compiled_multi)(Scheme_Object *obj);
|
||
|
|
Scheme_Object *(*_scheme_eval_compiled)(Scheme_Object *obj);
|
||
|
|
Scheme_Object *(*_scheme_eval_compiled_multi)(Scheme_Object *obj);
|
||
|
|
#ifndef MZ_REAL_THREADS
|
||
|
|
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);
|
||
|
|
#else
|
||
|
|
Scheme_Object *(*scheme_apply_wp)(Scheme_Object *rator, int num_rands, Scheme_Object **rands,
|
||
|
|
Scheme_Process *p);
|
||
|
|
Scheme_Object *(*scheme_apply_multi_wp)(Scheme_Object *rator, int num_rands, Scheme_Object **rands,
|
||
|
|
Scheme_Process *p);
|
||
|
|
#endif
|
||
|
|
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_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_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 *);
|
||
|
|
/* Internal */
|
||
|
|
#ifndef MZ_REAL_THREADS
|
||
|
|
Scheme_Object *(*scheme_do_eval)(Scheme_Object *obj, int _num_rands, Scheme_Object **rands, int val);
|
||
|
|
#else
|
||
|
|
Scheme_Object *(*scheme_do_eval_w_process)(Scheme_Object *obj, int _num_rands, Scheme_Object **rands, int val, Scheme_Process *p);
|
||
|
|
#endif
|
||
|
|
/* Allocation */
|
||
|
|
#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);
|
||
|
|
void *(*GC_malloc_stubborn)(size_t size_in_bytes);
|
||
|
|
void *(*GC_malloc_uncollectable)(size_t size_in_bytes);
|
||
|
|
#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);
|
||
|
|
void (*scheme_weak_reference)(void **p);
|
||
|
|
void (*scheme_weak_reference_indirect)(void **p, void *v);
|
||
|
|
void (*scheme_add_finalizer)(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_register_finalizer)(void *p,
|
||
|
|
void (*f)(void *p, void *data), void *data,
|
||
|
|
void (**oldf)(void *p, void *data),
|
||
|
|
void **olddata);
|
||
|
|
void (*scheme_dont_gc_ptr)(void *p);
|
||
|
|
void (*scheme_gc_ptr_ok)(void *p);
|
||
|
|
void (*scheme_collect_garbage)(void);
|
||
|
|
/* Hash table */
|
||
|
|
Scheme_Hash_Table *(*scheme_hash_table)(int size, int type,
|
||
|
|
int w_const, int forever);
|
||
|
|
void (*scheme_add_to_table)(Scheme_Hash_Table *table, const char *key, void *val, int);
|
||
|
|
void (*scheme_change_in_table)(Scheme_Hash_Table *table, const char *key, void *new_val);
|
||
|
|
void *(*scheme_lookup_in_table)(Scheme_Hash_Table *table, const char *key);
|
||
|
|
Scheme_Bucket *(*scheme_bucket_from_table)(Scheme_Hash_Table *table, const char *key);
|
||
|
|
/* Constructors */
|
||
|
|
Scheme_Object *(*scheme_make_prim)(Scheme_Prim *prim);
|
||
|
|
Scheme_Object *(*scheme_make_noneternal_prim)(Scheme_Prim *prim);
|
||
|
|
Scheme_Object *(*scheme_make_closed_prim)(Scheme_Closed_Prim *prim, void *data);
|
||
|
|
Scheme_Object *(*scheme_make_prim_w_arity)(Scheme_Prim *prim, const char *name,
|
||
|
|
short mina, short maxa);
|
||
|
|
Scheme_Object *(*scheme_make_folding_prim)(Scheme_Prim *prim,
|
||
|
|
const char *name,
|
||
|
|
short mina, short maxa,
|
||
|
|
short functional);
|
||
|
|
Scheme_Object *(*scheme_make_noneternal_prim_w_arity)(Scheme_Prim *prim,
|
||
|
|
const char *name,
|
||
|
|
short mina, short maxa);
|
||
|
|
Scheme_Object *(*scheme_make_closed_prim_w_arity)(Scheme_Closed_Prim *prim,
|
||
|
|
void *data, const char *name,
|
||
|
|
short mina, short maxa);
|
||
|
|
Scheme_Object *(*scheme_make_folding_closed_prim)(Scheme_Closed_Prim *prim,
|
||
|
|
void *data, const char *name,
|
||
|
|
short mina, short maxa,
|
||
|
|
short functional);
|
||
|
|
Scheme_Object *(*scheme_make_closure)(Scheme_Env *env, Scheme_Object *code);
|
||
|
|
Scheme_Object *(*scheme_make_pair)(Scheme_Object *car, Scheme_Object *cdr);
|
||
|
|
Scheme_Object *(*scheme_make_string)(const char *chars);
|
||
|
|
Scheme_Object *(*scheme_make_sized_string)(char *chars, long len, int copy);
|
||
|
|
Scheme_Object *(*scheme_make_string_without_copying)(char *chars);
|
||
|
|
Scheme_Object *(*scheme_alloc_string)(int size, char fill);
|
||
|
|
Scheme_Object *(*scheme_append_string)(Scheme_Object *, Scheme_Object *);
|
||
|
|
Scheme_Object *(*scheme_make_vector)(int size, Scheme_Object *fill);
|
||
|
|
Scheme_Object *(*scheme_make_integer_value)(long i);
|
||
|
|
Scheme_Object *(*scheme_make_integer_value_from_unsigned)(unsigned long i);
|
||
|
|
Scheme_Object *(*scheme_make_double)(double d);
|
||
|
|
#ifdef MZ_USE_SINGLE_FLOATS
|
||
|
|
Scheme_Object *(*scheme_make_float)(float f);
|
||
|
|
#endif
|
||
|
|
Scheme_Object *(*scheme_make_char)(char ch);
|
||
|
|
Scheme_Object *(*scheme_make_promise)(Scheme_Object *expr, Scheme_Env *env);
|
||
|
|
Scheme_Object *(*scheme_make_promise_from_thunk)(Scheme_Object *expr);
|
||
|
|
#ifndef NO_SCHEME_THREADS
|
||
|
|
Scheme_Object *(*scheme_make_sema)(long v);
|
||
|
|
#endif
|
||
|
|
void (*scheme_post_sema)(Scheme_Object *o);
|
||
|
|
int (*scheme_wait_sema)(Scheme_Object *o, int just_try);
|
||
|
|
Scheme_Object **scheme_char_constants;
|
||
|
|
int (*scheme_get_int_val)(Scheme_Object *o, long *v);
|
||
|
|
int (*scheme_get_unsigned_int_val)(Scheme_Object *o, unsigned long *v);
|
||
|
|
const char *(*scheme_get_proc_name)(Scheme_Object *p, int *len, int for_error);
|
||
|
|
/* Bignums */
|
||
|
|
Scheme_Object *(*scheme_make_bignum)(long v);
|
||
|
|
Scheme_Object *(*scheme_make_bignum_from_unsigned)(unsigned long v);
|
||
|
|
double (*scheme_bignum_to_double)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_bignum_from_double)(double d);
|
||
|
|
#ifdef MZ_USE_SINGLE_FLOATS
|
||
|
|
float (*scheme_bignum_to_float)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_bignum_from_float)(float d);
|
||
|
|
#else
|
||
|
|
# define scheme_bignum_to_float scheme_bignum_to_double
|
||
|
|
# define scheme_bignum_from_float scheme_bignum_from_double
|
||
|
|
#endif
|
||
|
|
char *(*scheme_bignum_to_string)(const Scheme_Object *n, int radix);
|
||
|
|
Scheme_Object *(*scheme_read_bignum)(const char *str, int radix);
|
||
|
|
Scheme_Object *(*scheme_bignum_normalize)(const Scheme_Object *n);
|
||
|
|
long (*scheme_double_to_int)(const char *where, double d);
|
||
|
|
/* Rationals */
|
||
|
|
Scheme_Object *(*scheme_make_rational)(const Scheme_Object *r, const Scheme_Object *d);
|
||
|
|
double (*scheme_rational_to_double)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_rational_from_double)(double d);
|
||
|
|
#ifdef MZ_USE_SINGLE_FLOATS
|
||
|
|
float (*scheme_rational_to_float)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_rational_from_float)(float d);
|
||
|
|
#else
|
||
|
|
# define scheme_rational_to_float scheme_rational_to_double
|
||
|
|
# define scheme_rational_from_float scheme_rational_from_double
|
||
|
|
#endif
|
||
|
|
Scheme_Object *(*scheme_rational_normalize)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_rational_numerator)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_rational_denominator)(const Scheme_Object *n);
|
||
|
|
/* Complex */
|
||
|
|
Scheme_Object *(*scheme_make_complex)(const Scheme_Object *r, const Scheme_Object *i);
|
||
|
|
Scheme_Object *(*scheme_complex_normalize)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_complex_real_part)(const Scheme_Object *n);
|
||
|
|
Scheme_Object *(*scheme_complex_imaginary_part)(const Scheme_Object *n);
|
||
|
|
/* Exact/inexact: */
|
||
|
|
int (*scheme_is_exact)(Scheme_Object *n);
|
||
|
|
int (*scheme_is_inexact)(Scheme_Object *n);
|
||
|
|
/* Macro and syntax expansion */
|
||
|
|
Scheme_Object *(*scheme_expand)(Scheme_Object *form, Scheme_Env *env);
|
||
|
|
/* Compilation */
|
||
|
|
Scheme_Object *(*scheme_compile)(Scheme_Object *form, Scheme_Env *env, int writeable);
|
||
|
|
Scheme_Object *(*scheme_make_promise_value)(Scheme_Object *compiled_expr);
|
||
|
|
/* Ports */
|
||
|
|
Scheme_Object *(*scheme_read)(Scheme_Object *port);
|
||
|
|
void (*scheme_write)(Scheme_Object *obj, Scheme_Object *port);
|
||
|
|
void (*scheme_display)(Scheme_Object *obj, Scheme_Object *port);
|
||
|
|
void (*scheme_write_w_max)(Scheme_Object *obj, Scheme_Object *port, long maxl);
|
||
|
|
void (*scheme_display_w_max)(Scheme_Object *obj, Scheme_Object *port, long maxl);
|
||
|
|
void (*scheme_write_string)(const char *str, long len, Scheme_Object *port);
|
||
|
|
char *(*scheme_write_to_string)(Scheme_Object *obj, long *len);
|
||
|
|
char *(*scheme_display_to_string)(Scheme_Object *obj, long *len);
|
||
|
|
char *(*scheme_write_to_string_w_max)(Scheme_Object *obj, long *len, long maxl);
|
||
|
|
char *(*scheme_display_to_string_w_max)(Scheme_Object *obj, long *len, long maxl);
|
||
|
|
void (*scheme_debug_print)(Scheme_Object *obj);
|
||
|
|
void (*scheme_flush_output)(Scheme_Object *port);
|
||
|
|
char *(*scheme_format)(char *format, int flen, int argc, Scheme_Object **argv, int *rlen);
|
||
|
|
void (*scheme_printf)(char *format, int flen, int argc, Scheme_Object **argv);
|
||
|
|
int (*scheme_getc)(Scheme_Object *port);
|
||
|
|
void (*scheme_ungetc)(int ch, Scheme_Object *port);
|
||
|
|
int (*scheme_char_ready)(Scheme_Object *port);
|
||
|
|
void (*scheme_need_wakeup)(Scheme_Object *port, void *fds);
|
||
|
|
long (*scheme_get_chars)(Scheme_Object *port, long size, char *buffer);
|
||
|
|
long (*scheme_tell)(Scheme_Object *port);
|
||
|
|
long (*scheme_output_tell)(Scheme_Object *port);
|
||
|
|
long (*scheme_tell_line)(Scheme_Object *port);
|
||
|
|
void (*scheme_close_input_port)(Scheme_Object *port);
|
||
|
|
void (*scheme_close_output_port)(Scheme_Object *port);
|
||
|
|
int (*scheme_are_all_chars_ready)(Scheme_Object *port);
|
||
|
|
Scheme_Object *(*scheme_make_port_type)(const char *name);
|
||
|
|
Scheme_Input_Port *(*scheme_make_input_port)(Scheme_Object *subtype, void *data,
|
||
|
|
int (*getc_fun)(Scheme_Input_Port*),
|
||
|
|
int (*char_ready_fun)
|
||
|
|
(Scheme_Input_Port*),
|
||
|
|
void (*close_fun)
|
||
|
|
(Scheme_Input_Port*),
|
||
|
|
void (*need_wakeup_fun)
|
||
|
|
(Scheme_Input_Port*, void *),
|
||
|
|
int must_close);
|
||
|
|
Scheme_Output_Port *(*scheme_make_output_port)(Scheme_Object *subtype,
|
||
|
|
void *data,
|
||
|
|
void (*write_string_fun)
|
||
|
|
(char*,long, Scheme_Output_Port*),
|
||
|
|
void (*close_fun)
|
||
|
|
(Scheme_Output_Port*),
|
||
|
|
int must_close);
|
||
|
|
Scheme_Object *(*scheme_make_file_input_port)(FILE *fp);
|
||
|
|
Scheme_Object *(*scheme_make_named_file_input_port)(FILE *fp, const char *filename);
|
||
|
|
Scheme_Object *(*scheme_make_file_output_port)(FILE *fp);
|
||
|
|
Scheme_Object *(*scheme_make_string_input_port)(const char *str);
|
||
|
|
Scheme_Object *(*scheme_make_sized_string_input_port)(const char *str, long len);
|
||
|
|
Scheme_Object *(*scheme_make_string_output_port)();
|
||
|
|
char *(*scheme_get_string_output)(Scheme_Object *);
|
||
|
|
char *(*scheme_get_sized_string_output)(Scheme_Object *, int *len);
|
||
|
|
void (*scheme_pipe)(Scheme_Object **write, Scheme_Object **read);
|
||
|
|
int (*scheme_file_exists)(char *filename);
|
||
|
|
int (*scheme_directory_exists)(char *dirname);
|
||
|
|
char *(*scheme_expand_filename)(char* filename, int ilen, char *errorin, int *ex);
|
||
|
|
char *(*scheme_getcwd)(char *buf, int buflen, int *actlen, int noexn);
|
||
|
|
int (*scheme_setcwd)(char *buf, int noexn);
|
||
|
|
char *(*scheme_getdrive)(void);
|
||
|
|
Scheme_Object *(*scheme_split_pathname)(int argc, Scheme_Object **argv);
|
||
|
|
Scheme_Object *(*scheme_build_pathname)(int argc, Scheme_Object **argv);
|
||
|
|
void *(*scheme_alloc_fdset_array)(int count, int permanent);
|
||
|
|
void *(*scheme_init_fdset_array)(void *fdarray, int count);
|
||
|
|
void *(*scheme_get_fdset)(void *fdarray, int pos);
|
||
|
|
void (*scheme_fdzero)(void *fd);
|
||
|
|
void (*scheme_fdset)(void *fd, int pos);
|
||
|
|
void (*scheme_fdclr)(void *fd, int pos);
|
||
|
|
int (*scheme_fdisset)(void *fd, int pos);
|
||
|
|
/* environment */
|
||
|
|
void (*scheme_add_global)(const char *name, Scheme_Object *val, Scheme_Env *env);
|
||
|
|
void (*scheme_add_global_constant)(const char *name, Scheme_Object *v, Scheme_Env *env);
|
||
|
|
void (*scheme_add_global_keyword)(const char *name, Scheme_Object *v, Scheme_Env *env);
|
||
|
|
void (*scheme_remove_global)(const char *name, Scheme_Env *env);
|
||
|
|
void (*scheme_remove_global_constant)(const char *name, Scheme_Env *env);
|
||
|
|
void (*scheme_add_global_symbol)(Scheme_Object *name, Scheme_Object *val,
|
||
|
|
Scheme_Env *env);
|
||
|
|
void (*scheme_remove_global_symbol)(Scheme_Object *name, Scheme_Env *env);
|
||
|
|
void (*scheme_add_global_constant_symbol)(Scheme_Object *name, Scheme_Object *v, Scheme_Env *env);
|
||
|
|
void (*scheme_constant)(Scheme_Object *sym, Scheme_Env *env);
|
||
|
|
void (*scheme_set_keyword)(Scheme_Object *name, Scheme_Env *env);
|
||
|
|
Scheme_Object *(*scheme_make_envunbox)(Scheme_Object *value);
|
||
|
|
Scheme_Object *(*scheme_lookup_global)(Scheme_Object *symbol, Scheme_Env *env);
|
||
|
|
Scheme_Bucket *(*scheme_global_bucket)(Scheme_Object *symbol, Scheme_Env *env);
|
||
|
|
void (*scheme_set_global_bucket)(char *proc, Scheme_Bucket *var, Scheme_Object *val,
|
||
|
|
int set_undef);
|
||
|
|
/* Symbols */
|
||
|
|
Scheme_Object *(*scheme_intern_symbol)(const char *name);
|
||
|
|
Scheme_Object *(*scheme_intern_exact_symbol)(const char *name, int len);
|
||
|
|
Scheme_Object *(*scheme_make_symbol)(const char *name); /* Make uninterned */
|
||
|
|
Scheme_Object *(*scheme_make_exact_symbol)(const char *name, int len); /* Exact case */
|
||
|
|
const char *(*scheme_symbol_name)(Scheme_Object *sym);
|
||
|
|
const char *(*scheme_symbol_name_and_size)(Scheme_Object *sym, int *l, int flags);
|
||
|
|
/* Type Symbols */
|
||
|
|
Scheme_Object *(*scheme_intern_type_symbol)(Scheme_Object *sym);
|
||
|
|
Scheme_Object *(*scheme_make_type_symbol)(Scheme_Object *sym);/*Make uninterned */
|
||
|
|
/* Structures */
|
||
|
|
Scheme_Object **(*scheme_make_struct_values)(Scheme_Object *struct_type,
|
||
|
|
Scheme_Object **names,
|
||
|
|
int count, int flags);
|
||
|
|
Scheme_Object **(*scheme_make_struct_names)(Scheme_Object *base,
|
||
|
|
Scheme_Object *field_names,
|
||
|
|
int flags, int *count_out);
|
||
|
|
Scheme_Object *(*scheme_make_struct_type)(Scheme_Object *base,
|
||
|
|
Scheme_Object *parent,
|
||
|
|
int num_fields);
|
||
|
|
Scheme_Object *(*scheme_make_struct_instance)(Scheme_Object *stype,
|
||
|
|
int argc,
|
||
|
|
Scheme_Object **argv);
|
||
|
|
int (*scheme_is_struct_instance)(Scheme_Object *type, Scheme_Object *v);
|
||
|
|
#ifndef NO_OBJECT_SYSTEM
|
||
|
|
/* Objects */
|
||
|
|
Scheme_Object *(*scheme_make_class)(const char *name, Scheme_Object *sup,
|
||
|
|
Scheme_Method_Prim *init, int num_methods);
|
||
|
|
void (*scheme_add_method)(Scheme_Object *cl, const char *name,
|
||
|
|
Scheme_Method_Prim *f);
|
||
|
|
void (*scheme_add_method_w_arity)(Scheme_Object *cl, const char *name,
|
||
|
|
Scheme_Method_Prim *f, int mina, int maxa);
|
||
|
|
void (*scheme_made_class)(Scheme_Object *cl);
|
||
|
|
Scheme_Object *(*scheme_make_object)(Scheme_Object *sclass,
|
||
|
|
int argc, Scheme_Object **argv);
|
||
|
|
Scheme_Object *(*scheme_make_uninited_object)(Scheme_Object *sclass);
|
||
|
|
Scheme_Object *(*scheme_find_ivar)(Scheme_Object *obj, Scheme_Object *sym, int force);
|
||
|
|
int (*scheme_is_subclass)(Scheme_Object *sub, Scheme_Object *parent);
|
||
|
|
int (*scheme_is_implementation)(Scheme_Object *cl, Scheme_Object *in);
|
||
|
|
int (*scheme_is_interface_extension)(Scheme_Object *n1, Scheme_Object *n2);
|
||
|
|
int (*scheme_is_a)(Scheme_Object *obj, Scheme_Object *sclass);
|
||
|
|
const char *(*scheme_get_class_name)(Scheme_Object *cl, int *len);
|
||
|
|
const char *(*scheme_get_interface_name)(Scheme_Object *cl, int *len);
|
||
|
|
struct Scheme_Class_Assembly *(*scheme_make_class_assembly)(const char *name, int n_interfaces,
|
||
|
|
int n_public, Scheme_Object **names,
|
||
|
|
int n_inh, Scheme_Object **inheritd,
|
||
|
|
int n_ren, Scheme_Object **renames,
|
||
|
|
int mina, int maxa,
|
||
|
|
Scheme_Instance_Init_Proc *initproc);
|
||
|
|
Scheme_Object *(*scheme_create_class)(struct Scheme_Class_Assembly *a, void *data,
|
||
|
|
Scheme_Object *super, Scheme_Object **interfaces);
|
||
|
|
struct Scheme_Interface_Assembly *(*scheme_make_interface_assembly)(const char *name, int n_supers,
|
||
|
|
int n_names,
|
||
|
|
Scheme_Object **names);
|
||
|
|
Scheme_Object *(*scheme_create_interface)(struct Scheme_Interface_Assembly *a,
|
||
|
|
Scheme_Object **supers);
|
||
|
|
Scheme_Object *(*scheme_apply_generic_data)(Scheme_Object *gdata,
|
||
|
|
Scheme_Object *sobj, int force);
|
||
|
|
Scheme_Object *(*scheme_get_generic_data)(Scheme_Object *cl,
|
||
|
|
Scheme_Object *name);
|
||
|
|
#endif
|
||
|
|
/* Units */
|
||
|
|
Scheme_Object *(*scheme_invoke_unit)(Scheme_Object *functor, int num_ins,
|
||
|
|
Scheme_Object **ins, Scheme_Object **anchors,
|
||
|
|
int open, const char *name, int tail, int multi);
|
||
|
|
Scheme_Object *(*scheme_assemble_compound_unit)(Scheme_Object *imports,
|
||
|
|
Scheme_Object *links,
|
||
|
|
Scheme_Object *exports);
|
||
|
|
Scheme_Object *(*scheme_make_compound_unit)(Scheme_Object *data_in,
|
||
|
|
Scheme_Object **subs_in);
|
||
|
|
const char *(*scheme_get_unit_name)(Scheme_Object *cl, int *len);
|
||
|
|
/* Misc */
|
||
|
|
int (*scheme_eq)(Scheme_Object *obj1, Scheme_Object *obj2);
|
||
|
|
int (*scheme_eqv)(Scheme_Object *obj1, Scheme_Object *obj2);
|
||
|
|
int (*scheme_equal)(Scheme_Object *obj1, Scheme_Object *obj2);
|
||
|
|
Scheme_Object *(*scheme_build_list)(int argc, Scheme_Object **argv);
|
||
|
|
int (*scheme_list_length)(Scheme_Object *list);
|
||
|
|
int (*scheme_proper_list_length)(Scheme_Object *list);
|
||
|
|
Scheme_Object *(*scheme_alloc_list)(int size);
|
||
|
|
Scheme_Object *(*scheme_map_1)(Scheme_Object *(*f)(Scheme_Object*),
|
||
|
|
Scheme_Object *l);
|
||
|
|
Scheme_Object *(*scheme_car)(Scheme_Object *pair);
|
||
|
|
Scheme_Object *(*scheme_cdr)(Scheme_Object *pair);
|
||
|
|
Scheme_Object *(*scheme_cadr)(Scheme_Object *pair);
|
||
|
|
Scheme_Object *(*scheme_caddr)(Scheme_Object *pair);
|
||
|
|
Scheme_Object *(*scheme_vector_to_list)(Scheme_Object *vec);
|
||
|
|
Scheme_Object *(*scheme_list_to_vector)(Scheme_Object *list);
|
||
|
|
Scheme_Object *(*scheme_append)(Scheme_Object *lstx, Scheme_Object *lsty);
|
||
|
|
Scheme_Object *(*scheme_box)(Scheme_Object *v);
|
||
|
|
Scheme_Object *(*scheme_unbox)(Scheme_Object *obj);
|
||
|
|
void (*scheme_set_box)(Scheme_Object *b, Scheme_Object *v);
|
||
|
|
Scheme_Object *(*scheme_make_weak_box)(Scheme_Object *v);
|
||
|
|
Scheme_Object *(*scheme_load)(const char *file);
|
||
|
|
Scheme_Object *(*scheme_load_extension)(const char *filename, Scheme_Env *env);
|
||
|
|
void (*scheme_register_extension_global)(void *ptr, long size);
|
||
|
|
long (*scheme_get_milliseconds)(void);
|
||
|
|
long (*scheme_get_process_milliseconds)(void);
|
||
|
|
void (*scheme_rep)(void);
|
||
|
|
char *(*scheme_banner)(void);
|
||
|
|
char *(*scheme_version)(void);
|
||
|
|
int (*scheme_check_proc_arity)(const char *where, int a,
|
||
|
|
int which, int argc, Scheme_Object **argv);
|
||
|
|
void (*scheme_secure_exceptions)(Scheme_Env *env);
|
||
|
|
char *(*scheme_make_provided_string)(Scheme_Object *o, int count, int *len);
|
||
|
|
char *(*scheme_make_args_string)(char *s, int which, int argc, Scheme_Object **argv);
|
||
|
|
void (*scheme_no_dumps)(char *why);
|
||
|
|
const char *(*scheme_system_library_subpath)();
|
||
|
|
#ifndef SCHEME_EX_INLINE
|
||
|
|
} Scheme_Extension_Table;
|
||
|
|
#endif
|