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

now can join several rooms at once. -- noch

Browse source
This commit is contained in:
norayr 2017-05-18 04:29:23 +04:00
parent 3d496ea58d
commit 7d4a6085c8
2 changed files with 29 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

41
IRC.Mod
View file

@ -61,6 +61,16 @@ BEGIN
UNTIL j = i;
END zeroStr;
PROCEDURE appendLFCR(VAR str: ARRAY OF CHAR);
VAR
l : INTEGER;
BEGIN
l := Strings.Length(str);
str[l] := LF;
str[l+1] := CR;
str[l+2] := 0X;
END appendLFCR;
PROCEDURE findChar(ch: CHAR; VAR line: ARRAY OF CHAR; VAR b: BOOLEAN; VAR pos: INTEGER);
VAR
i : INTEGER;
@ -147,25 +157,29 @@ BEGIN
Strings.Append(eol, ln);
END formJoinLine;
PROCEDURE formModeJoinLine(VAR str, nick, chan: ARRAY OF CHAR);
PROCEDURE formModeJoinLine(VAR str, nick: ARRAY OF CHAR; channels: chnlist);
VAR
l: INTEGER;
i: LONGINT;
BEGIN
COPY (cmdMode, str);
Strings.Append(" ", str);
Strings.Append(nick, str);
Strings.Append(" +C", str);
l := Strings.Length(str);
str[l] := LF;
str[l+1] := CR;
str[l+2] := 0X;
appendLFCR(str);
(*Strings.Append(eol, str);*)
Strings.Append(cmdJoin, str);
Strings.Append(" ", str);
Strings.Append(chan, str);
Strings.Append(eol, str);
i := 0;
REPEAT
Strings.Append(cmdJoin, str);
Strings.Append(" ", str);
Strings.Append(channels[i], str);
INC(i);
IF i = LEN(channels^) THEN
Strings.Append(eol, str);
ELSE
appendLFCR(str);
END;
UNTIL i = LEN(channels^);
END formModeJoinLine;
PROCEDURE isPing(VAR line: ARRAY OF CHAR): BOOLEAN;
@ -312,7 +326,7 @@ VAR str: ARRAY msgLen OF CHAR;
b: BOOLEAN;
BEGIN
zeroStr(str);
formModeJoinLine(str, inst.nick, inst.channelList^[0]);
formModeJoinLine(str, inst.nick, inst.channelList);
b := Send(inst, str);
END ModeAndJoin;
@ -464,7 +478,6 @@ VAR
str: ARRAY 32 OF CHAR;
BEGIN
Strings.Extract(line, 0, Strings.Length(nick), str);
Out.String("str: "); Out.String(str); Out.Ln;
IF str = nick THEN
RETURN TRUE
ELSE

3
test.Mod
View file

@ -62,8 +62,9 @@ BEGIN
NEW(channels, 1);
NEW(channels, 2);
channels[0] := "#oberon";
channels[1] := "#pascal";
IRC.setChannelList(inst, channels);
IF IRC.Connect(inst) # FALSE THEN