runtime.h File Reference

Go to the source code of this file.

Macros
#define	__glo_call_95cc_scheme_base   Cyc_glo_call_cc
#define	__glo_eval_91from_91c_scheme_eval   Cyc_glo_eval_from_c
#define	Cyc_car_unsafe(d, lis)   car(lis)
#define	Cyc_cdr_unsafe(d, lis)   cdr(lis)
#define	Cyc_check_argc(data, fnc_name, argc, expected)
#define	Cyc_check_atomic(d, obj)   Cyc_check_type(d,Cyc_is_atomic, atomic_tag, obj)
#define	Cyc_check_bvec(d, obj)   Cyc_check_type(d,Cyc_is_bytevector, bytevector_tag, obj)
#define	Cyc_check_cond_var(d, obj)   Cyc_check_type(d,Cyc_is_cond_var, cond_var_tag, obj)
#define	Cyc_check_double(d, obj)   Cyc_check_type(d,Cyc_is_double, double_tag, obj)
#define	Cyc_check_fixnum(d, obj)   Cyc_check_type(d,Cyc_is_fixnum, integer_tag, obj)
#define	Cyc_check_int(d, obj)   Cyc_check_type(d,Cyc_is_integer, integer_tag, obj)
#define	Cyc_check_mutex(d, obj)   Cyc_check_type(d,Cyc_is_mutex, mutex_tag, obj)
#define	Cyc_check_num(d, obj)   Cyc_check_type(d,Cyc_is_number, integer_tag, obj)
#define	Cyc_check_num_args(data, fnc_name, num_args, args)
#define	Cyc_check_opaque(d, obj)   Cyc_check_type(d,Cyc_is_opaque, c_opaque_tag, obj)
#define	Cyc_check_pair(d, obj)   Cyc_check_type(d,Cyc_is_pair, pair_tag, obj)
#define	Cyc_check_pair_or_null(d, obj)   { if (obj != NULL) { Cyc_check_pair(d,obj); }}
#define	Cyc_check_port(d, obj)   Cyc_check_type(d,Cyc_is_port, port_tag, obj)
#define	Cyc_check_proc(d, obj)   Cyc_check_type2(d,Cyc_is_procedure, closureN_tag, obj)
#define	Cyc_check_str(d, obj)   Cyc_check_type(d,Cyc_is_string, string_tag, obj)
#define	Cyc_check_sym(d, obj)   Cyc_check_type(d,Cyc_is_symbol, symbol_tag, obj)
#define	Cyc_check_type(data, fnc_test, tag, obj)
#define	Cyc_check_type2(data, fnc_test, tag, obj)
#define	Cyc_check_vec(d, obj)   Cyc_check_type(d,Cyc_is_vector, vector_tag, obj)
#define	Cyc_eq(x, y)   (make_boolean(x == y))
#define	Cyc_if(c, t, e)   ((boolean_f != c) ? (t) : (e))
#define	Cyc_is_atomic(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == atomic_tag))
#define	Cyc_is_bignum(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == bignum_tag))
#define	Cyc_is_boolean(o)   (make_boolean(o == boolean_f || o == boolean_t))
#define	Cyc_is_bytevector(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == bytevector_tag))
#define	Cyc_is_char(o)   (make_boolean(obj_is_char(o)))
#define	Cyc_is_complex(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == complex_num_tag))
#define	Cyc_is_cond_var(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == cond_var_tag))
#define	Cyc_is_cvar(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == cvar_tag))
#define	Cyc_is_double(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == double_tag))
#define	Cyc_is_eof_object(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == eof_tag))
#define	Cyc_is_fixnum(o)   (make_boolean(obj_is_int(o)))
#define	Cyc_is_macro(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == macro_tag))
#define	Cyc_is_mutex(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == mutex_tag))
#define	Cyc_is_null(o)   (make_boolean(o == NULL))
#define	Cyc_is_opaque(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == c_opaque_tag))
#define	Cyc_is_pair(o)   ((is_object_type(o) && ((list) o)->tag == pair_tag) ? boolean_t : boolean_f)
#define	Cyc_is_port(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == port_tag))
#define	Cyc_is_string(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == string_tag))
#define	Cyc_is_symbol(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == symbol_tag))
#define	Cyc_is_vector(o)   (make_boolean(is_object_type(o) && ((vector) o)->tag == vector_tag))
#define	Cyc_is_vector_not_record_type(o)
#define	Cyc_is_void_object(o)   (make_boolean(is_object_type(o) && ((list) o)->tag == void_tag))
#define	Cyc_st_add(data, frame)
	Register a frame in the stack trace circular buffer. More...
