[Scsh-checkins] CVS: scsh-0.6/c external.c,1.8,1.9 scheme48.h,1.5,1.6 scheme48.h.in,1.7,1.8

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/c
In directory usw-pr-cvs1:/tmp/cvs-serv15589/c

Modified Files:
        external.c scheme48.h scheme48.h.in 
Log Message:
Added s48_raise_os_error_6.


Index: external.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/c/external.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** external.c  2001/06/21 13:44:29     1.8
--- external.c  2001/08/09 11:01:54     1.9
***************
*** 546,549 ****
--- 546,559 ----
  
  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
  s48_raise_string_os_error(char *reason) {
    s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 1,

Index: scheme48.h
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/c/scheme48.h,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** scheme48.h  2001/01/02 09:31:27     1.5
--- scheme48.h  2001/08/09 11:01:54     1.6
***************
*** 21,25 ****
  /* Misc stuff */
  
! #define S48_EQ(v1, v2) ((v1) == (v2))
  
  #define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1)
--- 21,27 ----
  /* 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_MAX_FIXNUM_VALUE ((1 << 29) - 1)
***************
*** 45,48 ****
--- 47,52 ----
  extern s48_value      s48_enter_integer(long);
  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 double         s48_extract_double(s48_value);
***************
*** 200,203 ****
--- 204,210 ----
  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_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_out_of_memory_error();

Index: scheme48.h.in
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/c/scheme48.h.in,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** scheme48.h.in       2001/06/01 15:51:50     1.7
--- scheme48.h.in       2001/08/09 11:01:54     1.8
***************
*** 198,201 ****
--- 198,204 ----
  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_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_out_of_memory_error();