bin/txtinc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

#! /usr/bin/perl

# make some include files for linuxrc

map { s/^(.*\/)?([^\/]+)\.po/$2/ } @ARGV;

open W, ">text_inc.h";
print W "/*\n * This file is generated automatically. Editing it is pointless.\n */\n\n";
for (@ARGV) {
  print W "#ifdef TRANS_$_\n#include \"po/$_.h\"\n#endif\n\n"
}
close W;

open W, ">text_array.h";
print W "/*\n * This file is generated automatically. Editing it is pointless.\n */\n\n";
print W "static alltexts_t alltexts_arm [] = {\n";
@list = ( "en", grep { $_ ne en} @ARGV);

for ($i = 0 ; $i < @list; $i++) {
  print W "#ifdef TRANS_$list[$i]\n";
  print W "  { lang_$list[$i], LANG_ENTRY(txt_$list[$i]_atm) },\n";
  print W "#endif\n"
}
print W "};\n";
close W;

open W, ">text_langids.h";
print W "/*\n * This file is generated automatically. Editing it is pointless.\n */\n\n";
print W "/* lang_undef _must_ be 0 */\n\n";
print W "enum langid_t {\n";

@list = ( "undef", @ARGV );
for ($i = 0 ; $i < @list; $i++) {
  print W "  lang_$list[$i]";
  print W $i + 1 == @list ? "\n" : ",\n";
}
print W "};\n";
close W;