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

Full file download works

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-04 15:58:17 +04:00
parent a3ce2fdcab
commit f16ef2418b
2 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Internet.Mod
View file

@ -37,7 +37,7 @@ BEGIN
l := LEN(buf)-1; 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 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;

5
http.Mod
View file

@ -1,7 +1,6 @@
MODULE http; MODULE http;
IMPORT Strings, Internet, Logger; IMPORT Strings, Internet, Logger;
CONST CONST
MAXARRAYNUMBER = 10000; MAXARRAYNUMBER = 10000;
MAXARRAYNUMBEREXTENDED = 1000000; MAXARRAYNUMBEREXTENDED = 1000000;
@ -61,14 +60,12 @@ BEGIN
REPEAT REPEAT
connectionFlag := Internet.Read(socket, tmpBuff); connectionFlag := Internet.Read(socket, tmpBuff);
Strings.Append(tmpBuff, buff); Strings.Append(tmpBuff, buff);
Logger.Log(tmpBuff);
UNTIL ~connectionFlag; UNTIL ~connectionFlag;
Internet.Disconnect(socket); Internet.Disconnect(socket);
END get; END get;
BEGIN BEGIN
get("norayr.am", "/seq.txt", "80", buff); get("norayr.am", "/gf.jpg", "80", buff);
Logger.Log(buff); Logger.Log(buff);
END http. END http.