#!/usr/bin/perl

if ($ARGV[0] eq "-h"){
    $sourcedir = $ARGV[1];
    $dir = $sourcedir;
    $html = 1;
    shift @ARGV;
    shift @ARGV;
}
open (FILE, "$dir/api-style.css" || die "Did not find $dir/api-style.css");
while (<FILE>){
    $css = $css . $_;
}

if ($ARGV[0] eq "-t"){
    $dir = $ARGV[1];
    shift @ARGV;
}

if ($html){
    opendir (D, "$sourcedir/sources/") || die "Can not open $dir";
    while ($n = readdir (D)){
	if ($n =~ /mono-api-.*\.html$/){
	    open (IN, "$sourcedir/sources/$n") || die "Can not open $n";
	    $files[$filecount] = $n;
	    while (<IN>){
		@files_content[$filecount] .= $_;
		if (/name="api:(.*?)"/){
		    $_ =~ s/.*name="api:(\w+?)".*/\1/;
		    $apis[$filecount] .= "$_";
		}
	    }
	    $filecount++;
	    close IN;
	}
    }
}

while (<ARGV>){
	if (/\/\*\* *\n/){
		&process_doc;
	} else {
		#print "IGNORING: $_";
	}
}

if ($html){
    for ($f = 0; $f < $filecount; $f++){
	$name = $files[$f];
	open (OUT, "> $dir/html/$name") || die "Can not create $dir/html/$name";
	print "Merging: $name\n";
	print OUT<<EOF;
<?xml version="1.0" encoding="utf-8"?>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title>$name</title>
    <style type="text/css">
$css
   </style>
</head>
<body>
<div class="mapi-docs">
EOF
	@a = split (/\n/, $files_content[$f]);
	$strikeextra = "";
	$api_shown = 0;
	for ($ai = 0; $ai < $#a; $ai++){
	    $line = $a[$ai];
	    
	    ($api,$caption) = $line =~  /<h4><a name=\"api:(\w+)\">(\w+)<\/a><\/h4>/;
	    if ($api ne ""){
		if ($api_shown == 1){
		    print OUT "</div> <!-- class=mapi -->\n\n";
		    if ($deprecated{$api}){
			$strike = "mapi-strike";
			$strikeextra = "</div><br><div class='mapi-deprecated'><b>Deprecated:</b> " . $deprecated{$api};
		    } else {
			$strike = "";
			$strikeextra = "";
		    }
		}
		$api_shown = 1;
		$proto = $prototype{$api};
		if ($proto eq ""){
		    $proto = "$api";
		}

                print OUT<<EOF;
<a name="api:$api"></a>
<div class="mapi">
    <div class="mapi-entry $strike"><code>$api$strikeextra</code></div>
    <div class="mapi-height-container">
        <div class="mapi-ptr-container"></div>
        <div class="mapi-description">
            <div class="mapi-ptr"></div>

            <div class="mapi-declaration mapi-section">Syntax</div>
            <div class="mapi-prototype">$proto</div>
            <p>
EOF
                $ppars = $arguments{$api};
		if ($ppars ne "" && (!($ppars =~ /^[ \t]+$/))){
		    print OUT "            <div class=\"mapi-section\">Parameters</div>\n";
		    print OUT "            <table class=\"mapi-parameters\"><tbody>".${arguments{$api}}."</tbody></table>";
	        }
	    
		&opt_print ("Return value", $returns{$api}, 0);
		&opt_print ("Description", $bodies{$api}, 0);
		print OUT "        </div><!--mapi-description-->\n    </div><!--height container-->\n";
	    } else {
		if ($line =~ /@API_IDX@/){
		    $apis_toc = &create_toc ($apis[$f]);
		    $line =~ s/\@API_IDX\@/$apis_toc/;
		}
		if ($line =~ /^<h4/){
		    print OUT "</div>\n";
		    $api_shown = 0;
		}
		if ($line =~ /`/){
		}
		print OUT "$line\n";
	    }
	}
	print OUT<<EOF;
   </div>
</body>
</html>
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 (<HACK>){
	    print HACKOUT $last if ($doprint);
	    $line++;
	    s/^\/\/<!\[CDATA\[//;
	    s/^\/\/\]\]>\/\///;

	    # Remove the junk <span> wrapper generated by AgilityPack
	    if ($line==1){
		s/<span>//;
	    }
	    if (/<style type/){
		# Replace the CSS in the XHTML output with the original CSS
		print HACKOUT $_;
		print HACKOUT $css;
		while (<HACK>){
		    last if (/<\/style>/);
		}
	    }
	    $last = $_;
	    $doprint = 1;
	}
	if (!($last =~ /span/)){
	    print HACKOUT $last;
	}

	#system ("cp.exe $dir/html/$name $dir/deploy/$name");
    }
}

sub process_doc {
	$doc = "";
	$func = <>;
	chop $func;
	$func =~ s/^ \* //;
	$func =~ s/:$//;
	print "Function: $func\n" if (!$html);
	$args = "";
	$inbody = 0;
	$returns = "";
	$body = "";
	$functions[$fn++] = $func;
	$deprecated = 0;
	# Process arguments
	while (<>){
	    s/NULL/<code>NULL<\/code>/g;
	    s/TRUE/<code>TRUE<\/code>/g;
	    s/FALSE/<code>FALSE<\/code>/g;
	    if (/^ \*\*?\//){
		    $body =~ s/@(\w+)/<i>\1<\/i>/g;
		    $returns =~ s/@(\w+)/<i>\1<\/i>/g;
		    $args =~ s/@(\w+)/<i>\1<\/i>/g;

		    $body =~ s/#(\w+)/<code>\1<\/code>/g;
		    $returns =~ s/#(\w+)/<code>\1<\/code>/g;
		    $args =~ s/#(\w+)/<code>\1<\/code>/g;

		    $returns =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
		    $args =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
		    $body =~ s/\`([:.\w\*]+)\`/<code>\1<\/code>/g;
		    
		    $body =~ s/\n/ /;
		    $bodies{$func} = $body;
		    $arguments{$func} = $args;
		    $deprecated{$func} = $deprecated;
		    $returns{$func} = $returns;
		    $proto = "";
		    while (<>){
			$proto .= $_;
			last if (/\{/);
		    }
		    $proto =~ s/{//;
		    # clean it up a little, remove newlines, empty space at end
		    $proto =~ s/ +$//;
		    # Turn "Type * xxx" into "Type* xxx"
		    $proto =~ s/^(\w+)\W+\*/\1\*/;
		    $prototype{$func} = $proto;
		    return;
		}
		chop;
		s/^\ \*//;
		$_ = "<p>" if (/^\s*$/);
				
		if ($inbody == 0){
		    if (/\s*(\w+):(.*)/){
			if ($1 eq "deprecated"){
			    $deprecated = $2;
			} else {
			    #$args .= "<dt><i>$1:</i></dt><dd>$2</dd>";
			    $args .= "<tr><td><i>$1</i><td>$2</td></td></tr>";
			}
		    } else {
			
			$body = "\t$_\n";

			$inbody = 1;
		    }
		} elsif ($inbody == 1) {
		    if (/Returns?:/){
			s/Returns?://;
			$returns = "\t$_\n";
			$inbody = 2;
		    } else {
			$body .= "\n\t$_";
		    }
		} else {
		    $returns .= "\n\t$_";
		}
		   
	}
}

sub create_toc {
    my ($apis_listed) = @_;
    my $type_size = 0;
    my $name_size = 0;
    my $ret, $xname, $args, $line;
    $apis_toc = "";


    # Try to align things, so compute type size, method size, and arguments
    foreach $line (split /\n/, $apis_listed){
	$p = $prototype{$line};
	($ret, $xname, $args) = $p =~ /(.*)\n(\w+)[ \t](.*)/;
	$tl = length ($ret);
	$pl = length ($xname);

	$type_size = $tl if ($tl > $type_size);
	$name_size = $pl if ($pl > $name_size);
    }

    $type_size++;
    $name_size++;

    foreach $line (split /\n/, $apis_listed){
	chop;
	$p = $prototype{$line};
	($ret, $xname, $args) = $p =~ /(.*)\n(\w+)[ \t](.*)/;
	if ($xname eq ""){
	    $xname = $line;
	}
	
	$rspace = " " x ($type_size - length ($ret));
	$nspace = " " x ($name_size - length ($xname));
	$args = &format ($args, length ($ret . $rspace . $xname . $nspace), 60);
	$apis_toc .= "$ret$rspace<a href=\"\#api:$line\">$xname</a>$nspace$args\n";
    }
    return $apis_toc;
}

#
# Formats the rest of the arguments in a way that will fit in N columns
#
sub format {
    my ($args, $size, $limit) = @_;
    my $sret = "";

#    return $args if ((length (args) + size) < $limit);
    
    $remain = $limit - $size;
    @sa = split /,/, $args;
    $linelen = $size;
    foreach $arg (@sa){
	if ($sret eq ""){
	    $sret = $arg . ", ";
	    $linelen += length ($sret);
	} else {
	    if ($linelen + length ($arg) < $limit){
		$sret .= "FITS" . $arg . ", ";
	    } else {
		$newline = " " x ($size) . $arg . ", ";
		$linelen = length ($newline);
		$sret .= "\n" . $newline;
	    }
	}
    }
    $sret =~ s/, $/;/;
    return $sret;
}

sub opt_print {
    my ($caption, $opttext, $quote) = @_;

    if ($opttext ne "" && (!($opttext =~ /^[ \t]+$/))){
	print OUT "             <div class=\"mapi-section\">$caption</div>\n";
        print OUT "             <div>$opttext</div>\n";
    }
}
