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