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;
scripts: Switch to more portable Perl shebang The default NetBSD package manager is pkgsrc and it installs Perl along other third party programs under custom and configurable prefix. The default prefix for binary prebuilt packages is /usr/pkg, and the Perl executable lands in /usr/pkg/bin/perl. This change switches "/usr/bin/perl" to "/usr/bin/env perl" as it's the most portable solution that should work for almost everybody. Perl's executable is detected automatically. This change switches -w option passed to the executable with more modern "use warnings;" approach. There is no functional change to the default behavior. Signed-off-by: Kamil Rytarowski <n54@gmx.com> Reviewed-by: Philippe Mathieu-Daudé <f4bug@amsat.org> Signed-off-by: Michael Tokarev <mjt@tls.msk.ru> 2017-04-26 15:16:04 +02:00			`#!/usr/bin/env perl`
opengl: add shader build infrastructure perl script to transform shader programs into c include files with static string constands containing the shader programs, so we can easily embed them into qemu. Also some Makefile logic for them. Signed-off-by: Gerd Hoffmann <kraxel@redhat.com> Reviewed-by: Max Reitz <mreitz@redhat.com> 2015-01-16 13:59:17 +01:00			`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;`