summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/lib/perl5
diff options
context:
space:
mode:
authorManuel Traut <manut@mecka.net>2011-07-18 14:00:12 +0200
committerManuel Traut <manut@mecka.net>2011-07-18 14:00:12 +0200
commited006a8eb44831189e152826c692330d0a0cfe3b (patch)
tree66996c44c68a8787e4a35a85aea683975f307767 /beagle/debian-rfs/usr/lib/perl5
parent4493e8f707e62b9867d9cfd40205115140e7c993 (diff)
delete beagle-dir
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/lib/perl5')
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm283
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm78
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm160
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs0
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.sobin16860 -> 0 bytes
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs0
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.sobin8252 -> 0 bytes
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs0
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.sobin16644 -> 0 bytes
-rw-r--r--beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix3
10 files changed, 0 insertions, 524 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
deleted file mode 100644
index 4b024eb..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
+++ /dev/null
@@ -1,283 +0,0 @@
-package Locale::gettext;
-
-=head1 NAME
-
-Locale::gettext - message handling functions
-
-=head1 SYNOPSIS
-
- use Locale::gettext;
- use POSIX; # Needed for setlocale()
-
- setlocale(LC_MESSAGES, "");
-
- # OO interface
- my $d = Locale::gettext->domain("my_program");
-
- print $d->get("Welcome to my program"), "\n";
- # (printed in the local language)
-
- # Direct access to C functions
- textdomain("my_program");
-
- print gettext("Welcome to my program"), "\n";
- # (printed in the local language)
-
-=head1 DESCRIPTION
-
-The gettext module permits access from perl to the gettext() family of
-functions for retrieving message strings from databases constructed
-to internationalize software.
-
-=cut
-
-use Carp;
-use POSIX qw(:locale_h);
-
-require Exporter;
-require DynaLoader;
-@ISA = qw(Exporter DynaLoader);
-
-BEGIN {
- eval {
- require Encode;
- $encode_available = 1;
- };
- import Encode if ($encode_available);
-}
-
-$VERSION = "1.05" ;
-
-%EXPORT_TAGS = (
-
- locale_h => [qw(LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_ALL)],
-
- libintl_h => [qw(gettext textdomain bindtextdomain dcgettext dgettext ngettext dngettext dcngettext bind_textdomain_codeset)],
-
-);
-
-Exporter::export_tags();
-
-@EXPORT_OK = qw(
-);
-
-bootstrap Locale::gettext $VERSION;
-
-sub AUTOLOAD {
- local $! = 0;
- my $constname = $AUTOLOAD;
- $constname =~ s/.*:://;
- my $val = constant($constname, (@_ ? $_[0] : 0));
- if ($! == 0) {
- *$AUTOLOAD = sub { $val };
- }
- else {
- croak "Missing constant $constname";
- }
- goto &$AUTOLOAD;
-}
-
-=over 2
-
-=item $d = Locale::gettext->domain(DOMAIN)
-
-=item $d = Locale::gettext->domain_raw(DOMAIN)
-
-Creates a new object for retrieving strings in the domain B<DOMAIN>
-and returns it. C<domain> requests that strings be returned as
-Perl strings (possibly with wide characters) if possible while
-C<domain_raw> requests that octet strings directly from functions
-like C<dgettext()>.
-
-=cut
-
-sub domain_raw {
- my ($class, $domain) = @_;
- my $self = { domain => $domain, raw => 1 };
- bless $self, $class;
-}
-
-sub domain {
- my ($class, $domain) = @_;
- unless ($encode_available) {
- croak "Encode module not available, cannot use Locale::gettext->domain";
- }
- my $self = { domain => $domain, raw => 0 };
- bless $self, $class;
- eval { bind_textdomain_codeset($self->{domain}, "UTF-8"); };
- if ($@ =~ /not implemented/) {
- # emulate it
- $self->{emulate} = 1;
- } elsif ($@ ne '') {
- die; # some other problem
- }
- $self;
-}
-
-=item $d->get(MSGID)
-
-Calls C<dgettext()> to return the translated string for the given
-B<MSGID>.
-
-=cut
-
-sub get {
- my ($self, $msgid) = @_;
- $self->_convert(dgettext($self->{domain}, $msgid));
-}
-
-=item $d->cget(MSGID, CATEGORY)
-
-Calls C<dcgettext()> to return the translated string for the given
-B<MSGID> in the given B<CATEGORY>.
-
-=cut
-
-sub cget {
- my ($self, $msgid, $category) = @_;
- $self->_convert(dcgettext($self->{domain}, $msgid, $category));
-}
-
-=item $d->nget(MSGID, MSGID_PLURAL, N)
-
-Calls C<dngettext()> to return the translated string for the given
-B<MSGID> or B<MSGID_PLURAL> depending on B<N>.
-
-=cut
-
-sub nget {
- my ($self, $msgid, $msgid_plural, $n) = @_;
- $self->_convert(dngettext($self->{domain}, $msgid, $msgid_plural, $n));
-}
-
-=item $d->ncget(MSGID, MSGID_PLURAL, N, CATEGORY)
-
-Calls C<dngettext()> to return the translated string for the given
-B<MSGID> or B<MSGID_PLURAL> depending on B<N> in the given
-B<CATEGORY>.
-
-=cut
-
-sub ncget {
- my ($self, $msgid, $msgid_plural, $n, $category) = @_;
- $self->_convert(dcngettext($self->{domain}, $msgid, $msgid_plural, $n, $category));
-}
-
-=item $d->dir([NEWDIR])
-
-If B<NEWDIR> is given, calls C<bindtextdomain> to set the
-name of the directory where messages for the domain
-represented by C<$d> are found. Returns the (possibly changed)
-current directory name.
-
-=cut
-
-sub dir {
- my ($self, $newdir) = @_;
- if (defined($newdir)) {
- bindtextdomain($self->{domain}, $newdir);
- } else {
- bindtextdomain($self->{domain});
- }
-}
-
-=item $d->codeset([NEWCODE])
-
-For instances created with C<Locale::gettext-E<gt>domain_raw>, manuiplates
-the character set of the returned strings.
-If B<NEWCODE> is given, calls C<bind_textdomain_codeset> to set the
-character encoding in which messages for the domain
-represented by C<$d> are returned. Returns the (possibly changed)
-current encoding name.
-
-=cut
-
-sub codeset {
- my ($self, $codeset) = @_;
- if ($self->{raw} < 1) {
- warn "Locale::gettext->codeset: meaningful only for instances created with domain_raw";
- return;
- }
- if (defined($codeset)) {
- bind_textdomain_codeset($self->{domain}, $codeset);
- } else {
- bind_textdomain_codeset($self->{domain});
- }
-}
-
-sub _convert {
- my ($self, $str) = @_;
- return $str if ($self->{raw});
- # thanks to the use of UTF-8 in bind_textdomain_codeset, the
- # result should always be valid UTF-8 when raw mode is not used.
- if ($self->{emulate}) {
- delete $self->{emulate};
- $self->{raw} = 1;
- my $null = $self->get("");
- if ($null =~ /charset=(\S+)/) {
- $self->{decode_from} = $1;
- $self->{raw} = 0;
- } #else matches the behaviour of glibc - no null entry
- # means no conversion is done
- }
- if ($self->{decode_from}) {
- return decode($self->{decode_from}, $str);
- } else {
- return decode_utf8($str);
- }
-}
-
-sub DESTROY {
- my ($self) = @_;
-}
-
-=back
-
-gettext(), dgettext(), and dcgettext() attempt to retrieve a string
-matching their C<msgid> parameter within the context of the current
-locale. dcgettext() takes the message's category and the text domain
-as parameters while dgettext() defaults to the LC_MESSAGES category
-and gettext() defaults to LC_MESSAGES and uses the current text domain.
-If the string is not found in the database, then C<msgid> is returned.
-
-ngettext(), dngettext(), and dcngettext() function similarily but
-implement differentiation of messages between singular and plural.
-See the documentation for the corresponding C functions for details.
-
-textdomain() sets the current text domain and returns the previously
-active domain.
-
-I<bindtextdomain(domain, dirname)> instructs the retrieval functions to look
-for the databases belonging to domain C<domain> in the directory
-C<dirname>
-
-I<bind_textdomain_codeset(domain, codeset)> instructs the retrieval
-functions to translate the returned messages to the character encoding
-given by B<codeset> if the encoding of the message catalog is known.
-
-=head1 NOTES
-
-Not all platforms provide all of the functions. Functions that are
-not available in the underlying C library will not be available in
-Perl either.
-
-Perl programs should use the object interface. In addition to being
-able to return native Perl wide character strings,
-C<bind_textdomain_codeset> will be emulated if the C library does
-not provide it.
-
-=head1 VERSION
-
-1.05.
-
-=head1 SEE ALSO
-
-gettext(3i), gettext(1), msgfmt(1)
-
-=head1 AUTHOR
-
-Phillip Vandry <vandry@TZoNE.ORG>
-
-=cut
-
-1;
diff --git a/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm b/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm
deleted file mode 100644
index 8f8c78d..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-package Text::CharWidth;
-
-use 5.008;
-use strict;
-use warnings;
-
-require Exporter;
-
-our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(mbwidth mbswidth mblen);
-our @EXPORT = qw();
-our %EXPORT_TAGS = ('all' => [ @EXPORT_OK ]);
-
-our $VERSION = '0.04';
-
-require XSLoader;
-XSLoader::load('Text::CharWidth', $VERSION);
-
-# Preloaded methods go here.
-
-1;
-__END__
-# Below is stub documentation for your module. You'd better edit it!
-
-=head1 NAME
-
-Text::CharWidth - Get number of occupied columns of a string on terminal
-
-=head1 SYNOPSIS
-
- use Text::CharWidth qw(mbwidth mbswidth mblen);
- mbwidth(string);
- mbswidth(string);
- mblen(string);
-
-=head1 DESCRIPTION
-
-This module supplies features similar as wcwidth(3) and wcswidth(3)
-in C language.
-
-Characters have its own width on terminal depending on locale.
-For example, ASCII characters occupy one column per character,
-east Asian fullwidth characters (like Hiragana or Han Ideograph)
-occupy two columns per character, and combining characters (apperaring
-in ISO-8859-11 Thai, Unicode, and so on) occupy zero columns per
-character. mbwidth() gives the width of the first character of
-the given string and mbswidth() gives the width of the whole given
-string.
-
-The names of mbwidth and mbswidth came from "multibyte" versions
-of wcwidth and wcswidth which are "wide character" versions.
-
-I<mblen(string)> returns number of bytes of the first character of the
-string. Please note that a character may consist of multiple
-bytes in multibyte encodings such as UTF-8, EUC-JP, EUC-KR,
-GB2312, or Big5.
-
-I<mbwidth(string)> returns the width of the first character of the
-string. I<mbswidth(string)> returns the width of the whole string.
-
-Parameters are to be given in locale encodings, not always in UTF-8.
-
-=head1 SEE ALSO
-
-locale(5), wcwidth(3), wcswidth(3)
-
-=head1 AUTHOR
-
-Tomohiro KUBOTA, E<lt>kubota@debian.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Tomohiro KUBOTA
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
diff --git a/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm b/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm
deleted file mode 100644
index 435a33b..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm
+++ /dev/null
@@ -1,160 +0,0 @@
-package Text::Iconv;
-# @(#) $Id: Iconv.pm,v 1.10 2007/10/17 14:14:22 mxp Exp $
-# Copyright (c) 2007 Michael Piotrowski
-
-use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-
-require Exporter;
-require DynaLoader;
-require AutoLoader;
-
-@ISA = qw(Exporter AutoLoader DynaLoader);
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-@EXPORT_OK = qw(
- convert
-);
-$VERSION = '1.7';
-
-bootstrap Text::Iconv $VERSION;
-
-# Preloaded methods go here.
-
-# Autoload methods go after =cut, and are processed by the autosplit program.
-
-1;
-__END__
-# Below is the documentation for the module.
-
-=head1 NAME
-
-Text::Iconv - Perl interface to iconv() codeset conversion function
-
-=head1 SYNOPSIS
-
- use Text::Iconv;
- $converter = Text::Iconv->new("fromcode", "tocode");
- $converted = $converter->convert("Text to convert");
-
-=head1 DESCRIPTION
-
-The B<Text::Iconv> module provides a Perl interface to the iconv()
-function as defined by the Single UNIX Specification.
-
-The convert() method converts the encoding of characters in the input
-string from the I<fromcode> codeset to the I<tocode> codeset, and
-returns the result.
-
-Settings of I<fromcode> and I<tocode> and their permitted combinations
-are implementation-dependent. Valid values are specified in the
-system documentation; the iconv(1) utility should also provide a B<-l>
-option that lists all supported codesets.
-
-=head2 Utility methods
-
-B<Text::Iconv> objects also provide the following methods:
-
-retval() returns the return value of the underlying iconv() function
-for the last conversion; according to the Single UNIX Specification,
-this value indicates "the number of non-identical conversions
-performed." Note, however, that iconv implementations vary widely in
-the interpretation of this specification.
-
-This method can be called after calling convert(), e.g.:
-
- $result = $converter->convert("lorem ipsum dolor sit amet");
- $retval = $converter->retval;
-
-When called before the first call to convert(), or if an error occured
-during the conversion, retval() returns B<undef>.
-
-get_attr(): This method is only available with GNU libiconv, otherwise
-it throws an exception. The get_attr() method allows you to query
-various attributes which influence the behavior of convert(). The
-currently supported attributes are I<trivialp>, I<transliterate>, and
-I<discard_ilseq>, e.g.:
-
- $state = $converter->get_attr("transliterate");
-
-See iconvctl(3) for details. To ensure portability to other iconv
-implementations you should first check for the availability of this
-method using B<eval {}>, e.g.:
-
- eval { $conv->get_attr("trivialp") };
- if ($@)
- {
- # get_attr() is not available
- }
- else
- {
- # get_attr() is available
- }
-
-This method should be considered experimental.
-
-set_attr(): This method is only available with GNU libiconv, otherwise
-it throws an exception. The set_attr() method allows you to set
-various attributes which influence the behavior of convert(). The
-currently supported attributes are I<transliterate> and
-I<discard_ilseq>, e.g.:
-
- $state = $converter->set_attr("transliterate");
-
-See iconvctl(3) for details. To ensure portability to other iconv
-implementations you should first check for the availability of this
-method using B<eval {}>, cf. the description of set_attr() above.
-
-This method should be considered experimental.
-
-=head1 ERRORS
-
-If the conversion can't be initialized an exception is raised (using
-croak()).
-
-=head2 Handling of conversion errors
-
-I<Text::Iconv> provides a class attribute B<raise_error> and a
-corresponding class method for setting and getting its value. The
-handling of errors during conversion depends on the setting of this
-attribute. If B<raise_error> is set to a true value, an exception is
-raised; otherwise, the convert() method only returns B<undef>. By
-default B<raise_error> is false. Example usage:
-
- Text::Iconv->raise_error(1); # Conversion errors raise exceptions
- Text::Iconv->raise_error(0); # Conversion errors return undef
- $a = Text::Iconv->raise_error(); # Get current setting
-
-=head2 Per-object handling of conversion errors
-
-As an experimental feature, I<Text::Iconv> also provides an instance
-attribute B<raise_error> and a corresponding method for setting and
-getting its value. If B<raise_error> is B<undef>, the class-wide
-settings apply. If B<raise_error> is 1 or 0 (true or false), the
-object settings override the class-wide settings.
-
-Consult L<iconv(3)> for details on errors that might occur.
-
-=head2 Conversion of B<undef>
-
-Converting B<undef>, e.g.,
-
- $converted = $converter->convert(undef);
-
-always returns B<undef>. This is not considered an error.
-
-=head1 NOTES
-
-The supported codesets, their names, the supported conversions, and
-the quality of the conversions are all system-dependent.
-
-=head1 AUTHOR
-
-Michael Piotrowski <mxp@dynalabs.de>
-
-=head1 SEE ALSO
-
-iconv(1), iconv(3)
-
-=cut
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so
deleted file mode 100644
index 72645c0..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so
+++ /dev/null
Binary files differ
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so
deleted file mode 100644
index 45266b5..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so
+++ /dev/null
Binary files differ
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so
deleted file mode 100644
index 2e39019..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so
+++ /dev/null
Binary files differ
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix
deleted file mode 100644
index 1caf1ae..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for blib/lib/Text/Iconv.pm
-# (file acts as timestamp)
-1;