httpd-docs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@apache.org
Subject cvs commit: httpd-docs-1.3/apidoc/tools mkapidict testdict.pl
Date Sat, 23 Jun 2001 13:16:06 GMT
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: apache-docs-unsubscribe@apache.org
For additional commands, e-mail: apache-docs-help@apache.org


Mime
View raw message