From dbbd542fa2d8612d82fcc527663dcd3682144094 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 11 Aug 2012 14:58:12 -0400
Subject: [PATCH] New IO class now abstract

---
 mdl/m_protocol_base.pas   |  8 ++++----
 mdl/m_protocol_xmodem.pas |  6 +++---
 mdl/m_protocol_ymodem.pas |  8 ++++----
 mdl/m_protocol_zmodem.pas | 10 +++++-----
 mdl/m_term_ansi.pas       |  8 ++++----
 5 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/mdl/m_protocol_base.pas b/mdl/m_protocol_base.pas
index 0f4c264..4d05aa6 100644
--- a/mdl/m_protocol_base.pas
+++ b/mdl/m_protocol_base.pas
@@ -7,7 +7,7 @@ Interface
 Uses
   m_DateTime,
   m_Input,
-  m_Socket_Class,
+  m_io_Base,
   m_Protocol_Queue;
 
 Type
@@ -32,7 +32,7 @@ Type
     Status      : RecProtocolStatus;
     StatusProc  : TProtocolStatusProc;
     AbortProc   : TProtocolAbortProc;
-    Client      : TSocketClass;
+    Client      : TIOBase;
     Queue       : TProtocolQueue;
     EndTransfer : Boolean;
     Connected   : Boolean;
@@ -40,7 +40,7 @@ Type
     StatusTimer : LongInt;
     ReceivePath : String;
 
-    Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Virtual;
+    Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Virtual;
     Destructor  Destroy; Override;
 
     Function    AbortTransfer   : Boolean;
@@ -58,7 +58,7 @@ Begin
   Result := False;
 End;
 
-Constructor TProtocolBase.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
+Constructor TProtocolBase.Create (Var C: TIOBase; Var Q: TProtocolQueue);
 Begin
   Client      := C;
   Queue       := Q;
diff --git a/mdl/m_protocol_xmodem.pas b/mdl/m_protocol_xmodem.pas
index a5737b7..aefcf3d 100644
--- a/mdl/m_protocol_xmodem.pas
+++ b/mdl/m_protocol_xmodem.pas
@@ -5,7 +5,7 @@ Unit m_Protocol_XModem;
 Interface
 
 Uses
-  m_Socket_Class,
+  m_io_Base,
   m_Protocol_Base,
   m_Protocol_Queue;
 
@@ -14,13 +14,13 @@ Type
     DoCRC : Boolean;
     Do1K  : Boolean;
 
-    Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
+    Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
     Destructor  Destroy; Override;
   End;
 
 Implementation
 
-Constructor TProtocolXmodem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
+Constructor TProtocolXmodem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
 Begin
   Inherited Create(C, Q);
 
diff --git a/mdl/m_protocol_ymodem.pas b/mdl/m_protocol_ymodem.pas
index 1a744e0..609a436 100644
--- a/mdl/m_protocol_ymodem.pas
+++ b/mdl/m_protocol_ymodem.pas
@@ -5,7 +5,7 @@ Unit m_Protocol_YModem;
 Interface
 
 Uses
-  m_Socket_Class,
+  m_io_Base,
   m_Protocol_Queue,
   m_Protocol_Xmodem;
 
@@ -13,13 +13,13 @@ Type
   TProtocolYmodem = Class(TProtocolXmodem)
     UseG : Boolean;
 
-    Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
+    Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
     Destructor  Destroy; Override;
   End;
 
 Implementation
 
-Constructor TProtocolYModem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
+Constructor TProtocolYModem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
 Begin
   Inherited Create(C, Q);
 
@@ -31,4 +31,4 @@ Begin
   Inherited Destroy;
 End;
 
-End.
\ No newline at end of file
+End.
diff --git a/mdl/m_protocol_zmodem.pas b/mdl/m_protocol_zmodem.pas
index 4a6261d..461c59b 100644
--- a/mdl/m_protocol_zmodem.pas
+++ b/mdl/m_protocol_zmodem.pas
@@ -2,7 +2,7 @@ Unit m_Protocol_Zmodem;
 
 {$I M_OPS.PAS}
 
-{$DEFINE ZDEBUG}
+{.$DEFINE ZDEBUG}
 
 Interface
 
@@ -13,7 +13,7 @@ Uses
   m_FileIO,
   m_Strings,
   m_Input,
-  m_Socket_Class,
+  m_io_Base,
   m_Protocol_Base,
   m_Protocol_Queue;
 
@@ -44,7 +44,7 @@ Type
     RxBytes    : LongInt;
     RxCount    : LongInt;
 
-    Constructor Create (Var C: TSocketClass; Var Q: TProtocolQueue); Override;
+    Constructor Create (Var C: TIOBase; Var Q: TProtocolQueue); Override;
     Destructor  Destroy; Override;
 
     Procedure   QueueReceive; Override;
@@ -187,7 +187,7 @@ Begin
 End;
 {$ENDIF}
 
-Constructor TProtocolZmodem.Create (Var C: TSocketClass; Var Q: TProtocolQueue);
+Constructor TProtocolZmodem.Create (Var C: TIOBase; Var Q: TProtocolQueue);
 Begin
   Inherited Create (C, Q);
 
@@ -1681,4 +1681,4 @@ Begin
   StatusUpdate(False, True);
 End;
 
-End.
\ No newline at end of file
+End.
diff --git a/mdl/m_term_ansi.pas b/mdl/m_term_ansi.pas
index dcfc42b..2fcf03d 100644
--- a/mdl/m_term_ansi.pas
+++ b/mdl/m_term_ansi.pas
@@ -6,7 +6,7 @@ Interface
 
 Uses
   m_Output,
-  m_Socket_Class,
+  m_io_Base,
   m_Strings;
 
 Type
@@ -14,7 +14,7 @@ Type
     Screen   : TOutput;
     WasValid : Boolean;
   Private
-    Client  : TSocketClass;
+    Client  : TIOBase;
     State   : Byte;
     SavedX  : Byte;
     SavedY  : Byte;
@@ -33,7 +33,7 @@ Type
     Destructor  Destroy; Override;
     Procedure   Process (Ch: Char);
     Procedure   ProcessBuf (Var Buf; BufLen : Word);
-    Procedure   SetReplyClient (Var Cli: TSocketClass);
+    Procedure   SetReplyClient (Var Cli: TIOBase);
   End;
 
 Implementation
@@ -57,7 +57,7 @@ Begin
   Inherited Destroy;
 End;
 
-Procedure TTermAnsi.SetReplyClient (Var Cli: TSocketClass);
+Procedure TTermAnsi.SetReplyClient (Var Cli: TIOBase);
 Begin
   Client := Cli;
 End;