aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-doc.boot.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-10-22 23:16:26 +0000
committerdos-reis <gdr@axiomatics.org>2007-10-22 23:16:26 +0000
commitae075acf52f2a1ce820deb0b4ac8a5e0e6080773 (patch)
treeb41d1ed2af4329f50acaf646e97a0450dc23716e /src/interp/c-doc.boot.pamphlet
parentaec698a2470c145d0e3dfb0cb346bb52f0f2ed25 (diff)
downloadopen-axiom-ae075acf52f2a1ce820deb0b4ac8a5e0e6080773.tar.gz
* c-doc.boot.pamphlet (escapePercent): New.
(transformAndRecheckComments): Use it.
Diffstat (limited to 'src/interp/c-doc.boot.pamphlet')
-rw-r--r--src/interp/c-doc.boot.pamphlet14
1 files changed, 13 insertions, 1 deletions
diff --git a/src/interp/c-doc.boot.pamphlet b/src/interp/c-doc.boot.pamphlet
index d1d0949c..e697614b 100644
--- a/src/interp/c-doc.boot.pamphlet
+++ b/src/interp/c-doc.boot.pamphlet
@@ -270,13 +270,25 @@ checkExtractItemList l == --items are separated by commas or end of line
-- if (t := trimString SUBSTRING(string,i,k-i)) ^= '"" then acc := [t,:acc]
-- acc
+++ Translate '%' in signature to '%%' for proper printing.
+escapePercent x ==
+ x is [y, :z] =>
+ y1 := escapePercent y
+ z1 := escapePercent z
+ EQ(y, y1) and EQ(z, z1) => x
+ [y1, :z1]
+ x = "%" => "%%"
+ x
+
transformAndRecheckComments(name,lines) ==
$checkingXmptex? := false
$x : local := name
$name : local := 'GlossaryPage
$origin : local := 'gloss
$recheckingFlag : local := false
- $exposeFlagHeading : local := ['"--------",name,'"---------"]
+ $exposeFlagHeading : local :=
+ atom name => ['" -- ",name]
+ concat('" --",formatOpSignature(name.0, escapePercent name.1))
if null $exposeFlag then sayBrightly $exposeFlagHeading
u := checkComments(name,lines)
$recheckingFlag := true