summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/genlang58
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);