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
leon3: use qdev gpio facilities for the PIL
[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
;