1999-04-17 08:37:12 +08:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
1999-07-16 21:13:16 +08:00
|
|
|
| PHP version 4.0 |
|
1999-04-17 08:37:12 +08:00
|
|
|
+----------------------------------------------------------------------+
|
2000-01-01 09:32:05 +08:00
|
|
|
| Copyright (c) 1997, 1998, 1999, 2000 The PHP Group |
|
1999-04-17 08:37:12 +08:00
|
|
|
+----------------------------------------------------------------------+
|
2000-02-20 07:41:32 +08:00
|
|
|
| This source file is subject to version 2.01 of the PHP license, |
|
1999-07-16 21:13:16 +08:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
|
|
| available at through the world-wide-web at |
|
2000-02-20 07:41:32 +08:00
|
|
|
| http://www.php.net/license/2_01.txt. |
|
1999-07-16 21:13:16 +08:00
|
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
|
|
| license@php.net so we can mail you a copy immediately. |
|
1999-04-17 08:37:12 +08:00
|
|
|
+----------------------------------------------------------------------+
|
1999-07-16 21:13:16 +08:00
|
|
|
| Authors: Kirill Maximov <kir@rus.net> |
|
1999-04-17 08:37:12 +08:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
|
|
#include <unistd.h>
|
|
|
|
#endif
|
|
|
|
#include <string.h>
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
#include "php.h"
|
|
|
|
#include "cyr_convert.h"
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************
|
|
|
|
* This is codetables for different Cyrillic charsets (relative to koi8-r).
|
|
|
|
* Each table contains data for 128-255 symbols from ASCII table.
|
|
|
|
* First 256 symbols are for conversion from koi8-r to corresponding charset,
|
|
|
|
* second 256 symbols are for reverse conversion, from charset to koi8-r.
|
|
|
|
*
|
|
|
|
* Here we have the following tables:
|
|
|
|
* _cyr_win1251 - for windows-1251 charset
|
|
|
|
* _cyr_iso88595 - for iso8859-5 charset
|
|
|
|
* _cyr_cp866 - for x-cp866 charset
|
|
|
|
* _cyr_mac - for x-mac-cyrillic charset
|
|
|
|
*
|
|
|
|
*****************************************************************************/
|
|
|
|
|
|
|
|
typedef unsigned char _cyr_charset_table[512];
|
|
|
|
|
|
|
|
const static _cyr_charset_table _cyr_win1251 = {
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,
|
|
|
|
46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,
|
|
|
|
46,46,46,46,46,46,46,46,179,46,32,46,46,46,46,32,
|
|
|
|
46,46,46,46,46,46,46,46,163,46,32,46,46,46,46,32,
|
|
|
|
225,226,247,231,228,229,246,250,233,234,235,236,237,238,239,240,
|
|
|
|
242,243,244,245,230,232,227,254,251,253,255,249,248,252,224,241,
|
|
|
|
193,194,215,199,196,197,214,218,201,202,203,204,205,206,207,208,
|
|
|
|
210,211,212,213,198,200,195,222,219,221,223,217,216,220,192,209,
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,184,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,168,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
254,224,225,246,228,229,244,227,245,232,233,234,235,236,237,238,
|
|
|
|
239,255,240,241,242,243,230,226,252,251,231,248,253,249,247,250,
|
|
|
|
222,192,193,214,196,197,212,195,213,200,201,202,203,204,205,206,
|
|
|
|
207,223,208,209,210,211,198,194,220,219,199,216,221,217,215,218,
|
|
|
|
},
|
|
|
|
_cyr_cp866 = {
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
225,226,247,231,228,229,246,250,233,234,235,236,237,238,239,240,
|
|
|
|
242,243,244,245,230,232,227,254,251,253,255,249,248,252,224,241,
|
|
|
|
193,194,215,199,196,197,214,218,201,202,203,204,205,206,207,208,
|
|
|
|
35,35,35,124,124,124,124,43,43,124,124,43,43,43,43,43,
|
|
|
|
43,45,45,124,45,43,124,124,43,43,45,45,124,45,43,45,
|
|
|
|
45,45,45,43,43,43,43,43,43,43,43,35,35,124,124,35,
|
|
|
|
210,211,212,213,198,200,195,222,219,221,223,217,216,220,192,209,
|
|
|
|
179,163,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,241,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,240,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
238,160,161,230,164,165,228,163,229,168,169,170,171,172,173,174,
|
|
|
|
175,239,224,225,226,227,166,162,236,235,167,232,237,233,231,234,
|
|
|
|
158,128,129,150,132,133,148,131,149,136,137,138,139,140,141,142,
|
|
|
|
143,159,144,145,146,147,134,130,156,155,135,152,157,153,151,154,
|
|
|
|
},
|
|
|
|
_cyr_iso88595 = {
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,179,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
225,226,247,231,228,229,246,250,233,234,235,236,237,238,239,240,
|
|
|
|
242,243,244,245,230,232,227,254,251,253,255,249,248,252,224,241,
|
|
|
|
193,194,215,199,196,197,214,218,201,202,203,204,205,206,207,208,
|
|
|
|
210,211,212,213,198,200,195,222,219,221,223,217,216,220,192,209,
|
|
|
|
32,163,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,241,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
32,32,32,161,32,32,32,32,32,32,32,32,32,32,32,32,
|
|
|
|
238,208,209,230,212,213,228,211,229,216,217,218,219,220,221,222,
|
|
|
|
223,239,224,225,226,227,214,210,236,235,215,232,237,233,231,234,
|
|
|
|
206,176,177,198,180,181,196,179,197,184,185,186,187,188,189,190,
|
|
|
|
191,207,192,193,194,195,182,178,204,203,183,200,205,201,199,202,
|
|
|
|
},
|
|
|
|
_cyr_mac = {
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
225,226,247,231,228,229,246,250,233,234,235,236,237,238,239,240,
|
|
|
|
242,243,244,245,230,232,227,254,251,253,255,249,248,252,224,241,
|
|
|
|
160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,
|
|
|
|
176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
|
|
|
|
128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
|
|
|
|
144,145,146,147,148,149,150,151,152,153,154,155,156,179,163,209,
|
|
|
|
193,194,215,199,196,197,214,218,201,202,203,204,205,206,207,208,
|
|
|
|
210,211,212,213,198,200,195,222,219,221,223,217,216,220,192,255,
|
|
|
|
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
|
|
|
|
16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,
|
|
|
|
32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,
|
|
|
|
48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
|
|
|
|
64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,
|
|
|
|
80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,
|
|
|
|
96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,
|
|
|
|
112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
|
|
|
|
192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
|
|
|
|
208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
|
|
|
|
160,161,162,222,164,165,166,167,168,169,170,171,172,173,174,175,
|
|
|
|
176,177,178,221,180,181,182,183,184,185,186,187,188,189,190,191,
|
|
|
|
254,224,225,246,228,229,244,227,245,232,233,234,235,236,237,238,
|
|
|
|
239,223,240,241,242,243,230,226,252,251,231,248,253,249,247,250,
|
|
|
|
158,128,129,150,132,133,148,131,149,136,137,138,139,140,141,142,
|
|
|
|
143,159,144,145,146,147,134,130,156,155,135,152,157,153,151,154,
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************
|
|
|
|
* This is the function that performs real in-place conversion of the string
|
|
|
|
* between charsets.
|
|
|
|
* Parameters:
|
|
|
|
* str - string to be converted
|
|
|
|
* from,to - one-symbol label of source and destination charset
|
|
|
|
* The following symbols are used as labels:
|
|
|
|
* k - koi8-r
|
|
|
|
* w - windows-1251
|
|
|
|
* i - iso8859-5
|
|
|
|
* a - x-cp866
|
|
|
|
* d - x-cp866
|
|
|
|
* m - x-mac-cyrillic
|
|
|
|
*****************************************************************************/
|
1999-12-18 12:01:20 +08:00
|
|
|
static char * php_convert_cyr_string(unsigned char *str, char from, char to)
|
1999-04-17 08:37:12 +08:00
|
|
|
{
|
|
|
|
const unsigned char *from_table, *to_table;
|
|
|
|
unsigned char tmp;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
from_table = NULL;
|
|
|
|
to_table = NULL;
|
|
|
|
|
|
|
|
switch (toupper(from))
|
|
|
|
{
|
|
|
|
case 'W':
|
|
|
|
from_table = _cyr_win1251;
|
|
|
|
break;
|
|
|
|
case 'A':
|
|
|
|
case 'D':
|
|
|
|
from_table = _cyr_cp866;
|
|
|
|
break;
|
|
|
|
case 'I':
|
|
|
|
from_table = _cyr_iso88595;
|
|
|
|
break;
|
|
|
|
case 'M':
|
|
|
|
from_table = _cyr_mac;
|
|
|
|
break;
|
|
|
|
case 'K':
|
|
|
|
break;
|
|
|
|
default:
|
1999-08-03 03:17:14 +08:00
|
|
|
php_error(E_WARNING, "Unknown source charset: %c", from);
|
1999-04-17 08:37:12 +08:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (toupper(to))
|
|
|
|
{
|
|
|
|
case 'W':
|
|
|
|
to_table = _cyr_win1251;
|
|
|
|
break;
|
|
|
|
case 'A':
|
|
|
|
case 'D':
|
|
|
|
to_table = _cyr_cp866;
|
|
|
|
break;
|
|
|
|
case 'I':
|
|
|
|
to_table = _cyr_iso88595;
|
|
|
|
break;
|
|
|
|
case 'M':
|
|
|
|
to_table = _cyr_mac;
|
|
|
|
break;
|
|
|
|
case 'K':
|
|
|
|
break;
|
|
|
|
default:
|
1999-08-03 03:17:14 +08:00
|
|
|
php_error(E_WARNING, "Unknown destination charset: %c", to);
|
1999-04-17 08:37:12 +08:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
if (!str)
|
|
|
|
return (char *)str;
|
|
|
|
|
|
|
|
for( i = 0; str[i]; i++)
|
|
|
|
{
|
|
|
|
tmp = (from_table == NULL)? str[i] : from_table[ str[i] ];
|
|
|
|
str[i] = (to_table == NULL) ? tmp : to_table[tmp + 256];
|
|
|
|
}
|
|
|
|
return (char *)str;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* {{{ proto string convert_cyr_string(string str, string from, string to)
|
|
|
|
Convert from one Cyrillic character set to another */
|
1999-05-16 19:19:26 +08:00
|
|
|
PHP_FUNCTION(convert_cyr_string)
|
1999-04-17 08:37:12 +08:00
|
|
|
{
|
1999-12-20 10:09:58 +08:00
|
|
|
pval **str_arg, **fr_cs, **to_cs;
|
1999-04-17 08:37:12 +08:00
|
|
|
unsigned char *str;
|
|
|
|
|
1999-12-20 10:09:58 +08:00
|
|
|
if (ARG_COUNT(ht) != 3 || zend_get_parameters_ex(3,&str_arg,&fr_cs, &to_cs)==FAILURE)
|
1999-04-17 08:37:12 +08:00
|
|
|
{
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
1999-12-20 10:09:58 +08:00
|
|
|
convert_to_string_ex(str_arg);
|
|
|
|
convert_to_string_ex(fr_cs);
|
|
|
|
convert_to_string_ex(to_cs);
|
1999-04-17 08:37:12 +08:00
|
|
|
|
1999-12-20 10:09:58 +08:00
|
|
|
str = (unsigned char*) (*str_arg)->value.str.val;
|
1999-04-17 08:37:12 +08:00
|
|
|
|
1999-12-20 10:09:58 +08:00
|
|
|
php_convert_cyr_string(str, (*fr_cs)->value.str.val[0],(*to_cs)->value.str.val[0]);
|
1999-04-17 08:37:12 +08:00
|
|
|
RETVAL_STRING((char *)str, 1)
|
|
|
|
}
|
|
|
|
/* }}} */
|