Changeset 396 for trunk/Include/system

Timestamp:

Dec 18, 2007, 2:55:40 AM (17 years ago)

Author:

dai

Message:

Foreachを試験的に実装。
ジェネリクスインターフェイスをサポートした。

File:

• trunk/Include/system/enum.sbp (modified) (2 diffs)

trunk/Include/system/enum.sbp

@@ -21 +21 @@
     End Sub
 
+    Function Operator() As Int64
+        Return This.value
+    End Function
     Function Operator() As Long
         Return This.value
+    End Function
+    Function Operator() As DWord
+        Return This.value
+    End Function
+    Function Operator() As Boolean
+        Return ( This.value <> 0 )
     End Function
 
@@ -40 +49 @@
         End If
     End Function
-/*
-    Function Operator or (enumBase As EnumBase) As EnumBase
-        Return New EnumBase(This.value Or enumBase.value)
+
+    Function Operator or (enumBase As EnumBase) As Boolean
+        Return ( This.value or enumBase.value ) <> 0
     End Function
 
-    Function Operator and (enumBase As EnumBase) As EnumBase
-        Return New EnumBase(This.value And enumBase.value)
+    Function Operator and (enumBase As EnumBase) As Boolean
+        Return ( This.value and enumBase.value ) <> 0
     End Function
-
+/*
     Function Operator xor (enumBase As EnumBase) As EnumBase
         Return New EnumBase(This.value Xor enumBase.value)