* Makefile.am (EXTRA_libguile_la_SOURCES): New variable to hold

[bpt/guile.git] / libguile / __scm.h

diff --git a/libguile/__scm.h b/libguile/__scm.h
index e33049e..52d175e 100644 (file)
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -95,12 +95,15 @@
 \f
 /* {Unsupported Options}
  *
- * These must be defined.
+ * These must be defined as given here.
  */
 
 
 #define CCLO
-#define SICP
+
+/* Guile Scheme supports the #f/() distinction; Guile Lisp won't.  We
+   have horrible plans for their unification.  */
+#undef SICP
 
 \f
 
@@ -119,25 +122,25 @@ typedef unsigned long ulong_long;
 
 \f
 /* What did the configure script discover about the outside world?  */
-#include <scmconfig.h>
+#include "libguile/scmconfig.h"
 
 \f
 /* Write prototype declarations like this:
-     int foo PROTO(int a, int b);
+     int foo SCM_P ((int a, int b));
    At definitions, use K&R style declarations, but make sure there's a
    declarative prototype (as above) in scope.  This will give you
    argument type checking, when available, and be harmless otherwise.  */
 #ifdef __STDC__
-#  define PROTO(x) x
+#  define SCM_P(x) x
 #else
-#  define PROTO(x) (x)
+#  define SCM_P(x) ()
 #endif
 
 \f
 
 /* Define
  *
- * SCM_CHAR_SCM_CODE_LIMIT             == UCHAR_MAX + 1
+ * SCM_CHAR_CODE_LIMIT         == UCHAR_MAX + 1
  * SCM_MOST_POSITIVE_FIXNUM    (LONG_MAX>>2)
  * SCM_MOST_NEGATIVE_FIXNUM    == SCM_SRS((long)LONG_MIN, 2)
  */
@@ -145,9 +148,9 @@ typedef unsigned long ulong_long;
 #ifdef HAVE_LIMITS_H
 # include <limits.h>
 # ifdef UCHAR_MAX
-#  define SCM_CHAR_SCM_CODE_LIMIT (UCHAR_MAX+1L)
+#  define SCM_CHAR_CODE_LIMIT (UCHAR_MAX+1L)
 # else
-#  define SCM_CHAR_SCM_CODE_LIMIT 256L
+#  define SCM_CHAR_CODE_LIMIT 256L
 # endif /* def UCHAR_MAX */
 # define SCM_MOST_POSITIVE_FIXNUM (LONG_MAX>>2)
 # ifdef _UNICOS                        /* Stupid cray bug */
@@ -156,7 +159,7 @@ typedef unsigned long ulong_long;
 #  define SCM_MOST_NEGATIVE_FIXNUM SCM_SRS((long)LONG_MIN, 2)
 # endif                                /* UNICOS */
 #else
-# define SCM_CHAR_SCM_CODE_LIMIT 256L
+# define SCM_CHAR_CODE_LIMIT 256L
 # define SCM_MOST_POSITIVE_FIXNUM ((long)((unsigned long)~0L>>3))
 # if (0 != ~0)
 #  define SCM_MOST_NEGATIVE_FIXNUM (-SCM_MOST_POSITIVE_FIXNUM-1)
@@ -166,7 +169,23 @@ typedef unsigned long ulong_long;
 #endif /* def HAVE_LIMITS_H */
 \f
 
-#include "tags.h"
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# ifdef AMIGA
+#  include <stddef.h>
+# endif /* def AMIGA */
+# define scm_sizet size_t
+#else
+# ifdef _SIZE_T
+#  define scm_sizet size_t
+# else
+#  define scm_sizet unsigned int
+# endif /* def _SIZE_T */
+#endif /* def STDC_HEADERS */
+
+\f
+
+#include "libguile/tags.h"
 
 \f
 #ifdef vms
@@ -223,8 +242,32 @@ typedef long SCM_STACKITEM;
 #endif
 \f
 
+#ifndef USE_THREADS
+#define SCM_THREAD_DEFER
+#define SCM_THREAD_ALLOW
+#define SCM_THREAD_REDEFER
+#define SCM_THREAD_REALLOW_1
+#define SCM_THREAD_REALLOW_2
+#define SCM_THREAD_SWITCHING_CODE
+#endif
+
 extern unsigned int scm_async_clock;
