/* Configuration for compiling MzScheme If you want to set all the flags externally (on the command line with -D or some other compiler-dependent way), then define FLAGS_ALREADY_SET, and this file will be ignored. One flag cannot be set in this file: INCLUDE_WITHOUT_PATHS. Define this flag if your compiler doesn't like #include statements with relative paths using ".." and "/". (You will have to #define this for Macintosh CodeWarrior in the project header.) The best flag settings are already provided for some auto-detected architecture/system/compilers. Otherwise, the default settings are generic Unix. Send other architecture/system/compiler-specific info to "plt-bugs@cs.rice.edu". */ #ifndef FLAGS_ALREADY_SET /*************** (BEGIN PLATFORM-INDEPENDENT OPTIONS) *************/ /***********************/ /* Language Extensions */ /***********************/ /* NO_FILE_SYSTEM_UTILS removes most file system utilities. */ /* NO_OBJECT_SYSTEM removes MzScheme's object system. */ /* NO_REGEXP_UTILS removes MzScheme's regular expression utilities. */ /* NO_SCHEME_THREADS removes MzScheme's threads from the Scheme user. */ /* NO_SCHEME_EXNS removes MzScheme's exception system. */ /*******************************/ /* Evaluator Tuning Parameters */ /*******************************/ #define SCHEME_STACK_SIZE 5000 /* SCHEME_STACK_SIZE sets the limit for the internal stack for Scheme variables. */ /**************** (END PLATFORM-INDEPENDENT OPTIONS) **************/ /******** (BEGIN KNOWN ARCHITECTURE/SYSTEM CONFIGURATIONS) ********/ /************** SunOS/Solaris with gcc ****************/ #if defined(sun) # include "uconfig.h" # define STACK_GROWS_DOWN # define USE_EXPLICT_FP_FORM_CHECK # define POW_HANDLES_INF_CORRECTLY # include # ifdef ECHRNG /* Solaris */ # define SCHEME_PLATFORM_LIBRARY_SUBPATH "sparc-solaris" # define DIRENT_NO_NAMLEN # define RAND_NOT_RANDOM # define NO_USLEEP # define USE_ULIMIT # define USE_FCNTL_O_NONBLOCK # ifdef SOLARIS_THREADS # define MZ_REAL_THREADS # define MZ_USE_SOLARIS_THREADS #ifdef __cplusplus extern "C" { #endif void *scheme_solaris_init_threads(void); void scheme_solaris_create_thread(void (*f)(void *), void *data, unsigned long *stackend, void **thp); void scheme_solaris_exit_thread(); void scheme_solaris_break_thread(void *th); struct Scheme_Process *scheme_solaris_get_current_process(); void scheme_solaris_set_current_process(struct Scheme_Process *); void *scheme_solaris_make_mutex(); void scheme_solaris_free_mutex(void *); void scheme_solaris_lock_mutex(void *); void scheme_solaris_unlock_mutex(void *); void *scheme_solaris_make_semaphore(int init); void scheme_solaris_free_semaphore(void *); int scheme_solaris_semaphore_up(void *); int scheme_solaris_semaphore_down_breakable(void *); int scheme_solaris_semaphore_try_down(void *); #ifdef __cplusplus } #endif #define SCHEME_INIT_THREADS() scheme_solaris_init_threads() #define SCHEME_CREATE_THREAD(f, data, slimit, thp) scheme_solaris_create_thread(f, data, slimit, thp) #define SCHEME_EXIT_THREAD() scheme_solaris_exit_thread() #define SCHEME_BREAK_THREAD(th) scheme_solaris_break_thread(th) #define SCHEME_GET_CURRENT_PROCESS() scheme_solaris_get_current_process() #define SCHEME_SET_CURRENT_PROCESS(p) scheme_solaris_set_current_process(p) #define SCHEME_MAKE_MUTEX() scheme_solaris_make_mutex() #define SCHEME_FREE_MUTEX(m) scheme_solaris_free_mutex(m) #define SCHEME_LOCK_MUTEX(m) scheme_solaris_make_mutex(m) #define SCHEME_UNLOCK_MUTEX(m) scheme_solaris_make_mutex(m) #define SCHEME_MAKE_SEMA(init) scheme_solaris_make_semaphore(init) #define SCHEME_FREE_SEMA(s) scheme_solaris_free_semaphore(s) #define SCHEME_SEMA_UP(s) scheme_solaris_semaphore_up(s) #define SCHEME_SEMA_DOWN_BREAKABLE(s) scheme_solaris_semaphore_down_breakable(s) #define SCHEME_SEMA_TRY_DOWN(s) scheme_solaris_semaphore_try_down(s) # endif # else /* SunOS4 */ # define SCHEME_PLATFORM_LIBRARY_SUBPATH "sparc-sunos4" # define SIGSET_IS_SIGNAL # endif # define FLAGS_ALREADY_SET #endif /************** RS6000/AIX with gcc or xlc ****************/ # if defined(_IBMR2) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "rs6k-aix" # include "uconfig.h" # undef UNIX_DYNAMIC_LOAD # undef USE_FCHDIR # define STACK_GROWS_DOWN # define UNIX_LIMIT_STACK 33554944 # define AIX_DYNAMIC_LOAD # define SELECT_INCLUDE # define POW_HANDLES_INF_CORRECTLY # define FLAGS_ALREADY_SET #endif /************** x86/Linux with gcc ****************/ #if defined(linux) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "i386-linux" # include "uconfig.h" # undef HAS_STANDARD_IOB #ifndef __ELF__ # undef UNIX_DYNAMIC_LOAD #endif # define DIRENT_NO_NAMLEN # define HAS_LINUX_IOB # define STACK_GROWS_DOWN # define USE_IEEE_FP_PREDS # define LINUX_CONTROL_387 # define USE_EXPLICT_FP_FORM_CHECK # define SIGSET_IS_SIGNAL # define SIGSET_NEEDS_REINSTALL # define FLAGS_ALREADY_SET #endif /************** x86/FreeBSD with gcc ****************/ # if defined(__FreeBSD__) && defined(i386) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "i386-freebsd" # include "uconfig.h" # undef HAS_STANDARD_IOB # define HAS_BSD_IOB # define STACK_GROWS_DOWN # define UNDERSCORE_DYNLOAD_SYMBOL_PREFIX # define USE_IEEE_FP_PREDS # define FREEBSD_CONTROL_387 # define POW_HANDLES_INF_CORRECTLY # define UNIX_LIMIT_FDSET_SIZE # define SIGSET_IS_SIGNAL # define FLAGS_ALREADY_SET #endif /************** SGI/IRIX with SGI cc ****************/ #if (defined(mips) || defined(__mips)) \ && !(defined(ultrix) || defined(__ultrix)) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "mips-irix" # include "uconfig.h" # define STACK_GROWS_DOWN # define DIRENT_NO_NAMLEN # define BSTRING_INCLUDE # define RAND_NOT_RANDOM # define POW_HANDLES_INF_CORRECTLY # define NO_USLEEP # define USE_FCNTL_O_NONBLOCK # ifdef MZ_X_THREADS # ifndef MZ_FAKE_THREADS # define MZ_FAKE_THREADS # endif # endif # ifndef MZ_FAKE_THREADS # ifdef IRIX_SPROCS # define MZ_REAL_THREADS # define MZ_USE_IRIX_SPROCS #ifdef __cplusplus extern "C" { #endif void *scheme_sproc_init_threads(void); void scheme_sproc_create_thread(void (*f)(void *), void *data, unsigned long *stackend, void **thp); void scheme_sproc_exit_thread(); void scheme_sproc_break_thread(void *); struct Scheme_Process *scheme_sproc_get_current_process(); void scheme_sproc_set_current_process(struct Scheme_Process *); void *scheme_sproc_make_mutex(); void scheme_sproc_free_mutex(void *); void scheme_sproc_lock_mutex(void *); void scheme_sproc_unlock_mutex(void *); void *scheme_sproc_make_semaphore(int init); void scheme_sproc_free_semaphore(void *); int scheme_sproc_semaphore_up(void *); int scheme_sproc_semaphore_down_breakable(void *); int scheme_sproc_semaphore_try_down(void *); #ifdef __cplusplus } #endif #define SCHEME_INIT_THREADS() scheme_sproc_init_threads() #define SCHEME_CREATE_THREAD(f, data, slimit, thp) scheme_sproc_create_thread(f, data, slimit, thp) #define SCHEME_EXIT_THREAD() scheme_sproc_exit_thread() #define SCHEME_BREAK_THREAD(th) scheme_sproc_break_thread(th) #define SCHEME_GET_CURRENT_PROCESS() scheme_sproc_get_current_process() #define SCHEME_SET_CURRENT_PROCESS(p) scheme_sproc_set_current_process(p) #define SCHEME_MAKE_MUTEX() scheme_sproc_make_mutex() #define SCHEME_FREE_MUTEX(m) scheme_sproc_free_mutex(m) #define SCHEME_LOCK_MUTEX(m) scheme_sproc_make_mutex(m) #define SCHEME_UNLOCK_MUTEX(m) scheme_sproc_make_mutex(m) #define SCHEME_MAKE_SEMA(init) scheme_sproc_make_semaphore(init) #define SCHEME_FREE_SEMA(s) scheme_sproc_free_semaphore(s) #define SCHEME_SEMA_UP(s) scheme_sproc_semaphore_up(s) #define SCHEME_SEMA_DOWN_BREAKABLE(s) scheme_sproc_semaphore_down_breakable(s) #define SCHEME_SEMA_TRY_DOWN(s) scheme_sproc_semaphore_try_down(s) # endif /* IRIX_SPROCS */ # endif /* !MZ_FAKE_THREADS */ # define FLAGS_ALREADY_SET #endif /************** Ultrix with gcc ****************/ #if defined(ultrix) || defined(__ultrix) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "mips-ultrix" # include "uconfig.h" # undef UNIX_DYNAMIC_LOAD # undef USE_FCHDIR # define DIRENT_NO_NAMLEN # define STACK_GROWS_DOWN # define RAND_NOT_RANDOM # define NO_USLEEP # define USE_FCNTL_O_NONBLOCK # define FLAGS_ALREADY_SET #endif /************** ALPHA/OSF1 with gcc ****************/ # if defined(__alpha) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "alpha-osf1" # include "uconfig.h" # define STACK_GROWS_DOWN # define RAND_NOT_RANDOM # define SIXTY_FOUR_BIT_INTEGERS # define ALPHA_CONTROL_FP # define FLAGS_ALREADY_SET #endif /************** HP/UX with gcc ****************/ # if defined(_PA_RISC1_0) || defined(_PA_RISC1_1) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "parisc-hpux" # include "uconfig.h" # undef UNIX_DYNAMIC_LOAD # define SHL_DYNAMIC_LOAD # define STACK_GROWS_UP # define USE_SYSCALL_GETRUSAGE # define USE_DIVIDE_MAKE_INFINITY # define USE_IEEE_FP_PREDS # define USE_EXPLICT_FP_FORM_CHECK # define USE_ULIMIT # define FLAGS_ALREADY_SET #endif /********* with Borland C++ or MS Visual C++ ************/ /* See the "windows" directory for more MSVC details. */ /* MzScheme is probably no longer Borland-friendly, */ /* since it currently relies on one MSVC-style inline */ /* assembly file. Nevertheless, the old flags and */ /* instructions have been preserved. */ /* */ /* Old Borland instructions: */ /* To compile a standalone MzScheme, first #define */ /* MZWINCONSOLE. */ /* To compile for Windows95, first #define MZWIN95. */ /* Windows95 version also works under Windows NT, but */ /* not under Win32s. A Win32s version will also work */ /* under Windows NT. */ #if (defined(__BORLANDC__) || defined(_MSC_VER)) \ && (defined(__WIN32__) || defined(WIN32) || defined(_WIN32)) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "win32\\i386" # define SYSTEM_TYPE_NAME "windows" # define DOS_FILE_SYSTEM # if defined(_MSC_VER) # define USE_GETDRIVE # define NO_READDIR # define USE_FINDFIRST # else # define USE_GETDISK # define DIRENT_NO_NAMLEN # endif # define NO_READLINK # define MKDIR_NO_MODE_FLAG # define TIME_SYNTAX # define USE_FTIME # define GETENV_FUNCTION # define DIR_FUNCTION # define STACK_GROWS_DOWN # define DO_STACK_CHECK # if defined(_MSC_VER) # define WINDOWS_FIND_STACK_BOUNDS # else # define USE_STACKAVAIL # endif # if defined(_MSC_VER) # define USE_MZ_SETJMP # endif # define STACK_SAFETY_MARGIN 20000 # define WINDOWS_DYNAMIC_LOAD # define LINK_EXTENSIONS_BY_TABLE # define IGNORE_BY_CONTROL_387 # if defined(_MSC_VER) # define NAN_EQUALS_ANYTHING # endif # define POW_HANDLES_INF_CORRECTLY # define IO_INCLUDE # define RAND_NOT_RANDOM # define NO_SLEEP # define DONT_IGNORE_PIPE_SIGNAL # define PROCESS_FUNCTION # define WINDOWS_PROCESSES # define DETECT_WIN32_CONSOLE_STDIN # define SIGSET_IS_SIGNAL # define SIGSET_NEEDS_REINSTALL # define USE_WINSOCK_TCP # ifdef WIN32_THREADS # define MZ_REAL_THREADS # define MZ_USE_WIN32_THREADS #ifdef __cplusplus extern "C" { #endif void *scheme_win32_init_threads(void); void scheme_win32_create_thread(void (*f)(void *), void *data, unsigned long *stackend, void **thp); void scheme_win32_exit_thread(); void scheme_win32_break_thread(void *th); struct Scheme_Process *scheme_win32_get_current_process(); void scheme_win32_set_current_process(struct Scheme_Process *); void *scheme_win32_make_mutex(); void scheme_win32_free_mutex(void *s); void scheme_win32_lock_mutex(void *); void scheme_win32_unlock_mutex(void *); void *scheme_win32_make_semaphore(int init); void scheme_win32_free_semaphore(void *s); int scheme_win32_semaphore_up(void *); int scheme_win32_semaphore_down_breakable(void *); int scheme_win32_semaphore_try_down(void *); #ifdef __cplusplus } #endif #define SCHEME_INIT_THREADS() scheme_win32_init_threads() #define SCHEME_CREATE_THREAD(f, data, slimit, thp) scheme_win32_create_thread(f, data, slimit, thp) #define SCHEME_BREAK_THREAD(th) scheme_win32_break_thread(th) #define SCHEME_EXIT_THREAD() scheme_win32_exit_thread() #define SCHEME_GET_CURRENT_PROCESS() scheme_win32_get_current_process() #define SCHEME_SET_CURRENT_PROCESS(p) scheme_win32_set_current_process(p) #define SCHEME_MAKE_MUTEX() scheme_win32_make_mutex() #define SCHEME_FREE_MUTEX(m) scheme_win32_free_mutex(m) #define SCHEME_LOCK_MUTEX(m) scheme_win32_make_mutex(m) #define SCHEME_UNLOCK_MUTEX(m) scheme_win32_make_mutex(m) #define SCHEME_MAKE_SEMA(init) scheme_win32_make_semaphore(init) #define SCHEME_FREE_SEMA(s) scheme_win32_free_semaphore(s) #define SCHEME_SEMA_UP(s) scheme_win32_semaphore_up(s) #define SCHEME_SEMA_DOWN_BREAKABLE(s) scheme_win32_semaphore_down_breakable(s) #define SCHEME_SEMA_TRY_DOWN(s) scheme_win32_semaphore_try_down(s) # endif /* MS Visual C++ likes underscore prefixes */ #if defined(_MSC_VER) # define MSC_IZE(x) _ ## x # define DIRECT_INCLUDE #endif #if defined(__BORLANDC__) # define DIR_INCLUDE #endif # define FLAGS_ALREADY_SET #endif /************ Macintosh with CodeWarrior *************/ #if defined(__MWERKS__) # if defined(__powerc) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "ppc-mac" # else # define SCHEME_PLATFORM_LIBRARY_SUBPATH "68k-mac" # endif # define SYSTEM_TYPE_NAME "macos" # define MAC_FILE_SYSTEM #define NO_READDIR #define NO_READLINK #define USE_MAC_FILE_TOOLBOX # define MACINTOSH_EVENTS # define MACINTOSH_GIVE_TIME # define MACINTOSH_SIOUX # if !defined(__powerc) # define MACINTOSH_SET_STACK # else # define CODEFRAGMENT_DYNAMIC_LOAD # endif # ifndef MZSCHEME_IS_CODEFRAGMENT # define LINK_EXTENSIONS_BY_TABLE # endif # define STACK_GROWS_DOWN # define DO_STACK_CHECK # define MACOS_STACK_LIMIT # define STACK_SAFETY_MARGIN 10000 # define TIME_SYNTAX # define USE_DIFFTIME # define DIR_FUNCTION # define TIME_TYPE_IS_UNSIGNED # define RAND_NOT_RANDOM # define NO_SYS_INCLUDE_SUBDIR # define NO_USLEEP # define UNISTD_INCLUDE # define DONT_IGNORE_PIPE_SIGNAL # define POW_HANDLES_INF_CORRECTLY # define USE_MAC_TCP # define SIGSET_IS_SIGNAL # define FLAGS_ALREADY_SET #endif /************** DOS with Borland C++ ****************/ /* (Never successfully supported) */ #if defined(__BORLANDC__) && defined(__MSDOS__) # define SCHEME_PLATFORM_LIBRARY_SUBPATH "dos\\i386" # define USE_SENORA_GC # define DOS_FAR_POINTERS # define SMALL_HASH_TABLES # define SYSTEM_TYPE_NAME "dos" # define DOS_FILE_SYSTEM # define USE_GETDISK # define DIRENT_NO_NAMLEN # define NO_READLINK # define MKDIR_NO_MODE_FLAG # define TIME_SYNTAX # define USE_FTIME # define GETENV_FUNCTION # define DIR_FUNCTION # define STACK_GROWS_DOWN # define DO_STACK_CHECK # define USE_STACKAVAIL # define STACK_SAFETY_MARGIN 15000 # define IGNORE_BY_CONTROL_387 # define DIR_INCLUDE # define IO_INCLUDE # define RAND_NOT_RANDOM # define NO_SLEEP # define DONT_IGNORE_PIPE_SIGNAL # define FLAGS_ALREADY_SET #endif /************** (END KNOWN ARCHITECTURE/SYSTEMS) ****************/ /***** (BEGIN CONFIGURATION FLAG DESCRPTIONS AND DEFAULTS) ******/ #ifndef FLAGS_ALREADY_SET /*********************/ /* Operating System */ /*********************/ #define SYSTEM_TYPE_NAME "unix" /* SYSTEM_TYPE_NAME must be a string; this will be converted into a symbol for the result of (system-type) */ /* SCHEME_PLATFORM_LIBRARY_SUBPATH must be a string; if it is undefined, it is automatically generated into a file named "schsys.h" into the same directory as .o files and #included by string.c. This string is returned by (system-library-subpath) */ /*********************/ /* Language Features */ /*********************/ #define TIME_SYNTAX #define PROCESS_FUNCTION #define DIR_FUNCTION #define GETENV_FUNCTION /* TIME_SYNTAX adds the (time ...) syntax; this may need to be turned off for compilation on some systems. CLOCKS_PER_SEC relates the values returned by clock() to real seconds. (The difference between two clock() calls is devided by this number.) Usually, this is defined in ; it defaults to 1000000 */ /* USE_FTIME uses ftime instead of gettimeofday; only for TIME_SYNTAX */ /* USE_DIFFTIME uses time and difftime; only for TIME_SYNTAX */ /* TIME_TYPE_IS_UNSIGNED converts time_t values as unsigned. */ /* PROCESS_FUNCTION adds (process ...) and (system ...) functions */ /* DIR_FUNCTION adds (current-directory ...) function */ /* GETENV_FUNCTION adds (getenv ...) function */ /*******************/ /* Filesystem */ /*******************/ #define UNIX_FILE_SYSTEM #define EXPAND_FILENAME_TILDE /* UNIX_FILE_SYSTEM indicates that filenames are as in Unix, with forward slash separators, ".." as the parent directory, "/" as the root directory, and case-sensitivity */ /* DOS_FILE_SYSTEM indicates that filenames are as in DOS, with slash or backward slash separators, ".." as the parent directory, "X:\", "X:/", "\", or "/" as a root directory (for some letter X), and case insensitivity */ /* MAC_FILE_SYSTEM indicates that filenames are as on the Macintosh, with colon separators, "" as the parent directory, a volume name (followed by a colon) as a root directory, and case insensitivity. */ /* EXPAND_FILENAME_TILDE expands ~ in a filename with a user's home directory. */ /* NO_STAT_PROC means that there is no stat() function. */ /* NO_MKDIR means that there is no mkdir() function. */ /* NO_READLINK means that there is no readlink() function. */ /* USE_GETDISK uses getdisk() and setdisk() to implement the filesystem-root-list primitive under DOS. */ /* NO_READDIR means that there is no opendir() and readdir() for implementing directory-list. */ /* DIRENT_NO_NAMLEN specifies that dirent entries do not have a d_namlen field; this is used only when NO_READDIR is not specified. */ /* MKDIR_NO_MODE_FLAG specifies that mkdir() takes only one argument, instead of a directory name and mode flags. */ /***********************/ /* Ports */ /***********************/ /* These are flags about the implementation of char-ready? for FILE*s None of these flags are required, but char-ready? may return spurious #ts if they are set up incorrectly. */ #define HAS_STANDARD_IOB #define FILES_HAVE_FDS #define USE_UNIX_SOCKETS_TCP /* HAS_STANDARD_IOB, HAS_GNU_IOB, HAS_LINUX_IOB, and HAS_BSD_IOB are mutually exclusive; they describe how to read the FILE* structure to determine if there are available cached characters. */ /* FILES_HAVE_FDS means that a FILE* is always associated with a file desciptor, which can be select-ed to see if there are pending bytes. Don't use this unless one of the HAS__IOB flags is used. */ /* USE_UNIX_SOCKETS_TCP means that the tcp- procedures can be implemented with the standard Unix socket functions. */ /* USE_WINSOCK_TCP means that the tcp- procedures can be implemented with the Winsock toolbox. */ /* USE_MAC_TCP means that the tcp- procedures can be implemented with the Mac TCP toolbox. */ /* DETECT_WIN32_CONSOLE_STDIN notices character reads from console stdin so that char-ready? and blocking reads can be implemented correctly (so that Scheme thredas are not blocked when no input is ready). */ /* USE_FCNTL_O_NONBLOCK uses O_NONBLOCK instead of FNDELAY for fcntl on Unix TCP sockets. (Posix systems need this flag). */ /* USE_ULIMIT uses ulimit instead of getdtablesize (Unix). */ /* USE_DYNAMIC_FDSET_SIZE allocates fd_set records based on the current fd limit instead of relying on the compile-time size of fd_set. [This is not known to be actually helpful anywhere currently, particularly not for FreeBSD.] */ /* UNIX_LIMIT_FDSET_SIZE insures that the fd limit at start-up is no greater than FD_SETSIZE */ /***********************/ /* Processes & Signals */ /***********************/ /* These are flags about the implementation of system, process, etc. */ # define UNIX_PROCESSES # define SIGSET_IS_SIGNAL # define SIGSET_NEEDS_REINSTALL /* UNIX_PROCESSES implements the process functions for Unix; uses sigset() to install the signal handler. */ /* WINDOWS_PROCESSES implements the process functions for Windows. */ /* SIGSET_IS_SIGNAL uses signal() in place of sigset() for Unix. This flag is often paired with SIGSET_NEEDS_REINSTALL for traditional Unix systems. */ /* SIGSET_NEEDS_REINSTALL reinstalls a signal handler when it is called to handle a signal. The expected semantics of sigset() (when this flags is not defined) is that a signal handler is NOT reset to SIG_DFL after a handler is called to handle a signal. */ /* DONT_IGNORE_FPE_SIGNAL stops MzScheme from ignoring floating-point exception signals. */ /* DONT_IGNORE_PIPE_SIGNAL stops MzScheme from ignoring SIGPIPE signals. */ /**********************/ /* Inexact Arithmetic */ /**********************/ /* USE_SINGLE_FLOATS turns on support for single-precision floating point numbers. Otherwise, floating point numbers are always represented in double-precision. */ /* USE_SINGLE_FLOATS_AS_DEFAULT, when used with USE_SINGLE_FLOATS, causes exact->inexact coercions to use single-precision numbers as the result rather than double-precision numbers. */ /* INEXACT_PRINT_DIGITS "" uses as the number of digits to use for printing floating-points. Defaults to "14". */ /* USE_INFINITY uses infinity() to get the infinity floating-point constant instead of using HUGE_VAL. */ /* USE_DIVIDE_MAKE_INFINITY creates +inf.0 by dvividing by zero instead of using HUGE_VAL. */ /* USE_IEEE_FP_PREDS uses isinf() and isnan() to implement tests for infinity. */ /* IGNORE_BY_CONTROL_387 turns off floating-point error for Intel '387 with _control87. DONT_IGNORE_PIPE_SIGNAL can be on or off. */ /* FREEBSD_CONTROL_387 controls the floating-point processor under i386 FreeBSD */ /* LINUX_CONTROL_387 controls the floating-point processor under i386 Linux */ /* APLHA_CONTROL_FP controls the floating-point processor for Alpha OSF1 */ /* NAN_EQUALS_ANYTHING indicates that the compiler is broken and equality comparisons with +nan.0 always return #t. Currently used for MSVC++ */ /* USE_EXPLICT_FP_FORM_CHECK circumvents bugs in strtod() under Linux, SunOS/Solaris, and HP/UX by explicit pre-checking the form of the number and looking for values that are obviously +inf.0 or -inf.0 */ /* POW_HANDLES_INF_CORRECTLY inidicates that thw pow() library procedure handles +/-inf.0 correctly. Otherwise, code in inserted to specifically check for infinite arguments. */ /***********************/ /* Stack Maniuplations */ /***********************/ # define DO_STACK_CHECK # define UNIX_FIND_STACK_BOUNDS # define STACK_SAFETY_MARGIN 50000 /* STACK_GROWS_UP means that deeper stack values have higher numbered addresses. STACK_GROWS_DOWN means that deeper stack values have lower numbered addresses. This is usually the case (Sparc and Intel platforms, for example, use this). Use only one or none of these. (It's faster if you know which one applies, but it can also be figured it out dynamically.) */ /* DO_STACK_CHECK checks for stack overflow during execution. Requires either UNIX_FIND_STACK_BOUNDS, USE_STACKAVAIL, MACOS_STACK_LIMIT, or ASSUME_FIXED_STACK_SIZE. */ /* UNIX_FIND_STACK_BOUNDS figures out the maximum stack position on Unix systems, using getrlimit() and the GC_find_stack_base() defined in the conservative garbage collector. USE_STACKAVIL uses stackavail() function for checking stack overflow; works with Borland C++, maybe other compilers. WINDOWS_FIND_STACK_BOUNDS figures out the maximum stack position under Windows (uses GC_find_stack_base()) MACOS_STACK_LIMIT figures out the stack limit on the Mac. ASSUME_FIXED_STACK_SIZE assumes that the main stack size is always FIXED_STACK_SIZE. Use only one of these if DO_STACK_CHECK is used, or none otherwise. */ /* FIXED_STACK_SIZE sets the stack size to when the ASSUME_FIXED_STACK_SIZE stack-checking mode is on. */ /* STACK_SAFETY_MARGIN sets the number of bytes that should be available on the stack for "safety" to . Used only if DO_STACK_CHECK is used. STACK_SAFETY_MARGIN defaults to 50000. */ /* ERROR_ON_OVERFLOW causes MzScheme to produce an error if the stack is overflowed. Normally, it would copy out the current stack and try to continue the computation. Used only if DO_STACK_CHECK is used. */ /* PROCESS_STACK_SIZE sets the size of the allocated stack when SPAWN_NEW_STACK is used. Stack-checking and copying works on these stacks, so that arbitrary computaions can be performed with any size stack. (Well, it can't be *too* small...) */ /* UNIX_LIMIT_STACK limits stack usage to bytes. This may be necessary to avoid GC-setup traversal over too much memory (with GC flag HEURISTIC2?). */ /***********************/ /* Dynamic Loading */ /***********************/ #define UNIX_DYNAMIC_LOAD /* UNIX_DYNAMIC_LOAD implements dynamic extensions under Unix using dlopen(); you may have to add the -ldl flag in the LIBS Makefile variable. The library doesn't exist under Linux without ELF, so it won't work. If you get linker errors about dlopen(), etc., this flag and the -ldl linker flag are the things to adjust. SHL_DYNAMIC_LOAD implement HP/UX dynamic loading. WINDOWS_DYNAMIC_LOAD implements dynamic extensions under Windows (Thanks to Patrick Barta). CODEFRAGMENT_DYNAMIC_LOAD implements dynamic extensions with MacOS's Code Fragment Manager (thanks to William Ng). Use only one or none of these. */ /* UNDERSCORE_DYNLOAD_SYMBOL_PREFIX with UNIX_DYNAMIC_LOAD menas that an extra underscore ("_") must be placed in front of the name passed to dlopen(). */ /* LINK_EXTENSIONS_BY_TABLE specifies that the MzScheme functions used by an extension must be manually linked via a table of function pointers. Windows dynamic linking uses this method. */ /* MZSCHEME_IS_CODEFRAGMENT exploits improved CFM linking when MzScheme is itself a shared library instead of embedded in an application */ /***********************/ /* Heap Images */ /***********************/ /* UNIX_IMAGE_DUMPS turns on image save and restore for Unix systems. This will only work if the final application is statically linked. (As an exception, the dynamic-linking library itself can be dynamically linked. This works because loading an extension in MzScheme automatically turns off image saving.) */ /*****************************/ /* Macintosh Standalone */ /*****************************/ /* MACINTOSH_EVENTS checks for a user break on the Mac. This should always be defined for MacOS. */ /* MACINTOSH_GIVE_TIME lets background processes run when checking for a user break. */ /* MACINTOSH_SIOUX interfaces with Metrowerks's SIOUX library */ /* MACINTOSH_SET_STACK sets the stack to be 1/4 of the heap. This should be used for 68k machines, where the stack is not user-configurable. */ /***********************/ /* Miscellaneous */ /***********************/ #define UNISTD_INCLUDE #define RAND_NOT_RANDOM /* SIXTY_FOUR_BIT_INTEGERS indicates that 'long's are 64-bits wide. */ /* RAND_NOT_RANDOM uses the function rand() instead of random() for random numbers. Some systems don't have random(). */ /* NO_USER_BREAK_HANDLER turns off handling of INT signal in main.c */ /* DIR_INCLUDE if there's a file (mainly for Windows). */ /* DIRECT_INCLUDE if there's a file (mainly for Windows). */ /* IO_INCLUDE if there's a file (mainly for Windows). */ /* UNISTD_INCLUDE if there's a file (mainly for Unix). */ /* SELECT_INCLUDE if there's a file (mainly for Unix) to be used with FILES_HAVE_FDS. */ /* BSTRING_INCLUDE if there's a file (mainly for Unix) to be used with FILES_HAVE_FDS. */ /* NO_SYS_INCLUDE_SUBDIR if include files should all be ; no includes of the form . Mainly used for for MacOS. */ /* USE_FCHDIR uses fchdir() to improve thread context switches when a small number of threads are active. */ /* USE_GETRUSAGE uses getrusage() to for timing info; otherwise clock() is used. */ /* USE_SYSCALL_GETRUSAGE uses syscall() to implement getrusage() for timing info. Used with USE_GETRUSAGE. */ /* NO_SLEEP means that there is no sleep() function. Used only in standalone MzScheme. */ /* NO_USLEEP means that there is no usleep() function. Used only in standalone MzScheme. Used only if NO_SLEEP is undefined. */ /* WIN32S_HACK uses a special hack to implement threads under Win32s with some compilers. Obsolete. */ #endif /* FLAGS_ALREADY_SET */ /****** (END CONFIGURATION FLAG DESCRPTIONS AND DEFAULTS) *******/ #endif /* FLAGS_ALREADY_SET */