1 files changed, 51 insertions, 7 deletions

diff --git a/tools/genlang b/tools/genlang
index 827ceb3949..2e3f212023 100755
--- a/tools/genlang
+++ b/tools/genlang
@@ -1,25 +1,51 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -s
 
 if(!$ARGV[0]) {
     print <<MOO
-Usage: lang.pl <file>
+Usage: lang.pl [-p=<prefix>] <language file>
+
+When running this program. <prefix>.h and <prefix>.c will be created in the
+"current directory". <prefix> is "lang" by default.
 MOO
 ;
     exit;
 }
 
-print <<MOO
-/* This file was automaticly generated using genlan */
+my $prefix = $p;
+if(!$prefix) {
+    $prefix="lang";
+}
+
+my $input = $ARGV[0];
+
+open(HFILE, ">$prefix.h");
+open(CFILE, ">$prefix.c");
+
+print HFILE <<MOO
+/* This file was automaticly generated using genlang */
 /*
  * The str() macro/functions is how to access strings that might be
  * translated. Use it like str(MACRO) and except a string to be
  * returned!
  */
-#define str(x) x
+#define str(x) language_strings[x]
+
+/* this is the array with all the strings */
+extern unsigned char *language_strings[];
+
+enum {
+MOO
+    ;
+
+print CFILE <<MOO
+/* This file was automaticly generated using genlang, the strings come
+   from "$input" */
+
+unsigned char *language_strings[]={
 MOO
     ;
 
-open(LANG, "<$ARGV[0]");
+open(LANG, "<$input");
 while(<LANG>) {
     if($_ =~ / *\#/) {
         # comment
@@ -39,7 +65,9 @@ while(<LANG>) {
                 $value = $set{'eng'};
             }
 
-            print "#define ".$set{'id'}." $value\n";
+            print HFILE " ".$set{'id'}.",\n";
+            print CFILE "   $value,\n";
+
             undef %set;
         }
 
@@ -47,3 +75,19 @@ while(<LANG>) {
 
 }
 close(LANG);
+
+
+print HFILE <<MOO
+};
+/* end of generated enum list */
+MOO
+    ;
+
+print CFILE <<MOO
+};
+/* end of generated string list */
+MOO
+    ;
+
+close(CFILE);
+close(HFILE);