Changeset 299 for Include/Classes/ActiveBasic/Core/TypeInfo.ab

Timestamp:

Aug 24, 2007, 2:10:26 AM (17 years ago)

Author:

dai

Message:

【32bitコンパイラ】
静的リンクライブラリを実装
ジェネリクスを実装
※64bitコンパイラは未実装

File:

• Include/Classes/ActiveBasic/Core/TypeInfo.ab (modified) (4 diffs)

Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -174 +174 @@
 Class _System_TypeBase
     Static pTypes As *TypeBaseImpl
-    Static count As Long
+
     Static isReady = False
 
@@ -207 +207 @@
 
 Public
-
+    Static count As Long
     Static Sub Initialize()
         pTypes = GC_malloc( 1 )
@@ -230 +230 @@
     Static Function Search( strNamespace As LPSTR, typeName As LPSTR ) As TypeBaseImpl
         ' TODO: 名前空間に対応する
+
         Dim i As Long
         For i = 0 To ELM( count )
@@ -251 +252 @@
 End Namespace
 End Namespace
+
+Function _System_TypeBase_Search( strNamespace As LPSTR, typeName As LPSTR ) As ActiveBasic.Core.TypeBaseImpl
+    Return ActiveBasic.Core._System_TypeBase.Search( strNamespace, typeName )
+End Function