NameSpace System
NameSpace IO

Class TextReader
	Implements System.IDisposable

Public
'Protected
	Sub TextReader()
	End Sub
Public
	Virtual Sub ~TextReader()
		Dispose(False)
	End Sub

'	Static Null = StreamReader.Null As TextReader

Public
	Sub Close()
		Dispose(True)
	End Sub

	Sub Dispose()
		Dispose(True)
	End Sub

	Abstract Sub Dispose(disposing As Boolean)

	Abstract Function Peek() As Long
	Abstract Function Read() As Long
	Abstract Function Read(buffer As *StrChar, index As Long, count As Long) As Long
	Virtual Function ReadBlock(buffer As *StrChar, index As Long, count As Long) As Long
		ReadBlock = Read(buffer, index, count)
	End Function
	Abstract Function ReadLine() As String
	Abstract Function ReadToEnd() As String
End Class

End NameSpace
End NameSpace