qemu/scripts/shaderinclude.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $file = shift;
   6 open FILE, "<", $file or die "open $file: $!";
   7 my $name = $file;
   8 $name =~ s|.*/||;
   9 $name =~ s/[-.]/_/g;
  10 print "static GLchar ${name}_src[] =\n";
  11 while (<FILE>) {
  12     chomp;
  13     printf "    \"%s\\n\"\n", $_;
  14 }
  15 print "    \"\\n\";\n";
  16 close FILE;