Changeset 131

Timestamp:

Mar 4, 2007, 10:38:23 PM (17 years ago)

Author:

OverTaker

Message:

ビット演算追加。

File:

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

Include/system/enum.sbp

@@ -15 +15 @@
     End Sub
 
+    Sub Operator = (ByRef value As EnumBase) As EnumBase
+        m_Value = value.m_Value
+    End Sub
+    
     Function Operator() As Long
         Return m_Value
@@ -26 +30 @@
         End If
     End Function
+
+    Function Operator or (ByRef value As EnumBase) As EnumBase
+        Dim returnValue As EnumBase
+        returnValue.m_Value = m_Value Or value.m_Value
+        Return returnValue
+    End Function
+
+    
+    Function Operator and (ByRef value As EnumBase) As EnumBase
+        Dim returnValue As EnumBase
+        returnValue.m_Value = m_Value And value.m_Value
+        Return returnValue
+    End Function
+    
+    Function Operator not (ByRef value As EnumBase) As EnumBase
+        Dim returnValue As EnumBase
+        returnValue.m_Value = Not m_Value
+        Return returnValue
+    End Function
+    
+    Function Operator xor (ByRef value As EnumBase) As EnumBase
+        Dim returnValue As EnumBase
+        returnValue.m_Value = m_Value Xor value.m_Value
+        Return returnValue
+    End Function
 End Class