diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-04 00:01:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-04 00:01:48 +0000 |
| commit | 0204a2e9c993ee408d769cc6e2f91506b5699c81 (patch) | |
| tree | d89e0a82d362e311218ce93d54b73454de6d8384 /src/interp/functor.boot | |
| parent | 3be2028e7626877113e9c63530b5aeb982dc337a (diff) | |
| download | open-axiom-0204a2e9c993ee408d769cc6e2f91506b5699c81.tar.gz | |
* boot/utility.boot (symbolAssoc): Rename from assocSymbol. Export.
* interp/functor.boot: Remove getAbbreviation, mkAbbrev, addsuffix.
* interp/sys-utility.boot (symbolAssoc): Remove as redundant.
(scalarTarget): New.
* interp/bc-matrix.boot: Use symbolTarget instead of symbolLassoc.
* interp/br-con.boot: Use QLASSQ instead of symbolTarget.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-prof.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/buildom.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/define.boot: Likewise.
* interp/format.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-object.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/profile.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/vmlisp.lisp (assoc): Tidy.
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 0a93ed7d..c291c554 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -846,36 +846,3 @@ getCaps x == clist:= [c for i in 0..maxIndex s | upperCase? (c:= s.i)] null clist => '"__" strconc/[first clist,:[L_-CASE u for u in rest clist]] - ---% abbreviation code - -getAbbreviation(name,c) == - --returns abbreviation of name with c arguments - x := getConstructorAbbreviationFromDB name - X := objectAssoc(x,$abbreviationTable) => - N := objectAssoc(name,rest X) => - C := objectAssoc(c,rest N) => rest C --already there - newAbbreviation:= mkAbbrev(X,x) - N.rest := [[c,:newAbbreviation],:rest N] - newAbbreviation - newAbbreviation:= mkAbbrev(X,x) - X.rest := [[name,[c,:newAbbreviation]],:rest X] - newAbbreviation - $abbreviationTable:= [[x,[name,[c,:x]]],:$abbreviationTable] - x - -mkAbbrev(X,x) == addSuffix(alistSize rest X,x) - -alistSize c == - count(c,1) where - count(x,level) == - level=2 => #x - null x => 0 - count(CDAR x,level+1)+count(rest x,level) - -addSuffix(n,u) == - s := STRINGIMAGE u - alphabetic? stringChar(s,maxIndex s) => - makeSymbol strconc(s,STRINGIMAGE n) - INTERNL strconc(s,STRINGIMAGE ";",STRINGIMAGE n) - |