diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 9e56bb12..cd030a21 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -51,6 +51,8 @@ module c_-util where currentDB: %Env -> %Maybe %Database -- functor data manipulation dbInfovec: %Symbol -> %Maybe %FunctorData + makeDefaultPackageParameters: %Database -> %List %Symbol + makeDefaultPackageAbbreviation: %Database -> %Symbol --% Accessors of domain and category objects @@ -235,6 +237,14 @@ $SetCategory == --% +makeDefaultPackageParameters db == + parms := dbConstructorForm(db).args + dollar := first setDifference('(S A B C D E F G H I),parms) + [dollar,:parms] + +makeDefaultPackageAbbreviation db == + makeSymbol strconc(symbolName dbAbbreviation db,'"-") + dbInfovec name == getConstructorKindFromDB name is "category" => nil loadLibIfNotLoaded(name) |