Source file `cudf_conf.ml`

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
(*****************************************************************************)
(*  libCUDF - CUDF (Common Upgrade Description Format) manipulation library  *)
(*  Copyright (C) 2009-2012  Stefano Zacchiroli <zack@upsilon.cc>            *)
(*                                                                           *)
(*  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 Cudf_types

type stanza_typedecl = (string * typedecl) list

let preamble_typedecl = [
  "preamble",		`String None ;
  "property",		`Typedecl (Some []) ;
  "univ-checksum",	`String (Some "") ;
  "status-checksum",	`String (Some "") ;
  "req-checksum",	`String (Some "") ;
]

let package_typedecl = [
  "package",		`Pkgname None ;
  "version",		`Posint None ;
  "depends",		`Vpkgformula (Some []) ;
  "conflicts",		`Vpkglist (Some []) ;
  "provides",		`Veqpkglist (Some []) ;
  "installed",		`Bool (Some false) ;
  "was-installed",	`Bool (Some false) ;
  "keep",		`Enum (keep_enums, Some "none") ;
]

let request_typedecl = [
  "request",		`String None ;
  "install",		`Vpkglist (Some []) ;
  "remove",		`Vpkglist (Some []) ;
  "upgrade",		`Vpkglist (Some []) ;
]


let stanza_typedecl = [
  "preamble",	preamble_typedecl ;
  "package",	package_typedecl ;
  "request",	request_typedecl ;
]