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

works!

Browse source
This commit is contained in:
norayr 2017-04-13 20:13:31 +04:00
parent 2a708f215c
commit 6f74eab47e
4 changed files with 49 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

38
IRC.Mod Normal file
View file

@ -0,0 +1,38 @@
MODULE IRC;
IMPORT Internet, Out, Strings, types;
CONST strLen = 1024;
VAR
connection : Internet.Socket;
PROCEDURE Auth*(user, nick: ARRAY OF CHAR): BOOLEAN;
VAR
str0, str1: ARRAY 255 OF CHAR;
b : BOOLEAN;
BEGIN
(* "USER test 0 0 :test\r\n" *)
(* "NICK test\r\n\000\060 :test\r\n"*)
COPY("USER ", str0);
Strings.Append(user, str0);
Strings.Append(" 0 0 :", str0);
Strings.Append(nick, str0);
str1[0] := 0AX; str1[1] := 0DX; str1[2] := 0X;
Strings.Append(str1, str0);
Out.String("sending:"); Out.Ln;
Out.String(str0); Out.Ln;
b := Internet.Write(connection, str0, Strings.Length(str0));
IF b THEN Out.String("wrote!"); Out.Ln ELSE Out.String("write failed"); Out.Ln END;
RETURN b
END Auth;
PROCEDURE Connect*(host, port: ARRAY OF CHAR): BOOLEAN;
VAR
res: BOOLEAN;
BEGIN
res := Internet.Connect(host, port, connection);
RETURN res
END Connect;
END IRC.

2
Makefile
View file

@ -2,7 +2,7 @@
VOC = /opt/voc/bin/voc
all:
$(VOC) -s types.Mod sockets.Mod netdb.Mod irc.Mod test.Mod -m
$(VOC) -s types.Mod sockets.Mod netdb.Mod Internet.Mod IRC.Mod test.Mod -m
clean:
rm *.h

86
irc.Mod
View file

@ -1,86 +0,0 @@
MODULE irc;
IMPORT sockets, netdb, Platform, Strings, types, Out, SYSTEM;
CONST strLen = 1024;
TYPE
Int16 = types.Int16;
Int32 = types.Int32;
Int64 = types.Int64;
VAR
nick*, channel*, host*, port*, user*, command*, where*, message*, sep*, target*: ARRAY strLen OF CHAR;
PROCEDURE rawWrite(fd: Int32; VAR buf: ARRAY OF CHAR; len: LONGINT);
VAR
l: SYSTEM.ADDRESS;
r: INTEGER;
BEGIN
l := SYSTEM.ADR(buf);
r := Platform.Write(fd, l, len);
IF r = -1 THEN
Out.String("write() failed."); Out.Ln;
HALT(1);
ELSE
Out.String("write() success."); Out.Ln;
END;
END rawWrite;
PROCEDURE connect*;
VAR hints, res : netdb.addrInfo;
pres, pres2, phints: netdb.PaddrInfo;
tmpaddr : SYSTEM.ADDRESS;
tmp32 : netdb.Int32;
conn : netdb.Int32;
str0, str1: ARRAY 255 OF CHAR;
BEGIN
(*NEW(phints);*)
(*hints.aiFamily := sockets.AfInet;*)
hints.aiFamily := sockets.AfUnspec;
hints.aiSockType := sockets.SockStream;
hints.aiFlags := 0;
hints.aiProtocol := netdb.ipprotoTCP;
hints.aiAddrLen := 0;
hints.aiAddr := 0; hints.aiCanonName := 0; hints.aiNext := 0;
(*NEW(pres);*)
phints := SYSTEM.VAL(netdb.PaddrInfo, SYSTEM.ADR(hints));
pres := SYSTEM.VAL(netdb.PaddrInfo, SYSTEM.ADR(res));
pres2 := SYSTEM.VAL(netdb.PaddrInfo, SYSTEM.ADR(pres));
tmp32 := netdb.getAddrInfo(host, port, phints, pres2);
IF tmp32 # 0 THEN
Out.String("getaddrinfo() failed"); Out.Ln;
HALT(1);
ELSE
Out.String("getaddrinfo() returned 0, success"); Out.Ln;
END;
conn := sockets.Socket(pres^.aiFamily, pres^.aiSockType, pres^.aiProtocol);
IF conn = -1 THEN
Out.String("socket() returned -1, error"); Out.Ln;
HALT(1);
ELSE
Out.String("socket() succeeded."); Out.Ln;
END;
tmpaddr := SYSTEM.ADR(pres^.aiAddr);
tmp32 := sockets.Connect(conn, pres^.aiAddr, pres^.aiAddrLen);
IF tmp32 = 0 THEN
Out.String("connect() succeeded."); Out.Ln;
ELSE
Out.String("connect() failed."); Out.Ln; HALT(1);
END;
(* "USER test 0 0 :test\r\n" *)
(* "NICK test\r\n\000\060 :test\r\n"*)
COPY("USER ", str0);
Strings.Append(user, str0);
Strings.Append(" 0 0 :", str0);
Strings.Append(nick, str0);
str1[0] := 0AX; str1[1] := 0DX; str1[2] := 0X;
Strings.Append(str1, str0);
rawWrite(conn, str0, Strings.Length(str0));
END connect;
BEGIN
END irc.

21
test.Mod
View file

@ -1,28 +1,27 @@
MODULE test;
IMPORT irc;
IMPORT IRC, Out;
VAR
owner, nick, serv, port, chan: ARRAY 32 OF CHAR;
owner, nick, host, port, channel: ARRAY 32 OF CHAR;
PROCEDURE testBot;
VAR b : BOOLEAN;
BEGIN
irc.nick := nick;
irc.host := serv;
irc.port := port;
irc.channel := chan;
irc.user := owner;
irc.connect;
IF IRC.Connect(host, port) # FALSE THEN
b := IRC.Auth("norayr", "norayr");
END;
END testBot;
BEGIN
owner := "norayr";
nick := "norayr";
serv := "irc.freenode.net";
host := "irc.freenode.net";
port := "6667";
chan := "#oberon";
channel := "#oberon";
testBot;