Anton Tagunov <tagunov@motor.ru>
Autrijus Tang <autrijus@autrijus.org>
Dan Kogai <dankogai@dan.co.jp>
+Gerrit P. Haase <gp@familiehaase.de>
Jarkko Hietaniemi <jhi@iki.fi>
Michael G Schwern <schwern@pobox.com>
+Nicholas Clark <nick@ccl4.org>
Nick Ing-Simmons <nick@ing-simmons.net>
Paul Marquess <paul_marquess@yahoo.co.uk>
SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
+Spider Boardman <spider@web.zk3.dec.com>
my $name = 'Byte';
my %tables = (
- '8bit' =>
+ byte_t =>
[
- 'ascii.ucm',
+ # 'ascii.ucm',
'koi8-r.ucm',
'viscii.ucm',
],
- Mac =>
+ mac_t =>
[
qw(macCentEuro.enc macCroatian.enc
macCyrillic.enc macDingbats.enc
macSami.enc macThai.enc
macTurkish.enc macUkraine.enc),
],
-
);
opendir(ENC,'../Encode');
{
if ($file =~ /(8859|ibm).*\.ucm/io)
{
- push(@{$tables{$1}},$file);
+ push(@{$tables{$1."_t"}},$file) unless $file eq '8859-1.ucm';
}
}
closedir(ENC);
package Encode::CN;
-our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+BEGIN {
+ if (ord("A") == 193) {
+ die "Encode::CN not supported on EBCDIC\n";
+ }
+}
+our $VERSION = do { my @r = (q$Revision: 0.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode;
use Encode::CN::HZ;
use strict;
use ExtUtils::MakeMaker;
-my %tables = (EUC_CN => ['euc-cn.enc'],
- GB2312 => ['gb2312.enc'],
- GB12345 => ['gb12345.enc'],
- CP936 => ['cp936.enc'],
- 'ISO_IR_165' => ['iso-ir-165.enc'],
+my %tables = (euc_cn_t => ['euc-cn.enc'],
+ '2312_t' => ['gb2312.enc'],
+ '12345_t' => ['gb12345.enc'],
+ cp_cn_t => ['cp936.enc'],
+ ir_165_t => ['iso-ir-165.enc'],
);
my $name = 'CN';
# Revision history for Perl extension Encode.
#
-# $Id: Changes,v 0.96 2002/03/22 22:22:53 dankogai Exp dankogai $
+# $Id: Changes,v 0.97 2002/03/23 20:24:42 dankogai Exp dankogai $
#
+0.97 Sun Mar 24 2002
+! CN/CN.pm
+! KR/KR.pm
+! TW/TW.pm
+ EBCDIC detection mechanism installed as in JP/JP.pm
+ Message-Id: <20020323211847.G19148@alpha.hut.fi>
+! Byte/Makefile.PL
+! CN/Makefile.PL
+! EBCDIC/Makefile.PL
+! JP/Makefile.PL
+! KR/Makefile.PL
+! Symbol/Makefile.PL
+! TW/Makefile.PL
+ Now all table files used by compile are postfixed '_t' to avoid
+ namespace collisions in case insensitive file systems once for all!
+ inspired by:
+ Message-ID: <58290227735.20020323195659@familiehaase.de>
+! t/Aliases.t
+ Since the Encode::JP is unsupported under EBCDIC we
+ cannot run this test (aliases as such should work fine) -- jhi
+ Message-Id: <20020323202119.D19148@alpha.hut.fi>
+! Byte/Makefile.PL
+ duplicate occurance of ascii.ucm and 8859-1.ucm
+ causes MacOS X dlyd to cloak
+! t/CN.t
+! t/Encode.t
+! t/JP.t
+! t/TW.t
+! t/Tcl.t
+ < chdir 't' if -d 't';
+ ---
+ > if (! -d 'blib' and -d 't'){ chdir 't' };
+ When you are "make test"-ing on Encode/ directory, you must not
+ change $ENV{PWD}. t/JP.t has been fixed before but others somehow
+ remain unchanced. Also the situation detection was made simpler
+ in t/JP.t, which was originally;
+ > chdir 't' if -d 't' and $ENV{PWD} !~ m,/Encode[^/]*$,o;
+! Encode.pm
+ "Use of uninitialized value in string eq at Encode.pm line 96."
+! Symbol/Makefile.PL
+! EBCDIC/Makefile.PL
+! AUTHOR
+ -- Problem on case insensitive file systems
+ "coexist of ebcdic.c <> EBCDIC.c on Cygwin not possible"
+ Message-ID: <88254111953.20020323095503@familiehaase.de>
+! compile
+! AUTHOR
+ "So I think it's a bug in gcc, not perl. But it still needs to be
+ worked around."
+ Message-Id: <20020323145840.GD304@Bagpuss.unfortu.net>
+ Message-Id: <20020323170509.C96475@plum.flirble.org>
+
0.96 Sat Mar 23 2002
! TW/TW.pm
! lib/Encode/Encoding.pm
my $name = 'EBCDIC';
my %tables = (
- ebcdic => ['cp1047.ucm','cp37.ucm','posix-bc.ucm'],
+ ebcdic_t => ['cp1047.ucm','cp37.ucm','posix-bc.ucm'],
);
WriteMakefile(
package Encode;
use strict;
-our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our $DEBUG = 0;
require DynaLoader;
sub encodings
{
my $class = shift;
- my @modules = ($_[0] eq ":all") ? values %ExtModule : @_;
+ my @modules = (@_ and $_[0] eq ":all") ? values %ExtModule : @_;
for my $m (@modules)
{
$DEBUG and warn "about to require $m;";
/* #include "8859.h" */
/* #include "EBCDIC.h" */
/* #include "Symbols.h" */
-#include "defcodes.h"
+#include "def_t.h"
#define UNIMPLEMENTED(x,y) y x (SV *sv, char *encoding) {dTHX; \
Perl_croak(aTHX_ "panic_unimplemented"); \
/* #include "8859_def.h" */
/* #include "EBCDIC_def.h" */
/* #include "Symbols_def.h" */
-#include "defcodes_def.h"
+#include "def_t_def.h"
}
use ExtUtils::MakeMaker;
my %tables = (
- EUC_JP => ['euc-jp.ucm'],
- SHIFTJIS => ['shiftjis.enc'],
- MACJAPAN => ['macJapan.enc'],
- CP932 => ['cp932.enc'],
+ euc_jp_t => ['euc-jp.ucm'],
+ sjis_t => ['shiftjis.enc'],
+ mac_jp_t => ['macJapan.enc'],
+ cp_jp_t => ['cp932.enc'],
);
my $name = 'JP';
package Encode::KR;
-our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+BEGIN {
+ if (ord("A") == 193) {
+ die "Encode::KR not supported on EBCDIC\n";
+ }
+}
+our $VERSION = do { my @r = (q$Revision: 0.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode;
use XSLoader;
use strict;
use ExtUtils::MakeMaker;
-my %tables = (EUC_KR => ['euc-kr.enc'],
- KSC5601 => ['ksc5601.enc'],
- CP949 => ['cp949.enc'],
+my %tables = (euc_kr_t => ['euc-kr.enc'],
+ '5601_t' => ['ksc5601.enc'],
+ cp_kr_t => ['cp949.enc'],
);
my $name = 'KR';
my %tables =
(
- defcodes => ['ascii.ucm',
- '8859-1.ucm',
- ]
+ def_t => ['ascii.ucm',
+ '8859-1.ucm',
+ ]
);
WriteMakefile(
my $name = 'Symbol';
my %tables = (
- symbol => ['symbol.ucm','dingbats.ucm'],
+ symbol_t => ['symbol.ucm','dingbats.ucm'],
);
WriteMakefile(
use strict;
use ExtUtils::MakeMaker;
-my %tables = ('BIG5' => ['big5.enc'],
- 'BIG5_HKSCS' => ['big5-hkscs.enc'],
- 'CP950' => ['cp950.enc'],
+my %tables = (big5_t => ['big5.enc'],
+ big5_hk_t => ['big5-hkscs.enc'],
+ cp_tw_t => ['cp950.enc'],
);
my $name = 'TW';
package Encode::TW;
-our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+BEGIN {
+ if (ord("A") == 193) {
+ die "Encode::TW not supported on EBCDIC\n";
+ }
+}
+our $VERSION = do { my @r = (q$Revision: 0.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use Encode;
use XSLoader;
{
next unless (my $i = index($o,$s)) >= 0;
$sym = $strings{$o};
- $sym .= sprintf("+0x%02x",$i) if ($i);
+ # gcc things that 0x0e+0x10 (anything with e+) starts to look like
+ # a hexadecimal floating point constant. Silly gcc. Only p
+ # introduces a floating point constant. Put the space in to stop it
+ # getting confused.
+ $sym .= sprintf(" +0x%02x",$i) if ($i);
$subsave += length($s);
return $strings{$s} = $sym;
}
BEGIN {
- chdir 't' if -d 't';
+ if (! -d 'blib' and -d 't'){ chdir 't' };
unshift @INC, '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
BEGIN {
- chdir 't' if -d 't';
+ if (! -d 'blib' and -d 't'){ chdir 't' };
unshift @INC, '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
BEGIN {
+ if (! -d 'blib' and -d 't'){ chdir 't' };
chdir 't' if -d 't' and $ENV{PWD} !~ m,/Encode[^/]*$,o;
unshift @INC, '../lib';
require Config; import Config;
BEGIN {
- chdir 't' if -d 't';
+ if (! -d 'blib' and -d 't'){ chdir 't' };
unshift @INC, '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
BEGIN {
- chdir 't' if -d 't';
+ if (! -d 'blib' and -d 't'){ chdir 't' };
unshift @INC, '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
projects / p5sagit/p5-mst-13.2.git / commitdiff