1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#!/usr/bin/perl
#
# Copyright © 2014 Intel Corporation
#
# Permission is hereby granted, free of charge, to any person obtaining a
# copy of this software and associated documentation files (the "Software"),
# to deal in the Software without restriction, including without limitation
# the rights to use, copy, modify, merge, publish, distribute, sublicense,
# and/or sell copies of the Software, and to permit persons to whom the
# Software is furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice (including the next
# paragraph) shall be included in all copies or substantial portions of the
# Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
# IN THE SOFTWARE.
# For checking that shader_test's dependencies are correct.
#
# Run with
# ./check_dependencies.pl shaders/
#
# And then run a command like these to add dependencies to the [require]
# section:
#
# find shaders/ -name '*.shader_test' -exec grep -l '#version 120' {} + | xargs sed -i -e 's/GLSL >= 1.10/GLSL >= 1.20/'
# find shaders/ -name '*.shader_test' -exec grep -l '#extension GL_ARB_texture_rectangle : require' {} + | xargs sed -i -e 's/GLSL >= 1.20/GLSL >= 1.20\nGL_ARB_texture_rectangle/'
use strict;
use File::Find;
die("Not enough arguments: specify a directory\n") if ($#ARGV < 0);
# The array_diff function is copied from the Array::Utils package and contains
# this copyright:
#
# This module is Copyright (c) 2007 Sergei A. Fedorov.
# All rights reserved.
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
sub array_diff(\@\@) {
my %e = map { $_ => undef } @{$_[1]};
return @{[ ( grep { (exists $e{$_}) ? ( delete $e{$_} ) : ( 1 ) } @{ $_[0] } ), keys %e ] };
}
my @shader_test;
sub wanted {
push(@shader_test, $File::Find::name) if (/\.shader_test$/);
}
finddepth(\&wanted, @ARGV);
my $fail = 0;
foreach my $shader_test (@shader_test) {
my $expected;
my $actual;
my @expected_ext;
my @actual_ext;
open(my $fh, "<", $shader_test)
or die("cannot open < $shader_test: $!\n");
while (<$fh>) {
chomp;
if (/^GLSL >= (\d)\.(\d\d)/) {
$expected = $1 * 100 + $2;
}
if (/^\s*#\s*version\s+(\d{3})/) {
$actual = $1 if $actual == undef;
$actual = $1 if $actual < $1;
}
if (/^(GL_\S+)/) {
next if ($1 eq "GL_ARB_fragment_program" ||
$1 eq "GL_ARB_vertex_program");
push(@expected_ext, $1);
}
if (/^\s*#\s*extension\s+(GL_\S+)\s*:\s*require/) {
push(@actual_ext, $1);
}
}
close($fh);
if ($actual != undef && $expected != $actual) {
print "$shader_test requested $expected, but requires $actual\n";
$fail = 1;
}
my @extension = array_diff(@expected_ext, @actual_ext);
foreach my $extension (@extension) {
print "$shader_test extension $extension mismatch\n";
$fail = 1;
}
}
exit($fail);
|
