src/networks/donkey/donkeyMftp.mli

   1 (* Copyright 2001, 2002 b8_bavard, b8_fee_carabine, INRIA *)
   2 (*
   3     This file is part of mldonkey.
   4
   5     mldonkey is free software; you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation; either version 2 of the License, or
   8     (at your option) any later version.
   9
  10     mldonkey is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with mldonkey; if not, write to the Free Software
  17     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18 *)
  19
  20 (*
  21 val const_int32_255 : int32
  22 val output_int32_8 : out_channel -> int32 -> unit
  23 val output_int32_32 : out_channel -> int32 -> unit
  24 val output_int8 : out_channel -> int -> unit
  25 *)
  26
  27 val output_int : out_channel -> int -> unit
  28 val rev_assoc : 'a -> ('b * 'a) list -> 'b
  29 val buf_string : Buffer.t -> string -> unit
  30 val buf_port : Buffer.t -> int -> unit
  31 val buf_addr : Buffer.t -> Ip.t * int -> unit
  32 val buf_tags :
  33   Buffer.t -> CommonTypes.tag list -> (string * CommonTypes.field) list -> unit
  34 val buf_tag :
  35   Buffer.t -> CommonTypes.tag -> (string * CommonTypes.field) list -> unit
  36 (*val read_uint8 : in_channel -> int32
  37 val read_uint32 : in_channel -> int32 *)
  38 val read_request : in_channel -> string
  39 val output_request : out_channel -> string -> unit
  40 val get_port : string -> int -> int
  41 val get_string : string -> int -> string * int
  42 val get_tag :
  43      (string * CommonTypes.field) list -> string -> int -> CommonTypes.tag * int
  44 val get_tags :
  45   string -> int -> (string * CommonTypes.field) list -> CommonTypes.tag list * int
  46 val get_peer : string -> int -> (Ip.t * int) * int
  47 module type Request =
  48   sig
  49     type t
  50     val parse : int -> string -> t
  51     val print : t -> unit
  52     val write : Buffer.t -> t -> unit
  53   end
  54 val file_common_tags : (string * CommonTypes.field) list
  55 val client_common_tags : (string * string) list