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

aha

Browse source
This commit is contained in:
norayr 2017-04-14 16:41:51 +04:00
parent cee0d425ab
commit 340de3824b
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Internet.Mod
View file

@ -9,13 +9,13 @@ TYPE
Int32 = types.Int32;
Int64 = types.Int64;
PROCEDURE Write*(fd: Socket; VAR buf: ARRAY OF CHAR): BOOLEAN;
PROCEDURE Write*(fd: Socket; buf: ARRAY OF CHAR): BOOLEAN;
VAR
l: SYSTEM.ADDRESS;
r: INTEGER;
len: LONGINT;
BEGIN
l := SYSTEM.ADR(buf);
l := SYSTEM.ADR(buf[0]);
len := Strings.Length(buf)-1;
r := Platform.Write(fd, l, len);
IF r = -1 THEN
@ -33,11 +33,11 @@ VAR
l, f: LONGINT;
r: INTEGER;
BEGIN
p := SYSTEM.ADR(buf);
l := LEN(buf);
p := SYSTEM.ADR(buf[0]);
l := LEN(buf)-1;
f := 0;
r := Platform.Read(fd, p, l, f);
IF r >= 0 THEN RETURN TRUE ELSE RETURN FALSE END
END Read;
PROCEDURE Connect*(host, port: ARRAY OF CHAR; VAR conn: Socket): BOOLEAN;