Changeset 452 for trunk/Include/Classes/System

Timestamp:

Mar 3, 2008, 10:15:06 PM (16 years ago)

Author:

dai

Message:

System/Xml/Serialization/XmlSerializer.abを追加。
まずはシリアライズ処理を動くようにした。
※逆シリアライズは未実装なので、ActiveBasic.Xml.Parserクラスを実装してから対応すること。

Location:

trunk/Include/Classes/System

Files:

• Reflection/MemberInfo.ab (modified) (3 diffs)
• Xml/Serialization (added)
• Xml/Serialization/XmlSerializer.ab (added)
• Xml/XmlDocument.ab (modified) (2 diffs)

trunk/Include/Classes/System/Reflection/MemberInfo.ab

@@ -9 +9 @@
     name As String
     memberType As TypeInfo
+    offset As LONG_PTR
 Public
 
@@ -16 +17 @@
             memberType メンバの型
     */
-    Sub MemberInfo( name As String, memberType As TypeInfo )
+    Sub MemberInfo( name As String, memberType As TypeInfo, offset As LONG_PTR )
         This.name = name
         This.memberType = memberType
+        This.offset = offset
     End Sub
 
     /*!
-    @brief  メンバの名前を取得する
-    @return メンバの名前
+    @brief  メンバの名前を取得する。
+    @return メンバの名前。
     */
     Function Name() As String
@@ -30 +32 @@
 
     /*!
-    @brief  メンバの型を取得する
-    @return メンバの型
+    @brief  メンバの型を取得する。
+    @return メンバの型。
     */
     Function MemberType() As TypeInfo
         Return memberType
+    End Function
+
+    /*!
+    @brief  クラスの先頭ポインタからのオフセット値を取得する。
+    @return クラスの先頭ポインタからのオフセット値。
+    */
+    Function _System_Offset() As LONG_PTR
+        Return offset
     End Function
 End Class

trunk/Include/Classes/System/Xml/XmlDocument.ab

@@ -94 +94 @@
 
     /*!
+    @brief  指定したストリームからXML文書を読み込む。
+    @param  stream 読み込み先のストリーム。
+    */
+    Virtual Sub Load( inStream As System.IO.Stream )
+        Dim length = inStream.Length As DWord
+        Dim xmlBuffer = calloc( length + 1 ) As *StrChar
+        inStream.Read( xmlBuffer As *Byte, 0, length )
+        Dim xmlString = New String( xmlBuffer )
+        free( xmlBuffer )
+
+        This.RemoveAll()
+        ActiveBasic.Xml.Parser.Parse( xmlString, This )
+    End Sub
+
+    /*!
+    @brief  指定したファイルからXML文書を読み込む。
+    @param  ファイルパス。
+    */
+    Virtual Sub Load( filename As String )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Open, System.IO.FileAccess.Read )
+        Load( fileStream )
+    End Sub
+
+    /*!
     @brief  指定したストリームにXML文書を保存する。
     @param  stream 保存先のストリーム。
@@ -107 +131 @@
     */
     Virtual Sub Save( filename As String )
-        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create, System.IO.FileAccess.Write )
         Save( fileStream )
     End Sub
 
+Private
+    Sub LoadXmlString( xmlString As String)
+    End Sub
 End Class