vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

using zeroStr() before giving string to Receive(). -- noch

Browse source
This commit is contained in:
norayr 2017-05-17 00:46:19 +04:00
parent efb4460ce9
commit 0063418fc0
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
IRC.Mod
View file

@ -40,6 +40,18 @@ VAR
(* string operations *) (* string operations *)
PROCEDURE zeroStr(VAR str: ARRAY OF CHAR);
VAR
i, j : LONGINT;
BEGIN
i := LEN(str);
j := 0;
REPEAT
str[j] := 0X;
INC(j)
UNTIL j = i;
END zeroStr;
PROCEDURE findChar(ch: CHAR; VAR line: ARRAY OF CHAR; VAR b: BOOLEAN; VAR pos: INTEGER); PROCEDURE findChar(ch: CHAR; VAR line: ARRAY OF CHAR; VAR b: BOOLEAN; VAR pos: INTEGER);
VAR VAR
i : INTEGER; i : INTEGER;
@ -215,6 +227,8 @@ PROCEDURE Receive*(VAR inst: instance; VAR str: ARRAY OF CHAR): BOOLEAN;
VAR VAR
b: BOOLEAN; b: BOOLEAN;
BEGIN BEGIN
(*COPY ("", str);*)
zeroStr(str);
b := Internet.Read(inst.connection, str); b := Internet.Read(inst.connection, str);
IF b THEN IF b THEN
Out.String("received:"); Out.Ln; Out.String("received:"); Out.Ln;