#define	CYC_UTF8_ACCEPT   0
	Successful state. More...
#define	Cyc_utf8_encode_char(dest, dest_size, char_value)   Cyc_utf8_encode(dest, dest_size, &char_value, 1)
#define	CYC_UTF8_REJECT   1
	Invalid state. More...
#define	Cyc_vector_ref_unsafe(d, v, k)   ((vector) v)->elements[obj_obj2int(k)]
#define	Cyc_verify_immutable(data, obj)
#define	Cyc_verify_mutable(data, obj)
#define	global_set(glo, value)   Cyc_global_set(data, NULL, (object *)&glo, value)
#define	global_set_cps(thd, k, glo, value)   Cyc_global_set_cps(thd, k, NULL, (object *)&glo, value)
#define	global_set_cps_id(thd, k, id, glo, value)   Cyc_global_set_cps(thd, k, id, (object *)&glo, value)
#define	global_set_id(id, glo, value)   Cyc_global_set(data, id, (object *)&glo, value)
#define	load_varargs(var, args_var, start, count)
#define	return_exact_double_op(data, cont, OP, z)
#define	return_exact_double_op_no_cps(data, ptr, OP, z)
#define	return_inexact_double_op(data, cont, OP, z)
#define	return_inexact_double_op_no_cps(data, ptr, OP, z)
#define	return_inexact_double_or_cplx_op(data, cont, OP, CPLX_OP, z)
#define	return_inexact_double_or_cplx_op_no_cps(data, ptr, OP, CPLX_OP, z)
#define	unbox_number(n)

Functions
object	__halt (object obj)
void	add_global (const char *identifier, object *glo)
object	add_symbol (symbol_type *psym)
object	apply (void *data, object cont, object func, object args)
object	apply_va (void *data, object cont, int argc, object func,...)
list	assoc (void *data, object x, list l)
list	assoc_cdr (void *data, object x, list l)
list	assq (void *data, object x, list l)
int	binstr2int (const char *str)
object	cell_get (object cell)
object	copy2heap (void *data, object obj)
	Copy given object to the heap, if it is from the stack. This function is intended to be called directly from application code. Note that only a shallow-copy is performed! For example, a pair object would be copied to the heap but its car and cdr objects would not. More...
void	Cyc_apply (void *data, object cont, int argc, object *args)
int	Cyc_bignum_cmp (bn_cmp_type type, object x, int tx, object y, int ty)
object	Cyc_bignum_normalize (void *data, object n)
object	Cyc_bit_set (void *data, object n1, object n2)
object	Cyc_bit_unset (void *data, object n1, object n2)
object	Cyc_bytevector (void *data, object cont, int argc, object bval,...)
object	Cyc_bytevector_append (void *data, object cont, int _argc, object bv,...)
object	Cyc_bytevector_copy (void *data, object cont, object bv, object start, object end)
object	Cyc_bytevector_length (void *data, object bv)
object	Cyc_bytevector_u8_ref (void *data, object bv, object k)
object	Cyc_bytevector_u8_set (void *data, object bv, object k, object b)
object	Cyc_char2integer (object chr)
object	Cyc_char_eq_op (void *data, object a, object b)
object	Cyc_char_gt_op (void *data, object a, object b)
object	Cyc_char_gte_op (void *data, object a, object b)
object	Cyc_char_lt_op (void *data, object a, object b)
object	Cyc_char_lte_op (void *data, object a, object b)
void	Cyc_check_bounds (void *data, const char *label, int len, int index)
void	Cyc_check_obj (void *data, int tag, object obj)
object	Cyc_command_line_arguments (void *data, object cont)
object	Cyc_compilation_environment (void *data, object cont, object var)
object	Cyc_current_exception_handler (void *data)
	Return the current exception handler. More...
