From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001 From: Manuel Traut Date: Mon, 18 Jul 2011 14:00:12 +0200 Subject: delete beagle-dir Signed-off-by: Manuel Traut --- beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm | 283 --------------------- beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm | 78 ------ beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm | 160 ------------ .../usr/lib/perl5/auto/Locale/gettext/gettext.bs | 0 .../usr/lib/perl5/auto/Locale/gettext/gettext.so | Bin 16860 -> 0 bytes .../usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs | 0 .../usr/lib/perl5/auto/Text/CharWidth/CharWidth.so | Bin 8252 -> 0 bytes .../usr/lib/perl5/auto/Text/Iconv/Iconv.bs | 0 .../usr/lib/perl5/auto/Text/Iconv/Iconv.so | Bin 16644 -> 0 bytes .../usr/lib/perl5/auto/Text/Iconv/autosplit.ix | 3 - 10 files changed, 524 deletions(-) delete mode 100644 beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm delete mode 100644 beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm delete mode 100644 beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so delete mode 100644 beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix (limited to 'beagle/debian-rfs/usr/lib/perl5') 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 -and returns it. C requests that strings be returned as -Perl strings (possibly with wide characters) if possible while -C requests that octet strings directly from functions -like C. - -=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 to return the translated string for the given -B. - -=cut - -sub get { - my ($self, $msgid) = @_; - $self->_convert(dgettext($self->{domain}, $msgid)); -} - -=item $d->cget(MSGID, CATEGORY) - -Calls C to return the translated string for the given -B in the given B. - -=cut - -sub cget { - my ($self, $msgid, $category) = @_; - $self->_convert(dcgettext($self->{domain}, $msgid, $category)); -} - -=item $d->nget(MSGID, MSGID_PLURAL, N) - -Calls C to return the translated string for the given -B or B depending on B. - -=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 to return the translated string for the given -B or B depending on B in the given -B. - -=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 is given, calls C 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 Cdomain_raw>, manuiplates -the character set of the returned strings. -If B is given, calls C 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 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 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 instructs the retrieval functions to look -for the databases belonging to domain C in the directory -C - -I instructs the retrieval -functions to translate the returned messages to the character encoding -given by B 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 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 - -=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 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 returns the width of the first character of the -string. I 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, Ekubota@debian.orgE - -=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 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 codeset to the I codeset, and -returns the result. - -Settings of I and I 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 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. - -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, I, and -I, 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, 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 and -I, 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, 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 provides a class attribute B 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 is set to a true value, an exception is -raised; otherwise, the convert() method only returns B. By -default B 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 also provides an instance -attribute B and a corresponding method for setting and -getting its value. If B is B, the class-wide -settings apply. If B is 1 or 0 (true or false), the -object settings override the class-wide settings. - -Consult L for details on errors that might occur. - -=head2 Conversion of B - -Converting B, e.g., - - $converted = $converter->convert(undef); - -always returns B. 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 - -=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 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 Binary files a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so and /dev/null 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 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 Binary files a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so and /dev/null 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 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 Binary files a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so and /dev/null 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; -- cgit v1.2.3