Show
Ignore:
Timestamp:
01/17/08 01:30:08 (10 months ago)
Author:
tokuhirom
Message:

lang/perl/Encode-JP-Mobile: x-utf8-* Round trip safe

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode-JP-Mobile/trunk/tools/make-pictogram-ucm.pl

    r4111 r4731  
    4848    } 
    4949 
     50    # original 
    5051    if ($to eq 'kddi') { 
    5152        # ura-kddi 
    … …  
    5455            my $sjiscode = hex unpack "H*", encode('x-sjis-kddi', chr $unicode); 
    5556            my $unihex = sprintf '%X', $sjiscode - 0x0700; 
    56             print {$fh} sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram"; 
     57            print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "UraKDDI pictogram"; 
    5758        }); 
    5859    } else { 
    … …  
    6061            my $unicode = shift; 
    6162            my $unihex = sprintf '%X', $unicode; 
    62             print {$fh} sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram"; 
     63            print {$fh} sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), "$to pictogram"; 
    6364        }); 
    6465    } 
    … …  
    9596            next if $comment eq 'PRIVATE USE AREA'; 
    9697 
    97             $res .= sprintf "<U%s> %s |1 # %s\n", $unihex, unihex2utf8hex($unihex), $comment; 
     98            $res .= sprintf "<U%s> %s |0 # %s\n", $unihex, unihex2utf8hex($unihex), $comment; 
    9899        } 
    99100    }