/[mldonkey]/mldonkey/src/networks/bittorrent/bTTypes.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTTypes.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by spiralvoice, Sun Jul 10 23:19:16 2005 UTC revision 1.26 by spiralvoice, Thu Aug 4 22:00:23 2005 UTC
# Line 25  open BTRate Line 25  open BTRate
25    
26  type torrent = {  type torrent = {
27      mutable torrent_name : string;      mutable torrent_name : string;
28        mutable torrent_name_utf8 : string;
29        mutable torrent_filename : string;
30      mutable torrent_length : int64;      mutable torrent_length : int64;
31      mutable torrent_announce : string;      mutable torrent_announce : string;
32        mutable torrent_announce_list : string list;
33      mutable torrent_piece_size : int64;      mutable torrent_piece_size : int64;
34      mutable torrent_files :  (string * int64) list;      mutable torrent_files :  (string * int64) list;
35      mutable torrent_pieces : Sha1.t array;      mutable torrent_pieces : Sha1.t array;
36        mutable torrent_comment : string;
37        mutable torrent_created_by : string;
38        mutable torrent_creation_date : int64;
39        mutable torrent_modified_by : string;
40        mutable torrent_encoding : string;
41        mutable torrent_private : int64;
42    (*
43        mutable torrent_nodes : string;
44    *)
45      }
46    
47    type brand =
48      Brand_unknown
49    | Brand_abc
50    | Brand_arctic
51    | Brand_azureus
52    | Brand_bitbuddy
53    | Brand_bitcomet
54    | Brand_bitkitten
55    | Brand_bitlord
56    | Brand_bitsonwheels
57    | Brand_bitspirit
58    | Brand_bittornado
59    | Brand_bittorrentx
60    | Brand_btplus
61    | Brand_btslave
62    | Brand_btugaxp
63    | Brand_burst
64    | Brand_ctorrent
65    | Brand_deadmanwalking
66    | Brand_exeem
67    | Brand_experimental
68    | Brand_g3torrent
69    | Brand_libtorrent
70    | Brand_mainline
71    | Brand_martiniman
72    | Brand_mldonkey
73    | Brand_moonlighttorrent
74    | Brand_plus
75    | Brand_shadow
76    | Brand_sharenet
77    | Brand_shareaza
78    | Brand_simplebt
79    | Brand_snark
80    | Brand_swarmscope
81    | Brand_swarmy
82    | Brand_swiftbit
83    | Brand_teeweety
84    | Brand_torrentdotnet
85    | Brand_torrentstorm
86    | Brand_turbobt
87    | Brand_upnp
88    | Brand_xantorrent
89    | Brand_xbt
90    | Brand_ziptorrent
91    
92    let brand_count = 43
93    
94    type brand_stat = {
95      mutable brand_seen : int;
96      mutable brand_banned : int;
97      mutable brand_filerequest : int;
98      mutable brand_download : Int64.t;
99      mutable brand_upload : Int64.t;
100    }
101    
102    let dummy_stats =
103      {
104        brand_seen = 0;
105        brand_banned = 0;
106        brand_filerequest = 0;
107        brand_download = Int64.zero;
108        brand_upload = Int64.zero
109    }    }
110    
111  type client = {  type client = {
# Line 51  type client = { Line 127  type client = {
127      mutable client_interested : bool;      mutable client_interested : bool;
128      mutable client_uid : Sha1.t;      mutable client_uid : Sha1.t;
129    
130        mutable client_brand : brand;
131        mutable client_release : string;
132    
133      mutable client_bitmap : string option;      mutable client_bitmap : string option;
134      mutable client_new_chunks : int list;      mutable client_new_chunks : int list;
135    
# Line 77  type client = { Line 156  type client = {
156  and tracker_info = {  and tracker_info = {
157      tracker_url : string;      tracker_url : string;
158      mutable tracker_interval : int;      mutable tracker_interval : int;
159        mutable tracker_min_interval : int;
160      mutable tracker_last_conn : int;      mutable tracker_last_conn : int;
161      mutable tracker_last_clients_num : int;      mutable tracker_last_clients_num : int;
162        mutable tracker_torrent_downloaded : int;
163        mutable tracker_torrent_complete : int;
164        mutable tracker_torrent_incomplete : int;
165        mutable tracker_torrent_total_clients_count : int;
166        mutable tracker_torrent_last_dl_req : int;
167        mutable tracker_id : string;
168        mutable tracker_key : string;
169    }    }
170    
171  and file = {  and file = {
# Line 86  and file = { Line 173  and file = {
173      file_piece_size : int64;      file_piece_size : int64;
174      file_id : Sha1.t;      file_id : Sha1.t;
175      file_name : string;      file_name : string;
176        file_comment : string;
177        file_created_by : string;
178        file_creation_date : int64;
179        file_modified_by : string;
180        file_encoding : string;
181      mutable file_swarmer : Int64Swarmer.t option;      mutable file_swarmer : Int64Swarmer.t option;
182      mutable file_clients : ((Ip.t*int), client) Hashtbl.t ;      mutable file_clients : ((Ip.t*int), client) Hashtbl.t ;
183      mutable file_clients_num : int ;      mutable file_clients_num : int ;

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26