X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=tests%2Ficonv%2Ficonv.psi;h=dc0aedee9ddc56c402314a8bd41aeed740c590ed;hp=e414dc0ebd49b8cbfdc23b237ed0f8d554d79046;hb=2cef1aee122dcdcf0d1a63a45528fdcb0ee4221e;hpb=d59f10e81c33354ee1589fb10847b4611423de2e diff --git a/tests/iconv/iconv.psi b/tests/iconv/iconv.psi index e414dc0..dc0aede 100644 --- a/tests/iconv/iconv.psi +++ b/tests/iconv/iconv.psi @@ -1,3 +1,5 @@ +#include + extern void *iconv_open(char *tocode, char *fromcode); function psi\iconv_open(string $to, string $from) : object { let tocode = strval($to); @@ -13,7 +15,7 @@ function psi\iconv(object $iconv, string &$inbuf, string &$outbuf) : int { let outbytesleft = &8192; let outbuf = &calloc(1, 8192); temp result = *outbuf; - return to_int(iconv); + return iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft) as to_int(iconv); set $inbuf = to_string(*inbuf, *inbytesleft); set $outbuf = to_string(result, 8192 - *outbytesleft); }