Subversion Repositories Kolibri OS

Rev

Rev 5598 | Rev 5690 | 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 ]\n"
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
 
60
char *charsets[] = { " ", "UTF-8", "KOI8-RU", "CP1251",  "CP1252", "ISO8859-5", "CP866"};
61
int cur_charset;
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