Subversion Repositories Kolibri OS

//convert text characters

#ifndef INCLUDE_LIBICONV_H

#define INCLUDE_LIBICONV_H

#print "[include ]\n"

#ifndef INCLUDE_KOLIBRI_H

#include "../lib/kolibri.h"

#endif

dword iconv_lib = #a_iconv_lib;

char a_iconv_lib[19]="/sys/lib/iconv.obj\0";

dword iconv_open     = #aIconv_open;

dword iconv          = #aIconv;

$DD 2 dup 0

char aIconv_open[11] = "iconv_open\0";

char aIconv[6]       = "iconv\0";

dword ChangeCharset(dword from_chs, to_chs, conv_buf)

{

	dword cd, in_len, out_len, new_buf;

	iconv_open stdcall (from_chs, to_chs); //CP866, CP1251, CP1252, KOI8-RU, UTF-8, ISO8859-5

	if (EAX==-1)

	{

		debugln(from_chs);

		debugln(to_chs);

		debugln("iconv: wrong charset,\nuse only CP866, CP1251, CP1252, KOI8-RU, UTF-8, ISO8859-5");

		return 0;

	}

	cd = EAX;

	in_len = out_len = strlen(conv_buf)+1;

	new_buf = mem_Alloc(in_len);

	iconv stdcall (cd, #conv_buf, #in_len, #new_buf, #out_len);

	cd = EAX;

	if (cd!=0)

	{

		debugln("iconv: something is wrong with stdcall iconv()");

		debugi(cd);

		debug("in_len:"); debugi(in_len);

		debug("out_len:"); debugi(out_len);

		new_buf = free(new_buf);

		return 0;

	}

	strcpy(conv_buf, new_buf);

	free(new_buf);

	return conv_buf;

}

:int cur_charset;

:char *charsets[] = { "UTF-8", "KOI8-RU", "CP1251", "CP1252", "ISO8859-5", "CP866", 0 };

enum { CH_UTF8, CH_KOI8, CH_CP1251, CH_CP1252, CH_ISO8859_5, CH_CP866, CH_NULL };

#endif