coar 01/06/23 06:16:06
Modified: apidoc APIdict.pm
apidoc/tools mkapidict testdict.pl
Log:
More fixes..
Revision Changes Path
1.6 +6 -3 httpd-docs-1.3/apidoc/APIdict.pm
Index: APIdict.pm
===================================================================
RCS file: /home/cvs/httpd-docs-1.3/apidoc/APIdict.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- APIdict.pm 2001/06/22 22:51:34 1.5
+++ APIdict.pm 2001/06/23 13:16:05 1.6
@@ -73,9 +73,9 @@
# clear and only run when updating the docco.
#
foreach $ref (keys(%Entity)) {
- my($href) = $HREF{"$ref"};
+ local($href) = $HREF{"$ref"};
if ($ref ne $rname) {
- $nref = &insert_link($ref, $prefix, $postfix, $href);
+ $nref = &insert_link($self, $ref, $prefix, $postfix, $href);
$wip =~ s:([^-</]*)\b$ref\b:$1$nref:g;
}
}
@@ -264,7 +264,10 @@
sub hyperlinks {
my($self, $setting) = @_;
- return ($hyperlinks = $setting);
+ if ($setting != undef) {
+ $hyperlinks = $setting;
+ }
+ return $hyperlinks;
}
#
1.20 +3 -2 httpd-docs-1.3/apidoc/tools/mkapidict
Index: mkapidict
===================================================================
RCS file: /home/cvs/httpd-docs-1.3/apidoc/tools/mkapidict,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -u -r1.19 -r1.20
--- mkapidict 2001/06/22 22:51:37 1.19
+++ mkapidict 2001/06/23 13:16:06 1.20
@@ -581,7 +581,7 @@
}
sub link {
- my($anchor, $href) = @_;
+ my($anchor, $href, $sayso) = @_;
my($result);
if (! $href) {
@@ -593,7 +593,8 @@
}
else {
$result = "<a href=\"$href\"><code>$anchor</code></a>";
- &verbose("Hyperlinking '$anchor'");
+ &verbose("Hyperlinking '$anchor'")
+ if ($sayso);
}
return $result;
}
1.3 +20 -9 httpd-docs-1.3/apidoc/tools/testdict.pl
Index: testdict.pl
===================================================================
RCS file: /home/cvs/httpd-docs-1.3/apidoc/tools/testdict.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- testdict.pl 2001/06/22 22:51:37 1.2
+++ testdict.pl 2001/06/23 13:16:06 1.3
@@ -5,18 +5,29 @@
$dict = new APIdict;
$dict->readfile("api.list");
-
+$dict->hyperlinks(1);
@elist = $dict->entity_list();
+%hrefs = ();
+
+foreach (@elist) {
+ $hrefs{$_} = "$_-doc";
+}
($scratch, $n2) = @elist;
$scratch = $n2;
+print "Hyperlinks: " . $dict->hyperlinks() . "\n";
print "Entity '$n2':\n";
-print " defined: " . $dict->defined($n2) . "\n";
-print " Category: " . $dict->category($n2) . "\n";
-print " Category name: " . $dict->category_name($dict->category($n2)) .
"\n";
-print " See-Also: " . $dict->see_also($n2) . "\n";
-print " Description file: " . $dict->description_file($n2) . "\n";
-print " Description:\n" . $dict->description($n2) . "\n";
-print " Definition:\n" . $dict->definition($n2) . "\n";
-print " Example:\n" . $dict->example($n2) . "\n";
+print " defined: " . $dict->defined($n2) . "\n";
+print " Category: " . $dict->category($n2) . "\n";
+print " Category name: " . $dict->category_name($dict->category($n2)) .
"\n";
+print " See-Also: " . $dict->see_also($n2) . "\n";
+print " Expanded See-Also: ";
+$esa = join("\n ", $dict->expanded_seealso($n2));
+print "$esa\n";
+print " Linked: ";
+print $dict->add_links($esa, "", "pre", "post", %hrefs) . "\n";
+print " Description file: " . $dict->description_file($n2) . "\n";
+print " Description:\n" . $dict->description($n2) . "\n";
+print " Definition:\n" . $dict->definition($n2) . "\n";
+print " Example:\n" . $dict->example($n2) . "\n";
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
