1 files changed, 152 insertions, 0 deletions
diff --git a/filesocket.cpp b/filesocket.cpp
new file mode 100644
index 0000000..3ba37e6
--- /dev/null
+++ b/filesocket.cpp
@@ -0,0 +1,152 @@
+// filesocket.cpp
+// Revision 9-jan-2005
+
+//#include "filesocket.h"
+#include "file.h"
+
+#include "socket.h"
+#include "util.h"
+
+#include "trace.h"
+
+namespace blassic {
+
+namespace file {
+
+class BlFileSocket : public BlFile {
+public:
+	BlFileSocket (const std::string & host, short port);
+	~BlFileSocket ();
+	bool isfile () const { return true; }
+	void getline (std::string & str, bool endline= true);
+	bool eof ();
+	void flush ();
+	std::string read (size_t n);
+private:
+	void outstring (const std::string & str);
+	void outchar (char c);
+
+	class Internal;
+	Internal * pin;
+};
+
+//***********************************************
+//              BlFileSocket::Internal
+//***********************************************
+
+class BlFileSocket::Internal
+{
+	TcpSocketClient socket;
+public:
+	Internal (const std::string & host, short port);
+	~Internal ();
+	void getline (std::string & str, bool endline);
+	bool eof ();
+	void flush ();
+	std::string read (size_t n);
+	void outstring (const std::string & str);
+	void outchar (char c);
+private:
+	Internal (const Internal &); // Forbidden
+	void operator = (const Internal &); // Forbidden
+};
+
+BlFileSocket::Internal::Internal (const std::string & host, short port) :
+	socket (host, port)
+{
+}
+
+BlFileSocket::Internal::~Internal ()
+{
+	TRACEFUNC (tr, "BlFileSocke::Internal::~Internal");
+}
+
+bool BlFileSocket::Internal::eof ()
+{
+	return socket.eof ();
+}
+
+void BlFileSocket::Internal::flush ()
+{
+	// There is no work to do.
+}
+
+void BlFileSocket::Internal::getline (std::string & str, bool)
+{
+	str= socket.readline ();
+}
+
+std::string BlFileSocket::Internal::read (size_t n)
+{
+	util::auto_buffer <char> buf (n);
+	int r= socket.read (buf, n);
+	std::string result;
+	if (r > 0)
+		result.assign (buf, r);
+	return result;
+}
+
+void BlFileSocket::Internal::outstring (const std::string & str)
+{
+	socket.write (str);
+}
+
+void BlFileSocket::Internal::outchar (char c)
+{
+	socket.write (& c, 1);
+}
+
+//***********************************************
+//              BlFileSocket
+//***********************************************
+
+BlFile * newBlFileSocket (const std::string & host, short port)
+{
+	return new BlFileSocket (host, port);
+}
+
+BlFileSocket::BlFileSocket (const std::string & host, short port) :
+	BlFile (OpenMode (Input | Output) ),
+	pin (new Internal (host, port) )
+{ }
+
+BlFileSocket::~BlFileSocket ()
+{
+	delete pin;
+}
+
+bool BlFileSocket::eof ()
+{
+	return pin->eof ();
+}
+
+void BlFileSocket::flush ()
+{
+	pin->flush ();
+}
+
+void BlFileSocket::getline (std::string & str, bool endline)
+{
+	pin->getline (str, endline);
+}
+
+std::string BlFileSocket::read (size_t n)
+{
+	return pin->read (n);
+}
+
+void BlFileSocket::outstring (const std::string & str)
+{
+	pin->outstring (str);
+}
+
+void BlFileSocket::outchar (char c)
+{
+	pin->outchar (c);
+}
+
+} // namespace file
+
+} // namespace blassic
+
+// End of filesocket.cpp