1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
(**************************************************************************)
(* This file is part of a library developed with the support of the *)
(* Mancoosi Project. http://www.mancoosi.org *)
(* *)
(* Main author(s): Pietro Abate *)
(* *)
(* This library is free software: you can redistribute it and/or modify *)
(* it under the terms of the GNU Lesser General Public License as *)
(* published by the Free Software Foundation, either version 3 of the *)
(* License, or (at your option) any later version. A special linking *)
(* exception to the GNU Lesser General Public License applies to this *)
(* library, see the COPYING file for more information. *)
(**************************************************************************)
open ExtLib
open Common
open Debian
let vpkg_option ?default ?(metavar = " <vpkg>") () =
let parse_vpkg s =
let _loc = Format822.dummy_loc in
Packages.parse_vpkg (_loc,s)
in
OptParse.Opt.value_option metavar default
parse_vpkg (fun _ s -> Printf.sprintf "invalid vpackage '%s'" s)
;;
(* this is a ,-separated list of vpkgs of the form "a (<c> v)" *)
let vpkglist_option ?default ?(metavar = " <vpkglst>") () =
let parse_vpkglist s =
let _loc = Format822.dummy_loc in
Packages.parse_vpkglist (_loc,s)
in
OptParse.Opt.value_option metavar default
parse_vpkglist (fun _ s -> Printf.sprintf "invalid vpackage list '%s'" s)
;;
(* this is a ,-separated list of vpkgs of the form "a (= v)" *)
let pkglist_option ?default ?(metavar = " <pkglst>") () =
let parse_vpkglist s =
let _loc = Format822.dummy_loc in
List.map (function
|((n,a),Some("=",v)) -> (n,a,v)
|((n,a),None) ->
raise (Packages.ParseError (s,"you must specify a version" ))
|_ -> raise (Packages.ParseError (s,""))
) (Packages.parse_vpkglist (_loc,s))
in
OptParse.Opt.value_option metavar default
parse_vpkglist (fun _ s -> Printf.sprintf "invalid package list '%s'" s)
;;
let pkglist tables universe vpkglist =
let to_cudf (p,v) = (p,Debcudf.get_cudf_version tables (p,v)) in
List.flatten (
List.map (fun ((n,a),c) ->
let (name,filter) = Debutil.debvpkg to_cudf ((n,a),c) in
Cudf.lookup_packages ~filter universe name
) vpkglist
)
;;
|
