iotests: add test-case to 165 to test reopening qcow2 bitmaps to RW
[qemu/kevin.git] / scripts / shaderinclude.pl
blobcd3bb40b12ff818662a3f51a3cd718f1850dd15a
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
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", $_;
15 print " \"\\n\";\n";
16 close FILE;