X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/20e6290e38294de51ca0ca2b29c11d0f0042593c..287f8ad11e37fd34e024923519a9ebb9e2ec3de3:/libguile/_scm.h diff --git a/libguile/_scm.h b/libguile/_scm.h index 419cb269a..3a2c3905f 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -1,22 +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, 675 Mass Ave, Cambridge, MA 02139, USA. + * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + * Boston, MA 02111-1307 USA * * As a special exception, the Free Software Foundation gives permission * for additional uses of the text contained in its release of GUILE. @@ -40,35 +42,59 @@ * * 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. - */ + * If you do not wish that, delete this exception notice. */ + -#include "__scm.h" +/********************************************************************** + This file is Guile's central private header. + + 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. + **********************************************************************/ + + +#if HAVE_CONFIG_H +# include +#endif + +#include +#include "libguile/__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 "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. */ - -/* 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/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 -/* SCM_SYSCALL retries system calls that have been interrupted (EINTR) */ +#ifndef SCM_SYSCALL #ifdef vms # ifndef __GNUC__ # include @@ -76,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 @@ -86,62 +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 SCM_MAGIC_SNARFER -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ - static char RANAME[]=STR; -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ - static char RANAME[]=STR; -#else -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN) -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ -%%% scm_make_subr(RANAME, TYPE, CFN) -#endif - -#ifndef SCM_MAGIC_SNARFER -#define SCM_SYMBOL(c_name, scheme_name) \ - static SCM c_name = SCM_BOOL_F -#else -#define SCM_SYMBOL(C_NAME, SCHEME_NAME) \ -%%% C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME))) +#ifndef min +#define min(A, B) ((A) <= (B) ? (A) : (B)) #endif - - -#ifndef SCM_MAGIC_SNARFER -#define SCM_GLOBAL(c_name, scheme_name) \ - static SCM c_name = SCM_BOOL_F -#else -#define SCM_GLOBAL(C_NAME, SCHEME_NAME) \ -%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, SCM_BOOL_F) -#endif - - -#ifndef SCM_MAGIC_SNARFER -#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \ - static SCM C_NAME = SCM_BOOL_F -#else -#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \ -%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, scm_long2num (VALUE)) +#ifndef max +#define max(A, B) ((A) >= (B) ? (A) : (B)) #endif -#endif /* _SCMH */ +#endif /* SCM__SCM_H */ +/* + Local Variables: + c-file-style: "gnu" + End: +*/