scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added declarations of s48_main and s48_add_external_init.

This commit is contained in:
mainzelm 2001-01-02 09:31:27 +00:00
parent 0551c9dd17
commit 84684372ce
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
c/scheme48.h
View File

@ -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

6
c/scheme48.h.in
View File

@ -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)