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

scripts: Improved schema generation

parent 773249b3
...@@ -30,9 +30,11 @@ if ($#ARGV == 2) { ...@@ -30,9 +30,11 @@ if ($#ARGV == 2) {
my $parser = new XML::Parser(Style => "Stream"); my $parser = new XML::Parser(Style => "Stream");
$parser->parsefile($ARGV[0]); $parser->parsefile($ARGV[0]);
my %keys = {}; print "\t</schema>\n";
print "</schemalist>";
sub StartTag { sub StartTag {
my %keys = {};
my $parser = shift; my $parser = shift;
my $key = shift; my $key = shift;
if ($key =~ /object/) { if ($key =~ /object/) {
...@@ -82,7 +84,4 @@ sub StartTag { ...@@ -82,7 +84,4 @@ sub StartTag {
sub EndTag {} sub EndTag {}
sub Text {} sub Text {}
\ No newline at end of file
print "\t</schema>\n";
print "</schemalist>";
\ 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