11 opendir (D, "$dir/sources/") || die "Can not open $dir";
12 while ($n = readdir (D)){
13 if ($n =~ /mono-api-.*\.html$/){
14 open (IN, "$dir/sources/$n") || die "Can not open $n";
15 $files[$filecount] = $n;
17 @files_content[$filecount] .= $_;
29 #print "IGNORING: $_";
34 for ($f = 0; $f < $filecount; $f++){
36 open (OUT, "> $dir/html/$name") || die "Can not create $dir/html/$name";
37 print "Merging: $name\n";
39 <?xml version="1.0" encoding="utf-8"?>
40 <html xmlns="http://www.w3.org/1999/xhtml">
46 @a = split (/\n/, $files_content[$f]);
48 for ($ai = 0; $ai < $#a; $ai++){
51 ($api,$caption) = $line =~ /<h4><a name=\"api:(\w+)\">(\w+)<\/a><\/h4>/;
53 $proto = $prototype{$api};
55 $proto = "Prototype: $api";
60 <a name="api:$api"></a>
61 <table summary="" class="HeaderTable" width="100%" cellpadding="5">
62 <tr bgcolor="#b0c4de"><td>
63 <h3 class="api">$api</h3>
68 <table summary="" class="SignatureTable" bgcolor="#c0c0c0" cellspacing="0" width="100%">
70 <table summary="" class="InnerSignatureTalbe" cellpadding="10" cellspacing="0" width="100%">
71 <tr bgcolor="#f2f2f2"><td>
80 if ($arguments{$api} ne ""){
81 print OUT "<h4>Parameters</h4>";
82 print OUT "<blockquote><dl>";
84 print OUT "$arguments{$api}\n";
85 print OUT "</dl></blockquote>";
87 if ($returns{$api} ne ""){
88 print OUT "<h4>Returns</h4>";
89 print OUT "<blockquote>";
90 print OUT "$returns{$api}\n";
91 print OUT "</blockquote>";
93 if ($bodies{$api} ne ""){
94 print OUT "<h4>Remarks</h4>";
95 print OUT "<blockquote>";
96 print OUT "$bodies{$api}\n";
97 print OUT "</blockquote>";
100 print OUT "</blockquote>";
110 system ("mono convert.exe $dir/html/$name $dir/deploy/$name");
120 print "Function: $func\n" if (!$html);
125 $functions[$fn++] = $func;
130 $body =~ s/[@#](\w+)/<i>\1<\/i>/g;
131 $returns =~ s/[@#](\w+)/<i>\1<\/i>/g;
133 $args =~ s/@(\w+)/<i>\1<\/i>/g;
134 $bodies{$func} = $body;
135 $arguments{$func} = $args;
136 $returns{$func} = $returns;
143 $prototype{$func} = $proto;
148 $_ = "\n<p>" if (/^\s+$/);
151 if (/\s*(\w+):(.*)/){
152 $args .= "<dt><i>$1:</i></dt><dd>$2</dd>";
158 } elsif ($inbody == 1) {
167 $returns .= "\n\t$_";