File: txt2h.pl

package info (click to toggle)
newsbeuter 2.8-2
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 2,688 kB
  • sloc: cpp: 18,132; ruby: 1,796; xml: 350; makefile: 199; sh: 198; perl: 98
file content (32 lines) | stat: -rwxr-xr-x 575 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl -w

use strict;
use File::Basename;

if (scalar(@ARGV) < 1) {
  print STDOUT "usage: $0 <stflfile> [<extension>]\n";
  exit(1);
}

my ($filename, $extension) = @ARGV;
my $id = basename($filename, $extension);
chomp($id);

open(my $fh, '<', $filename) or die "couldn't open $filename: $!\n";

print "#ifndef ${id}__h_included\n";
print "#define ${id}__h_included\n";
print "\n";
print "static char ${id}_str[] = \"\" ";

while (my $line = <$fh>) {
  $line =~ s/"/\\"/g;
  chomp($line);
  print "\"$line\\n\"\n";
}

close($fh);


print ";\n";
print "#endif\n";