vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

test

Browse source
This commit is contained in:
norayr 2017-04-14 16:21:58 +04:00
parent b1d7006dfc
commit cee0d425ab
3 changed files with 109 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Internet.Mod
View file

@ -1,5 +1,5 @@
MODULE Internet;
IMPORT sockets, netdb, Platform, types, Out, SYSTEM;
IMPORT sockets, netdb, types, Strings, Out, Platform, SYSTEM;
TYPE
@ -9,12 +9,14 @@ TYPE
Int32 = types.Int32;
Int64 = types.Int64;
PROCEDURE Write*(fd: Socket; VAR buf: ARRAY OF CHAR; len: LONGINT): BOOLEAN;
PROCEDURE Write*(fd: Socket; VAR buf: ARRAY OF CHAR): BOOLEAN;
VAR
l: SYSTEM.ADDRESS;
r: INTEGER;
len: LONGINT;
BEGIN
l := SYSTEM.ADR(buf);
len := Strings.Length(buf)-1;
r := Platform.Write(fd, l, len);
IF r = -1 THEN
(*Out.String("write() failed."); Out.Ln;*)
@ -25,6 +27,18 @@ BEGIN
END;
END Write;
PROCEDURE Read*(fd: Socket; VAR buf: ARRAY OF CHAR): BOOLEAN;
VAR
p: SYSTEM.ADDRESS;
l, f: LONGINT;
r: INTEGER;
BEGIN
p := SYSTEM.ADR(buf);
l := LEN(buf);
f := 0;
r := Platform.Read(fd, p, l, f);
END Read;
PROCEDURE Connect*(host, port: ARRAY OF CHAR; VAR conn: Socket): BOOLEAN;
VAR