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

smth

Browse source
This commit is contained in:
norayr 2017-04-15 12:49:01 +04:00
parent 62d62e59d7
commit dc45cb3765
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
IRC.Mod
View file

@ -116,6 +116,7 @@ BEGIN
Strings.Append(" ", ln);
Strings.Append(chan, ln);
Strings.Append(eol, ln);
Out.String("JOIN LINE FORMED: "); Out.String(ln); Out.Ln;
END formJoinLine;
PROCEDURE isPing(VAR line: ARRAY OF CHAR): BOOLEAN;
@ -225,7 +226,7 @@ BEGIN
b := Send(inst, tmp);
END Pong;
PROCEDURE Mode(VAR inst: instance);
PROCEDURE Mode*(VAR inst: instance);
VAR
str : ARRAY msgLen OF CHAR;
b : BOOLEAN;
@ -234,12 +235,13 @@ BEGIN
b := Send(inst, str);
END Mode;
PROCEDURE Join(VAR inst: instance);
PROCEDURE Join*(VAR inst: instance);
VAR
str: ARRAY msgLen OF CHAR;
b: BOOLEAN;
BEGIN
formJoinLine(str, inst.channelList^[0]);
Out.String("SENDING JOIN LINE"); Out.Ln;
b := Send(inst, str);
(*b := Internet.Write(inst.connection, str);*)
END Join;