summaryrefslogtreecommitdiff
path: root/split-to-files.pl
diff options
context:
space:
mode:
Diffstat (limited to 'split-to-files.pl')
-rwxr-xr-xsplit-to-files.pl33
1 files changed, 0 insertions, 33 deletions
diff --git a/split-to-files.pl b/split-to-files.pl
deleted file mode 100755
index f20dd6c..0000000
--- a/split-to-files.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env perl
-
-my $appname = $ARGV[0];
-my $log = $ARGV[1];
-
-if ($#ARGV != 1) {
- printf("usage: split-to-files.pl <appname> <log>\n");
-}
-
-mkdir("shaders/$appname");
-
-open(LOG, $log) or die;
-
-my $vert_index = 1;
-my $frag_index = 1;
-
-while (<LOG>) {
- my $line = $_;
- if ($line =~ /GLSL source for vertex shader/) {
- open(OUT, ">shaders/$appname/$vert_index.vert");
- $vert_index++;
- } elsif ($line =~ /GLSL source for fragment shader/) {
- open(OUT, ">shaders/$appname/$frag_index.frag");
- $frag_index++;
- } elsif ($line =~ /IR for linked/) {
- close(OUT);
- } elsif ($line =~ /IR for shader/) {
- close(OUT);
- } else {
- print OUT $line;
- }
-}
-close $fh;