diff options
| author | marcus <marcus@df743ca5-7f9a-e211-a948-0013205c9059> | 2009-01-12 01:51:34 +0800 |
|---|---|---|
| committer | marcus <marcus@df743ca5-7f9a-e211-a948-0013205c9059> | 2009-01-12 01:51:34 +0800 |
| commit | 2f836c64a2940e1460834c4085ba6d418001bf17 (patch) | |
| tree | 81909a3bce2caf57600151b32c8dcb1e7735c28c /textproc/intltool/files/OrigTree.pm | |
| parent | 262752d178a4a70c9cd941f23ee5052d0e8968d9 (diff) | |
| download | marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar.gz marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar.bz2 marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar.lz marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar.xz marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.tar.zst marcuscom-ports-2f836c64a2940e1460834c4085ba6d418001bf17.zip | |
Remove these ports now that they have been merged into the FreeBSD ports
tree.
git-svn-id: svn://creme-brulee.marcuscom.com/ports/trunk@11869 df743ca5-7f9a-e211-a948-0013205c9059
Diffstat (limited to 'textproc/intltool/files/OrigTree.pm')
| -rw-r--r-- | textproc/intltool/files/OrigTree.pm | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/textproc/intltool/files/OrigTree.pm b/textproc/intltool/files/OrigTree.pm deleted file mode 100644 index 16a02bfdd..000000000 --- a/textproc/intltool/files/OrigTree.pm +++ /dev/null @@ -1,91 +0,0 @@ -# $Id: OrigTree.pm,v 1.5 2008-06-05 12:50:44 kwm Exp $ - -package XML::Parser::Style::OrigTree; -$XML::Parser::Built_In_Styles{OrigTree} = 1; - -sub Init { - my $expat = shift; - $expat->{Lists} = []; - $expat->{Curlist} = $expat->{OrigTree} = []; -} - -sub Start { - my $expat = shift; - my $tag = shift; - my $newlist = [ { @_ } ]; - push @{ $expat->{Lists} }, $expat->{Curlist}; - push @{ $expat->{Curlist} }, $tag => $newlist; - $expat->{Curlist} = $newlist; -} - -sub End { - my $expat = shift; - my $tag = shift; - $expat->{Curlist} = pop @{ $expat->{Lists} }; -} - -sub Char { - my $expat = shift; - my $text = shift; - my $clist = $expat->{Curlist}; - my $pos = $#$clist; - - if ($pos > 0 and $clist->[$pos - 1] eq '0') { - $clist->[$pos] .= $expat->original_string(); - } else { - push @$clist, 0 => $expat->original_string(); - } -} - -sub Final { - my $expat = shift; - delete $expat->{Curlist}; - delete $expat->{Lists}; - $expat->{OrigTree}; -} - -1; -__END__ - -=head1 NAME - -XML::Parser::Style::OrigTree - -=head1 SYNOPSIS - - use XML::Parser; - my $p = XML::Parser->new(Style => 'OrigTree'); - my $tree = $p->parsefile('foo.xml'); - -=head1 DESCRIPTION - -This module is a variant of the XML::Parser's Tree style parser. It -uses original_string, so that Entities are not converted. - -When parsing a document, C<parse()> will return a parse tree for the -document. Each node in the tree -takes the form of a tag, content pair. Text nodes are represented with -a pseudo-tag of "0" and the string that is their content. For elements, -the content is an array reference. The first item in the array is a -(possibly empty) hash reference containing attributes. The remainder of -the array is a sequence of tag-content pairs representing the content -of the element. - -So for example the result of parsing: - - <foo><head id="a">Hello <em>there</em></head><bar>Howdy<ref/></bar>do</foo> - -would be: - Tag Content - ================================================================== - [foo, [{}, head, [{id => "a"}, 0, "Hello ", em, [{}, 0, "there"]], - bar, [ {}, 0, "Howdy", ref, [{}]], - 0, "do" - ] - ] - -The root document "foo", has 3 children: a "head" element, a "bar" -element and the text "do". After the empty attribute hash, these are -represented in it's contents by 3 tag-content pairs. - -=cut |