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/deploy/$name") || die "Can not create $dir/deploy/$name";
37 print "Merging: $name\n";
38 @a = split (/\n/, $files_content[$f]);
40 for ($ai = 0; $ai < $#a; $ai++){
43 ($api) = $line =~ /<h4><a name=\"api:(\w+)\">(\w+)<\/a><\/h4>/;
48 <table class="HeaderTable" width="100%" cellpadding="5">
49 <tr bgcolor="#b0c4de"><td>
50 <h3 class="api">$api</h3>
55 <table class="SignatureTable" bgcolor="#c0c0c0" cellspacing="0" width="100%">
57 <table class="InnerSignatureTalbe" cellpadding="10" cellspacing="0" width="100%">
58 <tr bgcolor="#f2f2f2"><td>
59 <h4>Prototype: $api</h4>
67 if ($arguments{$api} ne ""){
68 print OUT "<h4>Parameters</h4>";
69 print OUT "<blockquote><dl>";
71 print OUT "$arguments{$api}\n";
72 print OUT "</blockquote>";
74 if ($returns{$api} ne ""){
75 print OUT "<h4>Returns</h4>";
76 print OUT "<blockquote>";
77 print OUT "$returns{$api}\n";
78 print OUT "</blockquote>";
80 if ($bodies{$api} ne ""){
81 print OUT "<h4>Remarks</h4>";
82 print OUT "<blockquote>";
83 print OUT "$bodies{$api}\n";
84 print OUT "</blockquote>";
86 print OUT "</td></tr></table>";
88 print OUT "</blockquote>";
103 print "Function: $func\n" if (!$html);
108 $functions[$fn++] = $func;
113 $body =~ s/[@#](\w+)/<i>\1<\/i>/g;
114 $returns =~ s/[@#](\w+)/<i>\1<\/i>/g;
116 $args =~ s/@(\w+)/<i>\1<\/i>/g;
117 $bodies{$func} = $body;
118 $arguments{$func} = $args;
119 $returns{$func} = $returns;
124 $_ = "\n<p>" if (/^\s+$/);
127 if (/\s*(\w+):(.*)/){
128 $args .= "<dt><i>$1:</i></dt><dd>$2</dd>";
134 } elsif ($inbody == 1) {
143 $returns .= "\n\t$_";