src/networks/soulseek/slskTypes.ml

   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 open Md4
  21
  22 open CommonTypes
  23
  24
  25 type server = {
  26     server_server: server CommonServer.server_impl;
  27     mutable server_name : string;
  28     mutable server_addr : Ip.addr;
  29     mutable server_info : string;
  30     mutable server_nusers : int64;
  31     server_connection_control : CommonTypes.connection_control;
  32     mutable server_sock : tcp_connection;
  33     mutable server_port : int;
  34     mutable server_nick : int;
  35     mutable server_last_nick : string;
  36     mutable server_search : search option;
  37     mutable server_search_timeout : float;
  38     mutable server_users : user list;
  39   }
  40
  41 and room = {
  42     room_room: room CommonRoom.room_impl;
  43     room_name : string;
  44     mutable room_users : user list;
  45     mutable room_nusers : int;
  46     mutable room_messages : (int * room_message) list;
  47   }
  48
  49   (*
  50 and result = {
  51     result_result : result CommonResult.result_impl;
  52     result_name : string;
  53     result_size : int64;
  54     mutable result_sources : (user * string) list;
  55   }
  56 *)
  57
  58 and user = {
  59     user_user : user CommonUser.user_impl;
  60     user_nick : string;
  61     mutable user_rooms : room list;
  62   }
  63
  64 and file = {
  65     file_file : file CommonFile.file_impl;
  66     file_id : Md4.t;
  67     mutable file_clients : client list;
  68     mutable file_swarmer : CommonSwarming.t option;
  69   }
  70
  71 and client = {
  72     client_client : client CommonClient.client_impl;
  73     client_name : string;
  74     mutable client_addr : (Ip.t * int) option;
  75     mutable client_peer_sock : tcp_connection;
  76     mutable client_downloads : (file, client) CommonDownloads.Basic.download list;
  77     mutable client_result_socks : TcpBufferedSocket.t list;
  78     client_connection_control : CommonTypes.connection_control;
  79     mutable client_files : (file * string) list;
  80     mutable client_all_files : (string * result) list option;
  81     mutable client_receiving : int64;
  82     mutable client_user : user;
  83     mutable client_requests : (int * file) list;
  84   }