363 |
in |
in |
364 |
s |
s |
365 |
|
|
366 |
let rec rec_description_of_query q = |
let rec rec_description_of_query q = |
367 |
match q with |
match q with |
368 |
| Q_HIDDEN l |
| Q_HIDDEN l |
369 |
| Q_AND l |
| Q_AND l |
371 |
|
|
372 |
| Q_ANDNOT (q1, q2) -> rec_description_of_query q1 |
| Q_ANDNOT (q1, q2) -> rec_description_of_query q1 |
373 |
| Q_MODULE (_,q) -> rec_description_of_query q |
| Q_MODULE (_,q) -> rec_description_of_query q |
374 |
|
|
375 |
| Q_KEYWORDS (_,s) -> [s] |
| Q_KEYWORDS (_,s) -> [s] |
376 |
| Q_MINSIZE _ |
| Q_MINSIZE _ |
377 |
| Q_MAXSIZE _ -> [] |
| Q_MAXSIZE _ -> [] |
382 |
| Q_MP3_ALBUM (_,s) -> [s] |
| Q_MP3_ALBUM (_,s) -> [s] |
383 |
|
|
384 |
| Q_COMBO _ -> [] |
| Q_COMBO _ -> [] |
385 |
|
|
386 |
| Q_MP3_BITRATE _ -> [] |
| Q_MP3_BITRATE _ -> [] |
387 |
|
|
388 |
(* Return few words for a given query *) |
(* Return few words for a given query *) |