mirror of
https://github.com/nigels-com/glew.git
synced 2025-04-20 23:52:55 +00:00
[parse_xml] replaced call of python script with perl equivalent.
As reference while wrote script used next resources: http://perl101.org https://alvinalexander.com/perl/ https://grantm.github.io/perl-libxml-by-example/ https://www.techrepublic.com/article/perl-matching-using-regular- expressions/ https://stackoverflow.com/questions/1175390/how-do-i-compare-two- strings-in-perl https://stackoverflow.com/questions/1719990/why-am-i-getting-called-too- early-to-check-prototype-warnings-in-my-perl-code
This commit is contained in:
TheVice
parent
c49798062d
commit
7e7b9e0779
@ -10,7 +10,6 @@ include ../config/version
|
||||
#GLEW_SPLIT_SOURCE = yes
|
||||
|
||||
SHELL = bash
|
||||
PYTHON ?= python
|
||||
|
||||
EXT = extensions/gl
|
||||
CORE = core/gl
|
||||
@ -106,8 +105,8 @@ $(EXT)/.dummy: OpenGL-Registry/.dummy
|
||||
cp -r glfixes/gl/specs/ANGLE OpenGL-Registry/extensions
|
||||
cp -r glfixes/gl/specs/REGAL OpenGL-Registry/extensions
|
||||
$(BIN)/update_ext.sh $(EXT) OpenGL-Registry/extensions $(BLACKLIST)
|
||||
# $(PYTHON) $(BIN)/parse_xml.py EGL-Registry/api/egl.xml --core core/gl --extensions extensions/gl
|
||||
$(PYTHON) $(BIN)/parse_xml.py EGL-Registry/api/egl.xml --extensions extensions/gl
|
||||
# perl $(BIN)/parse_xml.pl EGL-Registry/api/egl.xml --core core/gl --extensions extensions/gl
|
||||
perl $(BIN)/parse_xml.pl EGL-Registry/api/egl.xml --extensions extensions/gl
|
||||
$(BIN)/filter_gl_ext.sh $(EXT)
|
||||
ifeq ($(patsubst Darwin%,Darwin,$(SYSTEM)), Darwin)
|
||||
find $(CORE) -maxdepth 1 -type f | grep -v VERSION | grep -v "~" | \
|
||||
|
||||
376
auto/bin/parse_xml.pl
Normal file
376
auto/bin/parse_xml.pl
Normal file
@ -0,0 +1,376 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use XML::LibXML;
|
||||
|
||||
sub findChildren
|
||||
{
|
||||
my @result = ();
|
||||
|
||||
my $len = @{$_[1]};
|
||||
my $nodeName = ${$_[1]}[0];
|
||||
|
||||
if (1 == $len)
|
||||
{
|
||||
foreach my $i ($_[0]->getChildNodes())
|
||||
{
|
||||
if (XML_ELEMENT_NODE == $i->nodeType())
|
||||
{
|
||||
if ($nodeName eq $i->nodeName())
|
||||
{
|
||||
push @result, $i;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
$len--;
|
||||
my @sub_path = @{$_[1]}[1..$len];
|
||||
|
||||
foreach my $i ($_[0]->getChildNodes())
|
||||
{
|
||||
if (XML_ELEMENT_NODE == $i->nodeType())
|
||||
{
|
||||
if ($nodeName eq $i->nodeName())
|
||||
{
|
||||
my @sub_result = findChildren($i, \@sub_path);
|
||||
my $pos = @result;
|
||||
splice @result, $pos, 0, @sub_result;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return @result;
|
||||
}
|
||||
|
||||
sub findData
|
||||
{
|
||||
my @result = ();
|
||||
my @nodes = findChildren($_[0], \@{$_[1]});
|
||||
|
||||
foreach my $i (@nodes)
|
||||
{
|
||||
push @result, $i->textContent();
|
||||
}
|
||||
|
||||
return @result;
|
||||
}
|
||||
|
||||
sub findParams
|
||||
{
|
||||
my @name = ('name');
|
||||
my @nodes = findData($_[0], \@name);
|
||||
|
||||
my $n = $nodes[0];
|
||||
my $t = '';
|
||||
|
||||
foreach my $i ($_[0]->getChildNodes())
|
||||
{
|
||||
if (XML_TEXT_NODE == $i->nodeType())
|
||||
{
|
||||
$t .= $i->textContent();
|
||||
}
|
||||
|
||||
if ((XML_ELEMENT_NODE == $i->nodeType()) and ('ptype' eq $i->nodeName()))
|
||||
{
|
||||
$t .= $i->firstChild()->textContent();
|
||||
}
|
||||
}
|
||||
|
||||
my %ret = ();
|
||||
$ret{$t} = $n;
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub findEnums
|
||||
{
|
||||
my @enum = ('registry', 'enums', 'enum');
|
||||
my @nodes = findChildren($_[0], \@enum);
|
||||
my %ret = ();
|
||||
|
||||
foreach my $i (@nodes)
|
||||
{
|
||||
my $n = $i->getAttribute('name');
|
||||
my $v = $i->getAttribute('value');
|
||||
$ret{$n} = $v;
|
||||
}
|
||||
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub findCommands
|
||||
{
|
||||
my @command = ('registry', 'commands', 'command');
|
||||
my @proto = ('proto');
|
||||
my @param = ('param');
|
||||
my @nodes = findChildren($_[0], \@command);
|
||||
my %ret = ();
|
||||
|
||||
foreach my $i (@nodes)
|
||||
{
|
||||
my @sub_nodes = findChildren($i, \@proto);
|
||||
my %r_n = findParams($sub_nodes[0]);
|
||||
|
||||
my @p = ();
|
||||
@sub_nodes = findChildren($i, \@param);
|
||||
|
||||
foreach my $j (@sub_nodes)
|
||||
{
|
||||
my %params = findParams($j);
|
||||
push @p, \%params;
|
||||
}
|
||||
|
||||
@sub_nodes = keys %r_n;
|
||||
my $r = $sub_nodes[0];
|
||||
|
||||
@sub_nodes = values %r_n;
|
||||
my $n = $sub_nodes[0];
|
||||
|
||||
$ret{$n} = {$r, \@p};
|
||||
}
|
||||
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub findFeaturesExtensions
|
||||
{
|
||||
my @enum = ('require', 'enum');
|
||||
my @command = ('require', 'command');
|
||||
my @nodes = findChildren($_[0], \@{$_[1]});
|
||||
my %ret = ();
|
||||
|
||||
foreach my $i (@nodes)
|
||||
{
|
||||
my $n = $i->getAttribute('name');
|
||||
my @e = ();
|
||||
my @c = ();
|
||||
|
||||
my @sub_nodes = findChildren($i, \@enum);
|
||||
|
||||
foreach my $j (@sub_nodes)
|
||||
{
|
||||
my $value = $j->getAttribute('name');
|
||||
push @e, $value;
|
||||
}
|
||||
|
||||
@sub_nodes = findChildren($i, \@command);
|
||||
|
||||
foreach my $j (@sub_nodes)
|
||||
{
|
||||
my $value = $j->getAttribute('name');
|
||||
push @c, $value;
|
||||
}
|
||||
|
||||
my @sub_ret = (\@e, \@c);
|
||||
$ret{$n} = \@sub_ret;
|
||||
}
|
||||
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub findFeatures
|
||||
{
|
||||
my @feature = ('registry', 'feature');
|
||||
return findFeaturesExtensions($_[0], \@feature);
|
||||
}
|
||||
|
||||
sub findExtensions
|
||||
{
|
||||
my @extension = ('registry', 'extensions', 'extension');
|
||||
return findFeaturesExtensions($_[0], \@extension);
|
||||
}
|
||||
|
||||
sub findApi
|
||||
{
|
||||
my $dom = $_[0];
|
||||
my %enums = findEnums($dom);
|
||||
my %commands = findCommands($dom);
|
||||
my %features = findFeatures($dom);
|
||||
my %extensions = findExtensions($dom);
|
||||
|
||||
return (\%enums, \%commands, \%features, \%extensions);
|
||||
}
|
||||
|
||||
sub writeExtension
|
||||
{
|
||||
my $f = $_[0];
|
||||
my $name = $_[1];
|
||||
my @extensions = @{$_[2]};
|
||||
my %enums = %{$_[3]};
|
||||
my %commands = %{$_[4]};
|
||||
|
||||
print {$f} "$name\n";
|
||||
print {$f} "https://www.khronos.org/registry/egl/specs/eglspec.1.5.pdf\n";
|
||||
|
||||
if ($name =~ m/_VERSION_/)
|
||||
{
|
||||
print {$f} "\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print {$f} "$name\n";
|
||||
}
|
||||
|
||||
print {$f} "\n";
|
||||
my %enums_ = ();
|
||||
|
||||
foreach my $j (@extensions)
|
||||
{
|
||||
my @arr = @{$j};
|
||||
my $j_ = $arr[0];
|
||||
@arr = @{$j_};
|
||||
|
||||
foreach my $j__ (@arr)
|
||||
{
|
||||
my $enum = $enums{$j__};
|
||||
$enums_{$j__} = $enum;
|
||||
}
|
||||
}
|
||||
|
||||
my %added_enums_ = ();
|
||||
|
||||
foreach my $j (sort values %enums_)
|
||||
{
|
||||
my $v = $enums_{$j};
|
||||
|
||||
foreach my $j_ (keys %enums_)
|
||||
{
|
||||
if ((not $added_enums_{$j_}) and ($j eq $enums{$j_}))
|
||||
{
|
||||
$added_enums_{$j_} = $j;
|
||||
print {$f} "\t$j_ $j\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my %commands_ = ();
|
||||
|
||||
foreach my $j (@extensions)
|
||||
{
|
||||
my @arr = @{$j};
|
||||
my $j_ = $arr[1];
|
||||
@arr = @{$j_};
|
||||
|
||||
foreach my $j__ (@arr)
|
||||
{
|
||||
my $command = $commands{$j__};
|
||||
$commands_{$j__} = $command;
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $j (sort keys %commands_)
|
||||
{
|
||||
my $value = $commands_{$j};
|
||||
my %value_ = %{$value};
|
||||
my @return_value = keys %value_;
|
||||
my $return_value_ = $return_value[0];
|
||||
|
||||
my @params = values %value_;
|
||||
my $params_ = $params[0];
|
||||
my @params__ = @{$params_};
|
||||
|
||||
my $str_params = '';
|
||||
|
||||
foreach my $j_ (@params__)
|
||||
{
|
||||
my @types = keys %{$j_};
|
||||
my @names = values %{$j_};
|
||||
|
||||
my $type = $types[0];
|
||||
my $name = $names[0];
|
||||
|
||||
$str_params .= $type . ' ' . $name . ', ';
|
||||
}
|
||||
|
||||
if (0 == length($str_params))
|
||||
{
|
||||
$str_params = ' void ';
|
||||
}
|
||||
else
|
||||
{
|
||||
$str_params = substr($str_params, 0, -2);
|
||||
}
|
||||
|
||||
my $full_command = "\t$return_value_ $j ($str_params)\n";
|
||||
print ${f} "$full_command";
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
if (@ARGV)
|
||||
{
|
||||
my $filename = '';
|
||||
my $options_core = '';
|
||||
my $options_extensions = '';
|
||||
my $fill_core = 0;
|
||||
my $fill_extensions = 0;
|
||||
|
||||
foreach my $argument (@ARGV)
|
||||
{
|
||||
if ($argument =~ m/^--core/)
|
||||
{
|
||||
$fill_core = 1;
|
||||
}
|
||||
elsif ($argument =~ m/^--extensions/)
|
||||
{
|
||||
$fill_extensions = 1;
|
||||
}
|
||||
elsif (0 == length($options_core) and 0 != $fill_core)
|
||||
{
|
||||
$options_core = $argument;
|
||||
$fill_core = 0;
|
||||
}
|
||||
elsif (0 == length($options_extensions) and 0 != $fill_extensions)
|
||||
{
|
||||
$options_extensions = $argument;
|
||||
$fill_extensions = 0;
|
||||
}
|
||||
elsif (0 == length($filename))
|
||||
{
|
||||
$filename = $argument;
|
||||
}
|
||||
}
|
||||
|
||||
my $dom = XML::LibXML->load_xml(location => $filename);
|
||||
my @api = findApi($dom);
|
||||
|
||||
my $enums_count = keys %{$api[0]};
|
||||
my $commands_count = keys %{$api[1]};
|
||||
my $features_count = keys %{$api[2]};
|
||||
my $extensions_count = keys %{$api[3]};
|
||||
|
||||
print("Found $enums_count enums, $commands_count commands, $features_count features and $extensions_count extensions.\n");
|
||||
|
||||
my %enums = %{$api[0]};
|
||||
my %commands = %{$api[1]};
|
||||
|
||||
if (0 != length($options_core))
|
||||
{
|
||||
foreach my $feature (sort keys %{$api[2]})
|
||||
{
|
||||
my %values_ = %{$api[2]};
|
||||
my @values__ = $values_{$feature};
|
||||
my $file_path = $options_core . '/' . $feature;
|
||||
open(my $f, '>', $file_path); # or continue;
|
||||
writeExtension($f, $feature, \@values__, \%enums, \%commands);
|
||||
close($f);
|
||||
# print("$file_path\n");
|
||||
}
|
||||
}
|
||||
|
||||
if (0 != length($options_extensions))
|
||||
{
|
||||
foreach my $ext (sort keys %{$api[3]})
|
||||
{
|
||||
my %values_ = %{$api[3]};
|
||||
my @values__ = $values_{$ext};
|
||||
my $file_path = $options_extensions . '/' . $ext;
|
||||
open(my $f, '>', $file_path); # or continue;
|
||||
writeExtension($f, $ext, \@values__, \%enums, \%commands);
|
||||
close($f);
|
||||
# print("$file_path\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user