X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=docs%2Fexdoc;h=517956c3e6387b07137055ee91f9d5f64b62c09d;hb=289b6d55f753b0d657d9743967561692a0151761;hp=a1ce4378b6f86675d111d9ef00abb2974ada7dba;hpb=7d5a7ea7ac324bb4ee63094ddcf8e20ae9ba4322;p=mono.git diff --git a/docs/exdoc b/docs/exdoc index a1ce4378b6f..517956c3e63 100644 --- a/docs/exdoc +++ b/docs/exdoc @@ -7,6 +7,10 @@ if ($ARGV[0] eq "-h"){ shift @ARGV; shift @ARGV; } +open (FILE, "$dir/api-style.css" || die "Did not find $dir/api-style.css"); +while (){ + $css = $css . $_; +} if ($ARGV[0] eq "-t"){ $dir = $ARGV[1]; @@ -51,190 +55,25 @@ if ($html){ $name -
+
EOF @a = split (/\n/, $files_content[$f]); $strikeextra = ""; + $api_shown = 0; for ($ai = 0; $ai < $#a; $ai++){ $line = $a[$ai]; ($api,$caption) = $line =~ /

(\w+)<\/a><\/h4>/; if ($api ne ""){ if ($api_shown == 1){ - print OUT "

"; + print OUT "
\n\n"; if ($deprecated{$api}){ - $strike = "strike"; - $strikeextra = "
Deprecated: " . $deprecated{$api}; + $strike = "mapi-strike"; + $strikeextra = "

Deprecated: " . $deprecated{$api}; } else { $strike = ""; $strikeextra = ""; @@ -243,39 +82,38 @@ EOF $api_shown = 1; $proto = $prototype{$api}; if ($proto eq ""){ - $proto = "Prototype: $api"; + $proto = "$api"; } print OUT< -
-
$api$strikeextra
-
-
-
-
- -
Syntax
-
$proto
-

+ +

+
$api$strikeextra
+
+
+
+
+ +
Syntax
+
$proto
+

EOF - -# if ($arguments{$api} ne "" && (!($arguments{$api}) =~ /^[ \t]+$/)){ - print OUT "

Parameters
\n"; - print OUT "".${arguments{$api}}."
"; -# } -# &opt_print ("Parameters", $arguments{$api}, 1); + $ppars = $arguments{$api}; + if ($ppars ne "" && (!($ppars =~ /^[ \t]+$/))){ + print OUT "
Parameters
\n"; + print OUT " ".${arguments{$api}}."
"; + } - &opt_print ("Returns", $returns{$api}, 1); + &opt_print ("Return value", $returns{$api}, 0); &opt_print ("Description", $bodies{$api}, 0); - print OUT "\n"; + print OUT "
\n
\n"; } else { if ($line =~ /@API_IDX@/){ $apis_toc = &create_toc ($apis[$f]); $line =~ s/\@API_IDX\@/$apis_toc/; } if ($line =~ /^

"; + print OUT "
\n"; $api_shown = 0; } if ($line =~ /`/){ @@ -291,15 +129,38 @@ EOF close OUT; system ("$ENV{runtimedir}/mono-wrapper convert.exe $dir/html/$name $dir/html/x-$name"); + # clean up the mess that AgilityPack does, it CDATAs our CSS open HACK, "$dir/html/x-$name" || die "Could not open $dir/html/x-$name"; open HACKOUT, ">$dir/deploy/$name" || die "Could not open output"; + $line = 0; + $doprint = 0; while (){ + print HACKOUT $last if ($doprint); + $line++; s/^\/\/\/\///; - print HACKOUT $_; + + # Remove the junk wrapper generated by AgilityPack + if ($line==1){ + s///; + } + if (/