• R/O
  • HTTP
  • SSH
  • HTTPS

fswiki-lite: コミット

FSWikiLite


コミットメタ情報

リビジョン571d7912ce4dcd27dc3dba7917f41fca218cd2f2 (tree)
日時2017-12-07 22:53:11
作者kgsoft <kgsoft@871d...>
コミッターkgsoft

ログメッセージ

jcode.pl-2.13 へ更新

変更サマリ

差分

--- a/lib/jcode.pl
+++ b/lib/jcode.pl
@@ -3,7 +3,7 @@ package jcode;
33 ;#
44 ;# jcode.pl: Perl library for Japanese character code conversion
55 ;#
6-;# Copyright (c) 1995-1999 Kazumasa Utashiro <utashiro@iij.ad.jp>
6+;# Copyright (c) 1995-2000 Kazumasa Utashiro <utashiro@iij.ad.jp>
77 ;# Internet Initiative Japan Inc.
88 ;# 3-13 Kanda Nishiki-cho, Chiyoda-ku, Tokyo 101-0054, Japan
99 ;#
@@ -26,7 +26,7 @@ package jcode;
2626 ;#
2727 ;# ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
2828 ;#
29-;; $rcsid = q$Id: jcode.pl,v 1.1 2003/09/18 15:35:28 takezoe Exp $;
29+;; $rcsid = q$Id: jcode.pl,v 2.13 2000/09/29 16:10:05 utashiro Exp $;
3030 ;#
3131 ;######################################################################
3232 ;#
@@ -257,7 +257,7 @@ package jcode;
257257 ;# Initialize variables.
258258 ;#
259259 sub init {
260- $version = $rcsid =~ /,v ([\d.]+)/ ? $1 : 'unkown';
260+ $version = $rcsid =~ /,v ([\d.]+)/ ? $1 : 'unknown';
261261
262262 $re_bin = '[\000-\006\177\377]';
263263
@@ -634,19 +634,24 @@ sub h2z_jis {
634634 }
635635 sub _h2z_jis {
636636 local($s) = @_;
637- $n += $s =~ s/([\41-\137]([\136\137])?)/$h2z{$1}/g;
637+ $n += $s =~ s/(([\041-\137])([\136\137])?)/
638+ $h2z{$1} || $h2z{$2} . $h2z{$3}
639+ /ge;
638640 $s;
639641 }
640642
641643 sub h2z_euc {
642644 local(*s) = @_;
643- $s =~ s/\216([\241-\337])(\216([\336\337]))?/$h2z{"$1$3"}/g;
645+ $s =~ s/\216([\241-\337])(\216([\336\337]))?/
646+ $h2z{"$1$3"} || $h2z{$1} . $h2z{$3}
647+ /ge;
644648 }
645649
646650 sub h2z_sjis {
647651 local(*s, $n) = @_;
648652 $s =~ s/(($re_sjis_c)+)|(([\241-\337])([\336\337])?)/
649- $1 || ($n++, $e2s{$h2z{$3}} || &e2s($h2z{$3}))
653+ $1 || ($n++, $h2z{$3} ? $e2s{$h2z{$3}} || &e2s($h2z{$3})
654+ : &e2s($h2z{$4}) . ($5 && &e2s($h2z{$5})))
650655 /geo;
651656 $n;
652657 }
@@ -668,7 +673,7 @@ sub _z2h_jis {
668673 }
669674 sub __z2h_jis {
670675 local($s) = @_;
671- return $esc_0208 . $s unless /^%/ || $s =~ /^![\#\"&VW+,<]/;
676+ return $esc_0208 . $s unless $s =~ /^%/ || $s =~ /^![\#\"&VW+,<]/;
672677 $n += length($s) / 2;
673678 $s =~ s/(..)/$z2h{$1}/g;
674679 $esc_kana . $s;
旧リポジトリブラウザで表示