object	Cyc_default_exception_handler (void *data, object _, int argc, object *args)
	The default exception handler. More...
object	Cyc_display (void *data, object, FILE *port)
object	Cyc_display_va (void *data, int argc, object x,...)
object	Cyc_display_va_list (void *data, object x, object opts)
object	Cyc_div (void *data, object cont, int argc, object n,...)
object	Cyc_div_op (void *data, common_type *x, object y)
void	Cyc_end_thread (gc_thread_data *thd)
object	Cyc_eqv (object x, object y)
void	Cyc_exit_thread (void *data, object _, int argc, object *args)
void	Cyc_expt (void *data, object cont, object x, object y)
object	Cyc_fast_div (void *data, object ptr, object x, object y)
object	Cyc_fast_list_2 (object ptr, object x, object y)
object	Cyc_fast_list_3 (object ptr, object a1, object a2, object a3)
object	Cyc_fast_list_4 (object ptr, object a1, object a2, object a3, object a4)
object	Cyc_fast_mul (void *data, object ptr, object x, object y)
object	Cyc_fast_sub (void *data, object ptr, object x, object y)
object	Cyc_fast_sum (void *data, object ptr, object x, object y)
object	Cyc_fast_vector_2 (object ptr, object a1, object a2)
object	Cyc_fast_vector_3 (object ptr, object a1, object a2, object a3)
object	Cyc_fast_vector_4 (object ptr, object a1, object a2, object a3, object a4)
object	Cyc_fast_vector_5 (object ptr, object a1, object a2, object a3, object a4, object a5)
time_t	Cyc_file_last_modified_time (char *path)
object	Cyc_get_cvar (object var)
object	Cyc_get_global_variables ()
object	Cyc_global_set (void *thd, object sym, object *glo, object value)
object	Cyc_global_set_cps (void *thd, object cont, object sym, object *glo, object value)
void	Cyc_halt (void *data, object clo, int argc, object *args)
object	Cyc_has_cycle (object lst)
void	Cyc_immutable_obj_error (void *data, object obj)
object	Cyc_installation_dir (void *data, object cont, object type)
void	Cyc_int2bignum (int n, mp_int *bn)
object	Cyc_integer2char (void *data, object n)
void	Cyc_invalid_type_error (void *data, int tag, object found)
object	Cyc_io_close_input_port (void *data, object port)
object	Cyc_io_close_output_port (void *data, object port)
object	Cyc_io_close_port (void *data, object port)
object	Cyc_io_delete_file (void *data, object filename)
object	Cyc_io_file_exists (void *data, object filename)
object	Cyc_io_flush_output_port (void *data, object port)
void	Cyc_io_get_output_bytevector (void *data, object cont, object port)
void	Cyc_io_get_output_string (void *data, object cont, object port)
port_type	Cyc_io_open_binary_input_file (void *data, object str)
port_type	Cyc_io_open_binary_output_file (void *data, object str)
port_type *	Cyc_io_open_input_bytevector (void *data, object bv)
port_type	Cyc_io_open_input_file (void *data, object str)
port_type *	Cyc_io_open_input_string (void *data, object str)
port_type	Cyc_io_open_output_file (void *data, object str)
port_type *	Cyc_io_open_output_string (void *data)
object	Cyc_io_peek_char (void *data, object cont, object port)
object	Cyc_io_peek_u8 (void *data, object cont, object port)
object	Cyc_io_read_char (void *data, object cont, object port)
object	Cyc_io_read_line (void *data, object cont, object port)
void	Cyc_io_read_token (void *data, object cont, object port)
	Read next token from the input port. More...
