Added separate iso-8859-*, cp1257 and big5 decoding files
[squirrelmail.git] / functions / decode / iso8859-13.php
1 <?php
2 /*
3 * decode/iso8859-13.php
4 * $Id$
5 *
6 * Copyright (c) 1999-2003 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This file contains iso-8859-13 decoding function that is needed to read
10 * iso-8859-13 encoded mails in non-iso-8859-13 locale.
11 *
12 * Original data taken from:
13 * ftp://ftp.unicode.org/Public/MAPPINGS/ISO8859/8859-13.TXT
14 *
15 * Name: ISO/IEC 8859-13:1998 to Unicode
16 * Unicode version: 3.0
17 * Table version: 1.0
18 * Table format: Format A
19 * Date: 1999 July 27
20 * Authors: Ken Whistler <kenw@sybase.com>
21 *
22 * Original copyright:
23 * Copyright (c) 1999 Unicode, Inc. All Rights reserved.
24 *
25 * This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
26 * No claims are made as to fitness for any particular purpose. No
27 * warranties of any kind are expressed or implied. The recipient
28 * agrees to determine applicability of information provided. If this
29 * file has been provided on optical media by Unicode, Inc., the sole
30 * remedy for any claim will be exchange of defective media within 90
31 * days of receipt.
32 *
33 * Unicode, Inc. hereby grants the right to freely use the information
34 * supplied in this file in the creation of products supporting the
35 * Unicode Standard, and to make copies of this file in any form for
36 * internal or external distribution as long as this notice remains
37 * attached.
38 *
39 */
40 function charset_decode_iso8859_13 ($string) {
41 global $default_charset;
42
43 if (strtolower($default_charset) == 'iso-8859-13')
44 return $string;
45
46 /* Only do the slow convert if there are 8-bit characters */
47 /* there is no 0x80-0x9F letters in ISO8859-* */
48 if ( ! ereg("[\241-\377]", $string) )
49 return $string;
50
51 $iso8859_13 = array(
52 "\xA0" => '&#160;',
53 "\xA1" => '&#8221;',
54 "\xA2" => '&#162;',
55 "\xA3" => '&#163;',
56 "\xA4" => '&#164;',
57 "\xA5" => '&#8222;',
58 "\xA6" => '&#166;',
59 "\xA7" => '&#167;',
60 "\xA8" => '&#216;',
61 "\xA9" => '&#169;',
62 "\xAA" => '&#342;',
63 "\xAB" => '&#171;',
64 "\xAC" => '&#172;',
65 "\xAD" => '&#173;',
66 "\xAE" => '&#174;',
67 "\xAF" => '&#198;',
68 "\xB0" => '&#176;',
69 "\xB1" => '&#177;',
70 "\xB2" => '&#178;',
71 "\xB3" => '&#179;',
72 "\xB4" => '&#8220;',
73 "\xB5" => '&#181;',
74 "\xB6" => '&#182;',
75 "\xB7" => '&#183;',
76 "\xB8" => '&#248;',
77 "\xB9" => '&#185;',
78 "\xBA" => '&#343;',
79 "\xBB" => '&#187;',
80 "\xBC" => '&#188;',
81 "\xBD" => '&#189;',
82 "\xBE" => '&#190;',
83 "\xBF" => '&#230;',
84 "\xC0" => '&#260;',
85 "\xC1" => '&#302;',
86 "\xC2" => '&#256;',
87 "\xC3" => '&#262;',
88 "\xC4" => '&#196;',
89 "\xC5" => '&#197;',
90 "\xC6" => '&#280;',
91 "\xC7" => '&#274;',
92 "\xC8" => '&#268;',
93 "\xC9" => '&#201;',
94 "\xCA" => '&#377;',
95 "\xCB" => '&#278;',
96 "\xCC" => '&#290;',
97 "\xCD" => '&#310;',
98 "\xCE" => '&#298;',
99 "\xCF" => '&#315;',
100 "\xD0" => '&#352;',
101 "\xD1" => '&#323;',
102 "\xD2" => '&#325;',
103 "\xD3" => '&#211;',
104 "\xD4" => '&#332;',
105 "\xD5" => '&#213;',
106 "\xD6" => '&#214;',
107 "\xD7" => '&#215;',
108 "\xD8" => '&#370;',
109 "\xD9" => '&#321;',
110 "\xDA" => '&#346;',
111 "\xDB" => '&#362;',
112 "\xDC" => '&#220;',
113 "\xDD" => '&#379;',
114 "\xDE" => '&#381;',
115 "\xDF" => '&#223;',
116 "\xE0" => '&#261;',
117 "\xE1" => '&#303;',
118 "\xE2" => '&#257;',
119 "\xE3" => '&#263;',
120 "\xE4" => '&#228;',
121 "\xE5" => '&#229;',
122 "\xE6" => '&#281;',
123 "\xE7" => '&#275;',
124 "\xE8" => '&#269;',
125 "\xE9" => '&#233;',
126 "\xEA" => '&#378;',
127 "\xEB" => '&#279;',
128 "\xEC" => '&#291;',
129 "\xED" => '&#311;',
130 "\xEE" => '&#299;',
131 "\xEF" => '&#316;',
132 "\xF0" => '&#353;',
133 "\xF1" => '&#324;',
134 "\xF2" => '&#326;',
135 "\xF3" => '&#243;',
136 "\xF4" => '&#333;',
137 "\xF5" => '&#245;',
138 "\xF6" => '&#246;',
139 "\xF7" => '&#247;',
140 "\xF8" => '&#371;',
141 "\xF9" => '&#322;',
142 "\xFA" => '&#347;',
143 "\xFB" => '&#363;',
144 "\xFC" => '&#252;',
145 "\xFD" => '&#380;',
146 "\xFE" => '&#382;',
147 "\xFF" => '&#8217;'
148 );
149
150 $string = str_replace(array_keys($iso8859_13), array_values($iso8859_13), $string);
151
152 return $string;
153 }
154
155 ?>