Index: trunk/Include/Classes/System/IO/BinaryReader.ab
===================================================================
--- trunk/Include/Classes/System/IO/BinaryReader.ab	(revision 434)
+++ trunk/Include/Classes/System/IO/BinaryReader.ab	(revision 434)
@@ -0,0 +1,286 @@
+NameSpace System
+NameSpace IO
+
+Class BinaryReader
+
+Public 'constructor
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief BinaryReaderクラスの新しいインスタンスを初期化します。
+	@param 対象となるストリーム
+	*/
+	Sub BinaryReader(input As Stream)
+		stream = input
+		coding = New System.Text.UTF8Encoding()
+	End Sub
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief BinaryReaderクラスの新しいインスタンスを初期化します。
+	@param 対象となるストリーム
+	@param 文字列操作時のエンコーディングを指定
+	*/
+	Sub BinaryReader(input As Stream, encoding As System.Text.Encoding)
+		This.stream = input
+		This.coding = encoding
+	End Sub
+
+	Sub ~BinaryReader()
+		This.Close()
+	End Sub
+
+Public 'propaty
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief BinaryReader の基になるストリームへのアクセスを公開します。
+	@return 基となったストリーム
+	*/	
+	Function BaseStream() As System.IO.Stream
+		Return stream
+	End Function
+
+Public 'method
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のBinaryReaderの基となったストリームをクローズします。
+	*/	 
+	Virtual Sub Close()
+		This.Dispose()
+	End Sub
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief BinaryReaderクラスで使われたリソースを解放します。
+	*/	 
+	Virtual Sub Dispose()
+		This.Dispose(True)
+	End Sub
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 読み取り可能な次の文字を返します。バイトの位置または文字の位置は変化しません。
+	@return 読み取り可能な次の文字
+	*/
+	Virtual Function PeekChar() As Long
+		'TODO
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 基になるストリームからエンコーディングに従って文字を読み取り、ストリームの現在位置を進めます。
+	@return 読み込んだ文字
+	*/
+	Virtual Function Read() As Long
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 基になるストリームからデータを読み取り、ストリームの現在位置を進めます。
+	@param ストリームから読み込んだデータを格納するバッファ
+	@param データを格納するバッファの読み取り開始位置
+	@param 読み込むデータサイズ
+	@retval 実際に読み込んだデータのバイト数
+	@retval 0 ストリームの末尾に達している
+	*/
+	Virtual Function Read(buffer As *Byte, index As Long, count As Long) As Long
+		Return This.stream.Read(buffer, index, count)
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 基になるストリームから指定されたエンコーディングに従って文字列を読み取り、ストリームの現在位置を進めます。
+	@param ストリームから読み込んだ文字列を格納する文字列バッファ
+	@param データを格納する文字配列の読み取り開始位置
+	@param 読み込む文字の長さ
+	@retval 実際に読み込んだ合計文字数
+	@retval 0 ストリームの末尾に達している
+	*/
+	Virtual Function Read(buffer As *Char, index As Long, count As Long) As Long
+		Return This.stream.Read(buffer As *Byte, index, count)
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから Boolean値を読み取り、ストリームの現在位置を 1 バイトだけ進めます。
+	@return 1byteのBoolean値
+	*/
+	Virtual Function ReadBoolean() As Boolean
+		Return This.stream.ReadByte() As Boolean
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから次のバイトを読み取り、ストリームの現在位置を 1 バイトだけ進めます。
+	@return 符号無しの1バイト整数
+	*/
+	Virtual Function ReadByte() As Byte
+		Return This.stream.ReadByte() As Byte
+	End Function
+
+	'現在のストリームからバイト配列に count で指定したバイト数分のバイトを読み取り、count で指定したバイト数だけ現在位置を進めます。
+/*	Virtual Function ReadBytes() As Array<Byte>
+		TODO:
+	End Function*/
+
+	'現在のストリームの次の文字を読み取り、使用した Encoding とストリームから読み取った特定の文字に従ってストリームの現在位置を進めます。
+/*	Virtual Function ReadChar() As Char
+	End Function*/
+
+	'現在のストリームから count で指定した文字数分の文字を読み取り、そのデータを文字配列として返します。使用した Encoding とストリームから読み取った特定の文字に従って現在位置を進めます。
+/*	Virtual Function ReadChars() As Array<Char>
+		TODO:
+	End Function*/
+
+	'現在のストリームから10進数値を読み取り、ストリームの現在位置を16バイトだけ進めます。
+/*	Virtual Function ReadDecimal() As ActiveBasic.COM.Decimal
+		TODO:
+	End Function*/
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから8バイト浮動小数点値を読み取り、ストリームの現在位置を8バイトだけ進めます。
+	@return 8バイト浮動小数点値
+	*/
+	Virtual Function ReadDouble() As Double
+		Dim buffer As Double
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから2バイト符号付き整数を読み取り、ストリームの現在位置を2バイトだけ進めます。
+	@return 2バイト符号付き整数値
+	*/
+	Virtual Function ReadInt16() As Integer
+		Dim buffer As Integer
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 2)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから4バイト符号付き整数を読み取り、ストリームの現在位置を4バイトだけ進めます。
+	@return 4バイト符号付き整数値
+	*/
+	Virtual Function ReadInt32() As Long
+		Dim buffer As Long
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから8バイト符号付き整数を読み取り、ストリームの現在位置を8バイトだけ進めます。
+	@return 8バイト符号付き整数値
+	*/
+	Virtual Function ReadInt64() As Int64
+		Dim buffer As Int64
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから符号付きバイトを読み取り、ストリームの現在位置を1バイトだけ進めます。
+	@return 1バイト符号付き整数値
+	*/
+	Virtual Function ReadSByte() As SByte
+		Dim buffer As SByte
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 1)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから4バイト浮動小数点値を読み取り、ストリームの現在位置を4バイトだけ進めます。
+	@return 4バイト浮動小数点値
+	*/
+	Virtual Function ReadSingle() As Single
+		Dim buffer As Single
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから文字列を読み取ります。文字列の先頭に長さを付け、7ビットの整数としてまとめてエンコードします。
+	@return String値
+	*/
+	Virtual Function ReadString() As String
+		Return ""
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief リトルエンディアンエンコーディングを使用して現在のストリームから2バイト符号なし整数を読み取り、ストリームの位置を2バイトだけ進めます。
+	@return 2バイト符号なし整数値
+	*/
+	Virtual Function ReadUInt16() As Word
+		Dim buffer As Word
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 2)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから4バイト符号なし整数を読み取り、ストリームの位置を4バイトだけ進めます。
+	@return 4バイト符号なし整数値
+	*/
+	Virtual Function ReadUInt32() As DWord
+		Dim buffer As DWord
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
+		Return buffer
+	End Function
+
+	/*!
+	@date 2008/02/27
+	@auther NoWest
+	@brief 現在のストリームから8バイト符号なし整数を読み取り、ストリームの位置を8バイトだけ進めます。
+	@return 8バイト符号なし整数値
+	*/
+	Virtual Function ReadUInt64() As QWord
+		Dim buffer As QWord
+		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
+		Return buffer
+	End Function
+
+Protected 'method
+	'BinaryReader によって使用されているアンマネージ リソースを解放し、オプションでマネージリソースも解放します。
+	Virtual Sub Dispose(disposing As Boolean)
+		This.stream.Close()
+	End Sub
+
+	'指定したバイト数分だけストリームから読み取ったバイトを内部バッファに格納します。
+	Virtual Sub FillBuffer(numBytes As Long)
+		'TODO:
+	End Sub
+
+'	Read7BitEncodedInt	32 ビット整数を圧縮形式で読み取ります。
+
+Private
+	stream As Stream
+	coding As System.Text.Encoding
+End Class
+
+End Namespace
+End Namespace
Index: trunk/Include/Classes/System/IO/BynaryReader.ab
===================================================================
--- trunk/Include/Classes/System/IO/BynaryReader.ab	(revision 433)
+++ 	(revision )
@@ -1,286 +1,0 @@
-NameSpace System
-NameSpace IO
-
-Class BinaryReader
-
-Public 'constructor
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief BinaryReaderクラスの新しいインスタンスを初期化します。
-	@param 対象となるストリーム
-	*/
-	Sub BinaryReader(input As Stream)
-		stream = input
-		coding = New System.Text.UTF8Encoding()
-	End Sub
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief BinaryReaderクラスの新しいインスタンスを初期化します。
-	@param 対象となるストリーム
-	@param 文字列操作時のエンコーディングを指定
-	*/
-	Sub BinaryReader(input As Stream, encoding As System.Text.Encoding)
-		This.stream = input
-		This.coding = encoding
-	End Sub
-
-	Sub ~BinaryReader()
-		This.Close()
-	End Sub
-
-Public 'propaty
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief BinaryReader の基になるストリームへのアクセスを公開します。
-	@return 基となったストリーム
-	*/	
-	Function BaseStream() As System.IO.Stream
-		Return stream
-	End Function
-
-Public 'method
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のBinaryReaderの基となったストリームをクローズします。
-	*/	 
-	Virtual Sub Close()
-		This.Dispose()
-	End Sub
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief BinaryReaderクラスで使われたリソースを解放します。
-	*/	 
-	Virtual Sub Dispose()
-		This.Dispose(True)
-	End Sub
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 読み取り可能な次の文字を返します。バイトの位置または文字の位置は変化しません。
-	@return 読み取り可能な次の文字
-	*/
-	Virtual Function PeekChar() As Long
-		'TODO
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 基になるストリームからエンコーディングに従って文字を読み取り、ストリームの現在位置を進めます。
-	@return 読み込んだ文字
-	*/
-	Virtual Function Read() As Long
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 基になるストリームからデータを読み取り、ストリームの現在位置を進めます。
-	@param ストリームから読み込んだデータを格納するバッファ
-	@param データを格納するバッファの読み取り開始位置
-	@param 読み込むデータサイズ
-	@retval 実際に読み込んだデータのバイト数
-	@retval 0 ストリームの末尾に達している
-	*/
-	Virtual Function Read(buffer As *Byte, index As Long, count As Long) As Long
-		Return This.stream.Read(buffer, index, count)
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 基になるストリームから指定されたエンコーディングに従って文字列を読み取り、ストリームの現在位置を進めます。
-	@param ストリームから読み込んだ文字列を格納する文字列バッファ
-	@param データを格納する文字配列の読み取り開始位置
-	@param 読み込む文字の長さ
-	@retval 実際に読み込んだ合計文字数
-	@retval 0 ストリームの末尾に達している
-	*/
-	Virtual Function Read(buffer As *Char, index As Long, count As Long) As Long
-		Return This.stream.Read(buffer As *Byte, index, count)
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから Boolean値を読み取り、ストリームの現在位置を 1 バイトだけ進めます。
-	@return 1byteのBoolean値
-	*/
-	Virtual Function ReadBoolean() As Boolean
-		Return This.stream.ReadByte() As Boolean
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから次のバイトを読み取り、ストリームの現在位置を 1 バイトだけ進めます。
-	@return 符号無しの1バイト整数
-	*/
-	Virtual Function ReadByte() As Byte
-		Return This.stream.ReadByte() As Byte
-	End Function
-
-	'現在のストリームからバイト配列に count で指定したバイト数分のバイトを読み取り、count で指定したバイト数だけ現在位置を進めます。
-/*	Virtual Function ReadBytes() As Array<Byte>
-		TODO:
-	End Function*/
-
-	'現在のストリームの次の文字を読み取り、使用した Encoding とストリームから読み取った特定の文字に従ってストリームの現在位置を進めます。
-/*	Virtual Function ReadChar() As Char
-	End Function*/
-
-	'現在のストリームから count で指定した文字数分の文字を読み取り、そのデータを文字配列として返します。使用した Encoding とストリームから読み取った特定の文字に従って現在位置を進めます。
-/*	Virtual Function ReadChars() As Array<Char>
-		TODO:
-	End Function*/
-
-	'現在のストリームから10進数値を読み取り、ストリームの現在位置を16バイトだけ進めます。
-/*	Virtual Function ReadDecimal() As ActiveBasic.COM.Decimal
-		TODO:
-	End Function*/
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから8バイト浮動小数点値を読み取り、ストリームの現在位置を8バイトだけ進めます。
-	@return 8バイト浮動小数点値
-	*/
-	Virtual Function ReadDouble() As Double
-		Dim buffer As Double
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから2バイト符号付き整数を読み取り、ストリームの現在位置を2バイトだけ進めます。
-	@return 2バイト符号付き整数値
-	*/
-	Virtual Function ReadInt16() As Integer
-		Dim buffer As Integer
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 2)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから4バイト符号付き整数を読み取り、ストリームの現在位置を4バイトだけ進めます。
-	@return 4バイト符号付き整数値
-	*/
-	Virtual Function ReadInt32() As Long
-		Dim buffer As Long
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから8バイト符号付き整数を読み取り、ストリームの現在位置を8バイトだけ進めます。
-	@return 8バイト符号付き整数値
-	*/
-	Virtual Function ReadInt64() As Int64
-		Dim buffer As Int64
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから符号付きバイトを読み取り、ストリームの現在位置を1バイトだけ進めます。
-	@return 1バイト符号付き整数値
-	*/
-	Virtual Function ReadSByte() As SByte
-		Dim buffer As SByte
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 1)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから4バイト浮動小数点値を読み取り、ストリームの現在位置を4バイトだけ進めます。
-	@return 4バイト浮動小数点値
-	*/
-	Virtual Function ReadSingle() As Single
-		Dim buffer As Single
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから文字列を読み取ります。文字列の先頭に長さを付け、7ビットの整数としてまとめてエンコードします。
-	@return String値
-	*/
-	Virtual Function ReadString() As String
-		Return ""
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief リトルエンディアンエンコーディングを使用して現在のストリームから2バイト符号なし整数を読み取り、ストリームの位置を2バイトだけ進めます。
-	@return 2バイト符号なし整数値
-	*/
-	Virtual Function ReadUInt16() As Word
-		Dim buffer As Word
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 2)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから4バイト符号なし整数を読み取り、ストリームの位置を4バイトだけ進めます。
-	@return 4バイト符号なし整数値
-	*/
-	Virtual Function ReadUInt32() As DWord
-		Dim buffer As DWord
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 4)
-		Return buffer
-	End Function
-
-	/*!
-	@date 2008/02/27
-	@auther NoWest
-	@brief 現在のストリームから8バイト符号なし整数を読み取り、ストリームの位置を8バイトだけ進めます。
-	@return 8バイト符号なし整数値
-	*/
-	Virtual Function ReadUInt64() As QWord
-		Dim buffer As QWord
-		This.stream.Read(VarPtr(buffer) As *Byte, 0, 8)
-		Return buffer
-	End Function
-
-Protected 'method
-	'BinaryReader によって使用されているアンマネージ リソースを解放し、オプションでマネージリソースも解放します。
-	Virtual Sub Dispose(disposing As Boolean)
-		This.stream.Close()
-	End Sub
-
-	'指定したバイト数分だけストリームから読み取ったバイトを内部バッファに格納します。
-	Virtual Sub FillBuffer(numBytes As Long)
-		'TODO:
-	End Sub
-
-'	Read7BitEncodedInt	32 ビット整数を圧縮形式で読み取ります。
-
-Private
-	stream As Stream
-	coding As System.Text.Encoding
-End Class
-
-End Namespace
-End Namespace