mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 22:40:25 +02:00
Code Activity

* gen-scmconfig.c: change most new public symbols to be defined to

Browse source 
0 or 1 rather than being either 1 or undefined.
This commit is contained in:
Rob Browning 2003-03-27 20:07:17 +00:00
parent 9e443ab676
commit 005f04cd6c
1 changed files with 48 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

101
libguile/gen-scmconfig.c
View file

@ -34,6 +34,13 @@
Notes and guidelines: Notes and guidelines:
- use 1 and 0 for public #defines instead of "def and undef",
i.e. use #define SCM_HAVE_FOO rather than just not defining
SCM_HAVE_FOO whenever possible. See GNU Coding Guidelines for
rationale. The only notable non-deprecated exceptions to this
rule are GUILE_DEBUG and GUILE_DEBUG_FREELIST which do not follow
this convention in order to retain backward compatibility.
- in the code below, be *VERY* careful not to use or rely on any - in the code below, be *VERY* careful not to use or rely on any
runtime-dynamic information below. For example, you cannot use runtime-dynamic information below. For example, you cannot use
sizeof (FOO), but must use static information like SIZEOF_BAR sizeof (FOO), but must use static information like SIZEOF_BAR
@ -159,7 +166,7 @@ main (int argc, char *argv[])
pf("\n"); pf("\n");
#ifdef STDC_HEADERS #ifdef STDC_HEADERS
pf ("#define SCM_HAVE_STDC_HEADERS 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_STDC_HEADERS 1 /* 0 or 1 */\n");
pf ("#include <stdlib.h>\n"); pf ("#include <stdlib.h>\n");
# if HAVE_SYS_TYPES_H # if HAVE_SYS_TYPES_H
pf ("#include <sys/types.h>\n"); pf ("#include <sys/types.h>\n");
@ -169,38 +176,38 @@ main (int argc, char *argv[])
# endif # endif
pf ("#include <stddef.h>\n"); pf ("#include <stddef.h>\n");
#else /* STDC_HEADERS */ #else /* STDC_HEADERS */
pf ("/* #undef SCM_HAVE_STDC_HEADERS */"); pf ("#define SCM_HAVE_STDC_HEADERS 0 /* 0 or 1 */");
#endif /* def STDC_HEADERS */ #endif /* def STDC_HEADERS */
pf("\n"); pf("\n");
#ifdef HAVE_SYS_SELECT_H #ifdef HAVE_SYS_SELECT_H
pf ("#define SCM_HAVE_SYS_SELECT_H 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_SYS_SELECT_H 1 /* 0 or 1 */\n");
#else #else
pf ("/* #undef SCM_HAVE_SYS_SELECT_H */\n"); pf ("#define SCM_HAVE_SYS_SELECT_H 0 /* 0 or 1 */\n");
#endif #endif
#ifdef HAVE_FLOATINGPOINT_H #ifdef HAVE_FLOATINGPOINT_H
pf ("#define SCM_HAVE_FLOATINGPOINT_H 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_FLOATINGPOINT_H 1 /* 0 or 1 */\n");
#else #else
pf ("/* #undef SCM_HAVE_FLOATINGPOINT_H */\n"); pf ("#define SCM_HAVE_FLOATINGPOINT_H 0 /* 0 or 1 */\n");
#endif #endif
#ifdef HAVE_IEEEFP_H #ifdef HAVE_IEEEFP_H
pf ("#define SCM_HAVE_IEEEFP_H 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_IEEEFP_H 1 /* 0 or 1 */\n");
#else #else
pf ("/* #undef SCM_HAVE_IEEEFP_H */\n"); pf ("#define SCM_HAVE_IEEEFP_H 0 /* 0 or 1 */\n");
#endif #endif
#ifdef HAVE_NAN_H #ifdef HAVE_NAN_H
pf ("#define SCM_HAVE_NAN_H 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_NAN_H 1 /* 0 or 1 */\n");
#else #else
pf ("/* #undef SCM_HAVE_NAN_H */\n"); pf ("#define SCM_HAVE_NAN_H 0 /* 0 or 1 */\n");
#endif #endif
#ifdef HAVE_WINSOCK2_H #ifdef HAVE_WINSOCK2_H
pf ("#define SCM_HAVE_WINSOCK2_H 1 /* defined or undefined */\n"); pf ("#define SCM_HAVE_WINSOCK2_H 1 /* 0 or 1 */\n");
#else #else
pf ("/* #undef SCM_HAVE_WINSOCK2_H */\n"); pf ("#define SCM_HAVE_WINSOCK2_H 0 /* 0 or 1 */\n");
#endif #endif
@ -212,7 +219,7 @@ main (int argc, char *argv[])
else else
pf ("/* #undef GUILE_DEBUG */\n"); pf ("/* #undef GUILE_DEBUG */\n");
/*** GUILE_DEBUG_FREELIST (defined or undefined) ***/ /*** GUILE_DEBUG_FREELIST (deined or undefined) ***/
pf ("\n"); pf ("\n");
pf ("/* Define this to debug the free list (helps w/ GC bugs). */\n"); pf ("/* Define this to debug the free list (helps w/ GC bugs). */\n");
if (SCM_I_GSC_GUILE_DEBUG_FREELIST) if (SCM_I_GSC_GUILE_DEBUG_FREELIST)
@ -226,29 +233,21 @@ main (int argc, char *argv[])
pf ("/* (value will be 0 or 1). */\n"); pf ("/* (value will be 0 or 1). */\n");
pf ("#define SCM_ENABLE_DEPRECATED %d\n", SCM_I_GSC_ENABLE_DEPRECATED); pf ("#define SCM_ENABLE_DEPRECATED %d\n", SCM_I_GSC_ENABLE_DEPRECATED);
/*** SCM_ENABLE_ELISP (defined or undefined) ***/ /*** SCM_ENABLE_ELISP (0 or 1) ***/
pf ("\n"); pf ("\n");
pf ("/* Define this for Elisp support (in addition to Scheme). */\n"); pf ("/* Set to 1 to add Elisp support (in addition to Scheme). */\n");
if (SCM_I_GSC_ENABLE_ELISP) pf ("#define SCM_ENABLE_ELISP %d /* 0 or 1 */\n", SCM_I_GSC_ENABLE_ELISP);
pf ("#define SCM_ENABLE_ELISP 1 /* defined or undefined */\n");
else
pf ("/* #undef SCM_ENABLE_ELISP */\n");
/*** SCM_HAVE_ARRAYS (defined or undefined) ***/ /*** SCM_HAVE_ARRAYS (0 or 1) ***/
pf ("\n"); pf ("\n");
pf ("/* Define this to add support for arrays and uniform arrays. */\n"); pf ("/* Set to 1 to add support for arrays and uniform arrays. */\n");
if (SCM_I_GSC_HAVE_ARRAYS) pf ("#define SCM_HAVE_ARRAYS %d /* 0 or 1 */\n", SCM_I_GSC_HAVE_ARRAYS);
pf ("#define SCM_HAVE_ARRAYS 1 /* defined or undefined */\n");
else
pf ("/* #undef SCM_HAVE_ARRAYS */\n");
/*** SCM_STACK_GROWS_UP (defined or undefined) ***/ /*** SCM_STACK_GROWS_UP (0 or 1) ***/
pf ("\n"); pf ("\n");
pf ("/* Define this to add support for arrays and uniform arrays. */\n"); pf ("/* Set to 1 if the stack grows up, 0 otherwise. */\n");
if (SCM_I_GSC_STACK_GROWS_UP) pf ("#define SCM_STACK_GROWS_UP %d /* 0 or 1 */\n",
pf ("#define SCM_STACK_GROWS_UP 1 /* defined or undefined */\n"); SCM_I_GSC_STACK_GROWS_UP);
else
pf ("/* #undef SCM_STACK_GROWS_UP */\n");
/*** SCM_C_INLINE (defined to appropriate string or undefined) ***/ /*** SCM_C_INLINE (defined to appropriate string or undefined) ***/
pf ("\n"); pf ("\n");
@ -288,26 +287,28 @@ main (int argc, char *argv[])
pf ("typedef %s scm_t_uint32;\n", SCM_I_GSC_T_UINT32); pf ("typedef %s scm_t_uint32;\n", SCM_I_GSC_T_UINT32);
pf ("\n"); pf ("\n");
pf ("/* 64-bit integer -- if available SCM_T_INT64 will be defined and\n" pf ("/* 64-bit integer -- if available SCM_HAVE_T_INT64 will be 1 and\n"
" scm_t_int64 will be a suitable type. */\n"); " scm_t_int64 will be a suitable type, otherwise SCM_HAVE_T_INT64\n"
" will be 0. */\n");
if (SCM_I_GSC_T_INT64) if (SCM_I_GSC_T_INT64)
{ {
pf ("#define SCM_HAVE_T_INT64 1\n"); pf ("#define SCM_HAVE_T_INT64 1 /* 0 or 1 */\n");
pf ("typedef %s scm_t_int64;\n", SCM_I_GSC_T_INT64); pf ("typedef %s scm_t_int64;\n", SCM_I_GSC_T_INT64);
} }
else else
pf ("/* #undef SCM_HAVE_T_INT64 */\n"); pf ("#define SCM_HAVE_T_INT64 0 /* 0 or 1 */\n");
pf ("\n"); pf ("\n");
pf ("/* 64-bit unsigned integer -- if available SCM_T_INT64 will be\n" pf ("/* 64-bit unsigned integer -- if available SCM_HAVE_T_UINT64 will\n"
" defined and scm_t_uint64 will be a suitable type. */\n"); " be 1 and scm_t_uint64 will be a suitable type, otherwise\n"
" SCM_HAVE_T_UINT64 will be 0. */\n");
if (SCM_I_GSC_T_UINT64) if (SCM_I_GSC_T_UINT64)
{ {
pf ("#define SCM_HAVE_T_UINT64 1\n"); pf ("#define SCM_HAVE_T_UINT64 1 /* 0 or 1 */\n");
pf ("typedef %s scm_t_uint64;\n", SCM_I_GSC_T_UINT64); pf ("typedef %s scm_t_uint64;\n", SCM_I_GSC_T_UINT64);
} }
else else
pf ("/* #undef SCM_HAVE_T_UINT64 */\n"); pf ("#define SCM_HAVE_T_UINT64 0 /* 0 or 1 */\n");
pf ("\n"); pf ("\n");
pf ("/* scm_t_ptrdiff_t and size, always defined -- defined to long if\n" pf ("/* scm_t_ptrdiff_t and size, always defined -- defined to long if\n"
@ -341,23 +342,17 @@ main (int argc, char *argv[])
pf ("\n"); pf ("\n");
pf ("/*** Threading model (scmconfig.h support not finished) ***/\n"); pf ("/*** Threading model (scmconfig.h support not finished) ***/\n");
pf ("/* Define if using pthread multithreading. */\n"); pf ("/* Define to 1 if using pthread multithreading. */\n");
if (SCM_I_GSC_USE_PTHREAD_THREADS) pf ("#define SCM_USE_PTHREAD_THREADS %d /* 0 or 1 */\n",
pf ("#define SCM_USE_PTHREAD_THREADS 1 /* defined or undefined */\n"); SCM_I_GSC_USE_PTHREAD_THREADS);
else
pf ("/* #undef SCM_USE_PTHREAD_THREADS */\n");
pf ("/* Define if using one-thread 'multi'threading. */\n"); pf ("/* Define to 1 if using one-thread 'multi'threading. */\n");
if (SCM_I_GSC_USE_NULL_THREADS) pf ("#define SCM_USE_NULL_THREADS %d /* 0 or 1 */\n",
pf ("#define SCM_USE_NULL_THREADS 1 /* defined or undefined */\n"); SCM_I_GSC_USE_NULL_THREADS);
else
pf ("/* #undef SCM_USE_NULL_THREADS */\n");
pf ("/* FIXME: what is this used for now? */\n"); pf ("/* FIXME: what is this used for now? */\n");
if (SCM_I_GSC_USE_COOP_THREADS) pf ("#define SCM_USE_COOP_THREADS %d /* 0 or 1 */\n",
pf ("#define SCM_USE_COOP_THREADS 1 /* defined or undefined */\n"); SCM_I_GSC_USE_COOP_THREADS);
else
pf ("/* #undef SCM_USE_COOP_THREADS */\n");
#if USE_DLL_IMPORT #if USE_DLL_IMPORT
pf ("\n"); pf ("\n");