Changeset 210 for Include/system/enum.sbp

Timestamp:

Apr 10, 2007, 2:16:15 AM (17 years ago)

Author:

dai

Message:

空のソースコードによって生成された実行ファイルのバイナリサイズを300KBから100KBに落とした（Enum制御に関するコードジェネレータを改良）。

File:

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

Include/system/enum.sbp

@@ -1 +1 @@
 Class EnumBase
 Protected
-    m_Value As Long
+    value As Long
+    lpszName As LPSTR
 Public
-    Sub EnumBase(value As Long)
-        m_Value=value
+    Sub EnumBase(value As Long,lpszName As LPSTR)
+        This.value = value
+        This.lpszName = lpszName
     End Sub
     
@@ -10 +12 @@
     End Sub
 
-    'Abstract Function ToString() As String
+    Override Function ToString() As String
+        Return New String( lpszName )
+    End Function
 
-    Sub Copy(ByRef obj As EnumBase)
-        m_Value=obj.m_Value
+    Sub Copy(obj As EnumBase)
+        This.value = obj.value
+        This.lpszName = obj.lpszName
     End Sub
     
     Function Operator() As Long
-        Return m_Value
+        Return This.value
     End Function
 
-    Function Operator == (Value As Long) As Boolean
-        If m_Value = Value Then
+    Function Operator == (value As Long) As Boolean
+        If This.value = value Then
             Return True
         Else
@@ -28 +33 @@
     End Function
 
-    Function Operator or (ByRef value As EnumBase) As EnumBase
-        Return New EnumBase(m_Value Or value.m_Value)
+    Function Operator == (enumBase As EnumBase) As Boolean
+        If This.value = enumBase.value Then
+            Return True
+        Else
+            Return False
+        End If
     End Function
 
-    Function Operator and (ByRef value As EnumBase) As EnumBase
-        Return New EnumBase(m_Value And value.m_Value)
+    Function Operator or (enumBase As EnumBase) As EnumBase
+        Return New EnumBase(This.value Or enumBase.value)
     End Function
 
-    Function Operator not (ByRef value As EnumBase) As EnumBase
-        Return New EnumBase(Not m_Value)
+    Function Operator and (enumBase As EnumBase) As EnumBase
+        Return New EnumBase(This.value And enumBase.value)
     End Function
 
-    Function Operator xor (ByRef value As EnumBase) As EnumBase
-        Return New EnumBase(m_Value Xor value.m_Value)
+    Function Operator xor (enumBase As EnumBase) As EnumBase
+        Return New EnumBase(This.value Xor enumBase.value)
     End Function
 End Class