diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
| commit | 55893dcd3118428f046d5f539d80e9aa5345b885 (patch) | |
| tree | 05992761c4ad4d3421b7063de3357d1ced007c8a /src/interp/sys-driver.boot | |
| parent | 97f54bf68c5aefffc94a4935e08fd6449ec501c9 (diff) | |
| download | open-axiom-55893dcd3118428f046d5f539d80e9aa5345b885.tar.gz | |
Add support for SBCL and CLisp
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 31 |
1 files changed, 7 insertions, 24 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f1a39c85..3eda1fa6 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -36,7 +36,7 @@ -- both the OpenAxiom compiler and interpreter. -- -import '"boot-pkg" +import '"types" )package "BOOT" ++ true means try starting an open server @@ -57,18 +57,14 @@ $PrintCompilerMessageIfTrue := $verbose ++ $options := [] -$OpenAxiomCoreModuleLoaded := false - +++ Initialization routine run by the core system before handing off +++ to the interpreter or compiler. +++ ??? This part is still in flux. AxiomCore::%sysInit() == SETQ(_*PACKAGE_*, FIND_-PACKAGE '"BOOT") initMemoryConfig() - if not (%hasFeature KEYWORD::GCL or $OpenAxiomCoreModuleLoaded) then - loadNativeModule CONCAT(systemRootDirectory(), - '"lib/libopen-axiom-core.so") - $OpenAxiomCoreModuleLoaded := true + if not (%hasFeature KEYWORD::GCL) then + loadSystemRuntimeCore() )if %hasFeature KEYWORD::GCL SETQ(COMPILER::_*COMPILE_-VERBOSE_*,false) SETQ(COMPILER::_*SUPPRESS_-COMPILER_-WARNINGS_*,true) @@ -76,32 +72,19 @@ AxiomCore::%sysInit() == )endif -+++ Returns the root directory of the running system. -+++ A directory specified on command line takes precedence -+++ over directory specified at configuration time. -systemRootDirectory() == - dir := ASSOC(Option '"system", %systemOptions()) => - ensureTrailingSlash cdr dir - $systemInstallationDirectory - -+++ Returns the system algebra directory, as specified on command -+++ line. nil, otherwise. +++ Returns the system algebra directory, as specified on command +++ line. nil, otherwise. systemAlgebraDirectory() == dir := ASSOC(Option '"sysalg", %systemOptions()) => - ensureTrailingSlash cdr dir + ensureTrailingSlash rest dir nil -+++ Returns a path to the directory containing algebra bootstsrap files. +++ Returns a path to the directory containing algebra bootstsrap files. algebraBootstrapDir() == dir := ASSOC(Option '"strap",%systemOptions()) => ensureTrailingSlash rest dir nil -++ stdStreamIsTerminal: -++ returns 1 if the standard stream is attached to a terminal; -++ otherwise 0. -import stdStreamIsTerminal for std__stream__is__terminal: int -> int - ++ Load list of exposed categories, domains, and packages. ++ User-specified list takes precedence over system wide list. loadExposureGroupData() == |