X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/82892beda5c053715bc3ec7063af4a129f52c5f9..2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd:/libguile/_scm.h diff --git a/libguile/_scm.h b/libguile/_scm.h index 2798c2090..a750d6b43 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -1,23 +1,24 @@ /* classes: h_files */ -#ifndef _SCMH -#define _SCMH -/* Copyright (C) 1995,1996 Free Software Foundation, Inc. - * +#ifndef SCM__SCM_H +#define SCM__SCM_H + +/* Copyright (C) 1995,1996,2000,2001, 2002 Free Software Foundation, Inc. + * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. - * + * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. - * + * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA + * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + * Boston, MA 02110-1301 USA * * As a special exception, the Free Software Foundation gives permission * for additional uses of the text contained in its release of GUILE. @@ -42,41 +43,58 @@ * If you write modifications of your own for GUILE, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ + -#include "__scm.h" +/********************************************************************** + This file is Guile's central private header. -/* This file is only visible to the libguile sources */ + When included by other files, this file should preceed any include + other than __scm.h. See __scm.h for details regarding the purpose of + and differences between _scm.h and __scm.h. + **********************************************************************/ -/* Include headers for those files central to the implementation. The - rest should be explicitly #included in the C files themselves. */ -#include "error.h" /* Everyone signals errors. */ -#include "print.h" /* Everyone needs to print. */ -#include "pairs.h" /* Everyone conses. */ -#include "list.h" /* Everyone makes lists. */ -#include "gc.h" /* Everyone allocates. */ -#include "gsubr.h" /* Everyone defines global functions. */ -#include "procs.h" /* Same. */ -#include "numbers.h" /* Everyone deals with fixnums. */ -#include "symbols.h" /* For length, chars, values, miscellany. */ -#include "boolean.h" /* Everyone wonders about the truth. */ -#include "strings.h" /* Everyone loves string. */ -#include "vectors.h" /* Vectors are used for structures a lot. */ -#include "root.h" /* Everyone uses these objects. */ -#include "ports.h" /* Everyone does I/O. */ -#include "async.h" /* Everyone allows/disallows ints. */ -#ifdef USE_THREADS -#include "threads.h" /* The cooperative thread package does - switching at async ticks. */ + +#if HAVE_CONFIG_H +# include #endif -#include "snarf.h" /* Everyone snarfs. */ -/* On VMS, GNU C's errno.h contains a special hack to get link attributes - * for errno correct for linking to the C RTL. - */ #include +#include "libguile/__scm.h" -/* SCM_SYSCALL retries system calls that have been interrupted (EINTR) */ +/* Include headers for those files central to the implementation. The + rest should be explicitly #included in the C files themselves. */ +#include "libguile/error.h" /* Everyone signals errors. */ +#include "libguile/print.h" /* Everyone needs to print. */ +#include "libguile/pairs.h" /* Everyone conses. */ +#include "libguile/list.h" /* Everyone makes lists. */ +#include "libguile/gc.h" /* Everyone allocates. */ +#include "libguile/gsubr.h" /* Everyone defines global functions. */ +#include "libguile/procs.h" /* Same. */ +#include "libguile/numbers.h" /* Everyone deals with fixnums. */ +#include "libguile/symbols.h" /* For length, chars, values, miscellany. */ +#include "libguile/boolean.h" /* Everyone wonders about the truth. */ +#include "libguile/threads.h" /* You are not alone. */ +#include "libguile/snarf.h" /* Everyone snarfs. */ +#include "libguile/variable.h" +#include "libguile/modules.h" +#include "libguile/inline.h" + +/* SCM_SYSCALL retries system calls that have been interrupted (EINTR). + However this can be avoided if the operating system can restart + system calls automatically. We assume this is the case if + sigaction is available and SA_RESTART is defined; they will be used + when installing signal handlers. + */ + +#ifdef HAVE_RESTARTABLE_SYSCALLS +#if ! SCM_USE_PTHREAD_THREADS /* However, don't assume SA_RESTART + works with pthreads... */ +#define SCM_SYSCALL(line) line +#endif +#endif + +#ifndef SCM_SYSCALL #ifdef vms # ifndef __GNUC__ # include @@ -84,6 +102,7 @@ while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3)) # endif /* ndef __GNUC__ */ #endif /* def vms */ +#endif /* ndef SCM_SYSCALL */ #ifndef SCM_SYSCALL # ifdef EINTR @@ -94,31 +113,30 @@ #endif /* ndef SCM_SYSCALL */ #ifndef SCM_SYSCALL -# define SCM_SYSCALL(line) {line;} +# define SCM_SYSCALL(line) line; #endif /* ndef SCM_SYSCALL */ -#ifndef MSDOS +#if !defined (MSDOS) && !defined (__MINGW32__) # ifdef ARM_ULIB extern volatile int errno; # else extern int errno; # endif /* def ARM_ULIB */ -#endif /* ndef MSDOS */ -#ifdef __TURBOC__ -# if (__TURBOC__==1) - /* Needed for TURBOC V1.0 */ - extern int errno; -# endif /* (__TURBOC__==1) */ -#endif /* def __TURBOC__ */ +#endif /* ndef MSDOS && ndef __MINGW32__*/ #ifndef min -#define min(A,B) ((A) <= (B) ? (A) : (B)) +#define min(A, B) ((A) <= (B) ? (A) : (B)) #endif #ifndef max -#define max(A,B) ((A) >= (B) ? (A) : (B)) +#define max(A, B) ((A) >= (B) ? (A) : (B)) #endif -#endif /* _SCMH */ +#endif /* SCM__SCM_H */ +/* + Local Variables: + c-file-style: "gnu" + End: +*/