From 84684372ce4a12029d385a011ae6144f387b5024 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 2 Jan 2001 09:31:27 +0000 Subject: [PATCH] Added declarations of s48_main and s48_add_external_init. --- c/scheme48.h | 14 ++++++++++++++ c/scheme48.h.in | 6 ++++++ 2 files changed, 20 insertions(+) diff --git a/c/scheme48.h b/c/scheme48.h index 165c3b7..ffca658 100644 --- a/c/scheme48.h +++ b/c/scheme48.h @@ -13,6 +13,11 @@ typedef long s48_value; #define NO_ERRORS 0 /* errno value */ +extern int s48_main (long heap_size, long stack_size, + char *image_name, int argc, char** argv); + +extern int s48_add_external_init(void (*init)()); + /* Misc stuff */ #define S48_EQ(v1, v2) ((v1) == (v2)) @@ -186,6 +191,14 @@ extern void s48_raise_range_error(s48_value value, s48_value min, s48_value max); extern void s48_raise_closed_channel_error(); extern void s48_raise_os_error(int the_errno); +extern void s48_raise_os_error_1(int the_errno, s48_value arg1); +extern void s48_raise_os_error_2(int the_errno, s48_value arg1, s48_value arg2); +extern void s48_raise_os_error_3(int the_errno, s48_value arg1, s48_value arg2, + s48_value arg3); +extern void s48_raise_os_error_4(int the_errno, s48_value arg1, s48_value arg2, + s48_value arg3, s48_value arg4); +extern void s48_raise_os_error_5(int the_errno, s48_value arg1, s48_value arg2, + s48_value arg3, s48_value arg4, s48_value arg5); extern void s48_raise_string_os_error(char *reason); extern void s48_raise_out_of_memory_error(); @@ -210,6 +223,7 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding); S48_SHARED_BINDING_NAME(binding)); \ } while(0) + #define S48_FIXNUM_TAG 0 #define S48_FIXNUM_P(x) (((long)(x) & 3L) == S48_FIXNUM_TAG) #define S48_IMMEDIATE_TAG 1 diff --git a/c/scheme48.h.in b/c/scheme48.h.in index 6086935..6099059 100644 --- a/c/scheme48.h.in +++ b/c/scheme48.h.in @@ -7,6 +7,11 @@ typedef long s48_value; #define NO_ERRORS 0 /* errno value */ +extern int s48_main (long heap_size, long stack_size, + char *image_name, int argc, char** argv); + +extern int s48_add_external_init(void (*init)()); + /* Misc stuff */ #define S48_EQ(v1, v2) ((v1) == (v2)) @@ -211,3 +216,4 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding); s48_raise_scheme_exception(S48_EXCEPTION_UNBOUND_EXTERNAL_NAME, 1, \ S48_SHARED_BINDING_NAME(binding)); \ } while(0) +