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

Added s48_raise_os_error_6.

This commit is contained in:
mainzelm 2001-08-09 11:01:54 +00:00
parent db5116e44a
commit f96ad831bb
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
c/external.c
View File

@ -544,6 +544,16 @@ s48_raise_os_error_5(int the_errno, s48_value arg1, s48_value arg2,
arg1, arg2, arg3, arg4, arg5); arg1, arg2, arg3, arg4, arg5);
} }
void
s48_raise_os_error_6(int the_errno, s48_value arg1, s48_value arg2,
s48_value arg3, s48_value arg4, s48_value arg5,
s48_value arg6) {
s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 8,
s48_enter_fixnum(the_errno),
s48_enter_string(strerror(the_errno)),
arg1, arg2, arg3, arg4, arg5, arg6);
}
void void
s48_raise_string_os_error(char *reason) { s48_raise_string_os_error(char *reason) {
s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 1, s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 1,

7
c/scheme48.h
View File

@ -20,6 +20,8 @@ extern int s48_add_external_init(void (*init)());
/* Misc stuff */ /* Misc stuff */
#define S48_EQ_P(v1, v2) ((v1) == (v2))
/* Superceded name for the above definition, retained for compatibility. */
#define S48_EQ(v1, v2) ((v1) == (v2)) #define S48_EQ(v1, v2) ((v1) == (v2))
#define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1) #define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1)
@ -44,6 +46,8 @@ extern s48_value s48_enter_fixnum(long);
extern long s48_extract_fixnum(s48_value); extern long s48_extract_fixnum(s48_value);
extern s48_value s48_enter_integer(long); extern s48_value s48_enter_integer(long);
extern long s48_extract_integer(s48_value); extern long s48_extract_integer(s48_value);
extern s48_value s48_enter_unsigned_integer(unsigned long);
extern unsigned long s48_extract_unsigned_integer(s48_value);
extern s48_value s48_enter_double(double); extern s48_value s48_enter_double(double);
extern double s48_extract_double(s48_value); extern double s48_extract_double(s48_value);
extern s48_value s48_cons(s48_value, s48_value); extern s48_value s48_cons(s48_value, s48_value);
@ -199,6 +203,9 @@ extern void s48_raise_os_error_4(int the_errno, s48_value arg1, s48_value arg2,
s48_value arg3, s48_value arg4); s48_value arg3, s48_value arg4);
extern void s48_raise_os_error_5(int the_errno, s48_value arg1, s48_value arg2, 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); s48_value arg3, s48_value arg4, s48_value arg5);
extern void s48_raise_os_error_6(int the_errno, s48_value arg1, s48_value arg2,
s48_value arg3, s48_value arg4, s48_value arg5,
s48_value arg6);
extern void s48_raise_string_os_error(char *reason); extern void s48_raise_string_os_error(char *reason);
extern void s48_raise_out_of_memory_error(); extern void s48_raise_out_of_memory_error();

3
c/scheme48.h.in
View File

@ -197,6 +197,9 @@ extern void s48_raise_os_error_4(int the_errno, s48_value arg1, s48_value arg2,
s48_value arg3, s48_value arg4); s48_value arg3, s48_value arg4);
extern void s48_raise_os_error_5(int the_errno, s48_value arg1, s48_value arg2, 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); s48_value arg3, s48_value arg4, s48_value arg5);
extern void s48_raise_os_error_6(int the_errno, s48_value arg1, s48_value arg2,
s48_value arg3, s48_value arg4, s48_value arg5,
s48_value arg6);
extern void s48_raise_string_os_error(char *reason); extern void s48_raise_string_os_error(char *reason);
extern void s48_raise_out_of_memory_error(); extern void s48_raise_out_of_memory_error();