add useful tool

tools/docgen.pl

@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+use FindBin;
+use File::Path;
+
+if(@ARGV < 3){
+	print("Usage ./tools/docgen.pl lsp outdir indir ...\n");
+	exit(1);
+}
+
+sub scan {
+	my @args = @_;
+	my $path = $args[0];
+	my $top = $args[1];
+
+	opendir(my $dh, $path);
+
+	my @files = readdir($dh);
+	foreach my $file (@files){
+		if(($file eq ".") || ($file eq "..")){
+			next;
+		}
+
+		if(-d "$path/$file"){
+			scan("$path/$file", $top);
+		}else{
+			print("$path/$file\n");
+
+			my $dir = "$ARGV[1]/$file";
+
+			$dir =~ s/\..*$//;
+
+			mkpath($dir);
+
+			system("$FindBin::Bin/lsp.pl \"$ARGV[0]\" \"$path/$file\" \"$dir/index.xml\" \"$top\"\n");
+		}
+	}
+
+	closedir($dh);
+}
+
+for(my $i = 2; $i < @ARGV; $i += 1){
+	scan($ARGV[$i], $ARGV[$i]);
+}