mirror of
https://github.com/nigels-com/glew.git
synced 2025-04-21 08:02: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
|
#GLEW_SPLIT_SOURCE = yes
|
||||||
|
|
||||||
SHELL = bash
|
SHELL = bash
|
||||||
PYTHON ?= python
|
|
||||||
|
|
||||||
EXT = extensions/gl
|
EXT = extensions/gl
|
||||||
CORE = core/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/ANGLE OpenGL-Registry/extensions
|
||||||
cp -r glfixes/gl/specs/REGAL OpenGL-Registry/extensions
|
cp -r glfixes/gl/specs/REGAL OpenGL-Registry/extensions
|
||||||
$(BIN)/update_ext.sh $(EXT) OpenGL-Registry/extensions $(BLACKLIST)
|
$(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
|
# perl $(BIN)/parse_xml.pl 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 --extensions extensions/gl
|
||||||
$(BIN)/filter_gl_ext.sh $(EXT)
|
$(BIN)/filter_gl_ext.sh $(EXT)
|
||||||
ifeq ($(patsubst Darwin%,Darwin,$(SYSTEM)), Darwin)
|
ifeq ($(patsubst Darwin%,Darwin,$(SYSTEM)), Darwin)
|
||||||
find $(CORE) -maxdepth 1 -type f | grep -v VERSION | grep -v "~" | \
|
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