Commit 6cde6ea9 authored by Johannes Schmid's avatar Johannes Schmid

scripts: Improved schema generation

parent 773249b3
......@@ -30,9 +30,11 @@ if ($#ARGV == 2) {
my $parser = new XML::Parser(Style => "Stream");
$parser->parsefile($ARGV[0]);
my %keys = {};
print "\t</schema>\n";
print "</schemalist>";
sub StartTag {
my %keys = {};
my $parser = shift;
my $key = shift;
if ($key =~ /object/) {
......@@ -82,7 +84,4 @@ sub StartTag {
sub EndTag {}
sub Text {}
print "\t</schema>\n";
print "</schemalist>";
\ No newline at end of file
sub Text {}
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment