hw/arm/virt: parameter passing cleanups
[qemu.git] / 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;