ppcrcd/trunk/doc/gendoc.pl

[sparky]

Author: sparky
Date: Fri Mar 24 14:13:17 2006
New Revision: 7305

Modified:
   ppcrcd/trunk/doc/gendoc.pl
Log:
- <p> must not contain <pre>, changed <p> ==> <div class="p">


Modified: ppcrcd/trunk/doc/gendoc.pl
==============================================================================
--- ppcrcd/trunk/doc/gendoc.pl  (original)
+++ ppcrcd/trunk/doc/gendoc.pl  Fri Mar 24 14:13:17 2006
@@ -65,15 +65,15 @@
                        }
                }
                if ($par and $line =~ /(\<h[1-3]\>|&lt;options "[a-z]*"&gt;)/) {
-                       $out =~ s#(.)(\s*)$#$1</p>$2#;
+                       $out =~ s#(.)(\s*)$#$1</div>$2#;
                        $par = 0;
                }
                unless ( $pre ) {
                        if ( $line =~ s/^    (\S)/$1/ ) {
                                if ($par) {
-                                       $out =~ s#(.)(\s*)$#$1</p>$2#;
+                                       $out =~ s#(.)(\s*)$#$1</div>$2#;
                                }
-                               $out .= "<p>";
+                               $out .= '<div class="p">';
                                $par = 1;
                        }
                }
@@ -83,7 +83,7 @@
                $out =~ s#(.)(\s*)$#$1</pre>$2#;
        }
        if ($par) {
-               $out =~ s#(.)(\s*)$#$1</p>$2#;
+               $out =~ s#(.)(\s*)$#$1</dir>$2#;
        }
        return $out;
 }
@@ -139,7 +139,8 @@
                        div {
                                padding: 5px;
                        }
-                       p {
+                       .p {
+                               padding: 0px;
                                text-indent: 15px;
                        }
                </style>
@@ -180,10 +181,11 @@
                                $clean .= $line."\n" if length $line_nosp;
                                return $clean;
                        }
-                       if ( $tag eq "div" or $tag eq "p" ) {
+                       if ( $tag =~ /^div/ or $tag eq "p" ) {
                                $clean .= $line."\n" if length $line_nosp;
                                $line = $step;
                                $clean .= $step."<$tag>\n";
+                               $tag =~ s/\s+.*//;
                                $clean .= paragraph($step."\t", $tag);
                                $clean .= $step."</$tag>\n";
                                next;
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit