GtkSharp/parser/gapi-parser
Mike Kestner 4da6295257 2003-10-01 Mike Kestner <mkestner@ximian.com>
* README.generator : updates for new parser script
	* api/Makefile.in : add gtkhtml-api.xml
	* api/*-api.xml : regenerated
	* parser/makefile : install new parsing script
	* parser/gapi-parser : new xml-driven parsing script
	* sources/makefile : call new parsing script
	* sources/gtk-sharp-sources.xml : new parser input file
	* sources/gtk-sharp.sources : killed

svn path=/trunk/gtk-sharp/; revision=18491
2003-10-01 21:42:29 +00:00

66 lines
1.7 KiB
Perl
Executable file

#!/usr/bin/perl -w
use XML::LibXML;
die "Usage: gapi-parser <xml_sources_file>\n" if (!$ARGV[0]);
my $parser = new XML::LibXML;
my $doc = $parser->parse_file($ARGV[0]);
die "Unable to parse input file $ARGV[0].\n" if (!$doc);
my $root = $doc->documentElement;
die "Improperly formatted input file $ARGV[0].\n" if (!$root || $root->nodeName ne "gapi-parser-input");
for ($apinode = $root->firstChild; $apinode; $apinode = $apinode->nextSibling ()) {
next if ($apinode->nodeName ne "api");
@attrs = $apinode->attributes;
my ($outfile);
foreach $attr (@attrs) {
if ($attr->name eq "filename") {
$outfile = $attr->value;
} else {
die "Unexpected attribute $attr->name\n";
}
}
unlink "$outfile.pre";
for ($libnode = $apinode->firstChild; $libnode; $libnode = $libnode->nextSibling ()) {
next if ($libnode->nodeName ne "library");
@attrs = $libnode->attributes;
my ($lib);
foreach $attr (@attrs) {
if ($attr->name eq "name") {
$lib = $attr->value;
} else {
die "Unexpected attribute $attr->name\n";
}
}
for ($nsnode = $libnode->firstChild; $nsnode; $nsnode = $nsnode->nextSibling ()) {
next if ($nsnode->nodeName ne "namespace");
@attrs = $nsnode->attributes;
my ($ns);
foreach $attr (@attrs) {
if ($attr->name eq "name") {
$ns = $attr->value;
} else {
die "Unexpected attribute $attr->name\n";
}
}
for ($srcnode = $nsnode->firstChild; $srcnode; $srcnode = $srcnode->nextSibling ()) {
next if ($srcnode->nodeName ne "dir");
my ($dir);
$dir = $srcnode->firstChild->nodeValue;
print "$dir\n";
`ls $dir`;
system ("gapi_pp.pl $dir | gapi2xml.pl $ns $outfile.pre $lib");
}
}
}
system ("gapi_format_xml $outfile.pre $outfile");
unlink "$outfile.pre";
}