solenv/bin/make_ext_update_info.pl

157     my $parser = shift;
161         && $descNS eq $parser->namespace($name))
167            && $descNS eq $parser->namespace($name))
171         $indent = $parser->current_column();
172         print $FH " "x$indent, $parser->original_string();
176            && $descNS eq $parser->namespace($name))
180         print $FH " "x$parser->current_column(), $parser->original_string();
184            && $descNS eq $parser->namespace($name))
187         my $dep = $parser->original_string();
195         print $FH " "x$parser->current_column(), $dep1;
202         my $orig = $parser->original_string();
208         if ($2 !~/(.*?):/ && $parser->namespace($name)) {
217             my $defNsCur = $parser->expand_ns_prefix("#default");
254     my $parser = shift;
258         && $descNS eq $parser->namespace($name))
264            && $descNS eq $parser->namespace($name))
267         print $FH $parser->original_string(), "\n";
271            && $descNS eq $parser->namespace($name))
274         print $FH $parser->original_string(), "\n";
278           && $descNS eq $parser->namespace($name))
281         print $FH $parser->original_string(), "\n";
285         my $orig = $parser->original_string();
299     my $parser = shift;
302         print $FH $parser->original_string();
304         print $FH $parser->original_string();
313     my $parser = shift;
316         && $descNS eq $parser->namespace($name)) {
321            && $descNS eq $parser->namespace($name)) {
324         my @cur = $parser->current_ns_prefixes();
326             $validPrefsInDep{$_} = $parser->expand_ns_prefix($_);
329         @newPrefsInDep = $parser->new_ns_prefixes();
331         collectPrefixes($parser, $name, \@_, \@usedNsInDependencies);
338         my $orig = $parser->original_string();
341         if ($2 !~/(.*?):/ && $parser->namespace($name)) {
350             my $defNsCur = $parser->expand_ns_prefix("#default");
377         determineNsDefinitions($parser, $name, \@_);
378         collectPrefixes($parser, $name, \@_, \@usedNsInDependencies);
385     my $parser = shift;
389         && $descNS eq $parser->namespace($name)) {
394           && $descNS eq $parser->namespace($name)) {
406         my $parser = new XML::Parser(ErrorContext => 2,
408         $parser->setHandlers(Start => \&start_handler_infos,
411         $parser->parsefile($desc);
442         my $parser = new XML::Parser(ErrorContext => 2,
444         $parser->setHandlers(
448         $parser->parsefile($desc);
480     my $parser = shift;
485     my @cur = $parser->current_ns_prefixes();
492         my $ns = $parser->expand_ns_prefix($_);
496     my $pref = $map_ns{$parser->namespace($name)};
501         my $ns = $parser->namespace($attr);
511     my @newNs = $parser->new_ns_prefixes();
530     my ($parser, $name, $attr_r) = @_;
533     determineNsDefinitionForItem($parser, $name, 1);
536         determineNsDefinitionForItem($parser, $attr, 0);
547     my ($parser, $name) = @_;
548     my $ns = $parser->namespace($name);
569         my @curNs = $parser->current_ns_prefixes();
571             $curPrefToNs{$_} = $parser->expand_ns_prefix($_);