/[mldonkey]/mldonkey/src/daemon/common/commonSwarming2.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSwarming2.ml

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

revision 1.18 by spiralvoice, Wed Sep 14 21:04:12 2005 UTC revision 1.19 by spiralvoice, Thu Oct 6 10:19:29 2005 UTC
# Line 3006  let has_secondaries t = Line 3006  let has_secondaries t =
3006    
3007  (*************************************************************************)  (*************************************************************************)
3008  (*                                                                       *)  (*                                                                       *)
3009    (*                         Remove swarmer                                *)
3010    (*                                                                       *)
3011    (*************************************************************************)
3012    
3013    let remove_swarmer file_swarmer =
3014      match file_swarmer with
3015        None -> ()
3016      | Some sw -> if not (has_secondaries sw)
3017                    then HS.remove swarmers_by_name sw.t_s
3018                    else lprintf_nl () "Tried to remove swarmer with secondaries"
3019    
3020    (*************************************************************************)
3021    (*                                                                       *)
3022  (*                         subfiles                                      *)  (*                         subfiles                                      *)
3023  (*                                                                       *)  (*                                                                       *)
3024  (*************************************************************************)  (*************************************************************************)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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