/[mldonkey]/mldonkey/src/gtk2/gui/guiTypes2.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiTypes2.ml

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

revision 1.2 by spiralvoice, Mon Apr 4 19:36:46 2005 UTC revision 1.3 by spiralvoice, Mon Oct 31 18:34:02 2005 UTC
# Line 180  and g_file_tree_item = Line 180  and g_file_tree_item =
180    GTreeDirectory of g_file_tree    GTreeDirectory of g_file_tree
181  | GTreeFile of  res_info  | GTreeFile of  res_info
182    
183    type source_slot = int
184    let source_only = 0
185    let source_has_slot = 1
186    let source_has_upload = 3
187    
188  type source_info =  type source_info =
189     {     {
# Line 202  type source_info = Line 206  type source_info =
206      mutable source_upload_rate : float;      mutable source_upload_rate : float;
207      mutable source_download_rate : float;      mutable source_download_rate : float;
208      mutable source_upload : string option;      mutable source_upload : string option;
209      mutable source_has_upload : bool;      mutable source_has_upload : source_slot;
210      mutable source_availability : (int * string) list;     (* file_num, availability *)      mutable source_availability : (int * string) list;     (* file_num, availability *)
211      mutable source_files_requested : int list;             (* file_num *)      mutable source_files_requested : int list;             (* file_num *)
212    }    }
213    
214    type razorback_stats =
215      {
216       mutable razorback_file_history      : string;
217       mutable razorback_file_rating       : string;
218       mutable razorback_file_avalaibility : int;
219       mutable razorback_file_completed    : int;
220      }
221    
222    type g_file_info = {
223        g_file_num : int;
224        g_file_network : int;
225    
226        mutable g_file_comment : string;
227        mutable g_file_name : string;
228        mutable g_file_names : (string * ips_list) list;
229        mutable g_file_size : int64;
230        mutable g_file_downloaded : int64;
231        mutable g_file_active_sources : int;
232        mutable g_file_all_sources : int;
233        mutable g_file_state : file_state;
234        mutable g_file_chunks : string;
235        mutable g_file_availability : (int * string) list;
236        mutable g_file_sources : int list option;
237        mutable g_file_download_rate : float;
238        mutable g_file_format : format;
239        mutable g_file_chunks_age : int array;
240        mutable g_file_age : int;
241        mutable g_file_last_seen : int;
242        mutable g_file_priority : int;
243        mutable g_file_uids : Uid.t list;
244    
245        mutable g_file_razorback_stats : razorback_stats option;
246      }
247    
248  type item_info =  type item_info =
249    File of file_info    File of g_file_info
250  | Source of (source_info * int)   (* source_info, file_num*)  | Source of (source_info * int)   (* source_info, file_num *)
251    
252  type item_index =  type item_index =
253    File_num of int                 (* file_num *)    File_num of int                 (* file_num *)
# Line 237  type query_form = Line 275  type query_form =
275  | QF_COMBO of string ref  | QF_COMBO of string ref
276        
277  | QF_HIDDEN of query_form list  | QF_HIDDEN of query_form list
278    
279    type shared_file =
280      {
281        g_shared_num : int;
282        g_shared_network : int;
283        mutable g_shared_filename : string;
284        mutable g_shared_size : int64;
285        mutable g_shared_uploaded : int64;
286        mutable g_shared_requests : int;
287        mutable g_shared_uids : Uid.t list;
288        mutable g_shared_last_seen : float;
289      }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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