Changeset 44

Show
Ignore:
Timestamp:
03/07/01 00:44:21
Author:
miyagawa
Message:

added address

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Convert-RACE/trunk/Changes

    r42 r44  
    11Revision history for Perl extension Convert::RACE. 
    22 
    3 0.03  Thu Mar  1 23:03:06 JST 2001 
     30.05  Tue Mar  6 16:44:33 JST 2001 
     4        - fixed bug in case that input strings contain characters 
     5          from only 2 rows, both of which are not 0x00. 
     6          Thanks to Michael J Schout <mschout@gkg.net> 
     7 
     80.04  Thu Mar  1 23:03:06 JST 2001 
    49        - fixed the bug that if a character has a byte of 0x0a,  
    510          it is ignored. 
     
    712 
    8130.02  Wed Feb 28 02:52:49 JST 2001 
    9         - fixed the bug in case of all of the upper octets are  
     14        - fixed the bug in case that all of the upper octets are  
    1015          either 0x00 or one single other value. 
    1116          Thanks to Eugen SAVIN <seugen@serifu.com> 
  • Convert-RACE/trunk/README

    r42 r44  
    7979 
    8080AUTHOR 
    81     Tatsuhiko Miyagawa <miyagawa@bulknews.net> 
     81    Tatsuhiko Miyagawa <miyagawa@bulknews.net>, with much help from Eugen 
     82    SAVIN <seugen@serifu.com>, Philip Newton <pne@cpan.org>, Michael J Schout 
     83    <mschout@gkg.net>. 
    8284 
    8385    This library is free software; you can redistribute it and/or modify it 
     
    9193Revision history for Perl extension Convert::RACE. 
    9294 
    93 0.03  Thu Mar  1 23:03:06 JST 2001 
     950.05  Tue Mar  6 16:44:33 JST 2001 
     96        - fixed bug in case that input strings contain characters 
     97          from only 2 rows, both of which are not 0x00. 
     98          Thanks to Michael J Schout <mschout@gkg.net> 
     99 
     1000.04  Thu Mar  1 23:03:06 JST 2001 
    94101        - fixed the bug that if a character has a byte of 0x0a,  
    95102          it is ignored. 
     
    97104 
    981050.02  Wed Feb 28 02:52:49 JST 2001 
    99         - fixed the bug in case of all of the upper octets are  
     106        - fixed the bug in case that all of the upper octets are  
    100107          either 0x00 or one single other value. 
    101108          Thanks to Eugen SAVIN <seugen@serifu.com> 
  • Convert-RACE/trunk/lib/Convert/RACE.pm

    r43 r44  
    99    @EXPORT = qw(to_race from_race); 
    1010     
    11     $VERSION = '0.04'; 
     11    $VERSION = '0.05'; 
    1212} 
    1313 
     
    7474 
    7575    my @unique_upper_octet = _make_uniq_upper_octet($str); 
    76     if (@unique_upper_octet > 2) { 
     76     if (@unique_upper_octet > 2 || 
     77         (@unique_upper_octet == 2 && 
     78          ! grep { $_ eq "\x00" } @unique_upper_octet)) { 
     79        # from more than 2 rows 
     80        # or from 2 rows neither of with is 0 
    7781        return "\xD8" . $str; 
    7882    } 
     
    120124        # 9) 
    121125        my @unique_upper_octet = _make_uniq_upper_octet($lcheck); 
    122         if (@unique_upper_octet <= 2) { 
     126        if (@unique_upper_octet == 1 || 
     127            (@unique_upper_octet == 2 && 
     128             grep { $_ eq "\x00" } @unique_upper_octet)) { 
    123129            Carp::croak(DECOMPRESS_EXCEPTION); 
    124130        } 
     
    293299=head1 AUTHOR 
    294300 
    295 Tatsuhiko Miyagawa <miyagawa@bulknews.net>, with much help from 
    296 Eugen SAVIN <seugen@serifu.com>, Philip Newton <pne@cpan.org> 
     301Tatsuhiko Miyagawa <miyagawa@bulknews.net>, with much help from Eugen 
     302SAVIN <seugen@serifu.com>, Philip Newton <pne@cpan.org>, Michael J 
     303Schout <mschout@gkg.net>. 
    297304 
    298305This library is free software; you can redistribute it and/or 
  • Convert-RACE/trunk/t/02race.t

    r41 r44  
    11use strict; 
    22use Test; 
    3 BEGIN { plan tests => 16
     3BEGIN { plan tests => 18
    44 
    55use Convert::RACE qw(to_race from_race); 
     
    1919# Test \x0A as both high and low byte 
    2020push @utf16, "\x0A\x15\x0A\x0A\x0A\x24"; # Gurmukhi "kauuta"? 
     21# Test 2 non-zero rows 
     22push @utf16, "\x4E\x00\x75\x6A\x4E\x0A\x4E\xBA\x75\x1F"; # "ichiban ue jinsei" 
    2123 
    2224push @race, 'bq--aewrcsy'; 
     
    2830push @race, 'bq--bixuckb7'; 
    2931push @race, 'bq--bikquja'; 
     32push @race, 'bq--3bhaa5lkjyfe5otvd4'; 
    3033 
    3134for my $i (0..$#utf16) {