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 |
|
|
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" |