diff options
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 47cd3ec7..68300521 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -42,6 +42,18 @@ namespace BOOT $getUnexposedOperations := true $globalExposureGroupAlist := [] + +--% + +pathToDatabase name == + if dbdir := systemAlgebraDirectory() then + path := strconc(dbdir,name) + FORMAT(true,'" Using local database ~a..",path) + else + path := strconc(systemRootDirectory(),'"algebra/",name) + path + + --% getConstructorAbbreviationFromDB: %Symbol -> %Maybe %Symbol |