object	Cyc_io_read_u8 (void *data, object cont, object port)
object	Cyc_is_immutable (object obj)
object	Cyc_is_integer (object o)
object	Cyc_is_list (object lst)
object	Cyc_is_number (object o)
object	Cyc_is_procedure (void *data, object o)
object	Cyc_is_real (object o)
object	Cyc_is_record (object o)
object	Cyc_length (void *d, object l)
object	Cyc_length_unsafe (void *d, object l)
object	Cyc_list2string (void *d, object cont, object lst)
object	Cyc_list2vector (void *data, object cont, object l)
object	Cyc_make_bytevector (void *data, object cont, int argc, object len,...)
void	Cyc_make_rectangular (void *data, object k, object r, object i)
object	Cyc_make_vector (void *data, object cont, int argc, object len,...)
object	Cyc_mul (void *data, object cont, int argc, object n,...)
object	Cyc_mul_op (void *data, common_type *x, object y)
void	Cyc_mutable_obj_error (void *data, object obj)
object	Cyc_num_cmp_va_list (void *data, int argc, int(fn_op(void *, object, object)), object n, va_list ns)
object	Cyc_num_eq (void *, object cont, int argc, object n,...)
int	Cyc_num_eq_op (void *, object x, object y)
object	Cyc_num_fast_eq_op (void *data, object x, object y)
object	Cyc_num_fast_gt_op (void *data, object x, object y)
object	Cyc_num_fast_gte_op (void *data, object x, object y)
object	Cyc_num_fast_lt_op (void *data, object x, object y)
object	Cyc_num_fast_lte_op (void *data, object x, object y)
object	Cyc_num_gt (void *, object cont, int argc, object n,...)
int	Cyc_num_gt_op (void *, object x, object y)
object	Cyc_num_gte (void *, object cont, int argc, object n,...)
int	Cyc_num_gte_op (void *, object x, object y)
object	Cyc_num_lt (void *, object cont, int argc, object n,...)
int	Cyc_num_lt_op (void *, object x, object y)
object	Cyc_num_lte (void *, object cont, int argc, object n,...)
int	Cyc_num_lte_op (void *, object x, object y)
object	Cyc_num_op_args (void *data, int argc, object(fn_op(void *, common_type *, object)), int default_no_args, int default_one_arg, object *args, common_type *buf)
object	Cyc_num_op_va_list (void *data, int argc, object(fn_op(void *, common_type *, object)), int default_no_args, int default_one_arg, object n, va_list ns, common_type *buf)
object	Cyc_number2string2 (void *data, object cont, int argc, object n,...)
void	Cyc_remainder (void *data, object cont, object num1, object num2)
void	Cyc_rt_raise (void *data, object err)
	Raise an exception from the runtime code. More...
void	Cyc_rt_raise2 (void *data, const char *msg, object err)
	Raise an exception from the runtime code. More...
void	Cyc_rt_raise_msg (void *data, const char *err)
	Raise an exception from the runtime code. More...
object	Cyc_set_car (void *, object l, object val)
object	Cyc_set_car_cps (void *, object cont, object l, object val)
object	Cyc_set_cdr (void *, object l, object val)
object	Cyc_set_cdr_cps (void *, object cont, object l, object val)
object	Cyc_set_cell (void *, object l, object val)
object	Cyc_set_cvar (object var, object value)
void	Cyc_set_globals_changed (gc_thread_data *thd)
object	Cyc_spawn_thread (object thunk)
void	Cyc_st_print (void *data, FILE *out)
	Print the contents of the given thread's stack trace buffer. More...
void	Cyc_start_trampoline (gc_thread_data *thd)
port_type	Cyc_stderr (void)
port_type	Cyc_stdin (void)
port_type	Cyc_stdout (void)
object	Cyc_string2number2_ (void *data, object cont, int argc, object str,...)
object	Cyc_string2number_ (void *d, object cont, object str)
object	Cyc_string2symbol (void *d, object str)
object	Cyc_string2utf8 (void *data, object cont, object str, object start, object end)
object	Cyc_string_append (void *data, object cont, int argc, object str1,...)
object	Cyc_string_byte_length (void *data, object str)
object	Cyc_string_cmp (void *data, object str1, object str2)
object	Cyc_string_length (void *data, object str)
object	Cyc_string_ref (void *data, object str, object k)
object	Cyc_string_set (void *data, object str, object k, object chr)
object	Cyc_sub (void *data, object cont, int argc, object n,...)
object	Cyc_sub_op (void *data, common_type *x, object y)
object	Cyc_substring (void *data, object cont, object str, object start, object end)
object	Cyc_sum (void *data, object cont, int argc, object n,...)
object	Cyc_sum_op (void *data, common_type *x, object y)
object	Cyc_symbol2string (void *d, object cont, object sym)
object	Cyc_system (object cmd)
object	Cyc_thread_sleep (void *data, object timeout)
	Accept a number of seconds to sleep according to SRFI-18. More...
