Changeset 196

Timestamp:

Mar 30, 2007, 5:13:06 AM (18 years ago)

Author:

dai

Message:

TypeInfoクラスを微修正

File:

• Include/Classes/System/TypeInfo.ab (modified) (3 diffs)

Include/Classes/System/TypeInfo.ab

@@ -194 +194 @@
     End Sub
 
-    Sub _add( typeInfo As TypeInfo )
+    Sub Add( typeInfo As TypeInfo )
         pTypes = realloc( pTypes, ( count + 1 ) * SizeOf(*TypeInfo) )
         pTypes[count] = typeInfo
@@ -200 +200 @@
     End Sub
 
+    Function Search( strNamespace As String, typeName As String ) As TypeInfo
+        ' TODO: 名前空間に対応する
+        Dim i As Long
+        For i = 0 To ELM( count )
+            If pTypes[i].Name = typeName Then
+                Return pTypes[i]
+            End If
+        Next
+        Return Nothing
+    End Function
+
     ' シングルトン オブジェクト
     Static obj As _System_TypeBase
-
-Public
-
-    Static Sub Add( typeInfo As TypeInfo )
-        obj._add( typeInfo )
-    End Sub
-
-    Static Sub _NextPointerForGC()
-        ' TODO: 実装
-    End Sub
 
     Static Sub InitializeValueType()
@@ -230 +231 @@
     Static Sub InitializeUserTypes()
         ' このメソッドの実装はコンパイラが自動生成する
+
+        '例:
+        'obj.Add( New _System_TypeForClass( "String", "", obj.Search( "Object" ) ) )
+    End Sub
+
+Public
+
+    Static Sub _NextPointerForGC()
+        ' TODO: 実装
     End Sub