eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Alpha 20 dev begins

This commit is contained in:
mysticbbs 2012-09-22 17:39:15 -04:00
parent 9b0339662e
commit 8164f855e8
5 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mdl/m_io_base.pas
View File

@ -19,7 +19,7 @@ Type
Constructor Create; Virtual;
Destructor Destroy; Override;
Procedure PurgeInputData;
Procedure PurgeInputData (Drain: Boolean);
Procedure PurgeOutputData;
Function DataWaiting : Boolean; Virtual;
Function WriteBuf (Var Buf; Len: LongInt) : LongInt; Virtual;
@ -56,15 +56,16 @@ Begin
FOutBufPos := 0;
End;
Procedure TIOBase.PurgeInputData;
//Var
// Buf : Array[1..2048] of Char;
Procedure TIOBase.PurgeInputData (Drain: Boolean);
Var
Buf : Array[1..2048] of Char;
Begin
FInBufPos := 0;
FInBufEnd := 0;
// While DataWaiting Do
// ReadBuf(Buf, SizeOf(Buf));
If Drain Then
While DataWaiting Do
ReadBuf(Buf, SizeOf(Buf));
End;
Function TIOBase.DataWaiting : Boolean;

4
mdl/m_pipe.pas
View File

@ -10,8 +10,8 @@ Interface
{$ENDIF}
{$IFDEF WINDOWS}
Uses m_Pipe_Disk;
Type TPipe = Class(TPipeDisk);
Uses m_Pipe_Windows;
Type TPipe = Class(TPipeWindows);
{$ENDIF}
{$IFDEF OS2}

4
mdl/m_pipe_disk.pas
View File

@ -39,7 +39,7 @@ Type
// General functions
Procedure DeleteFiles;
Procedure SendToPipe (Var Buf; Len: Longint);
Procedure ReadFromPipe (Var Buf; Len: LongInt; Var bRead: LongInt);
Procedure ReadFromPipe (Var Buf; Len: LongInt; Var bRead: LongWord);
Procedure Disconnect;
End;
@ -125,7 +125,7 @@ Begin
BlockWrite (PipeOutput, Buf, Len, bWrite);
End;
Procedure TPipeDisk.ReadFromPipe (Var Buf; Len: LongInt; Var bRead: LongInt);
Procedure TPipeDisk.ReadFromPipe (Var Buf; Len: LongInt; Var bRead: LongWord);
Var
Buffer : TPipeDiskBuffer Absolute Buf;
Ch : Char;

2
mdl/m_protocol_zmodem.pas
View File

@ -1774,7 +1774,7 @@ Begin
{$IFDEF ZDEBUG} ZLog('DoAbortSequence -> begin'); {$ENDIF}
Client.PurgeInputData;
Client.PurgeInputData(False);
Client.PurgeOutputData;
Client.BufWriteStr(Attn);

6
mdl/m_strings.pas
View File

@ -17,6 +17,7 @@ Function strH2I (Str: String) : LongInt;
Function strI2H (Num: LongInt) : String;
Function strS2I (Str: String) : LongInt;
Function strI2O (Num: LongInt) : String;
Function strR2S (Num: Real; Deci: Byte) : String;
Function strWordGet (Num: Byte; Str: String; Ch: Char) : String;
Function strWordPos (Num: Byte; Str: String; Ch: Char) : Byte;
Function strWordCount (Str: String; Ch: Char) : Byte;
@ -205,6 +206,11 @@ Begin
Str(Num, Result);
End;
Function strR2S (Num: Real; Deci: Byte) : String;
Begin
Str (Num:0:Deci, Result);
End;
Function strS2I (Str: String) : LongInt;
Var
Res : LongInt;