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 Free Software Foundation, Inc.
   7  *
   8  * This program is free software; you can redistribute it and/or modify
   9  * it under the terms of the GNU General Public License as published by
  10  * the Free Software Foundation; either version 2, or (at your option)
  11  * any later version.
  12  *
  13  * This program 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
  16  * GNU General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this software; see the file COPYING.  If not, write to
  20  * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  21  * Boston, MA 02111-1307 USA
  22  *
  23  * As a special exception, the Free Software Foundation gives permission
  24  * for additional uses of the text contained in its release of GUILE.
  25  *
  26  * The exception is that, if you link the GUILE library with other files
  27  * to produce an executable, this does not by itself cause the
  28  * resulting executable to be covered by the GNU General Public License.
  29  * Your use of that executable is in no way restricted on account of
  30  * linking the GUILE library code into it.
  31  *
  32  * This exception does not however invalidate any other reasons why
  33  * the executable file might be covered by the GNU General Public License.
  34  *
  35  * This exception applies only to the code released by the
  36  * Free Software Foundation under the name GUILE.  If you copy
  37  * code from other Free Software Foundation releases into a copy of
  38  * GUILE, as the General Public License permits, the exception does
  39  * not apply to the code that you add in this way.  To avoid misleading
  40  * anyone as to the status of such modified files, you must delete
  41  * this exception notice from them.
  42  *
  43  * If you write modifications of your own for GUILE, it is your choice
  44  * whether to permit this exception to apply to your modifications.
  45  * If you do not wish that, delete this exception notice.  */
  46
  47 \f
  48
  49 /**********************************************************************
  50  This file is Guile's central private header.
  51
  52  When included by other files, this file should preceed any include
  53  other than __scm.h.  See __scm.h for details regarding the purpose of
  54  and differences between _scm.h and __scm.h.
  55  **********************************************************************/
  56
  57
  58 #if HAVE_CONFIG_H
  59 #  include <config.h>
  60 #endif
  61
  62 #include <errno.h>
  63 #include "libguile/__scm.h"
  64
  65 /* Include headers for those files central to the implementation.  The
  66    rest should be explicitly #included in the C files themselves.  */
  67 #include "libguile/error.h"     /* Everyone signals errors.  */
  68 #include "libguile/print.h"     /* Everyone needs to print.  */
  69 #include "libguile/pairs.h"     /* Everyone conses.  */
  70 #include "libguile/list.h"      /* Everyone makes lists.  */
  71 #include "libguile/gc.h"        /* Everyone allocates.  */
  72 #include "libguile/gsubr.h"     /* Everyone defines global functions.  */
  73 #include "libguile/procs.h"     /* Same.  */
  74 #include "libguile/numbers.h"   /* Everyone deals with fixnums.  */
  75 #include "libguile/symbols.h"   /* For length, chars, values, miscellany.  */
  76 #include "libguile/boolean.h"   /* Everyone wonders about the truth.  */
  77 #include "libguile/threads.h"   /* You are not alone. */
  78 #include "libguile/snarf.h"     /* Everyone snarfs. */
  79 #include "libguile/variable.h"
  80 #include "libguile/modules.h"
  81 #include "libguile/inline.h"
  82
  83 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR).
  84    However this can be avoided if the operating system can restart
  85    system calls automatically.  We assume this is the case if
  86    sigaction is available and SA_RESTART is defined; they will be used
  87    when installing signal handlers.
  88    */
  89
  90 #ifdef HAVE_RESTARTABLE_SYSCALLS
  91 #if ! SCM_USE_PTHREAD_THREADS /* However, don't assume SA_RESTART
  92                                  works with pthreads... */
  93 #define SCM_SYSCALL(line) line
  94 #endif
  95 #endif
  96
  97 #ifndef SCM_SYSCALL
  98 #ifdef vms
  99 # ifndef __GNUC__
 100 #  include <ssdef.h>
 101 #  define SCM_SYSCALL(line) do{errno = 0;line;} \
 102         while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
 103 # endif /* ndef __GNUC__ */
 104 #endif /* def vms */
 105 #endif /* ndef SCM_SYSCALL  */
 106
 107 #ifndef SCM_SYSCALL
 108 # ifdef EINTR
 109 #  if (EINTR > 0)
 110 #   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
 111 #  endif /*  (EINTR > 0) */
 112 # endif /* def EINTR */
 113 #endif /* ndef SCM_SYSCALL */
 114
 115 #ifndef SCM_SYSCALL
 116 # define SCM_SYSCALL(line) line;
 117 #endif /* ndef SCM_SYSCALL */
 118
 119 #if !defined (MSDOS) && !defined (__MINGW32__)
 120 # ifdef ARM_ULIB
 121     extern volatile int errno;
 122 # else
 123     extern int errno;
 124 # endif /* def ARM_ULIB */
 125 #endif /* ndef MSDOS && ndef __MINGW32__*/
 126
 127 \f
 128
 129 #ifndef min
 130 #define min(A, B) ((A) <= (B) ? (A) : (B))
 131 #endif
 132 #ifndef max
 133 #define max(A, B) ((A) >= (B) ? (A) : (B))
 134 #endif
 135
 136 #endif  /* SCM__SCM_H */
 137
 138 /*
 139   Local Variables:
 140   c-file-style: "gnu"
 141   End:
 142 */