Hi list
Please update my kanji-encoding.lib.php3.
BUG fixed. Thank you.
<?php /* $Id: kanji-encoding.lib.php3,v 1.4 2002/10/25 13:55:56 loic1 Exp $ */ // vim: expandtab sw=4 ts=4 sts=4:
/** * Set of functions for kanji-encoding convert (available only with japanese * language) * * PHP4 configure requirements: * --enable-mbstring --enable-mbstr-enc-trans --enable-mbregex * * 2002/2/22 - by Yukihiro Kawada kawada@den.fujifilm.co.jp */ if (!defined('PMA_ENCODING_LIB_INCLUDED')) { define('PMA_ENCODING_LIB_INCLUDED', 1);
/** * Gets the php internal encoding codes and sets the available encoding * codes list * 2002/1/4 by Y.Kawada * * @global string the current encoding code * @global string the available encoding codes list * * @return boolean always true */ function PMA_internal_enc_check() { global $internal_enc, $enc_list;
$internal_enc = mb_internal_encoding(); if ($internal_enc == 'EUC-JP') { $enc_list = 'ASCII,EUC-JP,SJIS,JIS'; } else { $enc_list = 'ASCII,SJIS,EUC-JP,JIS'; }
return TRUE; } // end of the 'PMA_internal_enc_check' function
/** * Reverses SJIS & EUC-JP position in the encoding codes list * 2002/1/4 by Y.Kawada * * @global string the available encoding codes list * * @return boolean always true */ function PMA_change_enc_order() { global $enc_list;
$p = split(',', $enc_list); if ($p[1] == 'EUC-JP') { $enc_list = 'ASCII,SJIS,EUC-JP,JIS'; } else { $enc_list = 'ASCII,EUC-JP,SJIS,JIS'; }
return TRUE; } // end of the 'PMA_change_enc_order' function
/** * Kanji string encoding convert * 2002/1/4 by Y.Kawada * * @param string the string to convert * @param string the destinasion encoding code * @param string set 'kana' convert to JIS-X208-kana * * @global string the available encoding codes list * * @return string the converted string */ function PMA_kanji_str_conv($str, $enc, $kana) { global $enc_list;
if ($enc == '' && $kana == '') { return $str; } $nw = mb_detect_encoding($str, $enc_list);
if ($kana == 'kana') { $dist = mb_convert_kana($str, 'KV', $nw); $str = $dist; } if ($nw != $enc && $enc != '') { $dist = mb_convert_encoding($str, $enc, $nw); } else { $dist = $str; } return $dist; } // end of the 'PMA_kanji_str_conv' function
/** * Kanji file encoding convert * 2002/1/4 by Y.Kawada * * @param string the name of the file to convert * @param string the destinasion encoding code * @param string set 'kana' convert to JIS-X208-kana * * @return string the name of the converted file */ function PMA_kanji_file_conv($file, $enc, $kana) { if ($enc == '' && $kana == '') { return $file; }
$tmpfname = tempnam('', $enc); $fpd = fopen($tmpfname, 'wb'); $fps = fopen($file, 'r'); PMA_change_enc_order(); while (!feof($fps)) { $line = fgets($fps, 4096); $dist = PMA_kanji_str_conv($line, $enc, $kana); fputs($fpd, $dist); } // end while PMA_change_enc_order(); fclose($fps); fclose($fpd); unlink($file);
return $tmpfname; } // end of the 'PMA_kanji_file_conv' function
/** * Defines radio form fields to switch between encoding modes * 2002/1/4 by Y.Kawada * * @param string spaces character to prepend the output with * * @return string xhtml code for the radio controls */ function PMA_set_enc_form($spaces) { return "\n" . $spaces . '<input type="radio" name="knjenc" value="" checked="checked" />non' . "\n" . $spaces . '<input type="radio" name="knjenc" value="EUC-JP" />EUC' . "\n" . $spaces . '<input type="radio" name="knjenc" value="SJIS" />SJIS' . "\n" . $spaces . ' ' . $GLOBALS['strEncto'] . '<br />' . "\n" . $spaces . '<input type="checkbox" name="xkana" value="kana" />' . "\n" . $spaces . ' ' . $GLOBALS['strXkana'] . '<br />' . "\n"; } // end of the 'PMA_set_enc_form' function
PMA_internal_enc_check();
} // $__PMA_ENCODING_LIB_INCLUDED ?>