X-Git-Url: https://pd.if.org/git/?p=pdclib;a=blobdiff_plain;f=functions%2Fwctype%2Ftowctrans.c;h=1ecb2ff2b7c2d8f410d2dae86e356477ca9384ec;hp=aea9b1a303ae28474e1d58435cdb917e7be91b91;hb=abc15df6b9fae3374d24c7cf5c3ab94c605b2a6d;hpb=6e6c4e6b52f2516e4bb6b9f37c1e2e18cb7448b5

diff --git a/functions/wctype/towctrans.c b/functions/wctype/towctrans.c
index aea9b1a..1ecb2ff 100644
--- a/functions/wctype/towctrans.c
+++ b/functions/wctype/towctrans.c
@@ -1,37 +1,42 @@
-/* towctrans( wint_t, wctrans_t )
-
-   This file is part of the Public Domain C Library (PDCLib).
-   Permission is granted to use, modify, and / or redistribute at will.
-*/
-
-#include <wctype.h>
-#ifndef REGTEST
-#include <string.h>
-#include <_PDCLIB_locale.h>
-
-wint_t towctrans( wint_t wc, wctrans_t trans )
-{
-    switch( trans ) {
-        case 0:                         return wc;
-        case _PDCLIB_WCTRANS_TOLOWER:   return towlower( wc );
-        case _PDCLIB_WCTRANS_TOUPPER:   return towupper( wc );
-        default: abort();
-    }
-}
-
-#endif
-
-#ifdef TEST
-#include <_PDCLIB_test.h>
-
-int main( void )
-{
-    TESTCASE(towctrans(L'a', wctrans("toupper")) == L'A');
-    TESTCASE(towctrans(L'B', wctrans("toupper")) == L'B');
-    TESTCASE(towctrans(L'a', wctrans("tolower")) == L'a');
-    TESTCASE(towctrans(L'B', wctrans("tolower")) == L'b');
-    TESTCASE(towctrans(L'B', wctrans("invalid")) == L'B');
-    TESTCASE(towctrans(L'B', 0)                  == L'B');
-    return TEST_RESULTS;
-}
-#endif
+/* towctrans( wint_t, wctrans_t )
+
+   This file is part of the Public Domain C Library (PDCLib).
+   Permission is granted to use, modify, and / or redistribute at will.
+*/
+
+#include <wctype.h>
+#ifndef REGTEST
+#include <string.h>
+#include "_PDCLIB_locale.h"
+
+wint_t _PDCLIB_towctrans_l( wint_t wc, wctrans_t trans, locale_t l )
+{
+    switch( trans ) {
+        case 0:                         return wc;
+        case _PDCLIB_WCTRANS_TOLOWER:   return _PDCLIB_towlower_l( wc, l );
+        case _PDCLIB_WCTRANS_TOUPPER:   return _PDCLIB_towupper_l( wc, l );
+        default: abort();
+    }
+}
+
+wint_t towctrans( wint_t wc, wctrans_t trans )
+{
+    return _PDCLIB_towctrans_l( wc, trans, _PDCLIB_threadlocale() );
+}
+
+#endif
+
+#ifdef TEST
+#include "_PDCLIB_test.h"
+
+int main( void )
+{
+    TESTCASE(towctrans(L'a', wctrans("toupper")) == L'A');
+    TESTCASE(towctrans(L'B', wctrans("toupper")) == L'B');
+    TESTCASE(towctrans(L'a', wctrans("tolower")) == L'a');
+    TESTCASE(towctrans(L'B', wctrans("tolower")) == L'b');
+    TESTCASE(towctrans(L'B', wctrans("invalid")) == L'B');
+    TESTCASE(towctrans(L'B', 0)                  == L'B');
+    return TEST_RESULTS;
+}
+#endif