123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288 |
- #ifndef SCM__SCM_H
- #define SCM__SCM_H
- #if defined(__ia64) && !defined(__ia64__)
- # define __ia64__
- #endif
- #if HAVE_CONFIG_H
- # include <config.h>
- #endif
- #define SIZEOF_SCM_T_BITS SIZEOF_VOID_P
- #ifdef HAVE_STRUCT_TIMESPEC
- #undef HAVE_STRUCT_TIMESPEC
- #endif
- #include <errno.h>
- #include <verify.h>
- #include <alignof.h>
- #include "libguile/__scm.h"
- #include "libguile/error.h"
- #include "libguile/print.h"
- #include "libguile/pairs.h"
- #include "libguile/list.h"
- #include "libguile/gc.h"
- #include "libguile/gsubr.h"
- #include "libguile/procs.h"
- #include "libguile/numbers.h"
- #include "libguile/symbols.h"
- #include "libguile/boolean.h"
- #include "libguile/threads.h"
- #include "libguile/snarf.h"
- #include "libguile/foreign.h"
- #include "libguile/programs.h"
- #include "libguile/variable.h"
- #include "libguile/modules.h"
- #include "libguile/inline.h"
- #include "libguile/strings.h"
- #ifndef SCM_SYSCALL
- #ifdef vms
- # ifndef __GNUC__
- # include <ssdef.h>
- # define SCM_SYSCALL(line) \
- do \
- { \
- errno = 0
- line
- if (EVMSERR == errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3)) \
- SCM_ASYNC_TICK
- else \
- break
- } \
- while (1)
- # endif
- #endif
- #endif
- #ifndef SCM_SYSCALL
- # ifdef EINTR
- # if (EINTR > 0)
- # define SCM_SYSCALL(line) \
- do \
- { \
- errno = 0
- line
- if (errno == EINTR) \
- { \
- SCM_ASYNC_TICK
- errno = EINTR
- } \
- } \
- while (errno == EINTR)
- # endif
- # endif
- #endif
- #ifndef SCM_SYSCALL
- # define SCM_SYSCALL(line) line;
- #endif
- #ifndef min
- #define min(A, B) ((A) <= (B) ? (A) : (B))
- #endif
- #ifndef max
- #define max(A, B) ((A) >= (B) ? (A) : (B))
- #endif
- #define ROUND_UP(len, align) \
- ((align) ? (((len) - 1UL) | ((align) - 1UL)) + 1UL : (len))
- #if defined GUILE_USE_64_CALLS && GUILE_USE_64_CALLS && defined(HAVE_STAT64)
- #define CHOOSE_LARGEFILE(foo,foo64) foo64
- #else
- #define CHOOSE_LARGEFILE(foo,foo64) foo
- #endif
- #if SCM_HAVE_STRUCT_DIRENT64 == 1
- # define dirent_or_dirent64 CHOOSE_LARGEFILE(dirent,dirent64)
- #else
- # define dirent_or_dirent64 dirent
- #endif
- #define fstat_or_fstat64 CHOOSE_LARGEFILE(fstat,fstat64)
- #define ftruncate_or_ftruncate64 CHOOSE_LARGEFILE(ftruncate,ftruncate64)
- #define lseek_or_lseek64 CHOOSE_LARGEFILE(lseek,lseek64)
- #define lstat_or_lstat64 CHOOSE_LARGEFILE(lstat,lstat64)
- #define off_t_or_off64_t CHOOSE_LARGEFILE(off_t,off64_t)
- #define open_or_open64 CHOOSE_LARGEFILE(open,open64)
- #define readdir_or_readdir64 CHOOSE_LARGEFILE(readdir,readdir64)
- #if SCM_HAVE_READDIR64_R == 1
- # define readdir_r_or_readdir64_r CHOOSE_LARGEFILE(readdir_r,readdir64_r)
- #else
- # define readdir_r_or_readdir64_r readdir_r
- #endif
- #define stat_or_stat64 CHOOSE_LARGEFILE(stat,stat64)
- #define truncate_or_truncate64 CHOOSE_LARGEFILE(truncate,truncate64)
- #define scm_from_off_t_or_off64_t CHOOSE_LARGEFILE(scm_from_off_t,scm_from_int64)
- #define scm_from_ino_t_or_ino64_t CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64)
- #define scm_from_blkcnt_t_or_blkcnt64_t CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64)
- #define scm_to_off_t_or_off64_t CHOOSE_LARGEFILE(scm_to_off_t,scm_to_int64)
- #if SIZEOF_OFF_T == 4
- # define scm_to_off_t scm_to_int32
- # define scm_from_off_t scm_from_int32
- #elif SIZEOF_OFF_T == 8
- # define scm_to_off_t scm_to_int64
- # define scm_from_off_t scm_from_int64
- #else
- # error sizeof(off_t) is not 4 or 8.
- #endif
- #define scm_to_off64_t scm_to_int64
- #define scm_from_off64_t scm_from_int64
- #if defined (vms)
- extern int setjump(scm_i_jmp_buf env)
- extern int longjump(scm_i_jmp_buf env, int ret)
- #define SCM_I_SETJMP setjump
- #define SCM_I_LONGJMP longjump
- #elif defined (_CRAY1)
- extern int setjump(scm_i_jmp_buf env)
- extern int longjump(scm_i_jmp_buf env, int ret)
- #define SCM_I_SETJMP setjump
- #define SCM_I_LONGJMP longjump
- #elif defined (__ia64__)
- # define SCM_I_SETJMP(JB) \
- ( (JB).fresh = 1, \
- getcontext (&((JB).ctx)), \
- ((JB).fresh ? ((JB).fresh = 0, 0) : 1) )
- # define SCM_I_LONGJMP(JB,VAL) scm_ia64_longjmp (&(JB), VAL)
- void scm_ia64_longjmp (scm_i_jmp_buf *, int)
- #else
- #define SCM_I_SETJMP setjmp
- #define SCM_I_LONGJMP longjmp
- #endif
- #define SCM_ASYNC_TICK_WITH_GUARD_CODE(thr, pre, post) \
- do \
- { \
- if (SCM_UNLIKELY (thr->pending_asyncs)) \
- { \
- pre
- scm_async_tick ()
- post
- } \
- } \
- while (0)
- #define SCM_ASYNC_TICK_WITH_CODE(thr, stmt) \
- SCM_ASYNC_TICK_WITH_GUARD_CODE (thr, stmt, (void) 0)
- #define SCM_ASYNC_TICK \
- SCM_ASYNC_TICK_WITH_CODE (SCM_I_CURRENT_THREAD, (void) 0)
- #if (defined __GNUC__)
- # define SCM_NOINLINE __attribute__ ((__noinline__))
- #else
- # define SCM_NOINLINE
- #endif
- #ifdef WORDS_BIGENDIAN
- # define SCM_OBJCODE_ENDIANNESS "BE"
- #else
- # define SCM_OBJCODE_ENDIANNESS "LE"
- #endif
- #define _SCM_CPP_STRINGIFY(x) # x
- #define SCM_CPP_STRINGIFY(x) _SCM_CPP_STRINGIFY (x)
- #define SCM_OBJCODE_WORD_SIZE SCM_CPP_STRINGIFY (SIZEOF_VOID_P)
- #define SCM_OBJCODE_MAJOR_VERSION 3
- #define SCM_OBJCODE_MINOR_VERSION 7
- #define SCM_OBJCODE_MAJOR_VERSION_STRING \
- SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
- #define SCM_OBJCODE_MINOR_VERSION_STRING \
- SCM_CPP_STRINGIFY(SCM_OBJCODE_MINOR_VERSION)
- #define SCM_OBJCODE_VERSION_STRING \
- SCM_OBJCODE_MAJOR_VERSION_STRING "." SCM_OBJCODE_MINOR_VERSION_STRING
- #define SCM_OBJCODE_MACHINE_VERSION_STRING \
- SCM_OBJCODE_ENDIANNESS "-" SCM_OBJCODE_WORD_SIZE "-" SCM_OBJCODE_VERSION_STRING
- #endif
|