<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Ftp" rel="Chapter" href="Ftp.html"><title>Ftp</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> ftp_connection<br> <span class="keyword">type</span> file_kind = <span class="constructor">S_REG</span> <span class="keywordsign">|</span> <span class="constructor">S_DIR</span> <span class="keywordsign">|</span> <span class="constructor">S_CHR</span> <span class="keywordsign">|</span> <span class="constructor">S_BLK</span> <span class="keywordsign">|</span> <span class="constructor">S_LNK</span> <span class="keywordsign">|</span> <span class="constructor">S_FIFO</span> <span class="keywordsign">|</span> <span class="constructor">S_SOCK</span><br> <span class="keyword">type</span> file_perm = int<br> <span class="keyword">type</span> stats = {<br> st_kind : <span class="constructor">Ftp</span>.file_kind;<br> st_perm : <span class="constructor">Ftp</span>.file_perm;<br> st_nlink : int;<br> st_un : string;<br> st_gn : string;<br> st_size : int;<br> st_mtime : float;<br> }<br> <span class="keyword">exception</span> <span class="constructor">Unrecognised_format</span><br> <span class="keyword">val</span> connect : string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Ftp</span>.ftp_connection<br> <span class="keyword">val</span> disconnect : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_passive : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_cur_dir : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> chdir : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> chdir_up : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> list_files : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> string list<br> <span class="keyword">val</span> get_file_size : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> ls : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> (string * <span class="constructor">Ftp</span>.stats) list<br> <span class="keyword">val</span> stat : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Ftp</span>.stats<br> <span class="keyword">val</span> get_file : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> resume_file : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_file_portion :<br> <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> mv : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> rm : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> rmdir : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> mkdir : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> nop : <span class="constructor">Ftp</span>.ftp_connection <span class="keywordsign">-></span> unit<br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">FILE</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> ls : string <span class="keywordsign">-></span> (string * <span class="constructor">Ftp</span>.stats) list<br> <span class="keyword">type</span> file_descr<br> <span class="keyword">type</span> open_flag = <span class="constructor">O_RDONLY</span> <span class="keywordsign">|</span> <span class="constructor">O_WRONLY</span> <span class="keywordsign">|</span> <span class="constructor">O_RDWR</span><br> <span class="keyword">val</span> openfile :<br> string <span class="keywordsign">-></span><br> <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.open_flag list <span class="keywordsign">-></span> <span class="constructor">Ftp</span>.file_perm <span class="keywordsign">-></span> <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.file_descr<br> <span class="keyword">val</span> close : <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.file_descr <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> read : <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.file_descr <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int<br> <span class="keyword">type</span> seek_command = <span class="constructor">SEEK_SET</span> <span class="keywordsign">|</span> <span class="constructor">SEEK_CUR</span> <span class="keywordsign">|</span> <span class="constructor">SEEK_END</span><br> <span class="keyword">val</span> lseek : <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.file_descr <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Ftp</span>.<span class="constructor">FILE</span>.seek_command <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">File</span> : <span class="constructor">FILE</span><br> <span class="keyword">end</span></code></body></html>