Changeset 201
- Timestamp:
- Apr 3, 2007, 2:23:59 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/system/enum.sbp
r173 r201 6 6 m_Value=value 7 7 End Sub 8 8 9 Sub ~EnumBase() 9 10 End Sub … … 19 20 End Function 20 21 21 Function Operator == (Value As Long) As Long22 Function Operator == (Value As Long) As Boolean 22 23 If m_Value = Value Then 23 Return _System_TRUE24 Return True 24 25 Else 25 Return _System_FALSE26 Return False 26 27 End If 27 28 End Function 28 29 29 30 Function Operator or (ByRef value As EnumBase) As EnumBase 30 Dim returnValue As EnumBase 31 returnValue.m_Value = m_Value Or value.m_Value 32 Return returnValue 31 Return New EnumBase(m_Value Or value.m_Value) 33 32 End Function 34 33 35 36 34 Function Operator and (ByRef value As EnumBase) As EnumBase 37 Dim returnValue As EnumBase 38 returnValue.m_Value = m_Value And value.m_Value 39 Return returnValue 35 Return New EnumBase(m_Value And value.m_Value) 40 36 End Function 41 37 42 38 Function Operator not (ByRef value As EnumBase) As EnumBase 43 Dim returnValue As EnumBase 44 returnValue.m_Value = Not m_Value 45 Return returnValue 39 Return New EnumBase(Not m_Value) 46 40 End Function 47 41 48 42 Function Operator xor (ByRef value As EnumBase) As EnumBase 49 Dim returnValue As EnumBase 50 returnValue.m_Value = m_Value Xor value.m_Value 51 Return returnValue 43 Return New EnumBase(m_Value Xor value.m_Value) 52 44 End Function 53 45 End Class
Note:
See TracChangeset
for help on using the changeset viewer.