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