Changeset 299 for Include/Classes

Timestamp:

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

Author:

dai

Message:

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

Location:

Include/Classes

Files:

• ActiveBasic/Core/TypeInfo.ab (modified) (4 diffs)
• System/Collections/index.ab (modified) (1 diff)
• System/Math.ab (modified) (1 diff)
• System/index.ab (modified) (1 diff)

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

Include/Classes/System/Collections/index.ab

@@ -1 +1 @@
 #require <Classes/System/Collections/misc.ab>
 #require <Classes/System/Collections/ArrayList.ab>
+#require <Classes/System/Collections/List.ab>

Include/Classes/System/Math.ab

@@ -13 +13 @@
         return 2.7182818284590452354
     End Function
-
+/*
     Static Function PI() As Double
         return _System_PI
     End Function
-
+*/
     Static Function Abs(value As Double) As Double
         SetQWord(VarPtr(Abs), GetQWord(VarPtr(value)) And &h7fffffffffffffff)

Include/Classes/System/index.ab

@@ -11 +11 @@
 #require "./UInt32.ab"
 
+#require "./Collections/index.ab"
 #require "./Diagnostics/index.ab"
 #require "./IO/index.ab"