Module SFFtp

module SFFtp: sig .. end

type ftp

type response

type directoryResponse

type listingResponse

type status =

`\|`	`RestartMarkerReply`
`\|`	`ServiceReadySoon`
`\|`	`DataConnectionAlreadyOpened`
`\|`	`OpeningDataConnection`
`\|`	`Ok`
`\|`	`PointlessCommand`
`\|`	`SystemStatus`
`\|`	`DirectoryStatus`
`\|`	`FileStatus`
`\|`	`HelpMessage`
`\|`	`SystemType`
`\|`	`ServiceReady`
`\|`	`ClosingConnection`
`\|`	`DataConnectionOpened`
`\|`	`ClosingDataConnection`
`\|`	`EnteringPassiveMode`
`\|`	`LoggedIn`
`\|`	`FileActionOk`
`\|`	`DirectoryOk`
`\|`	`NeedPassword`
`\|`	`NeedAccountToLogIn`
`\|`	`NeedInformation`
`\|`	`ServiceUnavailable`
`\|`	`DataConnectionUnavailable`
`\|`	`TransferAborted`
`\|`	`FileActionAborted`
`\|`	`LocalError`
`\|`	`InsufficientStorageSpace`
`\|`	`CommandUnknown`
`\|`	`ParametersUnknown`
`\|`	`CommandNotImplemented`
`\|`	`BadCommandSequence`
`\|`	`ParameterNotImplemented`
`\|`	`NotLoggedIn`
`\|`	`NeedAccountToStore`
`\|`	`FileUnavailable`
`\|`	`PageTypeUnknown`
`\|`	`NotEnoughMemory`
`\|`	`FilenameNotAllowed`
`\|`	`InvalidResponse`
`\|`	`ConnectionFailed`
`\|`	`ConnectionClosed`
`\|`	`InvalidFile`

type transferMode =

val create : unit -> ftp

val destroy : ftp -> unit

val connect : ftp ->
       server:SFIpAddress.t ->
       ?port:int -> ?timeout:SFTime.t -> unit -> response

val loginAnonymous : ftp -> response

val login : ftp -> userName:string -> password:string -> response

val disconnect : ftp -> response

val keepAlive : ftp -> response

val changeDirectory : ftp -> directory:string -> response

val parentDirectory : ftp -> response

val createDirectory : ftp -> name:string -> response

val deleteDirectory : ftp -> name:string -> response

val renameFile : ftp -> file:string -> newName:string -> response

val deleteFile : ftp -> name:string -> response

val upload : ftp ->
       localFile:string ->
       destPath:string -> mode:transferMode -> response

val download : ftp ->
       distantFile:string ->
       destPath:string -> mode:transferMode -> response

module Response: sig .. end

val getDirectoryListing : ftp -> directory:string -> listingResponse

module ListingResponse: sig .. end

val getWorkingDirectory : ftp -> directoryResponse

module DirectoryResponse: sig .. end

val sendCommand : ftp -> command:string -> parameter:string -> response