diff options
Diffstat (limited to 'SCM/scmfig.h')
| -rw-r--r-- | SCM/scmfig.h | 870 |
1 files changed, 0 insertions, 870 deletions
diff --git a/SCM/scmfig.h b/SCM/scmfig.h deleted file mode 100644 index a8e8667..0000000 --- a/SCM/scmfig.h +++ /dev/null @@ -1,870 +0,0 @@ -/* "scmfig.h" system-dependent configuration. - * Copyright (C) 1990-2006 Free Software Foundation, Inc. - * - * This program is free software: you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License as - * published by the Free Software Foundation, either version 3 of the - * License, 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 - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this program. If not, see - * <http://www.gnu.org/licenses/>. - */ - -/* Author: Aubrey Jaffer */ - -#ifdef sequent -# include <strings.h> -# define strchr index -# define strrchr rindex -#else -# ifndef PLAN9 -# include <string.h> -# endif -#endif - -/* MS Windows signal handling hack added by Rainer Urian */ -/* - SCM crashes on WindowsNT after hitting control-c. - - This is because signal handling in windows console applications is - rather different from unix apps. If control-c is hit on a console - application Windows creates a new thread which executes the - control-c signal handler. Now, if the SCM handler does the longjmp - back to the repl loop it does it via the stack of the signal - handler thread which results always ever is an access violation. - - The solution to this problem is to let the signal handler thread - raise a software interrupt in the main thread. - - This is done with the following steps: - - 1. contol-c is hit - - 2. Windows creates the signal handler thread which in turn executes - the routine win32_sigint as its signal handler. - - 3. The handler suspends the main thread and gets the main threads - register context. - - 4. The handler simulates an interrupt call on the main thread by - pointing Eip to the sigintstub stub function and also simulates a - pushad , pushf of the main threads registers - - 5. The handler resumes the main thread which when scheduled will - execute sigintstub, which in turn calls the proper signal interupt - (scamble_signal) -*/ -#ifdef _WIN32 -/* POCKETCONSOLE has the signal handler implemented in the runtime */ -# ifndef POCKETCONSOLE -# define WINSIGNALS -# endif -#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 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 BIGNUMS */ - -/* #define ARRAYS */ - -/* #define FLOATS */ - -/* Define SINGLES if you want single precision floats and - (sizeof(float)==sizeof(long)) */ - -#ifdef FLOATS -# ifndef _MSC_VER -# define SINGLES -# endif -#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 means to convert references to local variables to ILOCs, - (relative lexical addresses into the environment). This memoization - makes evaluated Scheme code harder to read, so you may want to undefine - this flag for debugging -- but SCM will run 3 to 6 times slower */ -#ifndef DONT_MEMOIZE_LOCALS -# define MEMOIZE_LOCALS -#endif - -/* #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 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) or - modify "scmmain.c". 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 */ - -/* Define MACRO if you want C level support for hygienic and referentially - transparent macros. */ - -/* #define MACRO */ - -/* 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__ -# ifndef macintosh -# define macintosh -# endif -#endif - -/* added by Bob Schumaker, cobblers@netcom.com */ -#ifdef __MWERKS__ -# ifndef macintosh -# define macintosh -# endif -# define bzero(p, n) memset(p, 0, n) -# define bcopy memcpy -#endif -/* added by Denys Duchier */ -#ifndef SVR4 -# ifdef __SVR4 -# define SVR4 -# endif -#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 __alpha -# define SHORT_INT -#endif -#ifdef __ia64__ -# define SHORT_INT -# define CDR_DOUBLES -#endif -#ifdef __x86_64 -# define SHORT_INT -# define CDR_DOUBLES -#endif -#ifdef MSDOS /* Microsoft C 5.10 and 6.00A */ -# ifndef GO32 -# define SHORT_INT -# define SHORT_SIZET -# endif -#endif -#ifdef _QC -# define SHORT_INT -# define SHORT_SIZET -#endif -#ifdef __TURBOC__ -# define SHORT_INT -# define SHORT_SIZET -# define LACK_SBRK -# ifndef __TOS__ -# define MSDOS -# endif -#endif -#ifdef __HIGHC__ -# define LACK_SBRK -#endif -#ifdef _WIN32 -# define MSDOS -# define LACK_SBRK -# define LACK_TIMES -#endif -#ifdef _MSDOS -# define MSDOS -#endif -#ifdef MSDOS -# define STDC_HEADERS -#endif - -#ifdef POCKETCONSOLE -# define NOSETBUF -# define LACK_FTIME -#endif - -#ifdef vms -# define STDC_HEADERS -#endif - -#ifdef nosve -# define STDC_HEADERS -#endif - -#ifdef linux -# define HAVE_SELECT -# define HAVE_SYS_TIME_H -# define 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_SYS_TIME_H -# define __SVR4 -#endif - -#ifdef __SVR4 -# define HAVE_SELECT -#endif - -#ifdef PLAN9 -# define STDC_HEADERS -#endif - -#ifdef hpux -# define LACK_E_IDs -#endif - -/* C-Set++ for OS/2 */ -#ifdef __IBMC__ -# define STDC_HEADERS -# define LACK_TIMES -# define LACK_SBRK -#endif - -#ifdef __CYGWIN__ -/* # define LACK_FTIME */ -# define HAVE_SELECT -# define HAVE_SYS_TIME_H -# undef MSDOS -#endif - -#ifdef __amigaos__ -# define HAVE_SELECT -# define HAVE_SYS_TIME_H -# define LACK_SBRK -#endif - -/* 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 - -#ifdef __ia64__ -# define PTR2INT(x) ((long)(x)) -#else -# ifdef __x86_64 -# define PTR2INT(x) ((long)(x)) -# else -# define PTR2INT(x) ((int)(x)) -# endif -#endif - -/* 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)) -/* NUMDIGS_MAX is the maximum number of digits for BIGNUMS */ -# ifndef NUMDIGS_MAX -# define NUMDIGS_MAX 1000 -# endif -#endif - -#ifndef BIGDIG -# ifndef FLOATS -# define INUMS_ONLY -# endif -#endif - -#ifndef __builtin_expect -# ifndef __GNUC__ -# define __builtin_expect(expr, expected) (expr) -# else -# if (__GNUC__ < 3) -# define __builtin_expect(expr, expected) (expr) -# endif -# endif -#endif - -#define SCM_EXPECT_TRUE(expr) (__builtin_expect(expr, !0)) -#define SCM_EXPECT_FALSE(expr) (__builtin_expect(expr, 0)) - -#ifdef __GNUC__ -# define FENCE asm volatile ("") -#else -# define FENCE /**/ -#endif - -#ifdef NON_PREEMPTIVE -# define VERIFY_INTS(s1, s2) /**/ -# 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 -# define DEFER_INTS_EGC /**/ -# define ALLOW_INTS_EGC /**/ -#else -# ifdef CAREFUL_INTS -typedef struct {char *fname; int linum;} ints_infot; -extern ints_infot *ints_info; -# define VERIFY_INTS(s1, s2) {if (!ints_disabled)\ - ints_warn(s1, s2, __FILE__, __LINE__); } -# define DEFER_INTS \ - {static ints_infot info = {__FILE__, __LINE__};\ - FENCE;if (1==ints_disabled) ints_viol(&info, 1);\ - else {ints_info = &info; ints_disabled = 1;FENCE;}} -# define ALLOW_INTS \ - {static ints_infot info = {__FILE__, __LINE__};\ - FENCE;if (1!=ints_disabled) ints_viol(&info, 0);\ - else {ints_info = &info; ints_disabled = 0;FENCE;CHECK_INTS}} -# define DEFER_INTS_EGC \ - {static ints_infot info = {__FILE__, __LINE__};\ - FENCE;if (1==ints_disabled) ints_viol(&info, 1);\ - else {ints_info = &info; ints_disabled = 2;FENCE;}} -# define ALLOW_INTS_EGC \ - {static ints_infot info = {__FILE__, __LINE__};\ - FENCE;if (1==ints_disabled) ints_viol(&info, 0);\ - else {ints_info = &info; ints_disabled = 0;FENCE;CHECK_INTS}} -# else -# define VERIFY_INTS(s1, s2) /**/ -# define DEFER_INTS {FENCE;ints_disabled = 1;FENCE;} -# define ALLOW_INTS {FENCE;ints_disabled = 0;FENCE;CHECK_INTS} -# define DEFER_INTS_EGC {FENCE;ints_disabled = 2;FENCE;} -# define ALLOW_INTS_EGC {FENCE;ints_disabled = 0;FENCE;CHECK_INTS} -# endif -# ifdef TICKS -# define CHECK_INTS {if (deferred_proc) (*deferred_proc)(); POLL;} -# define POLL {if (0==tick_count--) tick_signal();} -# else -# define CHECK_INTS {if (deferred_proc) (*deferred_proc)();} -# define POLL /**/ -# endif -#endif - -#ifndef STACK_LIMIT -# define STACK_LIMIT (HEAP_SEG_SIZE) -#endif - -#define CHECK_STACK {if (2 < scm_verbose) stack_check();} - -/* 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 -# ifdef TEST_SCM2PTR -# define SCM2PTR(x) ((x) ^ 0xf0L) -# define PTR2SCM(x) (((SCM)(x)) ^ 0xf0L) -# define POINTERS_MUNGED -# else -# define SCM2PTR(x) (x) -# define PTR2SCM(x) ((SCM)(x)) -# endif -#endif - -/* FIXABLE is non-null if its long argument can be encoded in an INUM. */ - -#define POSFIXABLE(n) SCM_EXPECT_TRUE((n) <= MOST_POSITIVE_FIXNUM) -#define NEGFIXABLE(n) SCM_EXPECT_TRUE((n) >= MOST_NEGATIVE_FIXNUM) -#define UNEGFIXABLE(n) SCM_EXPECT_TRUE((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 exponent */ -/* FLTMAX is less than or equal the largest single precision float */ - -#ifdef FLOATS -# ifdef STDC_HEADERS -# ifndef macintosh -# ifndef PLAN9 -# include <float.h> -# endif -# endif -# endif -# ifdef DBL_MAX_10_EXP -# define MAXEXP DBL_MAX_10_EXP -# else -# define MAXEXP 308 /* IEEE doubles */ -# endif -# ifndef DBL_DIG -# define DBL_DIG 15 -# endif -# ifndef DBL_MAX_EXP -# define DBL_MAX_EXP 1024 -# endif -# ifdef FLT_MAX -# define FLTMAX FLT_MAX -# else -# define FLTMAX 1e+23 -# endif -#endif - -#ifdef FLOATS -# ifndef __MINGW32__ -/* Also asinh and acosh */ -# define HAVE_ATANH -# endif -#endif - -#ifdef unix -# define HAVE_UNIX -#endif -#ifdef __unix__ -# define HAVE_UNIX -#endif -#ifdef _IBMR2 -# define HAVE_UNIX -# define STDC_HEADERS -#endif - -/* Only some machines have pipes */ -#ifdef HAVE_UNIX - /* DJGPP (gcc for i386) defines unix! */ -# define HAVE_PIPE -#endif - -#ifndef macintosh -# ifndef _M_ARM -# ifndef _M_ARMT -# ifdef __WINDOWS__ /* there should be a better flag for this. */ -# define PROT386 -# endif -# endif -# 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 - -#define PTR_GT(x, y) PTR_LT(y, x) -#define PTR_LE(x, y) (!PTR_GT(x, y)) -#define PTR_GE(x, y) (!PTR_LT(x, y)) - -#ifdef STDC_HEADERS -# ifdef PLAN9 -# define sizet long -# else -# include <stdlib.h> -# ifdef AMIGA -# include <stddef.h> -# endif -# define sizet size_t -# endif -#else -# ifdef _SIZE_T -# define sizet size_t -# else -# define sizet unsigned int -# endif -#endif - -#ifdef macintosh -# include <unistd.h> -#endif - -#ifdef __FreeBSD__ -# include <unistd.h> -#endif - -#ifdef linux -# include <unistd.h> -#endif - -/* On VMS, GNU C's errno.h contains a special hack to get link attributes - for errno correct for linking with libc. */ - -#ifndef PLAN9 -# include <errno.h> -#endif - -/* SYSCALL retries system calls that have been interrupted (EINTR) */ -#ifdef vms -# ifndef __GNUC__ -# include <ssdef.h> -# define SCM_INTERRUPTED(errno) (EVMSERR==errno && \ - (vaxc$errno>>3)==(SS$_CONTROLC>>3)) -# endif -#endif - -#ifndef SCM_INTERRUPTED -# ifdef EINTR -# if (EINTR > 0) -# define SCM_INTERRUPTED(errno) (EINTR==errno) -# endif -# endif -#endif - -#ifndef SCM_INTERRUPTED -# define SCM_INTERRUPTED(errno) (0) -#endif - -#ifdef _WIN32 -// Windows doesn't set errno = EINTR -# define SYSCALL(line) do{line;while(GetLastError() == ERROR_OPERATION_ABORTED){SetLastError(0);Sleep(10);line};}while(0) -#else -# define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno)) -#endif - -#ifdef EMFILE -# ifdef ENFILE -# define SCM_NEED_FDS(errno) (EMFILE==errno || ENFILE==errno) -# else -# define SCM_NEED_FDS(errno) (EMFILE==errno) -# endif -#else -# define SCM_NEED_FDS(errno) (0) -#endif - -#define SCM_OPENCALL(line) {int gcs = 0;\ - while (!0) {errno = 0; if (line) break;\ - if (0==gcs++ && SCM_NEED_FDS(errno)) \ - gc_for_open_files();\ - else if (!SCM_INTERRUPTED(errno)) break;}} - -#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, Bob Schumaker */ -/* Think C and Metrowerks lack isascii macro */ -#ifdef macintosh -# define isascii(c) ((unsigned)(c) <= 0x7f) -#endif -#ifdef _DCC -# define isascii(c) ((unsigned)(c) <= 0x7f) -#endif - -#ifdef __STDC__ -# define VOLATILE volatile -#else -# define VOLATILE /**/ -#endif - -#ifdef _MSC_VER - // Disable annoying warnings for: -# pragma warning (disable: 4102) // unreferenced label -# pragma warning (disable: 4018) // signed/unsigned mismatch -# pragma warning (disable: 4101) // unreferenced variables -# pragma warning (disable: 4244) // conversion from unsigned long to unsigned short -#endif - -/* end of automatic C pre-processor definitions */ |