Rev 5676 | Rev 5704 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
3107 | leency | 1 | //convert text characters |
5598 | pavelyakov | 2 | #ifndef INCLUDE_LIBICONV_H |
3 | #define INCLUDE_LIBICONV_H |
||
5676 | pavelyakov | 4 | #print "[include |
3106 | leency | 5 | |
5598 | pavelyakov | 6 | #ifndef INCLUDE_KOLIBRI_H |
7 | #include "../lib/kolibri.h" |
||
8 | #endif |
||
9 | |||
10 | #ifndef INCLUDE_DLL_H |
||
11 | #include "../lib/dll.h" |
||
12 | #endif |
||
13 | |||
3106 | leency | 14 | dword iconv_lib = #a_iconv_lib; |
15 | char a_iconv_lib[19]="/sys/lib/iconv.obj\0"; |
||
16 | |||
17 | dword iconv_open = #aIconv_open; |
||
18 | dword iconv = #aIconv; |
||
3839 | Asper | 19 | $DD 2 dup 0 |
3106 | leency | 20 | |
21 | char aIconv_open[11] = "iconv_open\0"; |
||
22 | char aIconv[6] = "iconv\0"; |
||
23 | |||
24 | |||
25 | dword ChangeCharset(dword from_chs, to_chs, conv_buf) |
||
26 | { |
||
27 | dword cd, in_len, out_len, new_buf; |
||
28 | |||
29 | iconv_open stdcall (from_chs, to_chs); //CP866, CP1251, CP1252, KOI8-RU, UTF-8, ISO8859-5 |
||
3128 | leency | 30 | if (EAX==-1) |
31 | { |
||
3363 | leency | 32 | debug(from_chs); |
33 | debug(to_chs); |
||
3128 | leency | 34 | debug("iconv: wrong charset,\nuse only CP866, CP1251, CP1252, KOI8-RU, UTF-8, ISO8859-5"); |
35 | return 0; |
||
36 | } |
||
3106 | leency | 37 | cd = EAX; |
38 | |||
3128 | leency | 39 | in_len = out_len = strlen(conv_buf)+1; |
3106 | leency | 40 | new_buf = mem_Alloc(in_len); |
41 | iconv stdcall (cd, #conv_buf, #in_len, #new_buf, #out_len); |
||
42 | cd = EAX; |
||
43 | if (cd!=0) |
||
44 | { |
||
3107 | leency | 45 | debug("iconv: something is wrong with stdcall iconv()"); |
3363 | leency | 46 | debugi(cd); |
3106 | leency | 47 | debug("in_len"); |
3363 | leency | 48 | debugi(in_len); |
3106 | leency | 49 | debug("out_len"); |
3363 | leency | 50 | debugi(out_len); |
51 | new_buf = free(new_buf); |
||
3128 | leency | 52 | return 0; |
3106 | leency | 53 | } |
3128 | leency | 54 | strcpy(conv_buf, new_buf); |
55 | free(new_buf); |
||
56 | return conv_buf; |
||
3363 | leency | 57 | } |
58 | |||
59 | |||
5690 | leency | 60 | :char *charsets[] = { " ", "UTF-8", "KOI8-RU", "CP1251", "CP1252", "ISO8859-5", "CP866"}; |
61 | :int cur_charset; |
||
3363 | leency | 62 | enum { |
63 | CH_NULL, |
||
64 | CH_UTF8, |
||
65 | CH_KOI8, |
||
66 | CH_CP1251, |
||
67 | CH_CP1252, |
||
68 | CH_ISO8859_5, |
||
69 | CH_CP866 |
||
5598 | pavelyakov | 70 | }; |
71 | |||
72 | #endif |