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