File: xml2h.pl

package info (click to toggle)
ddccontrol-db 20230223-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,640 kB
  • sloc: xml: 4,830; sh: 119; makefile: 32; sed: 16; perl: 12
file content (16 lines) | stat: -rw-r--r-- 301 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
open(FILE, $ARGV[0]);
open(HEADER, ">$ARGV[0].h");

print HEADER "//Dummy header file used for translation generation...\n";
print HEADER "#define DUMMY {\n";

for (<FILE>) {
	if ($_ =~ /name=\"(.*?)\"/) {
		print HEADER "printf(_(\"$1\"));\n";
	}
}

print HEADER  "}\n";

close(HEADER);
close(FILE);