summaryrefslogtreecommitdiffstats
path: root/admin/gendoc.pl
diff options
context:
space:
mode:
authortpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2010-02-26 19:11:44 +0000
committertpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2010-02-26 19:11:44 +0000
commitf677d2717dd41d04a15f68036217042583ffe097 (patch)
tree556e130daf60b843406e948979e952a06ca2eaa9 /admin/gendoc.pl
parenta6d58bb6052ac8cb01805a48c4ad2f129126116f (diff)
downloadkvirc-f677d2717dd41d04a15f68036217042583ffe097.tar.gz
kvirc-f677d2717dd41d04a15f68036217042583ffe097.zip
Added kvirc-specific admin directory
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1096505 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'admin/gendoc.pl')
-rwxr-xr-xadmin/gendoc.pl1351
1 files changed, 1351 insertions, 0 deletions
diff --git a/admin/gendoc.pl b/admin/gendoc.pl
new file mode 100755
index 00000000..700ed23f
--- /dev/null
+++ b/admin/gendoc.pl
@@ -0,0 +1,1351 @@
+#!/usr/bin/perl
+
+#################################################################################################
+# GLOBAL CONFIGS
+#################################################################################################
+
+$g_currenttime=gmtime;
+$g_currentuser = getlogin || getpwuid($<) || "Unknown";
+$g_notetablebgcolor="#F0F0F0";
+$g_notetextcolor="#909090";
+$g_syntaxcolor="#802000";
+
+$g_kvssyntaxcolor="#802000";
+$g_kvstypenamecolor="#808080";
+$g_kvstypedelimiterscolor="#8080a0";
+
+$g_bodybgcolor="#FFFFFF";
+$g_bodytextcolor="#000000";
+$g_bodylinkcolor="#000000";
+$g_tablebgcolor="#B4B4C8";
+#$g_titletablebgcolor="#999999";
+$g_titletextcolor="#31507B";
+#$g_titletablebgcolor="#68838B"; #LightBlue4
+$g_titletablebgcolor="#BEBEF0";
+#$g_subtitletablebgcolor="#C5C5C5";
+$g_subtitletablebgcolor="#D2D2D2";
+$g_internaltablecolor="#D5D5D5";
+$g_classfnctablecolor="#D5D5D5";
+$g_classfncbodytablecolor="#E0E0E0";
+$g_switchbodytablecolor="#D5D5D5";
+$g_switchnametablecolor="#E0E0E0";
+$g_bodytablebgcolor="#EAEAEA";
+$g_commentcolor="#207500";
+$g_fileextension=".html";
+#$g_headerborderlightcolor="#A0A0A0";
+#$g_headerborderdarkcolor="#000000";
+$g_headerbgcolor="#FFFFFF";
+
+
+$g_prefixes{'command'}="cmd";
+$g_prefixes{'function'}="fnc";
+$g_prefixes{'event'}="event";
+$g_prefixes{'language'}="doc";
+$g_prefixes{'class'}="class";
+$g_prefixes{'module'}="module";
+$g_prefixes{'widget'}="widget";
+
+$g_version = "3.2.0.99";
+$g_filehandle="";
+$g_shortsIdx{"keyterms"}=0;
+$g_directory = "";
+
+#################################################################################################
+# PARSE ARGS
+#################################################################################################
+
+
+sub usage
+{
+ print "\n";
+ print "Usage:\n";
+ print " gendoc.pl [-v <kvirc_version>] <target_dir> <file1> <file2> ...\n";
+ print "Parameters:\n";
+ print " <target_dir> : directory where the doc files should be written\n";
+ print " <file1> <file2> ...: a list of files from which to extract docs\n";
+ print "Options:\n";
+ print " -v forces the specified version to be displayed in the\n";
+ print " generated documents\n";
+ print "\n";
+}
+
+$i = 0;
+$cont = 1;
+while($cont)
+{
+ if($ARGV[$i] eq "--version")
+ {
+ print "gendoc.pl 2.0.0: KVIrc documentation generator\n";
+ exit(0);
+ } elsif($ARGV[$i] eq "-v")
+ {
+ $i++;
+ if($ARGV[$i] eq "")
+ {
+ usage();
+ die "Switch -v requires a parameter"
+ }
+ $g_version = $ARGV[$i];
+ $i++;
+ } else {
+ $cont = 0; # stop processing
+ }
+}
+
+$g_directory = $ARGV[$i];
+$i++;
+
+if($g_directory eq "")
+{
+ usage();
+ die "Missing target directory";
+}
+
+$j = 0;
+while($ARGV[$i] ne "")
+{
+ $g_filesToProcess[$j] = $ARGV[$i];
+ $j++;
+ $i++;
+}
+
+
+#################################################################################################
+# SUBS
+#################################################################################################
+
+sub print_header
+{
+ print $g_filehandle "<html>\n";
+ print $g_filehandle "<head>\n";
+ print $g_filehandle "<title>$_[0]</title>\n";
+
+ print $g_filehandle "<style type=\"text/css\">\n";
+ print $g_filehandle "body {\n";
+ print $g_filehandle " font-size: 11pt;\n";
+ print $g_filehandle " margin-left: 8px;\n";
+ print $g_filehandle " margin-right: 8px;\n";
+ print $g_filehandle " margin-top: 6px;\n";
+ print $g_filehandle " margin-bottom: 6px;\n";
+ print $g_filehandle " font-family:Helvetica,Arial,Verdana;\n";
+ print $g_filehandle "}\n";
+
+ print $g_filehandle "</style>\n";
+ print $g_filehandle "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\" >\n";
+ print $g_filehandle "</head>\n";
+ print $g_filehandle "<body bgcolor=\"$g_bodybgcolor\" text=\"$g_bodytextcolor\">\n";
+
+ print $g_filehandle "<table width=\"100%\" cellpadding=\"1\" cellspacing=\"0\" border=\"0\">\n";
+ print $g_filehandle " <tr>\n";
+ print $g_filehandle " <td align=\"left\" bgcolor=\"$g_headerbgcolor\">\n";
+ print $g_filehandle " <a href=\"index.html\"><img src=\"helplogoleft.png\" iorder=\"0\"></a>\n";
+ print $g_filehandle " </td>\n";
+ print $g_filehandle " <td align=\"right\" bgcolor=\"$g_headerbgcolor\">\n";
+ print $g_filehandle " <img src=\"helplogoright.png\">\n";
+ print $g_filehandle " </td>\n";
+ print $g_filehandle " </tr>\n";
+ print $g_filehandle "</table>\n";
+}
+
+sub print_footer
+{
+ print $g_filehandle "<hr>KVIrc $g_version Documentation<br>Generated by $g_currentuser at $g_currenttime\n";
+ print $g_filehandle "</body>\n";
+ print $g_filehandle "</html>\n";
+}
+
+sub print_tablestart
+{
+ print $g_filehandle "<table width=\"100%\" cellpadding=\"3\" cellspacing=\"1\" border=\"0\">\n";
+ #print $g_filehandle "<tr><td bgcolor=\"$g_tablebgcolor\">\n";
+}
+
+sub print_tableend
+{
+ #print $g_filehandle "</td></tr>\n";
+ print $g_filehandle "</table>\n";
+}
+
+sub print_title
+{
+ print $g_filehandle " <tr bgcolor=\"$g_titletablebgcolor\">\n";
+ print $g_filehandle " <td>\n";
+ print $g_filehandle " <font color=\"$g_titletextcolor\">\n";
+
+ print $g_filehandle " <h1>$_[0]</h1>\n";
+ if($_[1] ne "")
+ {
+ print $g_filehandle "$_[1]\n";
+ } else {
+ print $g_filehandle "\n";
+ }
+
+ print $g_filehandle " </font>\n";
+ print $g_filehandle " </td>\n";
+ print $g_filehandle " </tr>\n";
+}
+
+sub print_twocolumntitle
+{
+ print $g_filehandle " <tr bgcolor=\"$g_titletablebgcolor\">\n";
+ print $g_filehandle " <td colspan=\"2\">\n";
+ print $g_filehandle " <font color=\"$g_titletextcolor\">\n";
+
+ print $g_filehandle " <h1>$_[0]</h1>\n";
+ if($_[1] ne "")
+ {
+ print $g_filehandle "$_[1]\n";
+ } else {
+ print $g_filehandle "\n";
+ }
+
+ print $g_filehandle " </font>\n";
+ print $g_filehandle " </td>\n";
+ print $g_filehandle " </tr>\n";
+}
+
+
+sub print_subtitle
+{
+ print $g_filehandle " <tr bgcolor=\"$g_subtitletablebgcolor\">\n";
+ print $g_filehandle " <td><b>$_[0]</b></td>\n";
+ print $g_filehandle " </tr>\n";
+}
+
+sub print_twocolumnsubtitle
+{
+ print $g_filehandle " <tr bgcolor=\"$g_subtitletablebgcolor\">\n";
+ print $g_filehandle " <td colspan=\"2\"><b>$_[0]</b></td>\n";
+ print $g_filehandle " </tr>\n";
+}
+
+sub print_body
+{
+ print $g_filehandle " <tr bgcolor=\"$g_bodytablebgcolor\">\n";
+ print $g_filehandle " <td>$_[0]</td>\n";
+ print $g_filehandle " </tr>\n";
+}
+
+sub print_twocolumnbody
+{
+ print $g_filehandle "<tr bgcolor=\"$g_bodytablebgcolor\">\n";
+ print $g_filehandle " <td>$_[0]</td>\n";
+ print $g_filehandle " <td>$_[1]</td>\n";
+ print $g_filehandle "</tr>\n";
+}
+
+sub print_entry
+{
+ if($_[1] ne "")
+ {
+ if($_[0] ne "")
+ {
+ print_subtitle($_[0]);
+ }
+ print_body($_[1]);
+ }
+}
+
+sub make_single_token
+{
+ $_[0] =~ s/^[ ]*//g;
+ $_[0] =~ s/[ ]*$//g;
+ $_[0] =~ s/\n//g;
+}
+
+sub make_single_line
+{
+ $_[0] =~ s/^[ \n]*//g;
+ $_[0] =~ s/[ \n]*$//gs;
+}
+
+sub make_syntax
+{
+ $_[0] =~ s/^[ \n]*//g;
+ $_[0] =~ s/[ \n]*$//gs;
+ my @arry;
+ @arry = split('\n',$_[0]);
+ $_[0] = "";
+ foreach(@arry)
+ {
+ $_ =~ s/^[ \n]*//g;
+ if($_ ne "")
+ {
+ if($_[0] ne "")
+ {
+ $_[0] = "$_[0]\n$_";
+ } else {
+ $_[0] = "$_";
+ }
+ }
+ }
+}
+
+sub extract_keyterms
+{
+ my($docfilename);
+ my(%parts);
+ my($part); # Part title
+ my($partbody);
+ my($tabblock);
+ my($tmp);
+ my($type);
+
+ if(!open(CPPFILE,"$_[0]"))
+ {
+ return;
+ }
+ # Process the entire file
+
+ while(<CPPFILE>)
+ {
+ if(/^[ ]*\@doc:[ a-z_]*/)
+ {
+ # Process a single document block
+
+ $docfilename="$_";
+ $docfilename=~ s/[ ]*//g;
+ $docfilename=~ s/\@doc://g;
+ $docfilename=~ s/\n//g;
+ $docfilename=~ s/\r//g;
+ $docfilename=~ s/([a-zA-Z_]*)/\L\1/g;
+
+ undef %parts;
+ $part = "";
+
+ INNERLOOP: while(<CPPFILE>)
+ {
+
+ if(/^[ ]*\*\/[ ]*/)
+ {
+ # End of comment
+ if(($part ne "") && ($partbody ne "") && ($partbody ne "\n"))
+ {
+ # We have an entire part to store
+ $parts{$part}="$partbody";
+ }
+ last INNERLOOP;
+ } else {
+ # Inside a part
+ if(/^[ ]*\@[a-z]*:[ ]*/)
+ {
+ # A part title
+ if(($part ne "") && ($partbody ne "") && ($partbody ne "\n"))
+ {
+ # We have an entire part to store
+ $parts{$part}="$partbody";
+ }
+ # Start of the part
+ # Extract the title
+ $part="$_";
+ $part=~ s/[ ]*//g;
+ $part=~ s/\@//g;
+ $part=~ s/://g;
+ $part=~ s/\n//g;
+ # Clear the body (begin)
+ $partbody="";
+ } else {
+ # Somewhere in a part body
+ if(($_ ne "") && ($_ ne "\n"))
+ {
+ if($partbody eq "")
+ {
+ # If it is the first line of the part body
+ # Extract the amount of tabs that the part has
+ # We will use it to remove the C++ indentation
+ $tabblock = "$_";
+ $tabblock =~ s/^([ ]*).*/\1/g;
+ $tabblock =~ s/\n//g;
+ }
+
+ if($tabblock ne "")
+ {
+ # If we have the initial tabblock , remove it from the line (remove indentation)
+ $_ =~ s/^$tabblock//g;
+ }
+
+ process_body_line($_);
+
+ $partbody="$partbody$_";
+ }
+ }
+ }
+ }
+
+ # Ok...we have a document in $parts
+ make_single_line($parts{'short'});
+ make_single_token($parts{'title'});
+ make_single_token($parts{'type'});
+
+ $parts{'type'}=~ s/\@//g;
+ $parts{'type'}=~ s/://g;
+
+ if($parts{'type'} eq "")
+ {
+ $parts{'type'}="generic";
+ }
+
+ $type = $parts{'type'};
+
+ $tmp = $g_prefixes{$type};
+ if($tmp eq "")
+ {
+ $tmp="doc";
+ }
+
+ $docfilename="$tmp\_$docfilename";
+
+ $zzz="keyterms";
+
+ if($parts{'keyterms'} ne "")
+ {
+ $keyterms = $parts{'keyterms'};
+ $keyterms =~ s/\n//gs;
+
+ for $term (split(/,/,$keyterms))
+ {
+ make_single_token($term);
+ if($term ne "")
+ {
+ $termx=$term;
+ $termx=~ s/([\+\(\)\?\.\:\*\|\=\;\^\!\~])/\\$1/g;
+
+ $g_keyterms{$term} = "$docfilename$g_fileextension";
+ $g_keytermsclean{$term} = "$termx";
+
+ $tmp="keyterms_$g_shortsIdx{$zzz}";
+ $g_shorts{$tmp}="$term<!>$parts{'short'}<!>$docfilename$g_fileextension";
+ #print "GOT $g_shorts{$tmp} ($tmp)";
+ $g_shortsIdx{$zzz}++;
+ }
+ }
+ }
+
+ $tmp="keyterms_$g_shortsIdx{$zzz}";
+ $g_shorts{$tmp}="$parts{'title'}<!>$parts{'short'}<!>$docfilename$g_fileextension";
+ #print "GOT $g_shorts{$tmp} ($tmp)";
+ $g_shortsIdx{$zzz}++;
+ }
+ }
+
+ close(CPPFILE);
+}
+
+
+
+sub substitute_keyterms
+{
+ my(@lines);
+ my(@tmp);
+ my($left);
+ my($right);
+ my($line);
+ my($term);
+
+ # Kinda complex keyword substitution routine
+
+
+ # For each keyterm we have
+ for $term (@g_keytermsSorted)
+ {
+ # If the doc we're scanning isn't the keyword target
+ if($_[1] ne $g_keyterms{$term})
+ {
+ $termclean=$g_keytermsclean{$term};
+
+ # If the doc matches the keyterm at least once
+ if($_[0] =~ /$termclean/)
+ {
+ $ref=$g_keyterms{$term};
+ $ref =~ s/([a-zA-Z_]*)/\L\1/g;
+
+ @tmp = split(/</,$_[0]);
+ $_[0]="";
+ $first=1;
+ $skipIt = 0;
+ for(@tmp)
+ {
+ if($skipIt)
+ {
+ if(/[A-Za-z0-9\"]>/)
+ {
+ $skipIt=0 if /^[ ]*\/a[ ]*>/;
+ }
+ }
+
+ if($skipIt)
+ {
+ $_[0]="$_[0]<$_";
+ } else {
+ if(/[A-Za-z0-9\"]>/)
+ {
+ if(/^[ ]*a[ ][ ]*h/)
+ {
+ $skipIt=1;
+ $first ? $_[0] .= $_ : $_[0] .= "<$_";
+ } else {
+ ($left,$right) = split(/>/,$_);
+ $right=~s/([^A-Za-z0-9<>\+\-\=_])($termclean)([^A-Za-z0-9<>\+\-\=_])/$1<a href=\"$ref\">$2<\/a>$3/ig;
+ $_[0] .= "<$left>$right";
+ }
+ } else {
+ $_=~s/([^A-Za-z0-9<>\+\-\=_\.])($termclean)([^A-Za-z0-9<>\+\-\=_\.])/$1<a href=\"$ref\">$2<\/a>$3/ig;
+ $_[0] .= $_;
+ }
+ $first=0;
+ }
+ }
+ }
+ }
+ }
+}
+
+
+sub build_usage_from_kvs_syntax_line
+{
+ $_[0] =~ s/\&lt\;([A-Za-z0-9_]+):([A-Za-z0-9_]+)\&gt\;/\&lt\;\1\&gt\;/g;
+ $_[0] =~ s/\[([A-Za-z0-9_]+):([A-Za-z0-9_]+)\]/\[;\1\]/g;
+ $_[0] =~ s/^\&lt\;([A-Za-z0-9_]+)\&gt\;//g;
+}
+
+sub build_usage_from_kvs_syntax
+{
+ my @arry;
+ @arry = split('\n',$_[0]);
+ $tmp = "";
+ foreach(@arry)
+ {
+ build_usage_from_kvs_syntax_line($_);
+ if($tmp ne "")
+ {
+ $tmp = "$tmp\n$_";
+ } else {
+ $tmp = "$_";
+ }
+ }
+ return $tmp;
+}
+
+sub process_kvs_syntax_line
+{
+ $_[0] =~ s/\&lt\;([A-Za-z0-9_]+):([A-Za-z0-9_]+)\&gt\;/\&lt\;\1\<font color=\"$g_kvstypenamecolor\"\>:\2\<\/font\>\&gt\;/g;
+ $_[0] =~ s/\[([A-Za-z0-9_]+):([A-Za-z0-9_]+)\]/\[\1\<font color=\"$g_kvstypenamecolor\"\>:\2\<\/font\>\]/g;
+ $_[0] =~ s/^\&lt\;([A-Za-z0-9_]+)\&gt\;/\&lt\;\<font color=\"$g_kvstypenamecolor\"\>\1\<\/font\>\&gt\;/g;
+ $_[0] =~ s/^([A-Za-z0-9_\.]+)/\<b\>\1\<\/b\>/g;
+ $_[0] =~ s/(\$[A-Za-z0-9_\.]*)/\<b\>\1\<\/b\>/g;
+ $_[0] =~ s/\(/\<b\>\(<\/b\>/g;
+ $_[0] =~ s/\)/\<b\>\)<\/b\>/g;
+ $_[0] =~ s/\&lt\;/\<font color=\"$g_kvstypedelimiterscolor\"\>\&lt\;\<\/font\>/g;
+ $_[0] =~ s/\&gt\;/\<font color=\"$g_kvstypedelimiterscolor\"\>\&gt\;\<\/font\>/g;
+ $_[0] =~ s/\[/\<font color=\"$g_kvstypedelimiterscolor\"\>\[\<\/font\>/g;
+ $_[0] =~ s/\]/\<font color=\"$g_kvstypedelimiterscolor\"\>\]\<\/font\>/g;
+}
+
+sub process_kvs_syntax
+{
+ my @arry;
+ @arry = split('\n',$_[0]);
+ $_[0] = "";
+ foreach(@arry)
+ {
+ process_kvs_syntax_line($_);
+ if($_[0] ne "")
+ {
+ $_[0] = "$_[0]\n$_";
+ } else {
+ $_[0] = "$_";
+ }
+ }
+}
+
+
+
+
+sub process_body_line
+{
+ $_[0] =~ s/ /\&nbsp\;\&nbsp\;\&nbsp\;\&nbsp\;/g;
+ $_[0] =~ s/\</\&lt\;/g;
+ $_[0] =~ s/\>/\&gt\;/g;
+ $_[0] =~ s/\[br\]/\<br\>/g;
+ $_[0] =~ s/\[b\]/\<b\>/g;
+ $_[0] =~ s/\[p\]/\<p\>/g;
+ $_[0] =~ s/\[\/p\]/\<\/p\>/g;
+ $_[0] =~ s/\[\/b\]/\<\/b\>/g;
+ # [big][/big] is an alias to [title][/title]
+ $_[0] =~ s/\[big\]/\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"#A7D3DB\"\>\<div style=\"font-size:16pt;font-weight:800;\"\>/g;
+ $_[0] =~ s/\[\/big\]/\<\/div\>\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"$g_bodytablebgcolor\"\>/g;
+# $_[0] =~ s/\[title\]/\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"#A7D3DB\"\>\<div style=\"font-size:16pt;font-weight:800;\"\>/g;
+# $_[0] =~ s/\[\/title\]/\<\/div\>\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"$g_bodytablebgcolor\"\>/g;
+ $_[0] =~ s/\[title\]/\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"#A7D3DB\"\>\<div style=\"font-size:16pt;font-weight:800;\"\>/g;
+ $_[0] =~ s/\[\/title\]/\<\/div\>\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"$g_bodytablebgcolor\"\>/g;
+# $_[0] =~ s/\[title\]/\<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor=\"#80B3BB\"\>\<tr\>\<td\>\<table align=\"left\" width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor=\"#A7D3DB\"\>\<tr\>\<td\>\<div style=\"font-size:16pt;font-weight:800;\"\>/g;
+# $_[0] =~ s/\[\/title\]/\<\/div\>\<\/td\>\<\/tr\>\<\/table\>\<\/td\>\<\/tr\>\<\/table\>/g;
+ $_[0] =~ s/\[subtitle\]/\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"#D6E0E8\"\>\<div style=\"font-size:13pt;font-weight:800;\"\>/g;
+ $_[0] =~ s/\[\/subtitle\]/\<\/div\>\<\/td\>\<\/tr\>\<tr\>\<td bgcolor=\"$g_bodytablebgcolor\"\>/g;
+# $_[0] =~ s/\[subtitle\]/\<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor=\"#A6C0C8\"\>\<tr\>\<td\>\<table align=\"left\" width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor=\"#D6E0E8\"\>\<tr\>\<td\>\<div style=\"font-size:13pt;font-weight:800;\"\>/g;
+# $_[0] =~ s/\[\/subtitle\]/\<\/div\>\<\/td\>\<\/tr\>\<\/table\>\<\/td\>\<\/tr\>\<\/table\>/g;
+ $_[0] =~ s/\[pre\]/\<pre\>/g;
+ $_[0] =~ s/\[\/pre\]/\<\/pre\>/g;
+ $_[0] =~ s/\[center\]/\<center\>/g;
+ $_[0] =~ s/\[\/center\]/\<\/center\>/g;
+ $_[0] =~ s/\[i\]/\<i\>/g;
+ $_[0] =~ s/\[\/i\]/\<\/i\>/g;
+ $_[0] =~ s/\[ul\]/\<ul\>/g;
+ $_[0] =~ s/\[\/ul\]/\<\/ul\>/g;
+ $_[0] =~ s/\[li\]/\<li\>/g;
+ $_[0] =~ s/\[\/li\]/\<\/li\>/g;
+ $_[0] =~ s/\[table\]/\<table bgcolor=\"$g_internaltablecolor\" width=\"100\%\"\>/g;
+ $_[0] =~ s/\[\/table\]/\<\/table\>/g;
+ $_[0] =~ s/\[tr\]/\<tr\>/g;
+ $_[0] =~ s/\[\/tr\]/\<\/tr\>/g;
+ $_[0] =~ s/\[td\]/\<td\>/g;
+ $_[0] =~ s/\[\/td\]/\<\/td\>/g;
+# $_[0] =~ s/\[example\][ \n]*/<p><table width=\"100%\" cellpadding=\"1\" cellspacing=\"0\" border=\"0\" bgcolor=\"#D5D5D5\"><tr><td><table align=\"left\" width=\"100%\" cellpadding=\"3\" cellspacing=\"0\" border=\"0\" bgcolor=\"#F5F5F5\">\<tr\>\<td\>\<pre\>\<code\>\<font color=\"#FF0000\"\>/g;
+# $_[0] =~ s/\[\/example\]/<\/font><\/code><\/pre><\/td><\/tr><\/table><\/td><\/tr><\/table><\/p>/g;
+ $_[0] =~ s/\[example\][ \n]*/<p><table width=\"100%\" cellpadding=\"3\" cellspacing=\"1\" border=\"0\" bgcolor=\"#D5D5D5\">\<tr\>\<td bgcolor=\"#F5F5F5\"\>\<pre\>\<code\>\<font color=\"#FF0000\"\>/g;
+ $_[0] =~ s/\[\/example\]/<\/font><\/code><\/pre><\/td><\/tr><\/table><\/p>/g;
+ $_[0] =~ s/\[comment\]/\<font color=\"$g_commentcolor\"\>/g;
+ $_[0] =~ s/\[\/comment\]/\<\/font\>/g;
+ $_[0] =~ s/\[doc\]([a-zA-Z0-9_]*)\[\/doc\]/\<a href=\"doc_\L\1$g_fileextension">\1\<\/a\>/g;
+ $_[0] =~ s/\[doc:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_\-\&\;\. ]*)\[\/doc\]/\<a href=\"doc_\L\1$g_fileextension"\>\2\<\/a\>/g;
+ $_[0] =~ s/\[cmd\]([a-zA-Z0-9_\.]*)\[\/cmd\]/\<a href=\"cmd_\L\1$g_fileextension">\1\<\/a\>/g;
+ $_[0] =~ s/\[cmd:([a-zA-Z0-9_\.]*)\]([a-zA-Z0-9_\-\&\;\. ]*)\[\/cmd\]/\<a href=\"cmd_\L\1$g_fileextension"\>\2\<\/a\>/g;
+ $_[0] =~ s/\[fnc\]\$([a-zA-Z0-9_\.]*)\[\/fnc\]/\<a href=\"fnc_\L\1$g_fileextension">\$\1\<\/a\>/g;
+ $_[0] =~ s/\[fnc\]\$([a-zA-Z0-9_\.]*)\(\)\[\/fnc\]/\<a href=\"fnc_\L\1$g_fileextension">\$\1()\<\/a\>/g;
+ $_[0] =~ s/\[fnc\]([a-zA-Z0-9_\.]*)\[\/fnc\]/\<a href=\"fnc_\L\1$g_fileextension">\$\1\<\/a\>/g;
+ $_[0] =~ s/\[fnc:\$([a-zA-Z0-9_\.]*)\]\$([a-zA-Z0-9_\-\&\;\. ]*)\[\/fnc\]/\<a href=\"fnc_\L\1$g_fileextension"\>\$\2\<\/a\>/g;
+ $_[0] =~ s/\[event\]\$([a-zA-Z0-9_]*)\[\/event\]/\<a href=\"event_\L\1$g_fileextension">\$\1\<\/a\>/g;
+ $_[0] =~ s/\[event:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_]*)\[\/event\]/\<a href=\"event_\L\1$g_fileextension">\2\<\/a\>/g;
+ $_[0] =~ s/\[class\]([a-zA-Z0-9_]*)\[\/class\]/\<a href=\"class_\L\1$g_fileextension">\1\<\/a\>/g;
+ $_[0] =~ s/\[class:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_ ]*)\[\/class\]/\<a href=\"class_\L\1$g_fileextension">\2\<\/a\>/g;
+ $_[0] =~ s/\[module:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_ ]*)\[\/module\]/\<a href=\"module_\L\1$g_fileextension">\2\<\/a\>/g;
+ $_[0] =~ s/\[widget:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_ ]*)\[\/widget\]/\<a href=\"widget_\L\1$g_fileextension">\2\<\/a\>/g;
+ $_[0] =~ s/\[classfnc:([a-zA-Z0-9_]*)\]\$([a-zA-Z0-9_]*)\[\/classfnc\]/\<a href=\"class_\L\1$g_fileextension#\2">\$\2\<\/a\>/g;
+ $_[0] =~ s/\[classfnc\]\$([a-zA-Z0-9_]*)\[\/classfnc\]/\<a href=\"#\1">\$\1\<\/a\>/g;
+ $_[0] =~ s/\[classsignal:([a-zA-Z0-9_]*)\]([a-zA-Z0-9_]*)\[\/classsignal\]/\<a href=\"class_\L\1$g_fileextension#\2">\2\<\/a\>/g;
+ $_[0] =~ s/\[classsignal\]([a-zA-Z0-9_]*)\[\/classsignal\]/\<a href=\"#\L\1">\1\<\/a\>/g;
+ $_[0] =~ s/\[anchorlink:([a-zA-Z0-9_]*)\]/\<a href=\"#\1"\>/g;
+ $_[0] =~ s/\[\/anchorlink\]/\<\/a\>/g;
+ $_[0] =~ s/\[anchor:([a-zA-Z0-9_]*)\]/\<a name=\"\1"\>/g;
+ $_[0] =~ s/\[\/anchor\]/\<\/a\>/g;
+ $_[0] =~ s/\[note\][ \n]*/<p>\<table width=\"100%\"\ cellpadding=\"2\">\<tr\>\<td\ bgcolor=\"$g_notetablebgcolor\">\<font color=\"$g_notetextcolor\" size=\"-1\"\>/g;
+ $_[0] =~ s/\[\/note\]/\<\/font\>\<\/td\>\<\/tr\>\<\/table\><\/p>/g;
+}
+
+sub process_file
+{
+ my($docfilename);
+ my(%parts);
+ my($part); # Part title
+ my($partbody);
+ my($tabblock);
+ my($tmp);
+ my($type);
+
+
+ if(!open(CPPFILE,"$_[0]"))
+ {
+ return;
+ }
+ # Process the entire file
+
+ while(<CPPFILE>)
+ {
+ if(/^[ ]*\@doc:[ a-z_]*/)
+ {
+ # Process a single document block
+
+ $docfilename="$_";
+ $docfilename=~ s/[ ]*//g;
+ $docfilename=~ s/\@doc://g;
+ $docfilename=~ s/\n//g;
+ $docfilename=~ s/([a-zA-Z_]*)/\L\1/g;
+
+ undef %parts;
+ $part = "";
+
+ INNERLOOP: while(<CPPFILE>)
+ {
+
+ if(/^[ ]*\*\/[ ]*/)
+ {
+ # End of comment
+ if(($part ne "") && ($partbody ne "") && ($partbody ne "\n"))
+ {
+ # We have an entire part to store
+ $parts{$part}="$partbody";
+ }
+ last INNERLOOP;
+ } else {
+ # Inside a part
+ if(/^[ ]*\@[a-z]*:[ ]*/)
+ {
+ # A part title
+ if(($part ne "") && ($partbody ne "") && ($partbody ne "\n"))
+ {
+ # We have an entire part to store
+ $parts{$part}="$partbody";
+ }
+ # Start of the part
+ # Extract the title
+ $part="$_";
+ $part=~ s/[ ]*//g;
+ $part=~ s/\@//g;
+ $part=~ s/://g;
+ $part=~ s/\n//g;
+ # Clear the body (begin)
+ $partbody="";
+ } else {
+ # Somewhere in a part body
+ if(($_ ne "") && ($_ ne "\n"))
+ {
+ if($partbody eq "")
+ {
+ # If it is the first line of the part body
+ # Extract the amount of tabs that the part has
+ # We will use it to remove the C++ indentation
+ $tabblock = "$_";
+ $tabblock =~ s/^([ ]*).*/\1/g;
+ $tabblock =~ s/\n//g;
+ }
+
+ if($tabblock ne "")
+ {
+ # If we have the initial tabblock , remove it from the line (remove indentation)
+ $_ =~ s/^$tabblock//g;
+ }
+
+ process_body_line($_);
+
+ $partbody="$partbody$_";
+ }
+ }
+ }
+ }
+
+ # Ok...we have a document in $parts
+
+ # Process the title
+ if($parts{'title'} eq "")
+ {
+ print "Warning: no title specified for $docfilename\n";
+ $parts{'title'}="No title specified";
+ }
+
+ make_single_token($parts{'title'});
+ if($parts{'syntax'} ne "")
+ {
+ if($parts{'usage'} eq "")
+ {
+ $parts{'usage'} = build_usage_from_kvs_syntax($parts{'syntax'})
+ }
+ }
+ make_syntax($parts{'usage'});
+ make_syntax($parts{'syntax'});
+ make_single_line($parts{'parameters'});
+ make_single_line($parts{'inherits'});
+ make_single_token($parts{'short'});
+ make_single_token($parts{'window'});
+ make_single_token($parts{'type'});
+
+ $parts{'type'}=~ s/\@//g;
+ $parts{'type'}=~ s/://g;
+
+ if($parts{'type'} eq "")
+ {
+ $parts{'type'}="generic";
+ }
+
+ $type = $parts{'type'};
+
+ $tmp = $g_prefixes{$type};
+ if($tmp eq "")
+ {
+ $tmp="doc";
+ }
+ $docfilename="$tmp\_$docfilename";
+
+ if($g_shortsIdx{$type} eq "")
+ {
+ $g_shortsIdx{$type} = 0;
+ }
+
+ $tmp="$type\_$g_shortsIdx{$type}";
+ $g_shorts{$tmp}="$parts{'title'}<!>$parts{'short'}<!>$docfilename$g_fileextension";
+ #print "$tmp, $g_shorts{$tmp}\n";
+ $g_shortsIdx{$type}++;
+
+ if($parts{'body'} ne "")
+ {
+ substitute_keyterms($parts{'body'},"$docfilename$g_fileextension");
+ }
+ if($parts{'description'} ne "")
+ {
+ substitute_keyterms($parts{'description'},"$docfilename$g_fileextension");
+ }
+ if($parts{'switches'} ne "")
+ {
+ substitute_keyterms($parts{'switches'},"$docfilename$g_fileextension");
+ }
+ if(open(DOCFILE,">$g_directory/$docfilename$g_fileextension"))
+ {
+ $g_filehandle=DOCFILE;
+
+ print_header($parts{'title'});
+ print_tablestart();
+
+ print_title($parts{'title'},$parts{'short'});
+ if($parts{'usage'} ne "")
+ {
+ print_entry("Usage","<font color=\"$g_syntaxcolor\"><pre><code>$parts{'usage'}</code></pre></font>");
+ }
+ if($parts{'parameters'} ne "")
+ {
+ print_entry("Parameters","<font color=\"$g_syntaxcolor\"><pre><code>$parts{'parameters'}</code></pre></font>");
+ }
+
+ print_entry("Inherits","$parts{'inherits'}");
+ print_entry("Window","$parts{'window'}");
+ print_entry("","$parts{'body'}");
+ print_entry("Description","$parts{'description'}");
+
+ if($parts{'switches'} ne "")
+ {
+ print_subtitle("Switches");
+
+ print DOCFILE " <tr bgcolor=\"$g_bodytablebgcolor\">\n";
+ print DOCFILE " <td>\n";
+ print DOCFILE " <table bgcolor=\"$g_switchbodytablecolor\">\n";
+
+ @lines = split("\n","$parts{'switches'}");
+ $swbody = "";
+ for(@lines)
+ {
+ if(/!sw:.*/)
+ {
+ if("$swbody" ne "")
+ {
+ print DOCFILE "<tr><td>$swbody</td></tr>\n";
+ $swbody = "";
+ }
+ $_ =~ s/!sw:[ ]*//g;
+ $_ =~ s/^[ ]*//g;
+ $_ =~ s/\n//gs;
+ $tmp = $_;
+ $tmp =~ s/\(.*\)//g;
+ $tmp =~ s/\$//g;
+ print DOCFILE "<tr bgcolor=\"$g_switchnametablecolor\"><td><b>$_</b></td></tr>\n";
+ } else {
+ if($swbody ne "")
+ {
+ $swbody="$swbody $_";
+ } else {
+ $swbody="$_";
+ }
+ }
+
+ }
+ if("$swbody" ne "")
+ {
+ print DOCFILE "<tr><td>$swbody</td></tr>\n";
+ }
+
+ print DOCFILE " </table>\n";
+ print DOCFILE " </td>\n";
+ print DOCFILE " </tr>\n";
+ }
+
+
+ if($parts{'functions'} ne "")
+ {
+ print_subtitle("Functions");
+
+ print DOCFILE " <tr bgcolor=\"$g_bodytablebgcolor\">\n";
+ print DOCFILE " <td>\n";
+ print DOCFILE " <table bgcolor=\"$g_classfncbodytablecolor\">\n";
+
+ @lines = split("\n","$parts{'functions'}");
+ $fncbody = "";
+ for(@lines)
+ {
+ if(/!fn:.*/)
+ {
+ if("$fncbody" ne "")
+ {
+ print DOCFILE "<tr><td>$fncbody</td></tr>\n";
+ $fncbody = "";
+ }
+ $_ =~ s/!fn:[ ]*//g;
+ $_ =~ s/^[ ]*//g;
+ $_ =~ s/\n//gs;
+ $tmp = $_;
+ $tmp =~ s/\(.*\)//g;
+ $tmp =~ s/\$//g;
+ print DOCFILE "<tr bgcolor=\"$g_classfnctablecolor\"><td><code><b><font color=\"$g_examplecolor\"><a name=\"$tmp\">$_</a></font></b></code></td></tr>\n";
+ } else {
+ if($fncbody ne "")
+ {
+ $fncbody="$fncbody $_";
+ } else {
+ $fncbody="$_";
+ }
+ }
+
+ }
+ if("$fncbody" ne "")
+ {
+ print DOCFILE "<tr><td>$fncbody</td></tr>\n";
+ }
+
+ print DOCFILE " </table>\n";
+ print DOCFILE " </td>\n";
+ print DOCFILE " </tr>\n";
+ }
+
+ if($parts{'signals'} ne "")
+ {
+ print_subtitle("Signals");
+
+ print DOCFILE " <tr bgcolor=\"$g_bodytablebgcolor\">\n";
+ print DOCFILE " <td>\n";
+ print DOCFILE " <table bgcolor=\"$g_classfncbodytablecolor\">\n";
+
+ @lines = split("\n","$parts{'signals'}");
+ $sigbody = "";
+ for(@lines)
+ {
+ if(/!sg:.*/)
+ {
+ if("$sigbody" ne "")
+ {
+ print DOCFILE "<tr><td>$sigbody</td></tr>\n";
+ $sigbody = "";
+ }
+ $_ =~ s/!sg:[ ]*//g;
+ $_ =~ s/^[ ]*//g;
+ $_ =~ s/\n//gs;
+ $tmp = $_;
+ $tmp =~ s/\(.*\)//g;
+ $tmp =~ s/\$//g;
+ print DOCFILE "<tr bgcolor=\"$g_classfnctablecolor\"><td><code><b><font color=\"$g_examplecolor\"><a name=\"$tmp\">$_</a></font></b></code></td></tr>\n";
+ } else {
+ if($sigbody ne "")
+ {
+ $sigbody="$sigbody $_";
+ } else {
+ $sigbody="$_";
+ }
+ }
+
+ }
+ if("$sigbody" ne "")
+ {
+ print DOCFILE "<tr><td>$sigbody</td></tr>\n";
+ }
+
+ print DOCFILE " </table>\n";
+ print DOCFILE " </td>\n";
+ print DOCFILE " </tr>\n";
+ }
+
+ if($parts{'syntax'} ne "")
+ {
+ process_kvs_syntax($parts{'syntax'});
+ print_entry("Syntax Specification","<font color=\"$g_kvssyntaxcolor\"><pre><code>$parts{'syntax'}</code></pre></font>");
+ }
+
+ print_entry("Examples","$parts{'examples'}");
+ print_entry("See also","$parts{'seealso'}");
+ print_tableend();
+
+
+ if($parts{'type'} eq "command")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_command_alphabetic_a$g_fileextension\">Commands</a>\n";
+ } elsif($parts{'type'} eq "function")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_function_alphabetic_a$g_fileextension\">Functions</a>\n";
+ } elsif($parts{'type'} eq "event")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_event_alphabetic_a$g_fileextension\">Events</a>\n";
+ } elsif($parts{'type'} eq "generic")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_generic_index_all$g_fileextension\">Miscellaneous</a>\n";
+ } elsif($parts{'type'} eq "language")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_language_index_all$g_fileextension\">Language Overview</a>\n";
+ } elsif($parts{'type'} eq "class")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_class_index_all$g_fileextension\">Object Classes</a>\n";
+ } elsif($parts{'type'} eq "module")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_module_index_all$g_fileextension\">Modules</a>\n";
+ } elsif($parts{'type'} eq "widget")
+ {
+ print DOCFILE "<hr><a href=\"index$g_fileextension\">Index</a>, <a href=\"doc_widget_index_all$g_fileextension\">Features</a>\n";
+ }
+
+ print_footer(DOCFILE);
+
+ close(DOCFILE);
+ } else { print "Can't open $g_directory/$docfilename$g_fileextension for writing\n"; }
+ }
+ }
+
+ close(CPPFILE);
+}
+
+
+#################################################################################################
+# COMMAND/FUNCTION.... INDEXES
+#################################################################################################
+
+sub generate_indexes
+{
+ my(@oldCommands);
+ my(@commands);
+ my(@sortedCommands);
+ my(@chars);
+ my($alllinks);
+ my($upcase);
+ my($count);
+
+ my($doctitle);
+ my($category);
+ my($number);
+
+ $doctitle = $_[0];
+ $category = $_[1];
+ $number = $_[2];
+
+ #print("Generating indexes for $doctitle $category $number\n");
+
+ ######################################################
+ # generate some helper stuff (alphabetic index links)
+
+ @chars=("\$","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
+
+ $i = 0;
+
+ $alllinks="<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\"><tr>";
+
+ for(@chars)
+ {
+ $alllinks = "$alllinks <td><a href=\"doc_$category\_alphabetic_$_$g_fileextension\">$_</a></td>\n";
+ $i++;
+ if($i > 13)
+ {
+ $i = 0;
+ $alllinks = "$alllinks</tr><tr>\n";
+ }
+ }
+
+ $alllinks ="$alllinks <td><a href=\"doc_$category\_index_all$g_fileextension\">All</a></td></tr></table>";
+
+ #####################################
+ # Simple plain long index
+
+ $i=0;
+
+ undef %terms;
+
+ while($i < $g_shortsIdx{$category})
+ {
+ $tmp="$category\_$i";
+ ($cmd,$short,$link) = split("<!>",$g_shorts{$tmp});
+ $terms{$cmd} = "1";
+ $commands[$i]=$g_shorts{$tmp};
+ $commands[$i] =~ s/\n//g;
+ $i++;
+ }
+
+ #####################################
+ # Load the other terms from the db (if there)
+ # Make sure that we do not overwrite the current entries
+ if(open(OLDDB,"$g_directory/_db_$category.idx"))
+ {
+ while(<OLDDB>)
+ {
+ $_ =~ s/\n//g;
+ if($_ ne "")
+ {
+ ($cmd,$short,$link) = split("<!>",$_);
+ if($terms{$cmd} ne "1")
+ {
+ $terms{$cmd} = "1";
+ $commands[$i]=$_;
+ $i++;
+ }
+ }
+ }
+ close(OLDDB);
+ }
+
+ $count = $i;
+
+
+ #####################################
+ # Re-dump them
+ if(open(OLDDB,"> $g_directory/_db_$category.idx"))
+ {
+ $i = 0;
+ while($i < $count)
+ {
+ print OLDDB "$commands[$i]\n";
+ $i++;
+ }
+ close(OLDDB);
+ }
+
+ @sortedCommands = sort @commands;
+
+ if(open(CMDINDEX,">$g_directory/doc_$category\_index_all$g_fileextension"))
+ {
+ $g_filehandle=CMDINDEX;
+
+ print_header("$doctitle: All");
+ print_tablestart();
+ print_title("$doctitle: All","");
+ print_tableend();
+
+ print_tablestart();
+ print_body($alllinks);
+ print_tableend();
+
+ print_tablestart();
+
+ $i=0;
+
+ while($i < $count)
+ {
+ ($cmd,$short,$link) = split("<!>",$sortedCommands[$i]);
+ $link =~ s/([a-zA-Z_]*)/\L\1/g;
+ print_twocolumnbody("<a href=\"$link\">$cmd</a>",$short);
+ $i++;
+ }
+
+ print_tableend();
+
+ print_tablestart();
+ print_body($alllinks);
+ print_tableend();
+
+ print_footer();
+
+ close(CMDINDEX);
+ } else {
+ print "Can't open $g_directory/doc_$category\_index_all$g_fileextension for writing\n";
+ }
+
+
+ #######################
+ # Alphabetic
+
+ for(@chars)
+ {
+ if(open(CMDINDEX,">$g_directory/doc_$category\_alphabetic_$_$g_fileextension"))
+ {
+
+ $upcase=$_;
+ $upcase=~ tr/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/;
+
+
+ $g_filehandle=CMDINDEX;
+
+ print_header("$doctitle: $_");
+ print_tablestart();
+ print_title("$doctitle: $_","");
+ print_tableend();
+
+ print_tablestart();
+ print_body($alllinks);
+ print_tableend();
+
+ print_tablestart();
+
+ $i=0;
+ $j=0;
+ if($number > 0)
+ {
+ #print("NUMBER > 0,COUNT = $count\n");
+ while($i < $count)
+ {
+ ($cmd,$short,$link) = split("<!>",$sortedCommands[$i]);
+ #$left=substr($cmd,0,$number);
+ #$right=$cmd;
+ #$right=~ s/^$left//;
+ $left = substr($cmd,0,$number);
+ $right = substr($cmd,$number);
+ $link =~ s/([a-zA-Z_]*)/\L\1/g;
+
+
+ #print("RIGHT=$right,_=$_,LEFT=$left,UPCASE=$upcase\n");
+
+ if(($right =~ /^$_/) or ($right =~ /^$upcase/) or ($right eq $_))
+ {
+ $j++;
+ print_twocolumnbody("<a href=\"$link\">$left$right</a>",$short);
+ }
+ $i++;
+ }
+
+ } else {
+ #print("NUMBER == 0,COUNT = $count\n");
+ while($i < $count)
+ {
+ ($cmd,$short,$link) = split("<!>",$sortedCommands[$i]);
+ $link =~ s/([a-zA-Z_]*)/\L\1/g;
+ if(($cmd =~ /^$_/) || ($cmd =~ /^$upcase/))
+ {
+ $j++;
+ print_twocolumnbody("<a href=\"$link\">$cmd</a>",$short);
+ }
+ $i++;
+ }
+ }
+
+ if($j == 0)
+ {
+ print_body("No matches");
+ }
+
+ print_tableend();
+
+ print_tablestart();
+ print_body($alllinks);
+ print_tableend();
+
+ print_footer();
+
+ close(CMDINDEX);
+ } else {
+ print "Can't open $g_directory/doc_$category\_alphabetic_$_$g_fileextension for writing\n";
+ }
+ }
+}
+
+#################################################################################################
+# MAIN
+#################################################################################################
+
+# Force flusing of STDOUT
+$|=1;
+
+print "*\n";
+print "* Generating documentation, this may take a while :)\n";
+print "*\n";
+print "* Extracting keyterms\n";
+# Extract the keywords to generate the crossreferences
+$i = 0;
+
+while($g_filesToProcess[$i] ne "")
+{
+ print ".";
+ extract_keyterms($g_filesToProcess[$i]);
+ $i++;
+}
+
+$g_files=$i - 1;
+
+print "\n";
+print "* Extracting documents and generating crossreferences\n";
+
+# Sort them
+@g_keytermsSorted = sort {length($b) <=> length($a)} keys(%g_keyterms);
+
+# Process the files now
+$i = 0;
+
+while($g_filesToProcess[$i] ne "")
+{
+ print ".";
+ process_file($g_filesToProcess[$i]);
+ $i++;
+}
+
+print "\n";
+print "* Generating indexes\n";
+
+print ".";
+generate_indexes("Commands","command",0);
+print ".";
+generate_indexes("Functions","function",1);
+print ".";
+generate_indexes("Modules","module",0);
+print ".";
+generate_indexes("Classes","class",0);
+print ".";
+generate_indexes("Events","event",2);
+print ".";
+generate_indexes("Language Documentation","language",0);
+print ".";
+generate_indexes("Features","widget",0);
+print ".";
+generate_indexes("Misc. Documentation","generic",0);
+print ".";
+generate_indexes("Keyterms & Concepts","keyterms",0);
+print ".";
+
+if(open(DOCINDEX,">$g_directory/index$g_fileextension"))
+{
+ $g_filehandle=DOCINDEX;
+ print_header("Documentation Index");
+ print_tablestart();
+ print_twocolumntitle("Index","");
+ print_twocolumnsubtitle("Fundamentals");
+ print_twocolumnbody("<a href=\"doc_ircintro$g_fileextension\">Introduction to IRC</a>","A \"must read\" for beginners");
+ print_twocolumnbody("<a href=\"doc_kvircintro$g_fileextension\">Introduction to KVIrc</a>","A couple of words about KVIrc");
+
+ print_twocolumnsubtitle("Scripting Concepts: The KVS Manual");
+ print_twocolumnbody("<a href=\"doc_kvs_introduction$g_fileextension\">Introduction to KVS</a>","Introduction to the KVIrc Scripting Language");
+ print_twocolumnbody("<a href=\"doc_kvs_basicconcepts$g_fileextension\">Basic KVS Concepts</a>","The first steps in the KVS world");
+ print_twocolumnbody("<a href=\"doc_kvs_aliasesandfunctions$g_fileextension\">Aliases and Functions</a>","How to write aliases/functions");
+ print_twocolumnbody("<a href=\"doc_kvs_datatypes$g_fileextension\">Variables</a>","Which types of variables are available and how to handle them");
+ print_twocolumnbody("<a href=\"doc_operators$g_fileextension\">Operators</a>","Describes simple operations with variables");
+ print_twocolumnbody("<a href=\"doc_events$g_fileextension\">Events</a>","How to handle network events in KVS ?");
+ print_twocolumnbody("<a href=\"doc_objects$g_fileextension\">Objects</a>","Object oriented scripting");
+ print_twocolumnbody("<a href=\"doc_kvs_addons$g_fileextension\">Addons</a>","How to write nice addons for KVIrc");
+ print_twocolumnbody("<a href=\"doc_kvs_codingtips$g_fileextension\">Coding Tips</a>","Some tips that may help you");
+ print_twocolumnbody("<a href=\"doc_language_index_all$g_fileextension\">All the language documents</a>","All the documents related to KVS");
+
+ print_twocolumnsubtitle("Scripting Reference");
+ print_twocolumnbody("<a href=\"doc_command_alphabetic_a$g_fileextension\">Commands</a>","The listing of available commands");
+ print_twocolumnbody("<a href=\"doc_function_alphabetic_a$g_fileextension\">Functions</a>","The listing of available functions");
+ print_twocolumnbody("<a href=\"doc_event_alphabetic_a$g_fileextension\">Events</a>","The listing of available events");
+ print_twocolumnbody("<a href=\"doc_class_index_all$g_fileextension\">Object Classes</a>","The listing of available object classes");
+ print_twocolumnsubtitle("Other Documents");
+ print_twocolumnbody("<a href=\"doc_keyboard$g_fileextension\">Keyboard shortcuts</a>","Map of the global keyboard shortcuts");
+ print_twocolumnbody("<a href=\"doc_module_index_all$g_fileextension\">Modules</a>","Documentation related to specific modules");
+ print_twocolumnbody("<a href=\"doc_widget_index_all$g_fileextension\">Features</a>","&nbsp;");
+ print_twocolumnbody("<a href=\"doc_generic_index_all$g_fileextension\">Miscellaneous</a>","Misc documentation that didn't find any other place");
+ print_twocolumnbody("<a href=\"doc_keyterms_index_all$g_fileextension\">Keyterms</a>","The (long) listing of all the keyterms");
+ print_tableend();
+ print_footer();
+
+ close(DOCINDEX);
+} else {
+ print "Can't open $g_directory/index$g_fileextension for writing\n";
+}
+
+if(open(NOHELP,">$g_directory/nohelpavailable$g_fileextension"))
+{
+ $g_filehandle=NOHELP;
+ print_header("No help available");
+
+ print_tablestart();
+ print_title("No help available","");
+ print_tableend();
+
+ print $g_filehandle "<center><h3>Sorry :(<br>Unfortunately there is no documentation related to the item you have selected</h3><br>\n";
+ print $g_filehandle "Please try a different search term or take a look at the <a href=\"index$g_fileextension\">documentation index</a> ";
+ print $g_filehandle "and try to locate the topic manually.</center><br><br>";
+ print_footer();
+ close(NOHELP);
+} else {
+ printf "Can't open $g_directory/nohelpavailable$g_fileextension for writing\n";
+}
+
+print "\n";
+print "*\n";
+print "* Done! (Processed $g_files files)\n";
+print "*\n";