-/* towctrans( wint_t, wctrans_t )\r
-\r
- This file is part of the Public Domain C Library (PDCLib).\r
- Permission is granted to use, modify, and / or redistribute at will.\r
-*/\r
-\r
-#include <wctype.h>\r
-#ifndef REGTEST\r
-#include <string.h>\r
-#include "_PDCLIB_locale.h"\r
-\r
-wint_t _PDCLIB_towctrans_l( wint_t wc, wctrans_t trans, locale_t l )\r
-{\r
- switch( trans ) {\r
- case 0: return wc;\r
- case _PDCLIB_WCTRANS_TOLOWER: return _PDCLIB_towlower_l( wc, l );\r
- case _PDCLIB_WCTRANS_TOUPPER: return _PDCLIB_towupper_l( wc, l );\r
- default: abort();\r
- }\r
-}\r
-\r
-wint_t towctrans( wint_t wc, wctrans_t trans )\r
-{\r
- return _PDCLIB_towctrans_l( wc, trans, _PDCLIB_threadlocale() );\r
-}\r
-\r
-#endif\r
-\r
-#ifdef TEST\r
-#include "_PDCLIB_test.h"\r
-\r
-int main( void )\r
-{\r
- TESTCASE(towctrans(L'a', wctrans("toupper")) == L'A');\r
- TESTCASE(towctrans(L'B', wctrans("toupper")) == L'B');\r
- TESTCASE(towctrans(L'a', wctrans("tolower")) == L'a');\r
- TESTCASE(towctrans(L'B', wctrans("tolower")) == L'b');\r
- TESTCASE(towctrans(L'B', wctrans("invalid")) == L'B');\r
- TESTCASE(towctrans(L'B', 0) == L'B');\r
- return TEST_RESULTS;\r
-}\r
-#endif\r
+/* 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