diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-21 10:30:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-21 10:30:36 +0000 |
commit | e512522d03772f446977fd068ad6e18244d240f5 (patch) | |
tree | 7f735f47ceead6729c1e18d179934097fd0b73c9 /src/interp/c-doc.boot | |
parent | 541011621b8469cb64fa54a53c29f32f1b1bd2bd (diff) | |
download | open-axiom-e512522d03772f446977fd068ad6e18244d240f5.tar.gz |
* interp/define.boot ($lisplibAbbreviation): Remove. Adjust users.
($lisplibForm): Likewise.
* interp/c-doc.boot (finalizeDocumentation): Take constructor's
name as parameter. Adjust callers.
* interp/lisplib.boot (compileDocumentation): Likewise.
(WriteKind): New.
(writeConstructorForm): Likewise.
(writeOperations): Likewise.
(WriteConstructorModemap): Likewise.
(finalizeLisplib): Use them.
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r-- | src/interp/c-doc.boot | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index e3842172..a77aab7c 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -33,6 +33,7 @@ import c_-util +import daase namespace BOOT batchExecute() == @@ -132,7 +133,7 @@ collectAndDeleteAssoc x == y.rest := s res -finalizeDocumentation() == +finalizeDocumentation ctor == unusedCommentLineNumbers := [x for (x := [n,:r]) in $COMBLOCKLIST | r] docList := substitute("$","%",transDocList($op,$docList)) if u := [sig for [sig,:doc] in docList | null doc] then @@ -141,17 +142,16 @@ finalizeDocumentation() == y is [x,b] and b is ['attribute,:r] => attributes := [[x,:r],:attributes] signatures := [y,:signatures] - name := first $lisplibForm if noHeading or signatures or attributes or unusedCommentLineNumbers then sayKeyedMsg("S2CD0001",nil) bigcnt := 1 if noHeading or signatures or attributes then - sayKeyedMsg("S2CD0002",[strconc(STRINGIMAGE bigcnt,'"."),name]) + sayKeyedMsg("S2CD0002",[strconc(STRINGIMAGE bigcnt,'"."),ctor]) bigcnt := bigcnt + 1 litcnt := 1 if noHeading then sayKeyedMsg("S2CD0003", - [strconc('"(",STRINGIMAGE litcnt,'")"),name]) + [strconc('"(",STRINGIMAGE litcnt,'")"),ctor]) litcnt := litcnt + 1 if signatures then sayKeyedMsg("S2CD0004", @@ -172,15 +172,15 @@ finalizeDocumentation() == a isnt [.,:.] => ['%x9,a] ['%x9,:a] if unusedCommentLineNumbers then - sayKeyedMsg("S2CD0006",[strconc(STRINGIMAGE bigcnt,'"."),name]) + sayKeyedMsg("S2CD0006",[strconc(STRINGIMAGE bigcnt,'"."),ctor]) for [n,r] in unusedCommentLineNumbers repeat sayMSG ['" ",:bright n,'" ",r] - hn [[:fn(sig,$e),:doc] for [sig,:doc] in docList] where - fn(x,e) == + form := dbConstructorForm constructorDB ctor + hn [[:fn(sig,$e,form.args),:doc] for [sig,:doc] in docList] where + fn(x,e,args) == x isnt [.,:.] => [x,nil] if #x > 2 then x := TAKE(2,x) - applySubst(pairList($lisplibForm.args,$FormalMapVariableList), - macroExpand(x,e)) + applySubst(pairList(args,$FormalMapVariableList),macroExpand(x,e)) hn u == -- ((op,sig,doc), ...) --> ((op ((sig doc) ...)) ...) opList := removeDuplicates ASSOCLEFT u |