/[mldonkey]/mldonkey/src/gtk/newgui/gui_misc.ml
ViewVC logotype

Diff of /mldonkey/src/gtk/newgui/gui_misc.ml

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

revision 1.5 by mldonkey, Sun Mar 7 09:34:25 2004 UTC revision 1.6 by spiralvoice, Sun Oct 16 20:42:52 2005 UTC
# Line 25  module G = Gui_global Line 25  module G = Gui_global
25    
26  open GuiProto  open GuiProto
27    
28  let ko = Int32.of_int 1024  let ko = 1024l
29    let mo = Int32.mul ko ko
30        
31  let unit_of_string s =  let unit_of_string s =
32    match String.lowercase s with    match String.lowercase s with
33      "mo" -> Int32.mul ko ko      "mo" -> mo
34    | "ko" -> ko    | "ko" -> ko
35    | _ -> Int32.one    | _ -> Int32.one
36    
# Line 139  let rec rec_description_of_query q = Line 140  let rec rec_description_of_query q =
140    | Q_MP3_BITRATE _ -> []    | Q_MP3_BITRATE _ -> []
141    
142    
143    (** Summarize a request in a few words *)
 (** Retourne quelques mots pour résumer une requete *)  
144  let description_of_query q =  let description_of_query q =
145    match rec_description_of_query q with    match rec_description_of_query q with
146      [] -> "stupid query"      [] -> "stupid query"

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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