12345678910111213141516171819202122 |
- MODULE LinIconv ["libiconv.so.3"];
- IMPORT Libc := LinLibc;
- TYPE
- PtrVoid = Libc.PtrVoid;
- PtrSTR* = Libc.PtrSTR;
- PtrLSTR* = POINTER TO ARRAY [untagged] OF CHAR;
- size_t* = Libc.size_t;
- iconv_t* = PtrVoid;
- PROCEDURE [ccall] iconv_open* ["libiconv_open"] (tocode, fromcode: PtrSTR): iconv_t;
- PROCEDURE [ccall] iconv_close* ["libiconv_close"] (cd: iconv_t): INTEGER;
- PROCEDURE [ccall] iconv* ["libiconv"] (cd: iconv_t; VAR [nil] inbuf: PtrSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrSTR; VAR outbytesleft: size_t): size_t;
- PROCEDURE [ccall] iconv_encode* ["libiconv"] (cd: iconv_t; VAR [nil] inbuf: PtrLSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrSTR; VAR outbytesleft: size_t): size_t;
- PROCEDURE [ccall] iconv_decode* ["libiconv"] (cd: iconv_t; VAR [nil] inbuf: PtrSTR; VAR inbytesleft: size_t; VAR [nil] outbuf: PtrLSTR; VAR outbytesleft: size_t): size_t;
- END LinIconv.
|