-- ftpman.mesa   July 1, 1982 3:29 pm
-- Interface to the FTP component of the
--  Cedar Interim File System.  26-Oct-81 11:23:07

DIRECTORY
  Rope: TYPE USING [ROPE],
  File: TYPE USING [Capability];
  
  FtpMan: DEFINITIONS = {

-- Exceptional conditions are reported with CIFS.Error

  
  Connect: PROC[name: Rope.ROPE, password: Rope.ROPE];
      -- Set connect credentials

  Login: PROC[name: Rope.ROPE, password: Rope.ROPE];
      -- Set credentials

  Delete: PROC[server: Rope.ROPE, name: Rope.ROPE];
      -- Delete file at server.

  GetFileInfo: PROC [server: Rope.ROPE, name: Rope.ROPE]
    RETURNS[create: LONG CARDINAL, count: LONG CARDINAL];
      -- Gets create time and byte count of the specified file

  Retrieve: PROC [server: Rope.ROPE, name: Rope.ROPE, fc: File.Capability];
      -- fc↑ ← name↑

  Store: PROC [server: Rope.ROPE, name: Rope.ROPE, fc: File.Capability]
    RETURNS[version: INT];
      -- name↑ ← fc↑
      -- Returns the version number where the file was stored

}..