diff options
| author | Tijl Coosemans <tijl@FreeBSD.org> | 2015-04-03 15:55:53 +0000 |
|---|---|---|
| committer | Tijl Coosemans <tijl@FreeBSD.org> | 2015-04-03 15:55:53 +0000 |
| commit | 86931959a74093c8901378ee1ae12f8bfe35374b (patch) | |
| tree | e49f2bffc0a03a3fbd85750a6789676a11b03fa0 /textproc/intltool/files/OrigTree.pm | |
| parent | - Chase renamed vnsiserver5 -> vnsiserver plugin. (diff) | |
Add two patches to textproc/intltool so it works better with USES=autoreconf
- Patch intltool.m4 so translations are always installed in
PREFIX/share/locale instead of PREFIX/lib/locale (USE_GNOME=intlhack
also does this for ports without USES=autoreconf)
- Patch intltoolize.in so it creates the directory where it will copy
intltool.m4 into if it doesn't exist yet
Also remove old CONFIGURE_ARGS, CONFLICTS, post-patch and post-install
from Makefile and remove an old patch.
PR: 198123
Exp-run by: antoine
Approved by: gnome (kwm), portmgr (antoine)
Notes
Notes:
svn path=/head/; revision=383140
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 020400cfa35c..000000000000 --- a/textproc/intltool/files/OrigTree.pm +++ /dev/null @@ -1,91 +0,0 @@ -# $Id: OrigTree.pm,v 1.1 2003/11/26 15:18:28 kenneth 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 |