[Midnightbsd-cvs] mports: intltool/files: Not needed anymore
stevan at midnightbsd.org
stevan at midnightbsd.org
Thu Jun 19 09:20:34 EDT 2008
Log Message:
-----------
Not needed anymore
Removed Files:
-------------
mports/textproc/intltool/files:
OrigTree.pm
patch-configure
patch-intltool-merge.in.in
-------------- next part --------------
--- textproc/intltool/files/patch-configure
+++ /dev/null
@@ -1,14 +0,0 @@
-
-$FreeBSD: ports/textproc/intltool/files/patch-configure,v 1.3 2002/05/24 07:56:26 sobomax Exp $
-
---- configure.orig Mon May 20 01:34:39 2002
-+++ configure Fri May 24 10:52:12 2002
-@@ -1452,7 +1452,7 @@
- echo "$as_me: error: perl not found" >&2;}
- { (exit 1); exit 1; }; }
- fi
--if test -z "`$PERL -v | fgrep 'v5.' 2> /dev/null`" -a -z "`$PERL -v | fgrep 'version 5.' 2> /dev/null`"; then
-+if test -z "`$PERL -v | fgrep '5.' 2> /dev/null`" -a -z "`$PERL -v | fgrep 'version 5.' 2> /dev/null`"; then
- { { echo "$as_me:$LINENO: error: perl 5.x required for intltool" >&5
- echo "$as_me: error: perl 5.x required for intltool" >&2;}
- { (exit 1); exit 1; }; }
--- textproc/intltool/files/patch-intltool-merge.in.in
+++ /dev/null
@@ -1,11 +0,0 @@
---- intltool-merge.in.in.orig Mon Dec 8 21:27:55 2003
-+++ intltool-merge.in.in Mon Dec 8 21:28:05 2003
-@@ -875,7 +875,7 @@
- if ($MULTIPLE_OUTPUT) {
- for my $lang (sort keys %po_files_by_lang) {
- if ( ! -e $lang ) {
-- mkdir $lang or die "Cannot create subdirectory $lang: $!\n";
-+ mkdir $lang, 0777 or die "Cannot create subdirectory $lang: $!\n";
- }
- open OUTPUT, ">$lang/$OUTFILE" or die "Cannot open $lang/$OUTFILE: $!\n";
- my $tree = readXml($FILE);
--- 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
More information about the Midnightbsd-cvs
mailing list