First commit

1 files changed, 45 insertions, 0 deletions

diff --git a/ldmicro/txt2c.pl b/ldmicro/txt2c.pl
new file mode 100644
index 0000000..a2745dc
--- /dev/null
+++ b/ldmicro/txt2c.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+print <<EOT;
+// generated by txt2c.pl from $ARGV[0]
+#include <stdlib.h>
+EOT
+
+for $manual (<manual*txt>) {
+
+    if($manual eq 'manual.txt') {
+        $name = "HelpText";
+        # Some languages don't have translated manuals yet, so use English
+        $ifdef = "#if defined(LDLANG_EN) || defined(LDLANG_ES) || defined(LDLANG_IT) || " .
+                     "defined(LDLANG_PT)";
+    } elsif($manual =~ /manual-(.)(.)\.txt/) {
+        $p = uc($1) . lc($2);
+        $ifdef = "#ifdef LDLANG_" . uc($1 . $2);
+        $name = "HelpText$p";
+    } else {
+        die;
+    }
+
+    print <<EOT;
+$ifdef
+char *$name\[] = {
+EOT
+
+    open(IN, $manual) or die;
+    while(<IN>) {
+        chomp;
+        s/\\/\\\\/g;
+        s/"/\\"/g;
+
+        print qq{    "$_",\n};
+    }
+    close IN;
+
+    print <<EOT;
+    NULL
+};
+#endif
+
+EOT
+
+}