Changeset 400 for trunk/Include/Classes/ActiveBasic/CType/CType.ab

Timestamp:

Jan 22, 2008, 9:19:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

_System_CThreadCollectionでのクラスインスタンスへのポインタの使用を除去、参照変数構文へ。

File:

• trunk/Include/Classes/ActiveBasic/CType/CType.ab (modified) (4 diffs)

trunk/Include/Classes/ActiveBasic/CType/CType.ab

@@ -86 +86 @@
 End Function
 
+/*!
+@brief  ASCIIの表示文字かどうか
+@author Egtra
+@date   2007/11/25
+制御文字でないもの、空白も表示文字に含む
+*/
 Function IsPrint(c As WCHAR) As Boolean
     Return (c As DWord - &h20) < (&h7e - &h20)
@@ -98 +104 @@
 Function IsPunct(c As WCHAR) As Boolean
     Return c < &h7f And IsGraph(c) And (Not IsAlnum(c))
+End Function
+
+/*!
+@brief  ASCIIの空白文字かどうか
+@author Egtra
+@date   2008/01/22
+*/
+Function IsSpace(c As WCHAR) As Boolean
+    Return c As DWord - 9 < 4 Or c = &h20 ' &h41 = Asc("A")
 End Function
 
@@ -210 +225 @@
 @overload
 */
+Function IsSpace(c As CHAR) As Boolean
+    Return IsSpace(Detail.Widen(c))
+End Function
+
+/*!
+@overload
+*/
 Function IsUpper(c As CHAR) As Boolean
     Return IsUpper(Detail.Widen(c))
@@ -235 +257 @@
 End Function
 
-End Namespace
-End Namespace
+End Namespace 'CType
+End Namespace 'ActiveBasic