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/c-doc.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/c-doc.boot')
| -rw-r--r-- | src/interp/c-doc.boot | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index 100ee96d..fbf666f0 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -36,6 +36,9 @@ import c_-util import daase namespace BOOT +$checkPrenAlist == + [[char "(",:char ")"],[char "{",:char "}"],[char "[",:char "]"]] + batchExecute() == _/RF_-1 '(GENCON INPUT) @@ -77,7 +80,7 @@ getDocForDomain(name,op,sig) == ++ `op' and given signature `sigPart'. The operator `op' is assumed ++ to have been defined in the domain or catagory `abb'. getOpDoc(abb,op,:sigPart) == - u := symbolLassoc(op,getConstructorDocumentationFromDB abb) + u := symbolTarget(op,getConstructorDocumentationFromDB abb) $argList : local := $FormalMapVariableList _$: local := '_$ sigPart is [sig] => or/[d for [s,:d] in u | sig = s] @@ -1009,8 +1012,8 @@ checkBalance u == while u repeat do x := first u - openClose := assoc(x,$checkPrenAlist) --is it an open bracket? - => stack := [first openClose,:stack] --yes, push the open bracket + closer := scalarTarget(x,$checkPrenAlist) --is it an open bracket? + => stack := [closer,:stack] --yes, push the open bracket open := rassoc(x,$checkPrenAlist) => --it is a close bracket! stack is [top,:restStack] => --does corresponding open bracket match? if open ~= top then --yes: just pop the stack @@ -1153,7 +1156,7 @@ checkTransformFirsts(opname,u,margin) == checkDocError ['"Improper first word in comments: ",firstWord] u #(p := symbolName infixOp) = 1 and (open := p.0) and - (close := LASSOC(open,$checkPrenAlist)) => --have an open bracket + (close := scalarTarget(open,$checkPrenAlist)) => --have an open bracket l := getMatchingRightPren(u,k + 1,open,close) if l > maxIndex u then l := k - 1 strconc('"\spad{",subString(u,0,l + 1),'"}",subString(u,l + 1)) |