Skip to content

Commit

Permalink
* Lib/bbLinLibW: restore previous.
Browse files Browse the repository at this point in the history
  • Loading branch information
@Oleg-N-Cher
Oleg-N-Cher committed Nov 22, 2023
1 parent 2e53211 commit 5690788
Showing 1 changed file with 40 additions and 24 deletions.
64 changes: 40 additions & 24 deletions Mod/Lib/bbLinLibW.cp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,40 +32,56 @@ MODULE [foreign] bbLinLibW;

PtrWSTR* = POINTER [untagged] TO ARRAY [untagged] OF wchar_t;

(*PROCEDURE- includelocale "#include <locale.h>";
PROCEDURE- includelocale "#include <locale.h>";
PROCEDURE- includestdio "#include <stdio.h>";
PROCEDURE- includestdlib "#include <stdlib.h>";
PROCEDURE- includewchar "#include <wchar.h>";
PROCEDURE- includewctype "#include <wctype.h>";*)
PROCEDURE- includewctype "#include <wctype.h>";

PROCEDURE setlocale* (category: int; locale: Libc.PtrSTR): Libc.PtrSTR;
PROCEDURE- setlocale* (category: int; locale: Libc.PtrSTR): Libc.PtrSTR
"(CHAR*)setlocale(category, (const char *)locale)";

PROCEDURE mbsinit* (VAR [nil] ps: mbstate_t): int;
PROCEDURE- mbsinit* (VAR [nil] ps: mbstate_t): int
"mbsinit((const mbstate_t *)ps)";

PROCEDURE wctomb* (s: Libc.PtrSTR; wchar: wchar_t): int;
PROCEDURE wcstombs* (s: Libc.PtrSTR; pwcs: PtrWSTR; n: size_t): size_t;
PROCEDURE- wctomb* (s: Libc.PtrSTR; wchar: wchar_t): int
"wctomb((char *)s, (const wchar_t *)wchar)";
PROCEDURE- wcstombs* (s: Libc.PtrSTR; pwcs: PtrWSTR; n: size_t): size_t
"(SYSTEM_ADRINT)wcstombs((char *)s, (const wchar_t *)pwcs, (size_t) n)";

PROCEDURE wcrtomb* (s: Libc.PtrSTR; wc: wchar_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE wcsrtombs* (dst: Libc.PtrSTR; VAR src: PtrWSTR; len: size_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE wcsnrtombs* (dst: Libc.PtrSTR; VAR src: PtrWSTR; nwc: size_t; len: size_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE- wcrtomb* (s: Libc.PtrSTR; wc: wchar_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)wcrtomb((char *)s, (wchar_t)wc, (mbstate_t *)ps)";
PROCEDURE- wcsrtombs* (dst: Libc.PtrSTR; VAR src: PtrWSTR; len: size_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)wcsrtombs((char *)dst, (const wchar_t **)wc, (size_t)len, (mbstate_t *)ps)";
PROCEDURE- wcsnrtombs* (dst: Libc.PtrSTR; VAR src: PtrWSTR; nwc: size_t; len: size_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)wcsnrtombs((char *)dst, (const wchar_t **)src, (size_t)nwc, (size_t)len, (mbstate_t *)ps)";

PROCEDURE mbtowc* (pwc: PtrWSTR; s: Libc.PtrSTR; n: size_t): int;
PROCEDURE mbstowcs* (pwcs: PtrWSTR; s: Libc.PtrSTR; n: size_t): size_t;
PROCEDURE mblen* (s: Libc.PtrSTR; n: size_t): int;
PROCEDURE- mbtowc* (pwc: PtrWSTR; s: Libc.PtrSTR; n: size_t): int
"mbtowc((wchar_t *)pwc, (const char *)s, (size_t)n)";
PROCEDURE- mbstowcs* (pwcs: PtrWSTR; s: Libc.PtrSTR; n: size_t): size_t
"(SYSTEM_ADRINT)mbstowcs((wchar_t *)pwcs, (const char *)s, (size_t)n)";
PROCEDURE- mblen* (s: Libc.PtrSTR; n: size_t): int
"mblen((const char *)s, (size_t)n)";

PROCEDURE mbrtowc* (wc: PtrWSTR; s: Libc.PtrSTR; n: size_t; VAR [nil] mbs: mbstate_t): size_t;
PROCEDURE mbsrtowcs* (dst: PtrWSTR; VAR src: Libc.PtrSTR; len: size_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE mbsnrtowcs* (dst: PtrWSTR; VAR src: Libc.PtrSTR; nmc: size_t; len: size_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE mbrlen* (s: Libc.PtrSTR; n: size_t; VAR [nil] ps: mbstate_t): size_t;
PROCEDURE- mbrtowc* (wc: PtrWSTR; s: Libc.PtrSTR; n: size_t; VAR [nil] mbs: mbstate_t): size_t
"(SYSTEM_ADRINT)mbrtowc((wchar_t *)wc, (const char *)s, (size_t)n, (mbstate_t *)mbs)";
PROCEDURE- mbsrtowcs* (dst: PtrWSTR; VAR src: Libc.PtrSTR; len: size_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)mbsrtowcs((wchar_t *)dst, (const char **)src, (size_t)len, (mbstate_t *)ps);";
PROCEDURE- mbsnrtowcs* (dst: PtrWSTR; VAR src: Libc.PtrSTR; nmc: size_t; len: size_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)mbsnrtowcs((wchar_t *)dst, (const char **)src, (size_t)nmc, (size_t)len, (mbstate_t *)ps)";
PROCEDURE- mbrlen* (s: Libc.PtrSTR; n: size_t; VAR [nil] ps: mbstate_t): size_t
"(SYSTEM_ADRINT)mbrlen((const char *)s, (size_t)n, (mbstate_t *)ps)";

PROCEDURE iswalpha* (wc: wint_t): int;
PROCEDURE iswlower* (wc: wint_t): int;
PROCEDURE iswupper* (wc: wint_t): int;
PROCEDURE towlower* (wc: wint_t): wint_t;
PROCEDURE towupper* (wc: wint_t): wint_t;
PROCEDURE- iswalpha* (wc: wint_t): int "iswalpha(wc)";
PROCEDURE- iswlower* (wc: wint_t): int "iswlower(wc)";
PROCEDURE- iswupper* (wc: wint_t): int "iswupper(wc)";
PROCEDURE- towlower* (wc: wint_t): wint_t "towlower(wc)";
PROCEDURE- towupper* (wc: wint_t): wint_t "towupper(wc)";

PROCEDURE wprintf* (fmt: PtrWSTR): int;
PROCEDURE fputws* (ws: PtrWSTR; fp: Libc.PtrFILE): int;
PROCEDURE fgetws* (ws: PtrWSTR; n: int; fp: Libc.PtrFILE): PtrWSTR;
PROCEDURE- wprintf* (fmt: PtrWSTR): int "wprintf((const wchar_t *)fmt)";
PROCEDURE- fputws* (ws: PtrWSTR; fp: Libc.PtrFILE): int
"fputws((const wchar_t *)ws, (FILE *)fp)";
PROCEDURE- fgetws* (ws: PtrWSTR; n: int; fp: Libc.PtrFILE): PtrWSTR
"(INTEGER *)fgetws((wchar_t *)ws, n, (FILE *)fp)";

END bbLinLibW.

0 comments on commit 5690788

Please sign in to comment.