Source for file php4.php
Documentation is available at php4.php
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4 foldmethod=marker: */ // +----------------------------------------------------------------------+ // | This library is free software; you can redistribute it and/or modify | // | it under the terms of the GNU Lesser General Public License as | // | published by the Free Software Foundation; either version 2.1 of the | // | License, or (at your option) any later version. | // | This library is distributed in the hope that it will be useful, but | // | WITHOUT ANY WARRANTY; without even the implied warranty of | // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | // | Lesser General Public License for more details. | // | You should have received a copy of the GNU Lesser General Public | // | License along with this library; if not, write to the Free Software | // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 | // +----------------------------------------------------------------------+ * Encode/decode Internationalized Domain Names. * The class allows to convert internationalized domain names * (see RFC 3490 for details) as they can be used with various registries worldwide * to be translated between their original (localized) form and their encoded form * as it will be used in the DNS (Domain Name System). * The class provides two public methods, encode() and decode(), which do exactly * what you would expect them to do. You are allowed to use complete domain names, * simple strings and complete email addresses as well. That means, that you might * use any of the following notations: * - xn--brse-5qa.xn--knrz-1ra.info * Unicode input might be given as either UTF-8 string, UCS-4 string or UCS-4 * array. Unicode output is available in the same formats. * You can select your preferred format via {@link set_paramter()}. * ACE input and output is always expected to be ASCII. * @author Matthias Sommerfeld <mso@phlylabs.de> * These Unicode codepoints are mapped to nothing, * See RFC3454 for details var $_np_map_nothing = array ( var $_general_prohibited = array ( var $_np_prohibit = array ( var $_np_prohibit_ranges = array ( array (0x1D173 , 0x1D17A ), array (0xF0000 , 0xFFFFD ), array (0x100000 , 0x10FFFD ), var $_np_replacemaps = array ( 0xDF => array (0x73 , 0x73 ), 0x130 => array (0x69 , 0x307 ), 0x149 => array (0x2BC , 0x6E ), 0x1F0 => array (0x6A , 0x30C ), 0x37A => array (0x20 , 0x3B9 ), 0x390 => array (0x3B9 , 0x308 , 0x301 ), 0x3B0 => array (0x3C5 , 0x308 , 0x301 ), 0x587 => array (0x565 , 0x582 ), 0x1E96 => array (0x68 , 0x331 ), 0x1E97 => array (0x74 , 0x308 ), 0x1E98 => array (0x77 , 0x30A ), 0x1E99 => array (0x79 , 0x30A ), 0x1E9A => array (0x61 , 0x2BE ), 0x1F50 => array (0x3C5 , 0x313 ), 0x1F52 => array (0x3C5 , 0x313 , 0x300 ), 0x1F54 => array (0x3C5 , 0x313 , 0x301 ), 0x1F56 => array (0x3C5 , 0x313 , 0x342 ), 0x1F80 => array (0x1F00 , 0x3B9 ), 0x1F81 => array (0x1F01 , 0x3B9 ), 0x1F82 => array (0x1F02 , 0x3B9 ), 0x1F83 => array (0x1F03 , 0x3B9 ), 0x1F84 => array (0x1F04 , 0x3B9 ), 0x1F85 => array (0x1F05 , 0x3B9 ), 0x1F86 => array (0x1F06 , 0x3B9 ), 0x1F87 => array (0x1F07 , 0x3B9 ), 0x1F88 => array (0x1F00 , 0x3B9 ), 0x1F89 => array (0x1F01 , 0x3B9 ), 0x1F8A => array (0x1F02 , 0x3B9 ), 0x1F8B => array (0x1F03 , 0x3B9 ), 0x1F8C => array (0x1F04 , 0x3B9 ), 0x1F8D => array (0x1F05 , 0x3B9 ), 0x1F8E => array (0x1F06 , 0x3B9 ), 0x1F8F => array (0x1F07 , 0x3B9 ), 0x1F90 => array (0x1F20 , 0x3B9 ), 0x1F91 => array (0x1F21 , 0x3B9 ), 0x1F92 => array (0x1F22 , 0x3B9 ), 0x1F93 => array (0x1F23 , 0x3B9 ), 0x1F94 => array (0x1F24 , 0x3B9 ), 0x1F95 => array (0x1F25 , 0x3B9 ), 0x1F96 => array (0x1F26 , 0x3B9 ), 0x1F97 => array (0x1F27 , 0x3B9 ), 0x1F98 => array (0x1F20 , 0x3B9 ), 0x1F99 => array (0x1F21 , 0x3B9 ), 0x1F9A => array (0x1F22 , 0x3B9 ), 0x1F9B => array (0x1F23 , 0x3B9 ), 0x1F9C => array (0x1F24 , 0x3B9 ), 0x1F9D => array (0x1F25 , 0x3B9 ), 0x1F9E => array (0x1F26 , 0x3B9 ), 0x1F9F => array (0x1F27 , 0x3B9 ), 0x1FA0 => array (0x1F60 , 0x3B9 ), 0x1FA1 => array (0x1F61 , 0x3B9 ), 0x1FA2 => array (0x1F62 , 0x3B9 ), 0x1FA3 => array (0x1F63 , 0x3B9 ), 0x1FA4 => array (0x1F64 , 0x3B9 ), 0x1FA5 => array (0x1F65 , 0x3B9 ), 0x1FA6 => array (0x1F66 , 0x3B9 ), 0x1FA7 => array (0x1F67 , 0x3B9 ), 0x1FA8 => array (0x1F60 , 0x3B9 ), 0x1FA9 => array (0x1F61 , 0x3B9 ), 0x1FAA => array (0x1F62 , 0x3B9 ), 0x1FAB => array (0x1F63 , 0x3B9 ), 0x1FAC => array (0x1F64 , 0x3B9 ), 0x1FAD => array (0x1F65 , 0x3B9 ), 0x1FAE => array (0x1F66 , 0x3B9 ), 0x1FAF => array (0x1F67 , 0x3B9 ), 0x1FB2 => array (0x1F70 , 0x3B9 ), 0x1FB3 => array (0x3B1 , 0x3B9 ), 0x1FB4 => array (0x3AC , 0x3B9 ), 0x1FB6 => array (0x3B1 , 0x342 ), 0x1FB7 => array (0x3B1 , 0x342 , 0x3B9 ), 0x1FBC => array (0x3B1 , 0x3B9 ), 0x1FC2 => array (0x1F74 , 0x3B9 ), 0x1FC3 => array (0x3B7 , 0x3B9 ), 0x1FC4 => array (0x3AE , 0x3B9 ), 0x1FC6 => array (0x3B7 , 0x342 ), 0x1FC7 => array (0x3B7 , 0x342 , 0x3B9 ), 0x1FCC => array (0x3B7 , 0x3B9 ), 0x1FD2 => array (0x3B9 , 0x308 , 0x300 ), 0x1FD3 => array (0x3B9 , 0x308 , 0x301 ), 0x1FD6 => array (0x3B9 , 0x342 ), 0x1FD7 => array (0x3B9 , 0x308 , 0x342 ), 0x1FE2 => array (0x3C5 , 0x308 , 0x300 ), 0x1FE3 => array (0x3C5 , 0x308 , 0x301 ), 0x1FE4 => array (0x3C1 , 0x313 ), 0x1FE6 => array (0x3C5 , 0x342 ), 0x1FE7 => array (0x3C5 , 0x308 , 0x342 ), 0x1FF2 => array (0x1F7C , 0x3B9 ), 0x1FF3 => array (0x3C9 , 0x3B9 ), 0x1FF4 => array (0x3CE , 0x3B9 ), 0x1FF6 => array (0x3C9 , 0x342 ), 0x1FF7 => array (0x3C9 , 0x342 , 0x3B9 ), 0x1FFC => array (0x3C9 , 0x3B9 ), 0x20A8 => array (0x72 , 0x73 ), 0x2103 => array (0xB0 , 0x63 ), 0x2109 => array (0xB0 , 0x66 ), 0x2116 => array (0x6E , 0x6F ), 0x2120 => array (0x73 , 0x6D ), 0x2121 => array (0x74 , 0x65 , 0x6C ), 0x2122 => array (0x74 , 0x6D ), 0x3371 => array (0x68 , 0x70 , 0x61 ), 0x3373 => array (0x61 , 0x75 ), 0x3375 => array (0x6F , 0x76 ), 0x3380 => array (0x70 , 0x61 ), 0x3381 => array (0x6E , 0x61 ), 0x3382 => array (0x3BC , 0x61 ), 0x3383 => array (0x6D , 0x61 ), 0x3384 => array (0x6B , 0x61 ), 0x3385 => array (0x6B , 0x62 ), 0x3386 => array (0x6D , 0x62 ), 0x3387 => array (0x67 , 0x62 ), 0x338A => array (0x70 , 0x66 ), 0x338B => array (0x6E , 0x66 ), 0x338C => array (0x3BC , 0x66 ), 0x3390 => array (0x68 , 0x7A ), 0x3391 => array (0x6B , 0x68 , 0x7A ), 0x3392 => array (0x6D , 0x68 , 0x7A ), 0x3393 => array (0x67 , 0x68 , 0x7A ), 0x3394 => array (0x74 , 0x68 , 0x7A ), 0x33A9 => array (0x70 , 0x61 ), 0x33AA => array (0x6B , 0x70 , 0x61 ), 0x33AB => array (0x6D , 0x70 , 0x61 ), 0x33AC => array (0x67 , 0x70 , 0x61 ), 0x33B4 => array (0x70 , 0x76 ), 0x33B5 => array (0x6E , 0x76 ), 0x33B6 => array (0x3BC , 0x76 ), 0x33B7 => array (0x6D , 0x76 ), 0x33B8 => array (0x6B , 0x76 ), 0x33B9 => array (0x6D , 0x76 ), 0x33BA => array (0x70 , 0x77 ), 0x33BB => array (0x6E , 0x77 ), 0x33BC => array (0x3BC , 0x77 ), 0x33BD => array (0x6D , 0x77 ), 0x33BE => array (0x6B , 0x77 ), 0x33BF => array (0x6D , 0x77 ), 0x33C0 => array (0x6B , 0x3C9 ), 0x33C1 => array (0x6D , 0x3C9 ), /* 0x33C2 => array(0x61, 0x2E, 0x6D, 0x2E), */ 0x33C3 => array (0x62 , 0x71 ), 0x33C6 => array (0x63 , 0x2215 , 0x6B , 0x67 ), 0x33C7 => array (0x63 , 0x6F , 0x2E ), 0x33C8 => array (0x64 , 0x62 ), 0x33C9 => array (0x67 , 0x79 ), 0x33CB => array (0x68 , 0x70 ), 0x33CD => array (0x6B , 0x6B ), 0x33CE => array (0x6B , 0x6D ), 0x33D7 => array (0x70 , 0x68 ), 0x33D9 => array (0x70 , 0x70 , 0x6D ), 0x33DA => array (0x70 , 0x72 ), 0x33DC => array (0x73 , 0x76 ), 0x33DD => array (0x77 , 0x62 ), 0xFB00 => array (0x66 , 0x66 ), 0xFB01 => array (0x66 , 0x69 ), 0xFB02 => array (0x66 , 0x6C ), 0xFB03 => array (0x66 , 0x66 , 0x69 ), 0xFB04 => array (0x66 , 0x66 , 0x6C ), 0xFB05 => array (0x73 , 0x74 ), 0xFB06 => array (0x73 , 0x74 ), 0xFB13 => array (0x574 , 0x576 ), 0xFB14 => array (0x574 , 0x565 ), 0xFB15 => array (0x574 , 0x56B ), 0xFB16 => array (0x57E , 0x576 ), 0xFB17 => array (0x574 , 0x56D ), 0x10400 => array (0x10428 ), 0x10401 => array (0x10429 ), 0x10402 => array (0x1042A ), 0x10403 => array (0x1042B ), 0x10404 => array (0x1042C ), 0x10405 => array (0x1042D ), 0x10406 => array (0x1042E ), 0x10407 => array (0x1042F ), 0x10408 => array (0x10430 ), 0x10409 => array (0x10431 ), 0x1040A => array (0x10432 ), 0x1040B => array (0x10433 ), 0x1040C => array (0x10434 ), 0x1040D => array (0x10435 ), 0x1040E => array (0x10436 ), 0x1040F => array (0x10437 ), 0x10410 => array (0x10438 ), 0x10411 => array (0x10439 ), 0x10412 => array (0x1043A ), 0x10413 => array (0x1043B ), 0x10414 => array (0x1043C ), 0x10415 => array (0x1043D ), 0x10416 => array (0x1043E ), 0x10417 => array (0x1043F ), 0x10418 => array (0x10440 ), 0x10419 => array (0x10441 ), 0x1041A => array (0x10442 ), 0x1041B => array (0x10443 ), 0x1041C => array (0x10444 ), 0x1041D => array (0x10445 ), 0x1041E => array (0x10446 ), 0x1041F => array (0x10447 ), 0x10420 => array (0x10448 ), 0x10421 => array (0x10449 ), 0x10422 => array (0x1044A ), 0x10423 => array (0x1044B ), 0x10424 => array (0x1044C ), 0x10425 => array (0x1044D ), 0x213B => array (0x66 , 0x61 , 0x78 ), 0x3250 => array (0x70 , 0x74 , 0x65 ), 0x32CC => array (0x68 , 0x67 ), 0x32CE => array (0x65 , 0x76 ), 0x32CF => array (0x6C , 0x74 , 0x64 ), 0x337A => array (0x69 , 0x75 ), 0x33DE => array (0x76 , 0x2215 , 0x6D ), 0x33DF => array (0x61 , 0x2215 , 0x6D ) * Normalization Combining Classes; Code Points not listed var $_np_norm_combcls = array ( // Internal settings, do not mess with them var $_punycode_prefix = 'xn--'; var $_invalid_ucs = 0x80000000; var $_max_ucs = 0x10FFFF; var $_ncount = 588; // _vcount * _tcount var $_scount = 11172; // _lcount * _tcount * _vcount // See set_parameter() for details of how to change the following settings // from within your script / application var $_api_encoding = 'utf8'; // Default input charset is UTF-8 var $_allow_overlong = false; // Overlong UTF-8 encodings are forbidden var $_strict_mode = false; // Behave strict or not function idna_convert ($options = false ) $this->slast = $this->_sbase + $this->_lcount * $this->_vcount * $this->_tcount; // If parameters are given, pass these to the respective method return $this->set_parameter ($options); * Sets a new option value. Available options and values: * [encoding - Use either UTF-8, UCS4 as array or UCS4 as string as input ('utf8' for UTF-8, * 'ucs4_string' and 'ucs4_array' respectively for UCS4); The output is always UTF-8] * [overlong - Unicode does not allow unnecessarily long encodings of chars, * to allow this, set this parameter to true, else to false; * [strict - true: strict mode, good for registration purposes - Causes errors * on failures; false: loose mode, ideal for "wildlife" applications * by silently ignoring errors and returning the original input instead * @param mixed Parameter to set (string: single parameter; array of Parameter => Value pairs) * @param string Value to use (if parameter 1 is a string) * @return boolean true on success, false otherwise function set_parameter ($option, $value = false ) $option = array ($option => $value); foreach ($option as $k => $v) { $this->_api_encoding = $v; $this->_error ('Set Parameter: Unknown parameter '. $v. ' for option '. $k); $this->_allow_overlong = ($v) ? true : false; $this->_strict_mode = ($v) ? true : false; $this->_error ('Set Parameter: Unknown option '. $k); * Decode a given ACE domain name * @param string Domain name (ACE string) * [@param string Desired output encoding, see {@link set_parameter}] * @return string Decoded Domain name (UTF-8 or UCS-4) function decode ($input, $one_time_encoding = false ) if ($one_time_encoding) { switch ($one_time_encoding) { $this->_error ('Unknown encoding '. $one_time_encoding); // Make sure to drop any newline characters around // Negotiate input and try to determine, wether it is a plain string, // an email address or something like a complete URL if (strpos($input, '@')) { // Maybe it is an email address if ($this->_strict_mode) { $this->_error ('Only simple domain name parts can be handled in strict mode'); list ($email_pref, $input) = explode('@', $input, 2 ); foreach ($arr as $k => $v) { $conv = $this->_decode ($v); if ($conv) $arr[$k] = $conv; $return = $email_pref . '@' . join('.', $arr); } elseif (preg_match('![:\./]!', $input)) { // Or a complete domain name (with or without paths / parameters) if ($this->_strict_mode) { $this->_error ('Only simple domain name parts can be handled in strict mode'); if (isset ($parsed['host'])) { $arr = explode('.', $parsed['host']); foreach ($arr as $k => $v) { $conv = $this->_decode ($v); if ($conv) $arr[$k] = $conv; $parsed['host'] = join('.', $arr); if (isset ($parsed['scheme'])) { $parsed['scheme'] .= (strtolower($parsed['scheme']) == 'mailto') ? ':' : '://'; $return = join('', $parsed); } else { // parse_url seems to have failed, try without it foreach ($arr as $k => $v) { $conv = $this->_decode ($v); if ($conv) $arr[$k] = $conv; $return = join('.', $arr); } else { // Otherwise we consider it being a pure domain name string $return = $this->_decode ($input); // The output is UTF-8 by default, other output formats need conversion here // If one time encoding is given, use this, else the objects property switch (($one_time_encoding) ? $one_time_encoding : $this->_api_encoding) { return $this->_ucs4_to_ucs4_string ($this->_utf8_to_ucs4 ($return)); return $this->_utf8_to_ucs4 ($return); $this->_error ('Unsupported output format'); * Encode a given UTF-8 domain name * @param string Domain name (UTF-8 or UCS-4) * [@param string Desired input encoding, see {@link set_parameter}] * @return string Encoded Domain name (ACE string) function encode ($decoded, $one_time_encoding = false ) // Forcing conversion of input to UCS4 array // If one time encoding is given, use this, else the objects property switch (($one_time_encoding) ? $one_time_encoding : $this->_api_encoding) { $decoded = $this->_utf8_to_ucs4 ($decoded); $decoded = $this->_ucs4_string_to_ucs4 ($decoded); // $this->_error('Unsupported input format: '.$this->_api_encoding); $this->_error ('Unsupported input format'); // No input, no output, what else did you expect? if (empty ($decoded)) return ''; foreach ($decoded as $k => $v) { // Make sure to use just the plain dot // It's right, no break here // The codepoints above have to be converted to dots anyway // Stumbling across an anchoring character // Neither email addresses nor URLs allowed in strict mode if ($this->_strict_mode) { $this->_error ('Neither email addresses nor URLs are allowed in strict mode.'); $encoded = $this->_encode (array_slice($decoded, $last_begin, (($k)- $last_begin))); $output .= $this->_ucs4_to_utf8 (array_slice($decoded, $last_begin, (($k)- $last_begin))); $output .= chr($decoded[$k]); // Catch the rest of the string $encoded = $this->_encode (array_slice($decoded, $last_begin, (($inp_len)- $last_begin))); $output .= $this->_ucs4_to_utf8 (array_slice($decoded, $last_begin, (($inp_len)- $last_begin))); if ($output = $this->_encode ($decoded)) { return $this->_ucs4_to_utf8 ($decoded); * Use this method to get the last error ocurred * @return string The last error, that occured function get_last_error () * The actual decoding algorithm function _decode ($encoded) // We do need to find the Punycode prefix $this->_error ('This is not a punycode string'); // If nothing left after removing the prefix, it is hopeless $this->_error ('The given encoded string was empty'); // Find last occurence of the delimiter $delim_pos = strrpos($encoded, '-'); if ($delim_pos > strlen($this->_punycode_prefix)) { for ($k = strlen($this->_punycode_prefix); $k < $delim_pos; ++ $k) { $decoded[] = ord($encoded{$k}); $deco_len = count($decoded); // Wandering through the strings; init $bias = $this->_initial_bias; $char = $this->_initial_n; for ($enco_idx = ($delim_pos) ? ($delim_pos + 1 ) : 0; $enco_idx < $enco_len; ++ $deco_len) { for ($old_idx = $idx, $w = 1 , $k = $this->_base; 1 ; $k += $this->_base) { $digit = $this->_decode_digit ($encoded{$enco_idx++ }); $t = ($k <= $bias) ? $this->_tmin : (($k >= $bias + $this->_tmax) ? $this->_tmax : ($k - $bias)); $w = (int) ($w * ($this->_base - $t)); $bias = $this->_adapt ($idx - $old_idx, $deco_len + 1 , $is_first); $char += (int) ($idx / ($deco_len + 1 )); // Make room for the decoded char for ($i = $deco_len; $i > $idx; $i-- ) { $decoded[$i] = $decoded[($i - 1 )]; $decoded[$idx++ ] = $char; return $this->_ucs4_to_utf8 ($decoded); * The actual encoding algorithm function _encode ($decoded) // We cannot encode a domain name containing the Punycode prefix $extract = strlen($this->_punycode_prefix); $check_pref = $this->_utf8_to_ucs4 ($this->_punycode_prefix); if ($check_pref == $check_deco) { $this->_error ('This is already a punycode string'); // We will not try to encode strings consisting of basic code points only foreach ($decoded as $k => $v) { $this->_error ('The given string does not contain encodable chars'); $decoded = $this->_nameprep ($decoded); if (!$decoded || !is_array($decoded)) return false; // NAMEPREP failed $deco_len = count($decoded); if (!$deco_len) return false; // Empty array $codecount = 0; // How many chars have been consumed // Start with the prefix; copy it to output $encoded = $this->_punycode_prefix; // Copy all basic code points to output for ($i = 0; $i < $deco_len; ++ $i) { // Will match [0-9a-zA-Z-] if ((0x2F < $test && $test < 0x40 ) || (0x40 < $test && $test < 0x5B ) || (0x60 < $test && $test <= 0x7B ) $encoded .= chr($decoded[$i]); // If we have basic code points in output, add an hyphen to the end if ($codecount) $encoded .= '-'; // Now find and encode all non-basic code points $cur_code = $this->_initial_n; $bias = $this->_initial_bias; while ($codecount < $deco_len) { // Find the smallest code point >= the current code point and // remember the last ouccrence of it in the input for ($i = 0 , $next_code = $this->_max_ucs; $i < $deco_len; $i++ ) { if ($decoded[$i] >= $cur_code && $decoded[$i] <= $next_code) { $next_code = $decoded[$i]; $delta += ($next_code - $cur_code) * ($codecount + 1 ); // Scan input again and encode all characters whose code point is $cur_code for ($i = 0; $i < $deco_len; $i++ ) { if ($decoded[$i] < $cur_code) { } elseif ($decoded[$i] == $cur_code) { for ($q = $delta, $k = $this->_base; 1; $k += $this->_base) { $t = ($k <= $bias) ? $this->_tmin : (($k >= $bias + $this->_tmax) ? $this->_tmax : $k - $bias); $encoded .= $this->_encode_digit (ceil($t + (($q - $t) % ($this->_base - $t)))); $q = ($q - $t) / ($this->_base - $t); $encoded .= $this->_encode_digit ($q); $bias = $this->_adapt ($delta, $codecount+1 , $is_first); * Adapt the bias according to the current code point and position function _adapt ($delta, $npoints, $is_first) $delta = $is_first ? ($delta / $this->_damp) : ($delta / 2 ); $delta += $delta / $npoints; for ($k = 0; $delta > (($this->_base - $this->_tmin) * $this->_tmax) / 2; $k += $this->_base) { $delta = $delta / ($this->_base - $this->_tmin); return (int) ($k + ($this->_base - $this->_tmin + 1 ) * $delta / ($delta + $this->_skew)); * Encoding a certain digit function _encode_digit ($d) return chr($d + 22 + 75 * ($d < 26 )); function _decode_digit ($cp) return ($cp - 48 < 10 ) ? $cp - 22 : (($cp - 65 < 26 ) ? $cp - 65 : (($cp - 97 < 26 ) ? $cp - 97 : $this->_base)); * Internal error handling method function _error ($error = '') * Do Nameprep according to RFC3491 and RFC3454 * @param array Unicode Characters * @return string Unicode Characters, Nameprep'd function _nameprep ($input) // Walking through the input array, performing the required steps on each of // the input chars and putting the result into the output array // While mapping required chars we apply the cannonical ordering // $this->_show_hex($input); // Map to nothing == skip that code point if (in_array($v, $this->_np_map_nothing)) continue; // Try to find prohibited input if (in_array($v, $this->_np_prohibit) || in_array($v, $this->_general_prohibited)) { $this->_error ('NAMEPREP: Prohibited input U+'. sprintf('%08X', $v)); foreach ($this->_np_prohibit_ranges as $range) { if ($range[0 ] <= $v && $v <= $range[1 ]) { $this->_error ('NAMEPREP: Prohibited input U+'. sprintf('%08X', $v)); // Hangul syllable decomposition if (0xAC00 <= $v && $v <= 0xD7AF ) { foreach ($this->_hangul_decompose ($v) as $out) { // There's a decomposition mapping for that code point } elseif (isset ($this->_np_replacemaps[$v])) { foreach ($this->_apply_cannonical_ordering ($this->_np_replacemaps[$v]) as $out) { $out_len = count($output); for ($i = 0; $i < $out_len; ++ $i) { $class = $this->_get_combining_class ($output[$i]); if ((!$last_class || $last_class != $class) && $class) { $seq_len = $i - $last_starter; $out = $this->_combine (array_slice($output, $last_starter, $seq_len)); // On match: Replace the last starter with the composed character and remove // the now redundant non-starter(s) $output[$last_starter] = $out; if (count($out) != $seq_len) { for ($j = $i+1; $j < $out_len; ++ $j) { $output[$j-1 ] = $output[$j]; unset ($output[$out_len]); // Rewind the for loop by one, since there can be more possible compositions $last_class = ($i == $last_starter) ? 0 : $this->_get_combining_class ($output[$i-1 ]); if (!$class) { // The current class is 0 * Decomposes a Hangul syllable * (see http://www.unicode.org/unicode/reports/tr15/#Hangul * @param integer 32bit UCS4 code point * @return array Either Hangul Syllable decomposed or original 32bit value as one value array function _hangul_decompose ($char) $sindex = $char - $this->_sbase; if ($sindex < 0 || $sindex >= $this->_scount) { $T = $this->_tbase + $sindex % $this->_tcount; $result[] = (int) ($this->_lbase + $sindex / $this->_ncount); $result[] = (int) ($this->_vbase + ($sindex % $this->_ncount) / $this->_tcount); if ($T != $this->_tbase) $result[] = $T; * Ccomposes a Hangul syllable * (see http://www.unicode.org/unicode/reports/tr15/#Hangul * @param array Decomposed UCS4 sequence * @return array UCS4 sequence with syllables composed function _hangul_compose ($input) $inp_len = count($input); if (!$inp_len) return array (); $result[] = $last; // copy first char from input to output for ($i = 1; $i < $inp_len; ++ $i) { // Find out, wether two current characters from L and V $lindex = $last - $this->_lbase; if (0 <= $lindex && $lindex < $this->_lcount) { $vindex = $char - $this->_vbase; if (0 <= $vindex && $vindex < $this->_vcount) { // create syllable of form LV $last = ($this->_sbase + ($lindex * $this->_vcount + $vindex) * $this->_tcount); $out_off = count($result) - 1; $result[$out_off] = $last; // reset last continue; // discard char // Find out, wether two current characters are LV and T $sindex = $last - $this->_sbase; if (0 <= $sindex && $sindex < $this->_scount && ($sindex % $this->_tcount) == 0 ) { $tindex = $char - $this->_tbase; if (0 <= $tindex && $tindex <= $this->_tcount) { // create syllable of form LVT $out_off = count($result) - 1; $result[$out_off] = $last; // reset last continue; // discard char // if neither case was true, just add the character * Returns the combining class of a certain wide char * @param integer Wide char to check (32bit integer) * @return integer Combining class if found, else 0 function _get_combining_class ($char) return isset ($this->np_norm_combcls[$char]) ? $this->np_norm_combcls[$char] : 0; * Apllies the cannonical ordering of a decomposed UCS4 sequence * @param array Decomposed UCS4 sequence * @return array Ordered USC4 sequence function _apply_cannonical_ordering ($input) $last = $this->_get_combining_class ($input[0 ]); for ($i = 0; $i < $size - 1; ++ $i) { $next = $this->_get_combining_class ($input[$i+1 ]); if ($next != 0 && $last > $next) { // Move item leftward until it fits for ($j = $i + 1; $j > 0; -- $j) { if ($this->_get_combining_class ($input[$j - 1 ]) <= $next) break; $input[$j] = $input[$j - 1 ]; // Reentering the loop looking at the old character again * Do composition of a sequence of starter and non-starter * @param array UCS4 Decomposed sequence * @return array Ordered USC4 sequence function _combine ($input) $inp_len = count($input); // Is it a Hangul syllable? $hangul = $this->_hangul_compose ($input); if (count($hangul) != $inp_len) return $hangul; // This place is probably wrong foreach ($this->np_casemap as $np_src => $np_target) { if ($np_target[0 ] != $input[0 ]) continue; if (count($np_target) != $inp_len) continue; foreach ($input as $k2 => $v2) { if ($v2 == $np_target[$k2]) { if ($hit) return $np_src; * This converts an UTF-8 encoded string to its UCS-4 representation * By talking about UCS-4 "strings" we mean arrays of 32bit integers representing * each of the "chars". This is due to PHP not being able to handle strings with * bit depth different from 8. This apllies to the reverse method _ucs4_to_utf8(), too. * The following UTF-8 encodings are supported: * bytes bits representation * 3 16 1110xxxx 10xxxxxx 10xxxxxx * 4 21 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx * 5 26 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx * 6 31 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx * Each x represents a bit that can be used to store character data. function _utf8_to_ucs4 ($input) for ($k = 0; $k < $inp_len; ++ $k) { $v = ord($input{$k}); // Extract byte from input string if ($v < 128 ) { // We found an ASCII char - put into stirng as is $this->_error ('Conversion from UTF-8 to UCS-4 failed: malformed input at byte '. $k); if ('next' == $mode) { // Try to find the next start byte; determine the width of the Unicode char if ($v >> 5 == 6 ) { // &110xxxxx 10xxxxx $next_byte = 0; // Tells, how many times subsequent bitmasks must rotate 6bits to the left } elseif ($v >> 4 == 14 ) { // &1110xxxx 10xxxxxx 10xxxxxx } elseif ($v >> 3 == 30 ) { // &11110xxx 10xxxxxx 10xxxxxx 10xxxxxx } elseif ($v >> 2 == 62 ) { // &111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx } elseif ($v >> 1 == 126 ) { // &1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx $this->_error ('This might be UTF-8, but I don\'t understand it at byte '. $k); $output[$out_len] = (int) $v; if ($v == 128 && !$this->_allow_overlong) { $this->_error ('Bogus UTF-8 character detected (unnecessarily long encoding) at byte '. $k); if ($v >> 6 == 2 ) { // Bit mask must be 10xxxxxx $v = ($v - 128 ) << ($next_byte * 6 ); $output[($out_len - 1 )] += $v; $this->_error ('Conversion from UTF-8 to UCS-4 failed: malformed input at byte '. $k); * Convert UCS-4 string into UTF-8 string * See _utf8_to_ucs4() for details function _ucs4_to_utf8 ($input) if ($v < 128 ) { // 7bit are transferred literally } elseif ($v < (1 << 11 )) { // 2 bytes $output .= chr(192 + ($v >> 6 )) . chr(128 + ($v & 63 )); } elseif ($v < (1 << 16 )) { // 3 bytes $output .= chr(224 + ($v >> 12 )) . chr(128 + (($v >> 6 ) & 63 )) . chr(128 + ($v & 63 )); } elseif ($v < (1 << 21 )) { // 4 bytes $output .= chr(240 + ($v >> 18 )) . chr(128 + (($v >> 12 ) & 63 )) . chr(128 + (($v >> 6 ) & 63 )) . chr(128 + ($v & 63 )); } elseif ($v < (1 << 26 )) { // 5 bytes $output .= chr(248 + ($v >> 24 )) . chr(128 + (($v >> 18 ) & 63 )) . chr(128 + (($v >> 12 ) & 63 )) . chr(128 + (($v >> 6 ) & 63 )) } elseif ($v < (1 << 31 )) { // 6 bytes $output .= chr(252 + ($v >> 30 )) . chr(128 + (($v >> 24 ) & 63 )) . chr(128 + (($v >> 18 ) & 63 )) . chr(128 + (($v >> 12 ) & 63 )) . chr(128 + (($v >> 6 ) & 63 )) . chr(128 + ($v & 63 )); $this->_error ('Conversion from UCS-4 to UTF-8 failed: malformed input at byte '. $k); * Convert UCS-4 array into UCS-4 string function _ucs4_to_ucs4_string ($input) // Take array values and split output to 4 bytes per value // The bit mask is 255, which reads &11111111 $output .= chr(($v >> 24 ) & 255 ) * Convert UCS-4 strin into UCS-4 garray function _ucs4_string_to_ucs4 ($input) // Input length must be dividable by 4 $this->_error ('Input UCS4 string is broken'); // Empty input - return empty output if (!$inp_len) return $output; for ($i = 0 , $out_len = -1; $i < $inp_len; ++ $i) { // Increment output position every 4 input bytes $output[$out_len] += ord($input{$i}) << (8 * (3 - ($i % 4 ) ) ); * Gives you a bit representation of given Byte (8 bits), Word (16 bits) or DWord (32 bits) * Output width is automagically determined function show_bitmask ($octet) if ($octet >= (1 << 16 )) $w = 31; elseif ($octet >= (1 << 8 )) $w = 15; for ($i = $w; $i > -1; $i-- ) { $return .= ($octet & (1 << $i)) ? 1 : '0'; * echo hex represnatation of UCS4 sequence to STDOUT * @param array UCS4 sequence * @param boolean include bitmask in output function _show_hex ($input, $include_bit = false ) foreach ($input as $k => $v) { echo '[', $k, '] => ', sprintf('%X', $v); echo ' (', $this->show_bitmask ($v), ')'; * Adapter class for aligning the API of idna_convert with that of * @author Matthias Sommerfeld <mso@phlylabs.de> class Net_IDNA_php4 extends idna_convert function Net_IDNA_php4 ($options = false ) $this->IC = new idna_convert ($options); * Sets a new option value. Available options and values: * [utf8 - Use either UTF-8 or ISO-8859-1 as input (true for UTF-8, false * otherwise); The output is always UTF-8] * [overlong - Unicode does not allow unnecessarily long encodings of chars, * to allow this, set this parameter to true, else to false; * [strict - true: strict mode, good for registration purposes - Causes errors * on failures; false: loose mode, ideal for "wildlife" applications * by silently ignoring errors and returning the original input instead] * @param mixed $option Parameter to set (string: single parameter; array of Parameter => Value pairs) * @param string $value Value to use (if parameter 1 is a string) * @return boolean true on success, false otherwise function setParams ($option, $param = false ) return $this->IC->set_parameters ($option, $param);
Documentation generated on Mon, 11 Mar 2019 13:54:41 -0400 by phpDocumentor 1.4.4. PEAR Logo Copyright © PHP Group 2004.
|
