summaryrefslogtreecommitdiffstats
path: root/scmfig.h
diff options
context:
space:
mode:
Diffstat (limited to 'scmfig.h')
-rw-r--r--scmfig.h671
1 files changed, 671 insertions, 0 deletions
diff --git a/scmfig.h b/scmfig.h
new file mode 100644
index 0000000..ba95450
--- /dev/null
+++ b/scmfig.h
@@ -0,0 +1,671 @@
+/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995 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.
+ *
+ * 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.
+ */
+
+/* "scmfig.h" system-dependent configuration.
+ Author: Aubrey Jaffer */
+
+#ifdef HAVE_CONFIG_H
+# include "scmconfig.h"
+# ifdef HAVE_STRING_H
+# include <string.h>
+# else
+# include <strings.h>
+# endif
+
+# ifndef HAVE_GETCWD
+# define getcwd(S,L) getwd(S)
+# endif
+
+#else /* HAVE_CONFIG_H */
+
+# ifdef sequent
+# include <strings.h>
+# define strchr index
+# define strrchr rindex
+# else
+# include <string.h>
+# endif
+
+# include "scmflags.h" /* user specified, system independent flags */
+
+/* IMPLINIT is the full pathname (surrounded by double quotes) of
+ Init.scm, the Scheme initialization code. This is best defined in
+ the makefile, if possible. If available, scm uses the value of
+ environment variable SCM_INIT_PATH instead of IMPLINIT. */
+
+/* #define IMPLINIT "/usr/jaffer/scm/Init.scm" */
+
+/* INITS is calls to initialization routines for any compiled
+ libraries being linked into scm. This is best done in the makefile.
+File: INITS line: functions defined:
+
+sc2.c init_sc2(); substring-move-left!, substring-move-right!,
+ substring-fill!, append!, and last-pair
+rgx.c init_rgx(); regcomp and regexec. */
+
+/* #define INITS init_sc2(); */
+
+/* #define SICP */
+
+/* setbuf(0) needs to be done for tty ports in order for CHAR-READY?
+ to work. This can cause problems under MSDOS and other systems. */
+
+/* #define NOSETBUF */
+
+/* #define RECKLESS */
+
+/* #define CAUTIOUS */
+
+/* #define STACK_LIMIT (HEAP_SEG_SIZE/2) */
+
+/* #define BIGNUMS */
+
+/* #define ARRAYS */
+
+/* #define FLOATS */
+
+/* Define SINGLES if you want single precision floats and
+ (sizeof(float)==sizeof(long)) */
+
+# ifdef FLOATS
+# define SINGLES
+# endif
+
+/* #define SINGLESONLY */
+
+/* Define CDR_DOUBLES if (sizeof(double)==sizeof(long)), i.e.
+ a `single' is really a double. */
+# ifdef FLOATS
+# ifdef __alpha
+# define CDR_DOUBLES
+# endif
+
+# ifdef _UNICOS /* doubles are no better than singles on Cray. */
+# define SINGLESONLY
+# endif
+
+# ifdef CDR_DOUBLES
+# define SINGLES
+# define SINGLESONLY
+# endif
+# endif
+
+/* #define ENGNOT */
+
+/* Define SUN_DL to configure code in "dynl.c" so that dynamic linking
+ is done using the SUN dynamic linking library "dl". */
+
+/* #define SUN_DL */
+
+/* Define DLD to configure code in "dynl.c" so that dynamic linking is
+ done using the "dld" library. DLD is ported to Linux, VAX
+ (Ultrix), Sun 3 (SunOS 3.4 and 4.0), SPARCstation (SunOS 4.0),
+ Sequent Symmetry (Dynix), and Atari ST. See scm/README or
+ scm/ANNOUNCE for ftp sites offering dld. */
+
+/* #define DLD */
+
+/* Define HAVE_DYNL if dynamic linking is available */
+
+# ifdef DLD
+# define HAVE_DYNL
+# endif
+# ifdef SUN_DL
+# define HAVE_DYNL
+# endif
+# ifdef HP_SHL
+# define HAVE_DYNL
+# endif
+
+# ifdef HAVE_DYNL
+# define CCLO
+# endif
+
+/* Define GC_FREE_SEGMENTS if you want segments of unused heap to
+ be freed up after garbage collection. Don't define it if you
+ never want the heap to shrink. */
+
+# ifndef DONT_GC_FREE_SEGMENTS
+# define GC_FREE_SEGMENTS
+# endif
+
+/* MEMOIZE_LOCALS will speed up most local variable references. You
+ will need to remove this and recompile eval.c if you use very large or
+ deep environments (more than 4095 bound variables in one procedure)*/
+
+# define MEMOIZE_LOCALS
+
+/* #define CHEAP_CONTINUATIONS */
+
+/* #define TICKS */
+
+/* PROT386 should be defined on the compilation command line if the
+ program is to be run on an intel 386 in protected mode. `Huge'
+ pointers common on MSDOS compilers do not work in protected mode.
+ PROT386 is required if scm is to run as part of a Microsoft Windows
+ application. Added by Stephen Adams 8 May 92 */
+
+/* #define PROT386 */
+
+/* #define NON_PREEMPTIVE and RTL if you are using an non-preemptive
+ operating system in which periodic polling for interrupts is
+ necessary. Provide your own main procedure (e.g., WinMain, in
+ Windows). Define and initialize unsigned int poll_count, and
+ provide a procedure named poll_routine(), which POLL calls each
+ time poll_count reaches zero. poll_routine() must reinitialize
+ poll_count. It may also check for external actions, such as
+ Windows messages. The value assigned to poll_count can be quite
+ large, e.g., 1000, while still maintaining good response time. */
+
+/* #define CAREFUL_INTS */
+
+/* STDC_HEADERS indicates that the include file names are the same as
+ ANSI C. For most modern systems this is the case. */
+
+/* added by Yasuaki Honda */
+# ifdef THINK_C
+# define __STDC__
+# endif
+
+# ifdef __STDC__
+# ifndef __HIGHC__ /* overly fussy compiler */
+# define USE_ANSI_PROTOTYPES
+# endif
+# ifndef __GNUC__
+# define STDC_HEADERS
+# else
+# ifdef sparc
+# ifdef SVR4
+# define STDC_HEADERS
+# endif
+# else
+# ifndef tahoe
+# ifndef sun
+# define STDC_HEADERS
+# endif
+# endif
+# endif
+# endif
+# endif
+# ifdef MSDOS /* Microsoft C 5.10 and 6.00A */
+# ifndef GO32
+# define SHORT_INT
+# endif
+# endif
+# ifdef _QC
+# define SHORT_INT
+# endif
+# ifdef __TURBOC__
+# define SHORT_INT
+# ifndef __TOS__
+# define MSDOS
+# endif
+# endif
+# ifdef _WIN32
+# define MSDOS
+# define LACK_TIMES
+# endif
+# ifdef _MSDOS
+# define MSDOS
+# endif
+# ifdef MSDOS
+# define STDC_HEADERS
+# endif
+# ifdef vms
+# define STDC_HEADERS
+# endif
+# ifdef nosve
+# define STDC_HEADERS
+# endif
+
+# ifdef linux
+# define HAVE_SELECT
+# define HAVE_SYS_TIME_H
+# undef STDC_HEADERS
+# endif
+
+# ifdef _UNICOS
+# define STDC_HEADERS
+# endif
+
+# ifdef _AIX
+# define _POSIX_SOURCE
+# define LACK_FTIME
+# endif
+
+# ifdef __sgi__
+# define LACK_FTIME
+# define STDC_HEADERS
+# define USE_ANSI_PROTOTYPES
+# define HAVE_SELECT
+# define HAVE_SYS_TIME_H
+# define __svr4__
+# endif
+
+# ifdef hpux
+# define LACK_E_IDs
+# endif
+
+/* C-Set++ for OS/2 */
+# ifdef __IBMC__
+# define STDC_HEADERS
+# define LACK_TIMES
+# endif
+
+#endif /* HAVE_CONFIG_H */
+
+/* PROMPT is the prompt string printed at top level */
+
+#ifndef PROMPT
+# ifdef SICP
+# define PROMPT "==> "
+# else
+# define PROMPT "> "
+# endif
+#endif
+
+/* #define BRACKETS_AS_PARENS to have [ and ] be read as ( and ) in forms. */
+
+/* #define BRACKETS_AS_PARENS */
+
+/* LINE_INCREMENTORS are the characters which cause the line count to
+ be incremented for the purposes of error reporting. This feature
+ is only used for scheme code loaded from files.
+
+ WHITE_SPACES are other characters which should be treated like spaces
+ in programs. in both cases sparate characters with ":case " */
+
+#define LINE_INCREMENTORS '\n'
+#ifdef MSDOS
+# define WHITE_SPACES ' ':case '\t':case '\r':case '\f':case 26
+#else
+# define WHITE_SPACES ' ':case '\t':case '\r':case '\f'
+#endif
+
+/* NUM_HASH_BUCKETS is the number of symbol hash table buckets. */
+
+#define NUM_HASH_BUCKETS 137
+
+/* If fewer than MIN_GC_YIELD cells are recovered during a garbage
+ collection (GC) more space is allocated for the heap. */
+
+#define MIN_GC_YIELD (heap_size/4)
+
+/* Define BIGDIG to an integer type whose size is smaller than long if
+ you want bignums. BIGRAD is one greater than the biggest BIGDIG. */
+/* Define DIGSTOOBIG if the digits equivalent to a long won't fit in a long. */
+#ifdef BIGNUMS
+# ifdef _UNICOS
+# define DIGSTOOBIG
+# if (1L << 31) <= USHRT_MAX
+# define BIGDIG unsigned short
+# else
+# define BIGDIG unsigned int
+# endif
+# define BITSPERDIG 32
+# else
+# define BIGDIG unsigned short
+# define BITSPERDIG (sizeof(BIGDIG)*CHAR_BIT)
+# endif
+# define BIGRAD (1L << BITSPERDIG)
+# define DIGSPERLONG ((sizet)((sizeof(long)*CHAR_BIT+BITSPERDIG-1)/BITSPERDIG))
+# define BIGUP(x) ((unsigned long)(x) << BITSPERDIG)
+# define BIGDN(x) ((x) >> BITSPERDIG)
+# define BIGLO(x) ((x) & (BIGRAD-1))
+#endif
+
+#ifndef BIGDIG
+# ifndef FLOATS
+# define INUMS_ONLY
+# endif
+#endif
+
+#ifdef NON_PREEMPTIVE
+# define DEFER_INTS /**/
+# ifdef TICKS
+# define POLL {if (0==poll_count--) poll_routine(); \
+ if (0==tick_count--) tick_signal();}
+# else
+# define POLL {if (0==poll_count--) poll_routine();}
+# endif
+# define CHECK_INTS POLL
+# define ALLOW_INTS POLL
+#else
+# ifdef CAREFUL_INTS
+# define DEFER_INTS {if (ints_disabled) \
+ fputs("ints already disabled\n", stderr); \
+ ints_disabled = 1;}
+# define ALLOW_INTS {if (!ints_disabled) \
+ fputs("ints already enabled\n", stderr); \
+ ints_disabled = 0;CHECK_INTS}
+# else
+# define DEFER_INTS {ints_disabled = 1;}
+# define ALLOW_INTS {ints_disabled = 0;CHECK_INTS}
+# endif
+# ifdef TICKS
+# define CHECK_INTS {if (sig_deferred) han_sig();if (alrm_deferred) han_alrm();\
+ POLL;}
+# define POLL {if (0==tick_count--) tick_signal();}
+# else
+# define CHECK_INTS {if (sig_deferred) han_sig();if (alrm_deferred) han_alrm();}
+# define POLL /**/
+# endif
+#endif
+
+#ifdef STACK_LIMIT
+# define CHECK_STACK {stack_check();}
+#else
+# define CHECK_STACK /**/
+#endif
+
+/* Cray machines have pointers that are incremented once for each word,
+ rather than each byte, the 3 most significant bits encode the byte
+ within the word. The following macros deal with this by storing the
+ native Cray pointers like the ones that looks like scm expects. This
+ is done for any pointers that might appear in the car of a cell, pointers
+ to vector elts, functions, &c are not munged. */
+#ifdef _UNICOS
+# define SCM2PTR(x) ((int)(x) >> 3)
+# define PTR2SCM(x) (((SCM)(x)) << 3)
+# define POINTERS_MUNGED
+#else
+# define SCM2PTR(x) (x)
+# define PTR2SCM(x) ((SCM)(x))
+#endif
+
+/* FIXABLE is non-null if its long argument can be encoded in an INUM. */
+
+#define POSFIXABLE(n) ((n) <= MOST_POSITIVE_FIXNUM)
+#define NEGFIXABLE(n) ((n) >= MOST_NEGATIVE_FIXNUM)
+#define UNEGFIXABLE(n) ((n) <= -MOST_NEGATIVE_FIXNUM)
+#define FIXABLE(n) (POSFIXABLE(n) && NEGFIXABLE(n))
+
+/* The following 8 definitions are defined automatically by the C
+ pre-processor. You will need to override these if you are
+ cross-compiling or if the C pre-processor has different properties
+ than the compiler. */
+
+#if (((-1)%2==-1) && ((-1)%(-2)==-1) && (1%2==1) && (1%(-2)==1))
+#else
+# define BADIVSGNS
+#endif
+
+/* SRS is signed right shift */
+/*--- Turbo C++ v1.0 has a bug with right shifts of signed longs!
+ It is believed to be fixed in Turbo C++ v1.01 ---*/
+#if (-1==(((-1)<<2)+2)>>2) && (__TURBOC__ != 0x295)
+# define SRS(x, y) ((x)>>y)
+# ifdef __TURBOC__
+# define INUM(x) (((x)>>1)>>1)
+# else
+# define INUM(x) SRS(x, 2)
+# endif
+#else
+# define SRS(x, y) (((x)<0) ? ~((~(x))>>y) : (x)>>y)
+# define INUM(x) SRS(x, 2)
+#endif
+
+#ifdef __TURBOC__
+/* shifts of more than one are done by a library call, single shifts are
+ performed in registers */
+# define MAKINUM(x) ((((x)<<1)<<1)+2L)
+#else
+# define MAKINUM(x) (((x)<<2)+2L)
+#endif
+
+#ifdef _DCC
+# define ASCII
+#else
+# if (('\n'=='\025') && (' '=='\100') && ('a'=='\201') && ('A'=='\301'))
+# define EBCDIC
+# endif
+# if (('\n'=='\012') && (' '=='\040') && ('a'=='\141') && ('A'=='\101'))
+# define ASCII
+# endif
+#endif
+
+/* CHAR_CODE_LIMIT is the number of distinct characters represented by
+ the unsigned char datatype. */
+/* MOST_POSITIVE_FIXNUM is the INUM closest to positive infinity. */
+/* MOST_NEGATIVE_FIXNUM is the INUM closest to negative infinity. */
+
+#ifdef __STDC__
+# define HAVE_LIMITSH
+#endif
+#ifdef MWC
+# define HAVE_LIMITSH
+#endif
+
+#ifdef HAVE_LIMITSH
+# include <limits.h>
+# ifdef UCHAR_MAX
+# define CHAR_CODE_LIMIT (UCHAR_MAX+1L)
+# else
+# define CHAR_CODE_LIMIT 256L
+# endif
+# define MOST_POSITIVE_FIXNUM (LONG_MAX>>2)
+# ifdef _UNICOS /* Stupid cray bug */
+# define MOST_NEGATIVE_FIXNUM ((long)LONG_MIN/4)
+# else
+# define MOST_NEGATIVE_FIXNUM SRS((long)LONG_MIN, 2)
+# endif /* UNICOS */
+#else
+# define CHAR_CODE_LIMIT 256L
+# define MOST_POSITIVE_FIXNUM ((long)((unsigned long)~0L>>3))
+# if (0 != ~0)
+# define MOST_NEGATIVE_FIXNUM (-MOST_POSITIVE_FIXNUM-1)
+# else
+# define MOST_NEGATIVE_FIXNUM (-MOST_POSITIVE_FIXNUM)
+# endif
+#endif
+
+/* INTBUFLEN is the maximum number of characters neccessary for the
+ printed or string representation of an exact number. */
+
+#ifndef CHAR_BIT
+# define CHAR_BIT 8
+#endif
+#ifndef LONG_BIT
+# define LONG_BIT (CHAR_BIT*sizeof(long)/sizeof(char))
+#endif
+#define INTBUFLEN (5+LONG_BIT)
+
+/* FLOBUFLEN is the maximum number of characters neccessary for the
+ printed or string representation of an inexact number. */
+
+#ifdef FLOATS
+# define FLOBUFLEN (10+2*(sizeof(double)/sizeof(char)*CHAR_BIT*3+9)/10)
+#endif /* FLOATS */
+
+/* MAXEXP is the maximum double precision expontent */
+/* FLTMAX is less than or equal the largest single precision float */
+
+#ifdef FLOATS
+# ifdef STDC_HEADERS
+# ifndef GO32
+# include <float.h>
+# endif
+# endif
+# ifdef DBL_MAX_10_EXP
+# define MAXEXP DBL_MAX_10_EXP
+# else
+# define MAXEXP 308 /* IEEE doubles */
+# endif
+# ifdef FLT_MAX
+# define FLTMAX FLT_MAX
+# else
+# define FLTMAX 1e+23
+# endif
+#endif
+
+/* Only some machines have pipes */
+#ifdef _IBMR2
+# define unix
+# define STDC_HEADERS
+#endif
+#ifdef unix
+ /* DJGPP (gcc for i386) defines unix! */
+# ifndef GO32
+# define HAVE_PIPE
+# endif
+#endif
+
+/* IS_INF tests its floating point number for infiniteness */
+
+#ifndef IS_INF
+# define IS_INF(x) ((x)==(x)/2)
+#endif
+
+#ifndef THINK_C
+# ifdef __WINDOWS__ /* there should be a better flag for this. */
+# define PROT386
+# endif
+#endif
+
+/* PTR_LT defines how to compare two CELLPTRs (which may not be in the
+ same array). CELLPTR is a pointer to a cons cell which may be
+ compared or differenced. SCMPTR is used for stack bounds. */
+
+#if defined(__TURBOC__) && !defined(__TOS__)
+# ifdef PROT386
+typedef cell *CELLPTR;
+typedef SCM *SCMPTR;
+# define PTR_LT(x, y) (((long)(x)) < ((long)(y)))
+# else
+typedef cell huge *CELLPTR;
+typedef SCM huge *SCMPTR;
+# define PTR_LT(x, y) ((x) < (y))
+# endif
+#else /* not __TURBOC__ */
+typedef cell *CELLPTR;
+typedef SCM *SCMPTR;
+# ifdef nosve
+# define PTR_MASK 0xffffffffffff
+# define PTR_LT(x, y) (((int)(x)&PTR_MASK) < ((int)(y)&PTR_MASK))
+# else
+# define PTR_LT(x, y) ((x) < (y))
+# endif
+#endif
+
+#ifdef STDC_HEADERS
+# include <stdlib.h>
+# ifdef AMIGA
+# include <stddef.h>
+# endif
+# define sizet size_t
+#else
+# ifdef _SIZE_T
+# define sizet size_t
+# else
+# define sizet unsigned int
+# endif
+#endif
+
+/* 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>
+
+/* SYSCALL retries system calls that have been interrupted (EINTR) */
+#ifdef vms
+# ifndef __GNUC__
+# include <ssdef.h>
+# define SYSCALL(line) do{errno = 0;line} \
+ while(EVMSERR==errno && (vaxc$errno>>3)==(SS$_CONTROLC>>3))
+# endif
+#endif
+
+#ifndef SYSCALL
+# ifdef EINTR
+# if (EINTR > 0)
+# define SYSCALL(line) do{errno = 0;line}while(EINTR==errno)
+# endif
+# endif
+#endif
+
+#ifndef SYSCALL
+# define SYSCALL(line) {line}
+#endif
+
+#ifndef MSDOS
+# ifdef ARM_ULIB
+ extern volatile int errno;
+# else
+ extern int errno;
+# endif
+#endif
+#ifdef __TURBOC__
+# if (__TURBOC__==1)
+ /* Needed for TURBOC V1.0 */
+ extern int errno;
+# endif
+#endif
+
+/* EXIT_SUCCESS is the default code to return from SCM if no errors
+ were encountered. EXIT_FAILURE is the default code to return from
+ SCM if errors were encountered. The return code can be explicitly
+ specified in a SCM program with (quit <n>). */
+
+#ifndef EXIT_SUCCESS
+# ifdef vms
+# define EXIT_SUCCESS 1
+# else
+# define EXIT_SUCCESS 0
+# endif
+#endif
+#ifndef EXIT_FAILURE
+# ifdef vms
+# define EXIT_FAILURE 2
+# else
+# define EXIT_FAILURE 1
+# endif
+#endif
+
+/* Yasuaki Honda */
+/* Think C lacks isascii macro */
+#ifdef THINK_C
+# define isascii(c) ((unsigned)(c) <= 0x7f)
+#endif
+#ifdef _DCC
+# define isascii(c) ((unsigned)(c) <= 0x7f)
+#endif
+
+/* end of automatic C pre-processor definitions */