libguile/_scm.h

   1 /* classes: h_files */
   2
   3 #ifndef _SCMH
   4 #define _SCMH
   5 /*      Copyright (C) 1995,1996 Free Software Foundation, Inc.
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2, or (at your option)
  10  * any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this software; see the file COPYING.  If not, write to
  19  * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20  *
  21  * As a special exception, the Free Software Foundation gives permission
  22  * for additional uses of the text contained in its release of GUILE.
  23  *
  24  * The exception is that, if you link the GUILE library with other files
  25  * to produce an executable, this does not by itself cause the
  26  * resulting executable to be covered by the GNU General Public License.
  27  * Your use of that executable is in no way restricted on account of
  28  * linking the GUILE library code into it.
  29  *
  30  * This exception does not however invalidate any other reasons why
  31  * the executable file might be covered by the GNU General Public License.
  32  *
  33  * This exception applies only to the code released by the
  34  * Free Software Foundation under the name GUILE.  If you copy
  35  * code from other Free Software Foundation releases into a copy of
  36  * GUILE, as the General Public License permits, the exception does
  37  * not apply to the code that you add in this way.  To avoid misleading
  38  * anyone as to the status of such modified files, you must delete
  39  * this exception notice from them.
  40  *
  41  * If you write modifications of your own for GUILE, it is your choice
  42  * whether to permit this exception to apply to your modifications.
  43  * If you do not wish that, delete this exception notice.
  44  */
  45 \f
  46
  47 #include "__scm.h"
  48
  49 /* This file is only visible to the libguile sources */
  50
  51 /* Include headers for those files central to the implementation.  The
  52    rest should be explicitly #included in the C files themselves.  */
  53 #include "error.h"              /* Everyone signals errors.  */
  54 #include "print.h"              /* Everyone needs to print.  */
  55 #include "pairs.h"              /* Everyone conses.  */
  56 #include "list.h"               /* Everyone makes lists.  */
  57 #include "gc.h"                 /* Everyone allocates.  */
  58 #include "gsubr.h"              /* Everyone defines global functions.  */
  59 #include "procs.h"              /* Same.  */
  60 #include "numbers.h"            /* Everyone deals with fixnums.  */
  61 #include "symbols.h"            /* For length, chars, values, miscellany.  */
  62 #include "boolean.h"            /* Everyone wonders about the truth.  */
  63 #include "strings.h"            /* Everyone loves string.  */
  64 #include "vectors.h"            /* Vectors are used for structures a lot.  */
  65 #include "root.h"               /* Everyone uses these objects.  */
  66 #include "ports.h"              /* Everyone does I/O.  */
  67 #include "async.h"              /* Everyone allows/disallows ints.  */
  68 #ifdef USE_THREADS
  69 #include "threads.h"            /* The cooperative thread package does
  70                                    switching at async ticks.  */
  71 #endif
  72 #include "snarf.h"              /* Everyone snarfs. */
  73
  74 /* On VMS, GNU C's errno.h contains a special hack to get link attributes
  75  * for errno correct for linking to the C RTL.
  76  */
  77 #include <errno.h>
  78
  79 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR) */
  80 #ifdef vms
  81 # ifndef __GNUC__
  82 #  include <ssdef.h>
  83 #  define SCM_SYSCALL(line) do{errno = 0;line;} \
  84         while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
  85 # endif /* ndef __GNUC__ */
  86 #endif /* def vms */
  87
  88 #ifndef SCM_SYSCALL
  89 # ifdef EINTR
  90 #  if (EINTR > 0)
  91 #   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
  92 #  endif /*  (EINTR > 0) */
  93 # endif /* def EINTR */
  94 #endif /* ndef SCM_SYSCALL */
  95
  96 #ifndef SCM_SYSCALL
  97 # define SCM_SYSCALL(line) {line;}
  98 #endif /* ndef SCM_SYSCALL */
  99
 100 #ifndef MSDOS
 101 # ifdef ARM_ULIB
 102     extern volatile int errno;
 103 # else
 104     extern int errno;
 105 # endif /* def ARM_ULIB */
 106 #endif /* ndef MSDOS */
 107 #ifdef __TURBOC__
 108 # if (__TURBOC__==1)
 109  /* Needed for TURBOC V1.0 */
 110  extern int errno;
 111 # endif /*  (__TURBOC__==1) */
 112 #endif /* def __TURBOC__ */
 113
 114 \f
 115
 116 #ifndef min
 117 #define min(A,B) ((A) <= (B) ? (A) : (B))
 118 #endif
 119 #ifndef max
 120 #define max(A,B) ((A) >= (B) ? (A) : (B))
 121 #endif
 122
 123 #endif  /* _SCMH */
 124