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
|
#!/usr/bin/perl
use strict;
use File::Basename;
open (FH, $ARGV[0]) || die ("Cant open $ARGV[1]");
my $fname=basename($ARGV[0]);
$fname =~ s/\./_/;
my $header=$fname.".h";
my $source=$fname.".cpp";
my $size = 0;
open SRC, ">", $source || die ("Can't create header file %s");
printf SRC "\n//This file is auto-generated. Do not modify.\n\n\nextern const char *modelXml = ";
foreach my $line (<FH>)
{
$size += length($line);
$line =~ s/\"/\\"/g;
chomp $line;
#print '"'."$line".'"';
printf SRC '"';
printf SRC $line;
printf SRC "\\n\"\n";
}
print SRC "\"\";\n";
close(SRC);
open HDR, ">", $header || die ("Can't create header file %s");
printf HDR "#ifndef __".$fname."_h__\n#define __"."$fname"."_h__\n\nextern const char *modelXml;\nenum {modelXmlSize=$size};\n#endif\n";
close(HDR);
close(FH);
|
