added qse_strlwr() and qse_strupr()

qse/cmd/scm/scm.c

@@ -238,6 +238,17 @@ pio1 (QSE_T("pstat.exe /c"), QSE_PIO_READOUT|QSE_PIO_WRITEIN|/*QSE_PIO_SHELL|*/Q
 	qse_printf (QSE_T("%s\n"), qse_strpbrk (QSE_T("abcdefg"), QSE_T("fb")));
 }
 
+{
+	qse_char_t str[256];
+	qse_size_t len;
+
+	qse_strcpy (str, QSE_T("what a Wonderful WORLD"));
+	len = qse_strlwr(str);
+	qse_printf (QSE_T("%d %s\n"), (int)len, str);
+	len = qse_strupr(str);
+	qse_printf (QSE_T("%d %s\n"), (int)len, str);
+}
+
 {
 qse_scm_ent_t* x1, * x2;
 

qse/include/qse/cmn/str.h

@@ -1,5 +1,5 @@
 /*
- * $Id: str.h 413 2011-03-25 04:36:43Z hyunghwan.chung $
+ * $Id: str.h 415 2011-03-25 16:02:04Z hyunghwan.chung $
  *
     Copyright 2006-2009 Chung, Hyung-Hwan.
     This file is part of QSE.
@@ -976,6 +976,32 @@ qse_ulong_t qse_strxtoulong (
 	qse_size_t        len
 );
 
+/* case conversion */
+
+qse_size_t qse_mbslwr (
+	qse_mchar_t* str
+);
+
+qse_size_t qse_wcslwr (
+	qse_wchar_t* str
+);
+
+qse_size_t qse_mbsupr (
+	qse_mchar_t* str
+);
+
+qse_size_t qse_wcsupr (
+	qse_wchar_t* str
+);
+
+#ifdef QSE_CHAR_IS_MCHAR
+#	define qse_strlwr(str) qse_mbslwr(str);
+#	define qse_strupr(str) qse_mbsupr(str);
+#else
+#	define qse_strlwr(str) qse_wcslwr(str);
+#	define qse_strupr(str) qse_wcsupr(str);
+#endif
+
 /**
  * The qse_strspl() function splits a string into fields.
  */

qse/lib/cmn/str_cnv.c

@@ -1,5 +1,5 @@
 /*
- * $Id: str_cnv.c 402 2011-03-18 15:07:21Z hyunghwan.chung $
+ * $Id: str_cnv.c 415 2011-03-25 16:02:04Z hyunghwan.chung $
  *
     Copyright 2006-2009 Chung, Hyung-Hwan.
     This file is part of QSE.
@@ -397,3 +397,33 @@ int qse_wcstombs_strict (
 	return 0;
 }
 
+
+/* case conversion */
+
+qse_size_t qse_mbslwr (qse_mchar_t* str)
+{
+	qse_mchar_t* p = str;
+	for (p = str; *p != QSE_MT('\0'); p++) *p = QSE_TOMLOWER (*p);
+	return p - str;
+}
+
+qse_size_t qse_mbsupr (qse_mchar_t* str)
+{
+	qse_mchar_t* p = str;
+	for (p = str; *p != QSE_MT('\0'); p++) *p = QSE_TOMUPPER (*p);
+	return p - str;
+}
+
+qse_size_t qse_wcslwr (qse_wchar_t* str)
+{
+	qse_wchar_t* p = str;
+	for (p = str; *p != QSE_WT('\0'); p++) *p = QSE_TOWLOWER (*p);
+	return p - str;
+}
+
+qse_size_t qse_wcsupr (qse_wchar_t* str)
+{
+	qse_wchar_t* p = str;
+	for (p = str; *p != QSE_WT('\0'); p++) *p = QSE_TOWUPPER (*p);
+	return p - str;
+}

qse/watcom/qse.wpj

@@ -67,7 +67,7 @@ WFileName
 30
 release/os2/lib/cmn/qsecmn.tgt
 24
-31
+30
 17
 VComponent
 18
@@ -131,7 +131,7 @@ WFileName
 28
 debug/os2/lib/cmn/qsecmn.tgt
 18
-20
+25
 29
 VComponent
 30
@@ -163,7 +163,7 @@ WFileName
 28
 debug/os2/lib/scm/qsescm.tgt
 0
-4
+5
 35
 VComponent
 36
@@ -180,4 +180,4 @@ WFileName
 debug/os2/cmd/scm/qsescm.tgt
 0
 1
-26
+35