[bpt/guile.git] / libguile / _scm.h

/* classes: h_files */

#ifndef _SCMH
#define _SCMH
/*	Copyright (C) 1995,1996 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
 *
 * As a special exception, the Free Software Foundation gives permission
 * for additional uses of the text contained in its release of GUILE.
 *
 * The exception is that, if you link the GUILE library with other files
 * to produce an executable, this does not by itself cause the
 * resulting executable to be covered by the GNU General Public License.
 * Your use of that executable is in no way restricted on account of
 * linking the GUILE library code into it.
 *
 * This exception does not however invalidate any other reasons why
 * the executable file might be covered by the GNU General Public License.
 *
 * This exception applies only to the code released by the
 * Free Software Foundation under the name GUILE.  If you copy
 * code from other Free Software Foundation releases into a copy of
 * GUILE, as the General Public License permits, the exception does
 * not apply to the code that you add in this way.  To avoid misleading
 * anyone as to the status of such modified files, you must delete
 * this exception notice from them.
 *
 * 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.  */
\f

#include "__scm.h"

/* This file is only visible to the libguile sources */

/* 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.  */
#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 <errno.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_RESTARTS
#define SCM_SYSCALL(line) line
#endif

#ifndef SCM_SYSCALL
#ifdef vms
# ifndef __GNUC__
#  include <ssdef.h>
#  define SCM_SYSCALL(line) do{errno = 0;line;} \
	while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
# endif /* ndef __GNUC__ */
#endif /* def vms */
#endif /* ndef SCM_SYSCALL  */

#ifndef SCM_SYSCALL
# ifdef EINTR
#  if (EINTR > 0)
#   define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
#  endif /*  (EINTR > 0) */
# endif /* def EINTR */
#endif /* ndef SCM_SYSCALL */

#ifndef SCM_SYSCALL
# define SCM_SYSCALL(line) line;
#endif /* ndef SCM_SYSCALL */

#ifndef MSDOS
# 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__ */

\f

#ifndef min
#define min(A,B) ((A) <= (B) ? (A) : (B))
#endif
#ifndef max
#define max(A,B) ((A) >= (B) ? (A) : (B))
#endif

#endif  /* _SCMH */
Commit	Line	Data
0f2d19dd JB	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
82892bed JB	19	* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
82892bed JB	20	* Boston, MA 02111-1307 USA
0f2d19dd JB	21	*
	22	* As a special exception, the Free Software Foundation gives permission
	23	* for additional uses of the text contained in its release of GUILE.
	24	*
	25	* The exception is that, if you link the GUILE library with other files
	26	* to produce an executable, this does not by itself cause the
	27	* resulting executable to be covered by the GNU General Public License.
	28	* Your use of that executable is in no way restricted on account of
	29	* linking the GUILE library code into it.
	30	*
	31	* This exception does not however invalidate any other reasons why
	32	* the executable file might be covered by the GNU General Public License.
	33	*
	34	* This exception applies only to the code released by the
	35	* Free Software Foundation under the name GUILE. If you copy
	36	* code from other Free Software Foundation releases into a copy of
	37	* GUILE, as the General Public License permits, the exception does
	38	* not apply to the code that you add in this way. To avoid misleading
	39	* anyone as to the status of such modified files, you must delete
	40	* this exception notice from them.
	41	*
	42	* If you write modifications of your own for GUILE, it is your choice
	43	* whether to permit this exception to apply to your modifications.
82892bed	44	* If you do not wish that, delete this exception notice. */
0f2d19dd JB	45	\f
0f2d19dd JB	46
20e6290e JB	47	#include "__scm.h"
20e6290e JB	48
462a6f1f MD	49	/* This file is only visible to the libguile sources */
462a6f1f MD	50
20e6290e JB	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. */
ddef8327	54	#include "print.h" /* Everyone needs to print. */
20e6290e JB	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. */
1764973d	68	#ifdef USE_THREADS
7bfd3b9e JB	69	#include "threads.h" /* The cooperative thread package does
7bfd3b9e JB	70	switching at async ticks. */
1764973d	71	#endif
5b4215a8	72	#include "snarf.h" /* Everyone snarfs. */
0f2d19dd JB	73
	74	/* On VMS, GNU C's errno.h contains a special hack to get link attributes
	75	* for errno correct for linking to the C RTL.
	76	*/
	77	#include <errno.h>
	78
e1a191a8 GH	79	/* SCM_SYSCALL retries system calls that have been interrupted (EINTR).
	80	However this can be avoided if the operating system can restart
	81	system calls automatically. We assume this is the case if
	82	sigaction is available and SA_RESTART is defined; they will be used
	83	when installing signal handlers.
	84	*/
	85
	86	#ifdef HAVE_RESTARTS
	87	#define SCM_SYSCALL(line) line
	88	#endif
	89
	90	#ifndef SCM_SYSCALL
0f2d19dd JB	91	#ifdef vms
	92	# ifndef __GNUC__
	93	# include <ssdef.h>
	94	# define SCM_SYSCALL(line) do{errno = 0;line;} \
	95	while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
	96	# endif /* ndef __GNUC__ */
	97	#endif /* def vms */
e1a191a8	98	#endif /* ndef SCM_SYSCALL */
0f2d19dd JB	99
	100	#ifndef SCM_SYSCALL
	101	# ifdef EINTR
	102	# if (EINTR > 0)
	103	# define SCM_SYSCALL(line) do{errno = 0;line;}while(EINTR==errno)
	104	# endif /* (EINTR > 0) */
	105	# endif /* def EINTR */
	106	#endif /* ndef SCM_SYSCALL */
	107
	108	#ifndef SCM_SYSCALL
e1a191a8	109	# define SCM_SYSCALL(line) line;
0f2d19dd JB	110	#endif /* ndef SCM_SYSCALL */
	111
	112	#ifndef MSDOS
	113	# ifdef ARM_ULIB
	114	extern volatile int errno;
	115	# else
	116	extern int errno;
	117	# endif /* def ARM_ULIB */
	118	#endif /* ndef MSDOS */
	119	#ifdef __TURBOC__
	120	# if (__TURBOC__==1)
	121	/* Needed for TURBOC V1.0 */
	122	extern int errno;
	123	# endif /* (__TURBOC__==1) */
	124	#endif /* def __TURBOC__ */
	125
	126	\f
	127
e412e180	128	#ifndef min
462a6f1f	129	#define min(A,B) ((A) <= (B) ? (A) : (B))
e412e180 MD	130	#endif
e412e180 MD	131	#ifndef max
462a6f1f	132	#define max(A,B) ((A) >= (B) ? (A) : (B))
e412e180	133	#endif
462a6f1f	134
0f2d19dd JB	135	#endif /* _SCMH */
0f2d19dd JB	136