Merge remote-tracking branch 'remotes/bonzini/tags/for-upstream' into staging
[qemu/ar7.git] / scripts / shaderinclude.pl
blob81b5146332f847aea3ba237b1c229bccf1eac3d3
1 #!/usr/bin/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;