]> git.donarmstrong.com Git - lilypond.git/blob - guile18/libguile/_scm.h
New upstream version 2.19.65
[lilypond.git] / guile18 / 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 #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 \f
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 */