GP<GStringRep>
GStringRep::Unicode::create(
void const * const xbuf,
unsigned int bufsize,
GP<GStringRep> encoding)
{
GP<GStringRep> retval;
GStringRep *e=encoding;
if(e)
{
e=(encoding=e->upcase());
}
if(!e || !e->size)
{
retval=create(xbuf,bufsize,XOTHER);
}else if(!e->cmp("UTF8") || !e->cmp("UTF-8"))
{
retval=create(xbuf,bufsize,XUTF8);
}else if(!e->cmp("UTF16")|| !e->cmp("UTF-16")
|| !e->cmp("UCS2") || !e->cmp("UCS2"))
{
retval=create(xbuf,bufsize,XUTF16);
}else if(!e->cmp("UCS4") || !e->cmp("UCS-4"))
{
retval=create(xbuf,bufsize,XUCS4);
}else
{
#if HAS_ICONV
EncodeType t=XOTHER;
void const * const buf=checkmarks(xbuf,bufsize,t);
if(t != XOTHER)
{
retval=create(xbuf,bufsize,t);
}else if(buf && bufsize)
{
unsigned char const *eptr=(unsigned char *)buf;
unsigned int j=0;
for(j=0;(j<bufsize)&&*eptr;j++,eptr++)
EMPTY_LOOP;
if (j)
{
unsigned char const *ptr=(unsigned char *)buf;
if(e)
{
iconv_t cv=iconv_open("UTF-8",(const char *)e);
if(cv == (iconv_t)(-1))
{
const int i=e->search('-');
if(i>=0)
{
cv=iconv_open("UTF-8",e->data+i+1);
}
}
if(cv == (iconv_t)(-1))
{
retval=create(0,0,XOTHER);
}else
{
size_t ptrleft=(eptr-ptr);
char *utf8buf;
size_t pleft=6*ptrleft+1;
GPBuffer<char> gutf8buf(utf8buf,pleft);
char *p=utf8buf;
char *nptr = (char*)ptr;
while(iconv_adaptor(iconv, cv, &nptr, &ptrleft, &p, &pleft))
ptr = (unsigned char*)nptr;
iconv_close(cv);
retval=create(utf8buf,(size_t)ptr-(size_t)buf,t);
retval->set_remainder(ptr,(size_t)eptr-(size_t)ptr,e);
}
}
}else
{
retval=create(0,0,XOTHER);
retval->set_remainder(0,0,e);
}
}
#else
retval=create(xbuf,bufsize,XOTHER);
#endif
}
return retval;
}
