guile/guile-core/libguile __scm.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/01 19:07:21

Modified files:
        guile-core/libguile: __scm.h 

Log message:
        * __scm.h: Defined SCM_API.  This macro gets prepended to all
        function and data definitions which should be exported or imported
        in the resulting dynamic link library in the Win32 port.
        
        * __scm.h, alist.h, arbiters.h, async.h, backtrace.h, boolean.h,
        chars.h, continuations.h, coop-defs.h, coop-threads.h,
        debug-malloc.h, debug.h, deprecation.h, dynl.h, dynwind.h,
        environments.h, eq.h, error.h, eval.h, evalext.h, extensions.h,
        feature.h, filesys.h, fluids.h, fports.h, gc.h, gdb_interface.h,
        gdbint.h, gh.h, goops.h, gsubr.h, guardians.h, hash.h, hashtab.h,
        hooks.h, init.h, ioext.h, iselect.h, keywords.h, lang.h, list.h,
        load.h, macros.h, mallocs.h, modules.h, net_db.h, numbers.h,
        objects.h, objprop.h, options.h, pairs.h, ports.h, posix.h, print.h,
        procprop.h, procs.h, properties.h, ramap.h, random.h, rdelim.h,
        read.h, regex-posix.h, root.h, rw.h, scmsigs.h, script.h, simpos.h,
        smob.h, socket.h, sort.h, srcprop.h, stackchk.h, stacks.h, stime.h,
        strings.h, strop.h, strorder.h, strports.h, struct.h, symbols.h,
        tags.h, threads.h, throw.h, unif.h, values.h, variable.h, vectors.h,
        vports.h, weaks.h:
        Prefixed each each exported symbol with SCM_API.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/__scm.h.diff?cvsroot=OldCVS&tr1=1.77&tr2=1.78&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/__scm.h
diff -u guile/guile-core/libguile/__scm.h:1.77 
guile/guile-core/libguile/__scm.h:1.78
--- guile/guile-core/libguile/__scm.h:1.77      Fri Aug 31 10:42:30 2001
+++ guile/guile-core/libguile/__scm.h   Thu Nov  1 19:07:21 2001
@@ -157,6 +157,20 @@
 
 
 
+/* SCM_API is a macro prepended to all function and data definitions
+   which should be exported or imported in the resulting dynamic link
+   library in the Win32 port. */
+
+#if defined (__SCM_IMPORT__)
+# define SCM_API __declspec (dllimport) extern
+#elif defined (__SCM_EXPORT__) || defined (DLL_EXPORT)
+# define SCM_API __declspec (dllexport) extern
+#else
+# define SCM_API extern
+#endif
+
+
+
 /* What did the configure script discover about the outside world?  */
 #include "libguile/scmconfig.h"
 
@@ -384,7 +398,7 @@
 #endif
 
 #ifdef GUILE_OLD_ASYNC_CLICK
-extern unsigned int scm_async_clock;
+SCM_API unsigned int scm_async_clock;
 
 #define SCM_ASYNC_TICK \
 do { \
@@ -392,7 +406,7 @@
     scm_async_click (); \
 } while(0)
 #else
-extern int scm_asyncs_pending_p;
+SCM_API int scm_asyncs_pending_p;
 
 #define SCM_ASYNC_TICK /*fixme* should change names */ \
 do { \
@@ -565,7 +579,7 @@
  * like SCM_BOOL_F or SCM_UNDEFINED was chosen.
  */
 
-extern SCM scm_call_generic_0 (SCM gf);
+SCM_API SCM scm_call_generic_0 (SCM gf);
 
 #define SCM_WTA_DISPATCH_0(gf, subr)                           \
   return (SCM_UNPACK (gf)                                      \
@@ -574,7 +588,7 @@
 #define SCM_GASSERT0(cond, gf, subr) \
   if (!(cond)) SCM_WTA_DISPATCH_0((gf), (subr))
 
-extern SCM scm_call_generic_1 (SCM gf, SCM a1);
+SCM_API SCM scm_call_generic_1 (SCM gf, SCM a1);
 
 #define SCM_WTA_DISPATCH_1(gf, a1, pos, subr)                  \
   return (SCM_UNPACK (gf)                                      \
@@ -583,7 +597,7 @@
 #define SCM_GASSERT1(cond, gf, a1, pos, subr) \
   if (!(cond)) SCM_WTA_DISPATCH_1((gf), (a1), (pos), (subr))
 
-extern SCM scm_call_generic_2 (SCM gf, SCM a1, SCM a2);
+SCM_API SCM scm_call_generic_2 (SCM gf, SCM a1, SCM a2);
 
 #define SCM_WTA_DISPATCH_2(gf, a1, a2, pos, subr)                      \
   return (SCM_UNPACK (gf)                                              \
@@ -594,7 +608,7 @@
 #define SCM_GASSERT2(cond, gf, a1, a2, pos, subr) \
   if (!(cond)) SCM_WTA_DISPATCH_2((gf), (a1), (a2), (pos), (subr))
 
-extern SCM scm_apply_generic (SCM gf, SCM args);
+SCM_API SCM scm_apply_generic (SCM gf, SCM args);
 
 #define SCM_WTA_DISPATCH_n(gf, args, pos, subr)                                
  \
   return (SCM_UNPACK (gf)                                                \