[mirror_qemu.git] / scripts / shaderinclude.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $file = shift;
open FILE, "<", $file or die "open $file: $!";
my $name = $file;
$name =~ s|.*/||;
$name =~ s/[-.]/_/g;
print "static GLchar ${name}_src[] =\n";
while (<FILE>) {
    chomp;
    printf "    \"%s\\n\"\n", $_;
}
print "    \"\\n\";\n";
close FILE;
Commit	Line	Data
b7d5a9c2	1	#!/usr/bin/env perl
d98bc0b6 GH	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;