!#/usr/bin/perl
open API, ">API.html";
$header = "
API Documentation
";
print API $header;
$libName = "lib";
$commentNum = 0;
$comment = "";
$inComment = 0;
$fLooking = 0;
$first = 0;
$detail = 0;
while (<>) {
s/^\s*//g;
s/\s*$//g;
print "$inComment$fLooking$detail Line: $_\n";
if (!$inComment && /^--\[\[-/) {
$commentNum = 0;
$inComment = 1;
$fLooking = 0;
$detail = 0;
process($comment) if ($comment ne "");
$comment = "";
}
elsif ($inComment && /\]\]/) {
$inComment = 0;
$fLooking = 1;
$detail = 0;
}
elsif ($inComment && /^\@libname ([^\s]+)/) {
$libName = $1;
}
elsif ($inComment) {
if (!$first) {
$comment .= "\@title $_\n\n";
$first = 1;
$detail = 1;
}
elsif ($commentNum == 0) {
$comment .= "\n\@summary $_\n\n";
$detail = 1;
}
else {
if (/^\@/) {
unless($detail) {
$comment .= "\n\n \n\n";
}
$detail = 1;
}
elsif (/^\*\s+/) {
$detail = 1;
}
else {
$detail = 0;
}
$comment .= "$_\n";
}
$commentNum++;
}
elsif ($fLooking) {
$fLooking = 0;
if (/^(local)?\s*function\s+([^\s\(:\.]+)(([:\.])([^\s\(]+))?\(([^\)]+)\)/) {
if ($1) {
$scope = "Local ";
}
else {
$scope = "";
}
@params = split/\s*\,\s*/, $6;
$params = join(", ", @params);
if ($3) {
$lib = $2;
$accessor = $4;
if ($accessor eq ":") {
$mode = "Class Method";
}
else {
$mode = "Member Function";
}
$function = $5;
if ($lib eq "lib") {
$lib = $libName;
}
$comment = "\@method $function $mode $lib$accessor$function($params)\n$comment";
}
else {
($lib, $accessor) = ();
$mode = "Function";
$function = $2;
$comment = "\@method $function $scope$mode $function($params)\n$comment";
}
process($comment);
$comment = "";
}
}
}
process($comment) if ($comment ne "");
print API "\n\n";
close (API);
sub process($) {
my ($comment) = @_;
print "$comment";
$comment =~ s/Author: $1<\/b>\n/mg;
$comment =~ s/^\@version (.*)/\nVersion: $1<\/b>\n/mg;
$comment =~ s/^\@since (.*)/\nAvailable since v$1<\/b>\n/mg;
$comment =~ s/^\@method ([^\s]+)\s+(.*)/\n