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 /* Include headers for those files central to the implementation.  The
  50    rest should be explicitly #included in the C files themselves.  */
  51 #include "error.h"              /* Everyone signals errors.  */
  52 #include "pairs.h"              /* Everyone conses.  */
  53 #include "list.h"               /* Everyone makes lists.  */
  54 #include "gc.h"                 /* Everyone allocates.  */
  55 #include "gsubr.h"              /* Everyone defines global functions.  */
  56 #include "procs.h"              /* Same.  */
  57 #include "numbers.h"            /* Everyone deals with fixnums.  */
  58 #include "symbols.h"            /* For length, chars, values, miscellany.  */
  59 #include "boolean.h"            /* Everyone wonders about the truth.  */
  60 #include "strings.h"            /* Everyone loves string.  */
  61 #include "vectors.h"            /* Vectors are used for structures a lot.  */
  62 #include "root.h"               /* Everyone uses these objects.  */
  63 #include "ports.h"              /* Everyone does I/O.  */
  64 #include "async.h"              /* Everyone allows/disallows ints.  */
  65
  66 /* On VMS, GNU C's errno.h contains a special hack to get link attributes
  67  * for errno correct for linking to the C RTL.
  68  */
  69 #include <errno.h>
  70
  71 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR) */
  72 #ifdef vms
  73 # ifndef __GNUC__
  74 #  include <ssdef.h>
  75 #  define SCM_SYSCALL(line) do{errno = 0;line;} \
  76         while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
  77 # endif /* ndef __GNUC__ */
  78 #endif /* def vms */
  79
  80 #ifndef SCM_SYSCALL
  81 # ifdef EINTR
  82 #  if (EINTR > 0)
  83 #   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
  84 #  endif /*  (EINTR > 0) */
  85 # endif /* def EINTR */
  86 #endif /* ndef SCM_SYSCALL */
  87
  88 #ifndef SCM_SYSCALL
  89 # define SCM_SYSCALL(line) {line;}
  90 #endif /* ndef SCM_SYSCALL */
  91
  92 #ifndef MSDOS
  93 # ifdef ARM_ULIB
  94     extern volatile int errno;
  95 # else
  96     extern int errno;
  97 # endif /* def ARM_ULIB */
  98 #endif /* ndef MSDOS */
  99 #ifdef __TURBOC__
 100 # if (__TURBOC__==1)
 101  /* Needed for TURBOC V1.0 */
 102  extern int errno;
 103 # endif /*  (__TURBOC__==1) */
 104 #endif /* def __TURBOC__ */
 105
 106 \f
 107
 108 #ifndef SCM_MAGIC_SNARFER
 109 #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
 110         static char RANAME[]=STR
 111 #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
 112         static char RANAME[]=STR
 113 #else
 114 #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
 115 %%%     scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)
 116 #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
 117 %%%     scm_make_subr(RANAME, TYPE, CFN)
 118 #endif
 119
 120 #ifndef SCM_MAGIC_SNARFER
 121 #define SCM_SYMBOL(c_name, scheme_name) \
 122         static SCM c_name = SCM_BOOL_F
 123 #else
 124 #define SCM_SYMBOL(C_NAME, SCHEME_NAME) \
 125 %%%     C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME)))
 126 #endif
 127
 128
 129 #ifndef SCM_MAGIC_SNARFER
 130 #define SCM_GLOBAL(c_name, scheme_name) \
 131         static SCM c_name = SCM_BOOL_F
 132 #else
 133 #define SCM_GLOBAL(C_NAME, SCHEME_NAME) \
 134 %%%     C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, SCM_BOOL_F)
 135 #endif
 136
 137
 138 #ifndef SCM_MAGIC_SNARFER
 139 #define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
 140         static SCM C_NAME = SCM_BOOL_F
 141 #else
 142 #define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
 143 %%%     C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, scm_long2num (VALUE))
 144 #endif
 145
 146 #endif  /* _SCMH */
 147