object	Cyc_trigger_minor_gc (void *data, object cont)
	Trigger a minor GC for the calling thread. More...
object	Cyc_utf82string (void *data, object cont, object bv, object start, object end)
int	Cyc_utf8_count_code_points (uint8_t *s)
	Count the number of code points in a string. Based on example code from Bjoern Hoehrmann. More...
int	Cyc_utf8_encode (char *dest, int sz, uint32_t *src, int srcsz)
uint32_t	Cyc_utf8_validate (char *str, size_t len)
	Simplified version of Cyc_utf8_validate_stream that must always be called with a complete string buffer. More...
uint32_t	Cyc_utf8_validate_stream (uint32_t *state, char *str, size_t len)
	Use this when validating from a stream, as it may be that the stream stopped in the middle of a codepoint, hence state passed in as an arg, so it can be tested in a loop and also after the loop has finished. More...
object	Cyc_vector_length (void *data, object v)
object	Cyc_vector_ref (void *d, object v, object k)
object	Cyc_vector_set (void *d, object v, object k, object obj)
object	Cyc_vector_set_cps (void *d, object cont, object v, object k, object obj)
object	Cyc_vector_set_unsafe (void *d, object v, object k, object obj)
object	Cyc_vector_set_unsafe_cps (void *d, object cont, object v, object k, object obj)
object	Cyc_write (void *data, object, FILE *port)
object	Cyc_write_bytevector (void *data, object bvec, object port, object start, object end)
object	Cyc_write_char (void *data, object c, object port)
object	Cyc_write_u8 (void *data, object c, object port)
object	Cyc_write_va (void *data, int argc, object x,...)
object	Cyc_write_va_list (void *data, object x, object opts)
void	dispatch (void *data, int argc, function_type func, object clo, object cont, object args)
void	dispatch_apply_va (void *data, object clo, int argc, object *args)
void	dispatch_display_va (void *data, object clo, int argc, object *args)
void	dispatch_string_91append (void *data, object clo, int _argc, object *args)
void	dispatch_write_va (void *data, object clo, int argc, object *args)
int	equal (object, object)
object	equalp (object, object)
object	find_or_add_symbol (const char *name)
void	GC (void *, closure, object *, int)
void	gc_init_heap (long heap_size)
	Perform one-time heap initializations for the program. More...
char **	get_env_variables ()
object	is_library_loaded (const char *name)
list	malloc_make_pair (object, object)
cvar_type *	mcvar (object *var)
object	memberp (void *data, object x, list l)
object	memqp (void *data, object x, list l)
double	MRG32k3a (double seed)
int	octstr2int (const char *str)
void	pack_env_variables (void *data, object k)
object	register_library (const char *name)
void	set_env_variables (char **vars)