-#define SCM_ASYNC_TICK         if (0 == --scm_async_clock) scm_async_click ()
+#if 0
+#define SCM_ASYNC_TICK \
+{ \
+  if (0 == --scm_async_clock) \
+    scm_async_click (); \
+} \
+
+#else
+#define SCM_ASYNC_TICK \
+{ \
+  if (0 == --scm_async_clock) \
+    scm_async_click (); \
+  SCM_THREAD_SWITCHING_CODE; \
+} \
+
+#endif
 
 #ifdef SCM_CAREFUL_INTS
 #define SCM_CHECK_NOT_DISABLED \
@@ -244,12 +287,14 @@ extern unsigned int scm_async_clock;
 #define SCM_DEFER_INTS \
 { \
   SCM_CHECK_NOT_DISABLED; \
+  SCM_THREAD_DEFER; \
   scm_ints_disabled = 1; \
 } \
 
 
 #define SCM_ALLOW_INTS_ONLY \
 { \
+  SCM_THREAD_ALLOW; \
   scm_ints_disabled = 0; \
 } \
 
@@ -257,6 +302,7 @@ extern unsigned int scm_async_clock;
 #define SCM_ALLOW_INTS \
 { \
   SCM_CHECK_NOT_ENABLED; \
+  SCM_THREAD_ALLOW; \
   scm_ints_disabled = 0; \
   SCM_ASYNC_TICK; \
 } \
@@ -264,15 +310,20 @@ extern unsigned int scm_async_clock;
 
 #define SCM_REDEFER_INTS  \
 { \
+  SCM_THREAD_REDEFER; \
   ++scm_ints_disabled; \
 } \
 
 
 #define SCM_REALLOW_INTS \
 { \
+  SCM_THREAD_REALLOW_1; \
   --scm_ints_disabled; \
   if (!scm_ints_disabled) \
-    SCM_ASYNC_TICK; \
+    { \
+      SCM_THREAD_REALLOW_2; \
+      SCM_ASYNC_TICK; \
+    } \
 } \
 
 
@@ -296,25 +347,6 @@ extern unsigned int scm_async_clock;
           goto _label
 #endif
 
-#define SCM_SYSERROR(_subr) \
-       scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
-                  strerror (errno), _subr)
-
-     /* equivalent to:
-       scm_throw (system_error_sym, \
-                  scm_listify (scm_makfrom0str (strerror (errno)), \
-                  scm_makfrom0str (_subr), \
-                  SCM_UNDEFINED));
-     */
-#ifdef ENOSYS
-# define SCM_SYSMISSING(_subr) \
-     scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
-               strerror (ENOSYS), _subr)
-#else
-# define SCM_SYSMISSING(_subr) \
-     scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
-               "missing function", _subr)
-#endif
 #define SCM_ARGn               0
 #define SCM_ARG1               1
 #define SCM_ARG2               2
@@ -322,20 +354,21 @@ extern unsigned int scm_async_clock;
 #define SCM_ARG4               4
 #define SCM_ARG5               5
 #define SCM_ARG6               6
-#define SCM_ARG7               7
-#define SCM_ARGERR(X)          ((X) < SCM_WNA \
+#define SCM_ARG7               7 
+     /* #define SCM_ARGERR(X)          ((X) < SCM_WNA \
                                 ? (char *)(X) \
                                 : "wrong type argument")
+                                */
 
 /* Following must match entry indexes in scm_errmsgs[].
  * Also, SCM_WNA must follow the last SCM_ARGn in sequence.
  */
 #define SCM_WNA                8
-#define SCM_OVSCM_FLOW                 9
+     /* #define SCM_OVSCM_FLOW                 9 */
 #define SCM_OUTOFRANGE                 10
 #define SCM_NALLOC             11
-#define SCM_STACK_OVFLOW       12
-#define SCM_EXIT               13
+     /* #define SCM_STACK_OVFLOW       12 */
+     /* #define SCM_EXIT               13 */
 
 
 /* (...still matching scm_errmsgs)  These
@@ -357,6 +390,7 @@ extern unsigned int scm_async_clock;
 #define SCM_ORD_SIG(X)         ((X) + SCM_HUP_SIGNAL)
 #define SCM_NUM_SIGS           (SCM_SIG_ORD (SCM_TICK_SIGNAL) + 1)
 
+#if 0
 struct errdesc
 {
   char *msg;
@@ -366,6 +400,7 @@ struct errdesc
 
 
 extern struct errdesc scm_errmsgs[];
+#endif
 
 \f
 
@@ -393,11 +428,5 @@ extern struct errdesc scm_errmsgs[];
 
 
 \f
-#ifdef __STDC__
-
-#else /* STDC */
-
-#endif /* STDC */
-
 
 #endif  /* __SCMH */