Pileus Git - ~andy/gtk/blob - gdk/broadway/toarray.pl

   1 #!/usr/bin/perl -w
   2
   3 my $FILENAME = $ARGV[0];
   4
   5 open FILE, $FILENAME or die "Cannot open $FILENAME";
   6
   7 my $ARRAYNAME = $ARGV[1];
   8 print "static const char $ARRAYNAME\[\] =";
   9 while (<FILE>) {
  10     s@\\@\\\\@g;
  11     s@"@\\"@g;
  12     chomp ($_);
  13     print "\n  \"$_\\n\"";
  14 }
  15 print ";\n";