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/threads.h" /* Some thread packages does switching
  70                                    at async ticks. */
  71 #endif
  72
  73 /* On VMS, GNU C's errno.h contains a special hack to get link attributes
  74  * for errno correct for linking to the C RTL.
  75  */
  76 #include <errno.h>
  77
  78 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR) */
  79 #ifdef vms
  80 # ifndef __GNUC__
  81 #  include <ssdef.h>
  82 #  define SCM_SYSCALL(line) do{errno = 0;line;} \
  83         while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
  84 # endif /* ndef __GNUC__ */
  85 #endif /* def vms */
  86
  87 #ifndef SCM_SYSCALL
  88 # ifdef EINTR
  89 #  if (EINTR > 0)
  90 #   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
  91 #  endif /*  (EINTR > 0) */
  92 # endif /* def EINTR */
  93 #endif /* ndef SCM_SYSCALL */
  94
  95 #ifndef SCM_SYSCALL
  96 # define SCM_SYSCALL(line) {line;}
  97 #endif /* ndef SCM_SYSCALL */
  98
  99 #ifndef MSDOS
 100 # ifdef ARM_ULIB
 101     extern volatile int errno;
 102 # else
 103     extern int errno;
 104 # endif /* def ARM_ULIB */
 105 #endif /* ndef MSDOS */
 106 #ifdef __TURBOC__
 107 # if (__TURBOC__==1)
 108  /* Needed for TURBOC V1.0 */
 109  extern int errno;
 110 # endif /*  (__TURBOC__==1) */
 111 #endif /* def __TURBOC__ */
 112
 113 \f
 114
 115 #ifndef SCM_MAGIC_SNARFER
 116 #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
 117         static char RANAME[]=STR
 118 #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
 119         static char RANAME[]=STR
 120 #else
 121 #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
 122 %%%     scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)
 123 #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
 124 %%%     scm_make_subr(RANAME, TYPE, CFN)
 125 #endif
 126
 127 #ifndef SCM_MAGIC_SNARFER
 128 #define SCM_SYMBOL(c_name, scheme_name) \
 129         static SCM c_name = SCM_BOOL_F
 130 #else
 131 #define SCM_SYMBOL(C_NAME, SCHEME_NAME) \
 132 %%%     C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME)))
 133 #endif
 134
 135
 136 #ifndef SCM_MAGIC_SNARFER
 137 #define SCM_GLOBAL(c_name, scheme_name) \
 138         static SCM c_name = SCM_BOOL_F
 139 #else
 140 #define SCM_GLOBAL(C_NAME, SCHEME_NAME) \
 141 %%%     C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, SCM_BOOL_F)
 142 #endif
 143
 144
 145 #ifndef SCM_MAGIC_SNARFER
 146 #define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
 147         static SCM C_NAME = SCM_BOOL_F
 148 #else
 149 #define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
 150 %%%     C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, scm_long2num (VALUE))
 151 #endif
 152
 153 #define min(A,B) ((A) <= (B) ? (A) : (B))
 154 #define max(A,B) ((A) >= (B) ? (A) : (B))
 155
 156 #endif  /* _SCMH */
 157