extern void *iconv_open(char *tocode, char *fromcode);
function psi\iconv_open(string $to, string $from) : object {
let tocode = strval($to);
extern void *iconv_open(char *tocode, char *fromcode);
function psi\iconv_open(string $to, string $from) : object {
let tocode = strval($to);
let outbytesleft = &8192;
let outbuf = &calloc(1, 8192);
temp result = *outbuf;
let outbytesleft = &8192;
let outbuf = &calloc(1, 8192);
temp result = *outbuf;
set $inbuf = to_string(*inbuf, *inbytesleft);
set $outbuf = to_string(result, 8192 - *outbytesleft);
}
set $inbuf = to_string(*inbuf, *inbytesleft);
set $outbuf = to_string(result, 8192 - *outbytesleft);
}