Anonymous user
FTP: Difference between revisions
m
Adjust to the interface ftpFileSys
No edit summary |
m (Adjust to the interface ftpFileSys) |
||
Line 593:
The library [http://seed7.sourceforge.net/libraries/ftp.htm ftp.s7i] contains functions to
[http://seed7.sourceforge.net/libraries/ftp.htm#openFtp(in_string) open] and handle an
[http://seed7.sourceforge.net/libraries/ftp.htm#
<lang seed7>$ include "seed7_05.s7i";
include "ftp.s7i";
Line 599:
const proc: main is func
local
var
var string: line is "";
begin
ftp := openFtp("kernel.org");
setActiveMode(ftp
chdir(ftp, "/pub/linux/kernel");
for line range listDir(ftp, ".") do
writeln(line);
end for;
writeln(getFile(ftp, "README"));
close(ftp);
|