ftp
A small (and very incomplete) FTP library
(make <FTP-connection> ?options?)
(ftp-login f user pass)
(ftp-quit f)
(ftp-chdir f dir)
(ftp-pwd f)
(ftp-type f mode)
(ftp-help f)
(ftp-help f command)
(ftp-dir f)
(ftp-dir f args)
(ftp-get f file)
(ftp-put f file)
(ftp-display f file)
- {Included with:}
-
(require "ftp")
- {Inherits from:}
-
<top>
- {Direct slots:}
-
host contains the name of the host to connect to.
port specifies the port to use to establish the ftp connection.
This slot is initialized by default to 21 by default (the standard ftp port).
echo is the name of a one parameter procedure used to display
the messages sent by the ftp server. This slot is initialized to by
default to the standard display procedure.
This library is a first attempt to make the FTP protocol available
from the STk interpreter. It is still very incomplete and has not
been intensively tested. Any help to make the subset implemented
conform to RFC 959 would be greatly appreciated.
The following procedure are implemented by the library:
- (ftp-quit f)
-
close the connection f to the remote host and the associated files.
- (ftp-chdir f dir)
-
changes the remote working directory on the f connection.
- (ftp-pwd f)
-
returns the remote working directory on the f connection.
- (ftp-type f mode)
-
set the file transfer type to mode on the f
connection. Mode must be a one letter symbol such as
'a (for ASCII) or 'i (for image).
- (ftp-help f)
-
- (ftp-help f command)
-
prints help from the server connected to f on the standard output port.
- (ftp-dir f)
-
- (ftp-dir f args)
-
gives the list of files in the current remote directory. If args is specified
it is passed to the ftp server.
- (ftp-get f file)
-
retrieves file on the remote server.
- (ftp-put f file)
-
stores file on the remote server.
- (ftp-display f file)
-
prints on the standard output port the content of the file file
located the remote server.
All these procedures return a boolean value which indicate if the requested
operation succeeded or not.
Hereafter is a simple session which prints the content of the /pub
directory and gets the last release of STk on the kaolin
workstation:
(define f (make <FTP-connection> :host "kaolin.unice.fr"))
(when (ftp-login f "anonymous" "eg@unice.fr")
(ftp-chdir f "/pub")
(ftp-dir f "-lsa")
(ftp-get f "STk.tar.gz")
(ftp-quit f))
Back to the STk main page