tomcat-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From p...@apache.org
Subject cvs commit: jakarta-tomcat-4.0/connectors/scandoc template.pl
Date Tue, 24 Apr 2001 20:19:58 GMT
pier        01/04/24 13:19:58

  Modified:    connectors/scandoc template.pl
  Log:
  Formatted template code
  
  Revision  Changes    Path
  1.4       +94 -94    jakarta-tomcat-4.0/connectors/scandoc/template.pl
  
  Index: template.pl
  ===================================================================
  RCS file: /home/cvs/jakarta-tomcat-4.0/connectors/scandoc/template.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- template.pl	2001/04/24 20:16:12	1.3
  +++ template.pl	2001/04/24 20:19:58	1.4
  @@ -130,7 +130,7 @@
             </tr>
       <<
   
  -	# Generate a list of classes included in this package
  +    # Generate a list of classes included in this package
       foreach $e ($p->classes()) {
           $_ = $e->url;
           s/\s/_/g;
  @@ -147,7 +147,7 @@
           <<
       }
   
  -	# Generate a list of all global functions included in this package
  +    # Generate a list of all global functions included in this package
       if ($p->globalfuncs()) {
           >>
                 <tr>
  @@ -185,7 +185,7 @@
           <<
       }
   
  -	# Generate a list of all global variables included in this package
  +    # Generate a list of all global variables included in this package
       if ($p->globalvars()) {
           >>
                 <tr>
  @@ -223,7 +223,7 @@
           <<
       }
   
  -	# Copyright statement at the bottom
  +    # Copyright statement at the bottom
       >>
           </table>
           <hr>
  @@ -285,7 +285,7 @@
             </tr>
       <<
   
  -	# Generate a TOC of all classes at the top of the page
  +    # Generate a TOC of all classes at the top of the page
       foreach $e ($p->classes()) {
           $_ = $e->url;
           s/\s/_/g;
  @@ -321,7 +321,7 @@
           <<
       }
   
  -	# Continue with the global functions TOC
  +    # Continue with the global functions TOC
       if ($p->globalfuncs()) {
           >>
               </table>
  @@ -351,7 +351,7 @@
           }
       }
   
  -	# And then finish with the global variables TOC
  +    # And then finish with the global variables TOC
       if ($p->globalvars()) {
           >>
               </table>
  @@ -386,7 +386,7 @@
           <br>
       <<
   
  -	# Then generate the detail for each class in this package
  +    # Then generate the detail for each class in this package
       foreach $e ($p->classes()) {
           $_ = $e->url;
           s/\s/_/g;
  @@ -442,13 +442,13 @@
                   </table>
               <<
               foreach $m ($e->memberfuncs()) {
  -	            $_ = join("-",$e->name,$m->name);
  -	            s/\s/_/g;
  -	            y/[A-Z]/[a-z]/;
  -			    >>
  -			        <a name="$_">
  -			    <<
  -            	&function($m);
  +                $_ = join("-",$e->name,$m->name);
  +                s/\s/_/g;
  +                y/[A-Z]/[a-z]/;
  +                >>
  +                    <a name="$_">
  +                <<
  +                &function($m);
               }
           }
   
  @@ -466,18 +466,18 @@
                   </table>
               <<
               foreach $m ($e->membervars()) {
  -	            $_ = join("-",$e->name,$m->name);
  -	            s/\s/_/g;
  -	            y/[A-Z]/[a-z]/;
  -			    >>
  -			        <a name="$_">
  -			    <<
  -	            &variable($m);
  +                $_ = join("-",$e->name,$m->name);
  +                s/\s/_/g;
  +                y/[A-Z]/[a-z]/;
  +                >>
  +                    <a name="$_">
  +                <<
  +                &variable($m);
               }
           }
       }
   
  -	# Output detailed information for each global function
  +    # Output detailed information for each global function
       if ($p->globalfuncs()) {
           >>
               <table width="100%" cellspacing="0" cellpadding="2" border="1">
  @@ -494,14 +494,14 @@
               $_ = $e->name;
               s/\s/_/g;
               y/[A-Z]/[a-z]/;
  -		    >>
  -		        <a name="$_">
  -		    <<
  -        	&function($e);
  +            >>
  +                <a name="$_">
  +            <<
  +            &function($e);
           }
       }
   
  -	# Then write detailed information for each global variable
  +    # Then write detailed information for each global variable
       if ($p->globalvars()) {
           >>
               <table width="100%" cellspacing="0" cellpadding="2" border="1">
  @@ -518,9 +518,9 @@
               $_ = $e->name;
               s/\s/_/g;
               y/[A-Z]/[a-z]/;
  -		    >>
  -		        <a name="$_">
  -		    <<
  +            >>
  +                <a name="$_">
  +            <<
               &variable($e);
           }
       }
  @@ -541,9 +541,9 @@
   
   # Write out the detailed description of a function
   sub function {
  -	local ($m) = @_;
  +    local ($m) = @_;
   
  -	# Output the function name and description
  +    # Output the function name and description
       >>
           <font size="+1" face="arial,helvetica,sans serif">
             <b>$(m.name)</b>
  @@ -558,66 +558,66 @@
                   </font>
                 </dt>
       <<
  -    
  +
       # Process all parameters (one by one)
  -	if ($m->params()) {
  -	    >>
  -	              <dt>
  -	                <font face="arial,helvetica,sans serif">
  -	                  <b>Parameters</b>
  -	                </font>
  -	              </dt>
  -	    <<
  -	    foreach $a ($m->params()) {
  -		    >>
  -		              <dd>
  -		                <code>$(a.name)</code> -
  -		                <font face="arial,helvetica,sans serif">
  -		                  $(a.description)
  -		                </font>
  -		              </dd>
  -		    <<
  -	    }
  -	}
  -	
  -	# Check for a return value
  -	if ($m->returnValue()) {
  -	    >>
  -	              <dt>
  -	                <font face="arial,helvetica,sans serif">
  -	                  <b>Return Value</b>
  -	                </font>
  -	              </dt>
  -	              <dd>
  -	                <font face="arial,helvetica,sans serif">
  -	                  $(m.returnValue)
  -	                </font>
  -	              </dd>
  -	    <<
  -	}
  -	
  -	# Dig in for exceptions
  -	if ($m->exceptions()) {
  -	    >>
  -	              <dt>
  -	                <font face="arial,helvetica,sans serif">
  -	                  <b>Exceptions</b>
  -	                </font>
  -	              </dt>
  -	    <<
  -	    foreach $a ($m->exceptions()) {
  -		    >>
  -		              <dd>
  -		                <code>$(a.name)</code>
  -		                <font face="arial,helvetica,sans serif">
  -		                  $(a.description)
  -		                </font>
  -		              </dd>
  -		    <<
  -	    }
  -	}
  -	
  -	# Close the list 
  +    if ($m->params()) {
  +        >>
  +                  <dt>
  +                    <font face="arial,helvetica,sans serif">
  +                      <b>Parameters</b>
  +                    </font>
  +                  </dt>
  +        <<
  +        foreach $a ($m->params()) {
  +            >>
  +                      <dd>
  +                        <code>$(a.name)</code> -
  +                        <font face="arial,helvetica,sans serif">
  +                          $(a.description)
  +                        </font>
  +                      </dd>
  +            <<
  +        }
  +    }
  +
  +    # Check for a return value
  +    if ($m->returnValue()) {
  +        >>
  +                  <dt>
  +                    <font face="arial,helvetica,sans serif">
  +                      <b>Return Value</b>
  +                    </font>
  +                  </dt>
  +                  <dd>
  +                    <font face="arial,helvetica,sans serif">
  +                      $(m.returnValue)
  +                    </font>
  +                  </dd>
  +        <<
  +    }
  +
  +    # Dig in for exceptions
  +    if ($m->exceptions()) {
  +        >>
  +                  <dt>
  +                    <font face="arial,helvetica,sans serif">
  +                      <b>Exceptions</b>
  +                    </font>
  +                  </dt>
  +        <<
  +        foreach $a ($m->exceptions()) {
  +            >>
  +                      <dd>
  +                        <code>$(a.name)</code>
  +                        <font face="arial,helvetica,sans serif">
  +                          $(a.description)
  +                        </font>
  +                      </dd>
  +            <<
  +        }
  +    }
  +
  +    # Close the list
       >>
               </dl>
             </dd>
  @@ -628,9 +628,9 @@
   
   # Write out the detailed description of a variable
   sub variable {
  -	local ($m) = @_;
  +    local ($m) = @_;
   
  -	# Output the variable name and description
  +    # Output the variable name and description
       >>
           <font size="+1" face="arial,helvetica,sans serif">
             <b>$(m.name)</b>
  
  
  

Mime
View raw message