qemu

FORK: QEMU emulator
git clone https://git.neptards.moe/neptards/qemu.git
Log | Files | Refs | Submodules | LICENSE

shaderinclude.pl (310B)

      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;