Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdevelop@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 24 insertions, 0 deletions

diff --git a/doc/tools/toc-gsdoc b/doc/tools/toc-gsdoc
new file mode 100644
index 00000000..69785d91
--- /dev/null
+++ b/doc/tools/toc-gsdoc
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use Getopt::Long;
+
+my $prefix = '';
+GetOptions( 'title=s'  => \$title,
+            'main=s'   => \$main ) || die "Wrong options\n";
+
+$file = $ARGV[0];
+open(FILE, "$file") || die "File not found: $file\n";
+
+print "<tocsect1 name=\"$title\" url=\"$main.html\">\n";
+
+while (<FILE>) {
+
+      if (/\<item\>\<uref url=\"(.+)\.html\"\>(.+)\<\/uref\>\<\/item\>/) {
+            $name = $1;
+            $url = "$1.html";
+            print "  <tocsect2 name=\"$name\" url=\"$url\"/>\n";
+      }
+
+}
+
+print "</tocsect1>\n";