5 my $name = shift(@_);
\r
6 open(OUTPUTC, "> $name.c");
\r
7 open(OUTPUTH, "> $name.h");
\r
17 $datan =~ s/\\r/\r/g;
\r
18 $datan =~ s/\\n/\n/g;
\r
19 $datan =~ s/\\01/\01/g;
\r
20 $datan =~ s/\\0/\0/g;
\r
22 printf(OUTPUTC "const char $var\[%d] = \n", length($datan) + 1);
\r
23 printf(OUTPUTC "/* \"$data\" */\n");
\r
24 printf(OUTPUTC "{");
\r
25 for($j = 0; $j < length($datan); $j++) {
\r
26 printf(OUTPUTC "%#02x, ", unpack("C", substr($datan, $j, 1)));
\r
28 printf(OUTPUTC "};\n");
\r
30 printf(OUTPUTH "extern const char $var\[%d];\n", length($datan) + 1);
\r
37 stringify("http-strings");
\r