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 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 #ifndef SCM_SYSCALL 82 #ifdef vms 83 # ifndef __GNUC__ 84 # include <ssdef.h> 85 # define SCM_SYSCALL(line) do{errno = 0;line;} \ 86 while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3)) 87 # endif /* ndef __GNUC__ */ 88 #endif /* def vms */ 89 #endif /* ndef SCM_SYSCALL */ 90 91 #ifndef SCM_SYSCALL 92 # ifdef EINTR 93 # if (EINTR > 0) 94 # define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno) 95 # endif /* (EINTR > 0) */ 96 # endif /* def EINTR */ 97 #endif /* ndef SCM_SYSCALL */ 98 99 #ifndef SCM_SYSCALL 100 # define SCM_SYSCALL(line) line; 101 #endif /* ndef SCM_SYSCALL */ 102 103 104 105 #ifndef min 106 #define min(A, B) ((A) <= (B) ? (A) : (B)) 107 #endif 108 #ifndef max 109 #define max(A, B) ((A) >= (B) ? (A) : (B)) 110 #endif 111 112 113 114 #if GUILE_USE_64_CALLS && HAVE_STAT64 115 #define CHOOSE_LARGEFILE(foo,foo64) foo64 116 #else 117 #define CHOOSE_LARGEFILE(foo,foo64) foo 118 #endif 119 120 /* These names are a bit long, but they make it clear what they represent. */ 121 #if SCM_HAVE_STRUCT_DIRENT64 == 1 122 # define dirent_or_dirent64 CHOOSE_LARGEFILE(dirent,dirent64) 123 #else 124 # define dirent_or_dirent64 dirent 125 #endif 126 #define fstat_or_fstat64 CHOOSE_LARGEFILE(fstat,fstat64) 127 #define ftruncate_or_ftruncate64 CHOOSE_LARGEFILE(ftruncate,ftruncate64) 128 #define lseek_or_lseek64 CHOOSE_LARGEFILE(lseek,lseek64) 129 #define lstat_or_lstat64 CHOOSE_LARGEFILE(lstat,lstat64) 130 #define off_t_or_off64_t CHOOSE_LARGEFILE(off_t,off64_t) 131 #define open_or_open64 CHOOSE_LARGEFILE(open,open64) 132 #define readdir_or_readdir64 CHOOSE_LARGEFILE(readdir,readdir64) 133 #if SCM_HAVE_READDIR64_R == 1 134 # define readdir_r_or_readdir64_r CHOOSE_LARGEFILE(readdir_r,readdir64_r) 135 #else 136 # define readdir_r_or_readdir64_r readdir_r 137 #endif 138 #define stat_or_stat64 CHOOSE_LARGEFILE(stat,stat64) 139 #define truncate_or_truncate64 CHOOSE_LARGEFILE(truncate,truncate64) 140 #define scm_from_off_t_or_off64_t CHOOSE_LARGEFILE(scm_from_off_t,scm_from_int64) 141 #define scm_from_ino_t_or_ino64_t CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64) 142 #define scm_from_blkcnt_t_or_blkcnt64_t CHOOSE_LARGEFILE(scm_from_ulong,scm_from_uint64) 143 #define scm_to_off_t_or_off64_t CHOOSE_LARGEFILE(scm_to_off_t,scm_to_int64) 144 145 #if SIZEOF_OFF_T == 4 146 # define scm_to_off_t scm_to_int32 147 # define scm_from_off_t scm_from_int32 148 #elif SIZEOF_OFF_T == 8 149 # define scm_to_off_t scm_to_int64 150 # define scm_from_off_t scm_from_int64 151 #else 152 # error sizeof(off_t) is not 4 or 8. 153 #endif 154 #define scm_to_off64_t scm_to_int64 155 #define scm_from_off64_t scm_from_int64 156 157 158 #endif /* SCM__SCM_H */ 159 160 /* 161 Local Variables: 162 c-file-style: "gnu" 163 End: 164 */ 165