]> projects.mako.cc - scuttle/blob - includes/utf8/ord.php
removed code for string overloading
[scuttle] / includes / utf8 / ord.php
1 <?php
2 /**
3 * @version $Id: ord.php,v 1.4 2006/09/11 15:22:54 harryf Exp $
4 * @package utf8
5 * @subpackage strings
6 */
7
8 //---------------------------------------------------------------
9 /**
10 * UTF-8 aware alternative to ord
11 * Returns the unicode ordinal for a character
12 * @param string UTF-8 encoded character
13 * @return int unicode ordinal for the character
14 * @see http://www.php.net/ord
15 * @see http://www.php.net/manual/en/function.ord.php#46267
16 */
17 function utf8_ord($chr) {
18     
19     $ord0 = ord($chr);
20     
21     if ( $ord0 >= 0 && $ord0 <= 127 ) {
22         return $ord0;
23     }
24     
25     if ( !isset($chr{1}) ) {
26         trigger_error('Short sequence - at least 2 bytes expected, only 1 seen');
27         return FALSE;
28     }
29     
30     $ord1 = ord($chr{1});
31     if ( $ord0 >= 192 && $ord0 <= 223 ) {
32         return ( $ord0 - 192 ) * 64 
33             + ( $ord1 - 128 );
34     }
35     
36     if ( !isset($chr{2}) ) {
37         trigger_error('Short sequence - at least 3 bytes expected, only 2 seen');
38         return FALSE;
39     }
40     $ord2 = ord($chr{2});
41     if ( $ord0 >= 224 && $ord0 <= 239 ) {
42         return ($ord0-224)*4096 
43             + ($ord1-128)*64 
44                 + ($ord2-128);
45     }
46     
47     if ( !isset($chr{3}) ) {
48         trigger_error('Short sequence - at least 4 bytes expected, only 3 seen');
49         return FALSE;
50     }
51     $ord3 = ord($chr{3});
52     if ($ord0>=240 && $ord0<=247) {
53         return ($ord0-240)*262144 
54             + ($ord1-128)*4096 
55                 + ($ord2-128)*64 
56                     + ($ord3-128);
57     
58     }
59     
60     if ( !isset($chr{4}) ) {
61         trigger_error('Short sequence - at least 5 bytes expected, only 4 seen');
62         return FALSE;
63     }
64     $ord4 = ord($chr{4});
65     if ($ord0>=248 && $ord0<=251) {
66         return ($ord0-248)*16777216 
67             + ($ord1-128)*262144 
68                 + ($ord2-128)*4096 
69                     + ($ord3-128)*64 
70                         + ($ord4-128);
71     }
72     
73     if ( !isset($chr{5}) ) {
74         trigger_error('Short sequence - at least 6 bytes expected, only 5 seen');
75         return FALSE;
76     }
77     if ($ord0>=252 && $ord0<=253) {
78         return ($ord0-252) * 1073741824 
79             + ($ord1-128)*16777216 
80                 + ($ord2-128)*262144 
81                     + ($ord3-128)*4096 
82                         + ($ord4-128)*64 
83                             + (ord($c{5})-128);
84     }
85     
86     if ( $ord0 >= 254 && $ord0 <= 255 ) { 
87         trigger_error('Invalid UTF-8 with surrogate ordinal '.$ord0);
88         return FALSE;
89     }
90     
91 }
92

Benjamin Mako Hill || Want to submit a patch?