MODULE HostLinIconv;

   IMPORT SYSTEM, Libc := HostLinLibc;

   TYPE
      PtrVoid = Libc.PtrVoid;
      PtrSTR* = Libc.PtrSTR;
      PtrLSTR* = POINTER TO ARRAY [untagged] OF CHAR;
      size_t* = Libc.size_t;

      iconv_t* = PtrVoid;

   PROCEDURE [code] iconv_open* (tocode, fromcode: PtrSTR): iconv_t
      'iconv_open(tocode, fromcode)';
   PROCEDURE [code] iconv_close* (cd: iconv_t): INTEGER
      'iconv_close(cd)';

   PROCEDURE [code] iconv* (cd: iconv_t; VAR [nil] inbuf: PtrSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrSTR; VAR outbytesleft: size_t): size_t
      'iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft)';

   PROCEDURE [code] iconv_encode* (cd: iconv_t; VAR [nil] inbuf: PtrLSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrSTR; VAR outbytesleft: size_t): size_t
      'iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft)';

   PROCEDURE [code] iconv_decode* (cd: iconv_t; VAR [nil] inbuf: PtrSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrLSTR; VAR outbytesleft: size_t): size_t
      'iconv(cd, inbuf, inbytesleft, outbuf, outbytesleft)';

END HostLinIconv.