Variables
int	_cyc_argc
char **	_cyc_argv
const object	boolean_f
const object	boolean_t
const object	Cyc_EOF
object	Cyc_glo_call_cc
object	Cyc_glo_eval_from_c
object	Cyc_global_variables
const object	Cyc_RECORD_MARKER
const object	Cyc_VOID
long	global_heap_size
long	global_stack_size
list	global_table
const object	primitive__121
const object	primitive__121_123
const object	primitive__123
const object	primitive__125
const object	primitive__125_123
const object	primitive__75halt
const object	primitive__85
const object	primitive__87
const object	primitive__91
const object	primitive__95
const object	primitive_apply
const object	primitive_assq
const object	primitive_assv
const object	primitive_boolean_127
const object	primitive_bytevector
const object	primitive_bytevector_127
const object	primitive_bytevector_91append
const object	primitive_bytevector_91length
const object	primitive_bytevector_91u8_91ref
const object	primitive_bytevector_91u8_91set_67
const object	primitive_caaaar
const object	primitive_caaadr
const object	primitive_caaar
const object	primitive_caadar
const object	primitive_caaddr
const object	primitive_caadr
const object	primitive_caar
const object	primitive_cadaar
const object	primitive_cadadr
const object	primitive_cadar
const object	primitive_caddar
const object	primitive_cadddr
const object	primitive_caddr
const object	primitive_cadr
const object	primitive_call_95cc
const object	primitive_car
const object	primitive_cdaaar
const object	primitive_cdaadr
const object	primitive_cdaar
const object	primitive_cdadar
const object	primitive_cdaddr
const object	primitive_cdadr
const object	primitive_cdar
const object	primitive_cddaar
const object	primitive_cddadr
const object	primitive_cddar
const object	primitive_cdddar
const object	primitive_cddddr
const object	primitive_cdddr
const object	primitive_cddr
const object	primitive_cdr
const object	primitive_cell
const object	primitive_cell_91get
const object	primitive_char_127
const object	primitive_char_91_125integer
const object	primitive_close_91input_91port
const object	primitive_close_91output_91port
const object	primitive_close_91port
const object	primitive_command_91line_91arguments
const object	primitive_cons
const object	primitive_Cyc_91bytevector_91copy
const object	primitive_Cyc_91compilation_91environment
const object	primitive_Cyc_91current_91exception_91handler
const object	primitive_Cyc_91cvar_127
const object	primitive_Cyc_91default_91exception_91handler
const object	primitive_Cyc_91display
const object	primitive_Cyc_91end_91thread_67
const object	primitive_Cyc_91flush_91output_91port
const object	primitive_Cyc_91get_91cvar
const object	primitive_Cyc_91global_91vars
const object	primitive_Cyc_91has_91cycle_127
const object	primitive_Cyc_91installation_91dir
const object	primitive_Cyc_91macro_127
const object	primitive_Cyc_91opaque_127
const object	primitive_Cyc_91read_91line
const object	primitive_Cyc_91set_91cvar_67
const object	primitive_Cyc_91spawn_91thread_67
const object	primitive_Cyc_91string_91_125utf8
const object	primitive_Cyc_91utf8_91_125string
const object	primitive_Cyc_91write
const object	primitive_Cyc_91write_91char
const object	primitive_delete_91file
const object	primitive_eof_91object_127
const object	primitive_eq_127
const object	primitive_equal_127
const object	primitive_eqv_127
const object	primitive_exit
const object	primitive_file_91exists_127
const object	primitive_integer_127
const object	primitive_integer_91_125char
const object	primitive_length
const object	primitive_list_91_125string
const object	primitive_list_91_125vector
const object	primitive_macro_127
const object	primitive_make_91bytevector
const object	primitive_make_91vector
const object	primitive_memq
const object	primitive_memv
const object	primitive_null_127
const object	primitive_number_127
const object	primitive_number_91_125string
const object	primitive_open_91binary_91input_91file
const object	primitive_open_91binary_91output_91file
const object	primitive_open_91input_91file
const object	primitive_open_91output_91file
const object	primitive_pair_127
const object	primitive_peek_91char
const object	primitive_port_127
const object	primitive_procedure_127
const object	primitive_read_91char
const object	primitive_real_127
const object	primitive_set_91car_67
const object	primitive_set_91cdr_67
const object	primitive_set_91cell_67
const object	primitive_set_91global_67
const object	primitive_string_127
const object	primitive_string_91_125number
const object	primitive_string_91_125symbol
const object	primitive_string_91append
const object	primitive_string_91cmp
const object	primitive_string_91length
const object	primitive_string_91ref
const object	primitive_string_91set_67
const object	primitive_substring
const object	primitive_symbol_127
const object	primitive_symbol_91_125string
const object	primitive_system
const object	primitive_vector_127
const object	primitive_vector_91length
const object	primitive_vector_91ref
const object	primitive_vector_91set_67
const object	quote_void