repo.or.cz
/
qemu
/
ar7.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
target/mips: Remove XBurst Media eXtension Unit dead code
[qemu/ar7.git]
/
scripts
/
shaderinclude.pl
blob
cd3bb40b12ff818662a3f51a3cd718f1850dd15a
1
#!/usr/bin/env 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;