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

hid doLog and introduced a settes for that.

Browse source
This commit is contained in:
norayr 2017-05-22 16:59:57 +04:00
parent 02f36bcf1a
commit f2d06dd9a5
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
IRC.Mod
View file

@ -55,13 +55,18 @@ CONST
callbackPrivate*: cbPrivateMessage; callbackPrivate*: cbPrivateMessage;
callbackPublic*: cbPublicMessage; callbackPublic*: cbPublicMessage;
callbackPublicMention*: cbPublicMessageWithMention; callbackPublicMention*: cbPublicMessageWithMention;
doLog* : BOOLEAN; doLog : BOOLEAN;
END; END;
VAR VAR
eol* : ARRAY 3 OF CHAR; eol* : ARRAY 3 OF CHAR;
PROCEDURE setLogging*(VAR inst: instance; state: BOOLEAN);
BEGIN
inst.doLog := state;
END setLogging;
PROCEDURE formUserNickLine(VAR user, owner, nick, res: ARRAY OF CHAR); PROCEDURE formUserNickLine(VAR user, owner, nick, res: ARRAY OF CHAR);
VAR VAR
l : INTEGER; l : INTEGER;

3
test.Mod
View file

@ -40,6 +40,7 @@ BEGIN
Out.String("recipient: '"); Out.String(rcpt); Out.Char("'"); Out.Ln; Out.String("recipient: '"); Out.String(rcpt); Out.Char("'"); Out.Ln;
Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln; Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln;
Out.String("*** that's it ***"); Out.Ln; Out.String("*** that's it ***"); Out.Ln;
IF msgtype # IRC.msgJOIN THEN IRC.sendMsgToDst(inst, rcpt, "test back") END;
END onPublicMessage; END onPublicMessage;
PROCEDURE onPublicMessageWithMention(VAR msg, msgtype, user, ident, rcpt, host: ARRAY OF CHAR); PROCEDURE onPublicMessageWithMention(VAR msg, msgtype, user, ident, rcpt, host: ARRAY OF CHAR);
@ -76,7 +77,7 @@ BEGIN
NEW(channels, 2); NEW(channels, 2);
channels[0].channel := "#oberon-test"; channels[0].channel := "#oberon-test";
channels[1].channel := "#pascal-test"; channels[1].channel := "#pascal-test";
inst.doLog := TRUE; IRC.setLogging(inst, TRUE);
IRC.initChannelList(inst, channels); IRC.initChannelList(inst, channels);
Platform.SetInterruptHandler(interrupt); Platform.SetInterruptHandler(interrupt);