From 39d73f2c6b9fd5077e7a2051abd9cd00824838e9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 13 Aug 2008 22:07:19 +0000
Subject:

---
 src/interp/sys-driver.boot | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

(limited to 'src/interp/sys-driver.boot')

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.
-- 
cgit v1.2.3