libguile/_scm.h

   1 /* classes: h_files */
   2
   3 #ifndef SCM__SCM_H
   4 #define SCM__SCM_H
   5
   6 /* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008 Free Software Foundation, Inc.
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  21  */
  22
  23 \f
  24
  25 /**********************************************************************
  26  This file is Guile's central private header.
  27
  28  When included by other files, this file should preceed any include
  29  other than __scm.h.  See __scm.h for details regarding the purpose of
  30  and differences between _scm.h and __scm.h.
  31  **********************************************************************/
  32
  33 #if defined(__ia64) && !defined(__ia64__)
  34 # define __ia64__
  35 #endif
  36
  37 #if HAVE_CONFIG_H
  38 #  include <config.h>
  39 #endif
  40
  41 /* Undefine HAVE_STRUCT_TIMESPEC, because the libguile C code doesn't
  42    need it anymore, and because on MinGW:
  43
  44    - the definition of struct timespec is provided (if at all) by
  45      pthread.h
  46
  47    - pthread.h will _not_ define struct timespec if
  48      HAVE_STRUCT_TIMESPEC is 1, because then it thinks that it doesn't
  49      need to.
  50
  51    The libguile C code doesn't need HAVE_STRUCT_TIMESPEC anymore,
  52    because the value of HAVE_STRUCT_TIMESPEC has already been
  53    incorporated in how scm_t_timespec is defined (in scmconfig.h), and
  54    the rest of the libguile C code now just uses scm_t_timespec.
  55  */
  56 #ifdef HAVE_STRUCT_TIMESPEC
  57 #undef HAVE_STRUCT_TIMESPEC
  58 #endif
  59
  60 #include <errno.h>
  61 #include "libguile/__scm.h"
  62
  63 /* Include headers for those files central to the implementation.  The
  64    rest should be explicitly #included in the C files themselves.  */
  65 #include "libguile/error.h"     /* Everyone signals errors.  */
  66 #include "libguile/print.h"     /* Everyone needs to print.  */
  67 #include "libguile/pairs.h"     /* Everyone conses.  */
  68 #include "libguile/list.h"      /* Everyone makes lists.  */
  69 #include "libguile/gc.h"        /* Everyone allocates.  */
  70 #include "libguile/gsubr.h"     /* Everyone defines global functions.  */
  71 #include "libguile/procs.h"     /* Same.  */
  72 #include "libguile/numbers.h"   /* Everyone deals with fixnums.  */
  73 #include "libguile/symbols.h"   /* For length, chars, values, miscellany.  */
  74 #include "libguile/boolean.h"   /* Everyone wonders about the truth.  */
  75 #include "libguile/threads.h"   /* You are not alone. */
  76 #include "libguile/snarf.h"     /* Everyone snarfs. */
  77 #include "libguile/variable.h"
  78 #include "libguile/modules.h"
  79 #include "libguile/inline.h"
  80
  81 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR).
  82    However this can be avoided if the operating system can restart
  83    system calls automatically.  We assume this is the case if
  84    sigaction is available and SA_RESTART is defined; they will be used
  85    when installing signal handlers.
  86    */
  87
  88 #ifdef HAVE_RESTARTABLE_SYSCALLS
  89 #if ! SCM_USE_PTHREAD_THREADS /* However, don't assume SA_RESTART
  90                                  works with pthreads... */
  91 #define SCM_SYSCALL(line) line
  92 #endif
  93 #endif
  94
  95 #ifndef SCM_SYSCALL
  96 #ifdef vms
  97 # ifndef __GNUC__
  98 #  include <ssdef.h>
  99 #  define SCM_SYSCALL(line) do{errno = 0;line;} \
 100         while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
 101 # endif /* ndef __GNUC__ */
 102 #endif /* def vms */
 103 #endif /* ndef SCM_SYSCALL  */
 104
 105 #ifndef SCM_SYSCALL
 106 # ifdef EINTR
 107 #  if (EINTR > 0)
 108 #   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
 109 #  endif /*  (EINTR > 0) */
 110 # endif /* def EINTR */
 111 #endif /* ndef SCM_SYSCALL */
 112
 113 #ifndef SCM_SYSCALL
 114 # define SCM_SYSCALL(line) line;
 115 #endif /* ndef SCM_SYSCALL */
 116
 117 \f
 118
 119 #ifndef min
 120 #define min(A, B) ((A) <= (B) ? (A) : (B))
 121 #endif
 122 #ifndef max
 123 #define max(A, B) ((A) >= (B) ? (A) : (B))
 124 #endif
 125
 126
 127
 128 #if GUILE_USE_64_CALLS && HAVE_STAT64
 129 #define CHOOSE_LARGEFILE(foo,foo64)     foo64
 130 #else
 131 #define CHOOSE_LARGEFILE(foo,foo64)     foo
 132 #endif
 133
 134 /* These names are a bit long, but they make it clear what they represent. */
 135 #if SCM_HAVE_STRUCT_DIRENT64 == 1
 136 # define dirent_or_dirent64             CHOOSE_LARGEFILE(dirent,dirent64)
 137 #else
 138 # define dirent_or_dirent64             dirent
 139 #endif
 140 #define fstat_or_fstat64                CHOOSE_LARGEFILE(fstat,fstat64)
 141 #define ftruncate_or_ftruncate64        CHOOSE_LARGEFILE(ftruncate,ftruncate64)
 142 #define lseek_or_lseek64                CHOOSE_LARGEFILE(lseek,lseek64)
 143 #define lstat_or_lstat64                CHOOSE_LARGEFILE(lstat,lstat64)
 144 #define off_t_or_off64_t                CHOOSE_LARGEFILE(off_t,off64_t)
 145 #define open_or_open64                  CHOOSE_LARGEFILE(open,open64)
 146 #define readdir_or_readdir64            CHOOSE_LARGEFILE(readdir,readdir64)
 147 #if SCM_HAVE_READDIR64_R == 1
 148 # define readdir_r_or_readdir64_r       CHOOSE_LARGEFILE(readdir_r,readdir64_r)
 149 #else
 150 # define readdir_r_or_readdir64_r       readdir_r
 151 #endif
 152 #define stat_or_stat64                  CHOOSE_LARGEFILE(stat,stat64)
 153 #define truncate_or_truncate64          CHOOSE_LARGEFILE(truncate,truncate64)
 154 #define scm_from_off_t_or_off64_t       CHOOSE_LARGEFILE(scm_from_off_t,scm_from_int64)
 155 #define scm_from_ino_t_or_ino64_t       CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64)
 156 #define scm_from_blkcnt_t_or_blkcnt64_t CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64)
 157 #define scm_to_off_t_or_off64_t         CHOOSE_LARGEFILE(scm_to_off_t,scm_to_int64)
 158
 159 #if SIZEOF_OFF_T == 4
 160 #  define scm_to_off_t    scm_to_int32
 161 #  define scm_from_off_t  scm_from_int32
 162 #elif SIZEOF_OFF_T == 8
 163 #  define scm_to_off_t    scm_to_int64
 164 #  define scm_from_off_t  scm_from_int64
 165 #else
 166 #  error sizeof(off_t) is not 4 or 8.
 167 #endif
 168 #define scm_to_off64_t    scm_to_int64
 169 #define scm_from_off64_t  scm_from_int64
 170
 171
 172 #endif  /* SCM__SCM_H */
 173
 174 /*
 175   Local Variables:
 176   c-file-style: "gnu"
 177   End:
 178 */