diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-13 22:07:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-13 22:07:19 +0000 |
| commit | 39d73f2c6b9fd5077e7a2051abd9cd00824838e9 (patch) | |
| tree | f4a8f7f2243d8a87d16ea4198fa2a9c46a5d434a /src/interp/sys-driver.boot | |
| parent | 4286b31e929535c13afd49b8118a047d8d62492e (diff) | |
| download | open-axiom-39d73f2c6b9fd5077e7a2051abd9cd00824838e9.tar.gz | |
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 55843345..4a97d76e 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -75,19 +75,27 @@ AxiomCore::%sysInit() == SETQ(COMPILER::_*SUPPRESS_-COMPILER_-NOTES_*,true) )endif +--% + +++ Returns the directory name as specified through option name `opt'. +directoryFromCommandLine opt == + dir := ASSOC(Option opt, %systemOptions()) => + ensureTrailingSlash rest dir + nil ++ Returns the system algebra directory, as specified on command ++ line. nil, otherwise. systemAlgebraDirectory() == - dir := ASSOC(Option '"sysalg", %systemOptions()) => - ensureTrailingSlash rest dir - nil + directoryFromCommandLine '"sysalg" ++ Returns a path to the directory containing algebra bootstsrap files. algebraBootstrapDir() == - dir := ASSOC(Option '"strap",%systemOptions()) => - ensureTrailingSlash rest dir - nil + directoryFromCommandLine '"strap" + +++ Returns a path to the directory containing databases, as specified +++ on command line. Nil otherwise. +systemDatabaseDirectory() == + directoryFromCommandLine '"sysdb" ++ Load list of exposed categories, domains, and packages. ++ User-specified list takes precedence over system wide list. |