c338735d |
1 | <?php |
4b4abf93 |
2 | |
c338735d |
3 | /** |
4 | * tis-620 encoding functions |
5 | * |
6 | * takes a string of unicode entities and converts it to a tis-620 encoded string |
7 | * Unsupported characters are replaced with ?. |
8 | * |
d4e46166 |
9 | * @copyright © 2004-2009 The SquirrelMail Project Team |
4b4abf93 |
10 | * @license http://opensource.org/licenses/gpl-license.php GNU Public License |
c338735d |
11 | * @version $Id$ |
c338735d |
12 | * @package squirrelmail |
13 | * @subpackage encode |
14 | */ |
15 | |
16 | /** |
17 | * Converts string to tis-620 |
18 | * @param string $string text with numeric unicode entities |
19 | * @return string tis-620 encoded text |
20 | */ |
21 | function charset_encode_tis_620 ($string) { |
22 | // don't run encoding function, if there is no encoded characters |
23 | if (! preg_match("'&#[0-9]+;'",$string) ) return $string; |
24 | |
25 | $string=preg_replace("/&#([0-9]+);/e","unicodetotis620('\\1')",$string); |
26 | // $string=preg_replace("/&#[xX]([0-9A-F]+);/e","unicodetotis620(hexdec('\\1'))",$string); |
91e0dccc |
27 | |
c338735d |
28 | return $string; |
29 | } |
30 | |
31 | /** |
32 | * Return tis-620 symbol when unicode character number is provided |
91e0dccc |
33 | * |
34 | * This function is used internally by charset_encode_tis_620 |
598294a7 |
35 | * function. It might be unavailable to other SquirrelMail functions. |
91e0dccc |
36 | * Don't use it or make sure, that functions/encode/tis_620.php is |
37 | * included. |
c338735d |
38 | * |
39 | * @param int $var decimal unicode value |
40 | * @return string tis-620 character |
41 | */ |
42 | function unicodetotis620($var) { |
43 | |
44 | $tis620chars=array('3585' => "\xA1", |
45 | '3586' => "\xA2", |
46 | '3587' => "\xA3", |
47 | '3588' => "\xA4", |
48 | '3589' => "\xA5", |
49 | '3590' => "\xA6", |
50 | '3591' => "\xA7", |
51 | '3592' => "\xA8", |
52 | '3593' => "\xA9", |
53 | '3594' => "\xAA", |
54 | '3595' => "\xAB", |
55 | '3596' => "\xAC", |
56 | '3597' => "\xAD", |
57 | '3598' => "\xAE", |
58 | '3599' => "\xAF", |
59 | '3600' => "\xB0", |
60 | '3601' => "\xB1", |
61 | '3602' => "\xB2", |
62 | '3603' => "\xB3", |
63 | '3604' => "\xB4", |
64 | '3605' => "\xB5", |
65 | '3606' => "\xB6", |
66 | '3607' => "\xB7", |
67 | '3608' => "\xB8", |
68 | '3609' => "\xB9", |
69 | '3610' => "\xBA", |
70 | '3611' => "\xBB", |
71 | '3612' => "\xBC", |
72 | '3613' => "\xBD", |
73 | '3614' => "\xBE", |
74 | '3615' => "\xBF", |
75 | '3616' => "\xC0", |
76 | '3617' => "\xC1", |
77 | '3618' => "\xC2", |
78 | '3619' => "\xC3", |
79 | '3620' => "\xC4", |
80 | '3621' => "\xC5", |
81 | '3622' => "\xC6", |
82 | '3623' => "\xC7", |
83 | '3624' => "\xC8", |
84 | '3625' => "\xC9", |
85 | '3626' => "\xCA", |
86 | '3627' => "\xCB", |
87 | '3628' => "\xCC", |
88 | '3629' => "\xCD", |
89 | '3630' => "\xCE", |
90 | '3631' => "\xCF", |
91 | '3632' => "\xD0", |
92 | '3633' => "\xD1", |
93 | '3634' => "\xD2", |
94 | '3635' => "\xD3", |
95 | '3636' => "\xD4", |
96 | '3637' => "\xD5", |
97 | '3638' => "\xD6", |
98 | '3639' => "\xD7", |
99 | '3640' => "\xD8", |
100 | '3641' => "\xD9", |
101 | '3642' => "\xDA", |
102 | '3647' => "\xDF", |
103 | '3648' => "\xE0", |
104 | '3649' => "\xE1", |
105 | '3650' => "\xE2", |
106 | '3651' => "\xE3", |
107 | '3652' => "\xE4", |
108 | '3653' => "\xE5", |
109 | '3654' => "\xE6", |
110 | '3655' => "\xE7", |
111 | '3656' => "\xE8", |
112 | '3657' => "\xE9", |
113 | '3658' => "\xEA", |
114 | '3659' => "\xEB", |
115 | '3660' => "\xEC", |
116 | '3661' => "\xED", |
117 | '3662' => "\xEE", |
118 | '3663' => "\xEF", |
119 | '3664' => "\xF0", |
120 | '3665' => "\xF1", |
121 | '3666' => "\xF2", |
122 | '3667' => "\xF3", |
123 | '3668' => "\xF4", |
124 | '3669' => "\xF5", |
125 | '3670' => "\xF6", |
126 | '3671' => "\xF7", |
127 | '3672' => "\xF8", |
128 | '3673' => "\xF9", |
129 | '3674' => "\xFA", |
130 | '3675' => "\xFB"); |
131 | |
132 | if (array_key_exists($var,$tis620chars)) { |
133 | $ret=$tis620chars[$var]; |
134 | } else { |
135 | $ret='?'; |
136 | } |
137 | return $ret; |
138 | } |