package dose3
Dose library (part of Mancoosi tools)
Install
Dune Dependency
Authors
Maintainers
Sources
dose3-6.1.tar.gz
md5=dedc2f58f2c2b59021f484abc6681d93
sha512=603462645bac190892a816ecb36ef7b9c52f0020f8d7710dc430e2db65122090fdedb24a8d2e03c32bf53a96515f5b51499603b839680d0a7a2146d6e0fb6e34
doc/src/dose3.debian/release.ml.html
Source file release.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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125(******************************************************************************) (* This file is part of the Dose library http://www.irill.org/software/dose *) (* *) (* Copyright (C) 2009-2011 Pietro Abate <pietro.abate@pps.jussieu.fr> *) (* *) (* 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. *) (* *) (* Work developed with the support of the Mancoosi Project *) (* http://www.mancoosi.org *) (* *) (******************************************************************************) (** Representation of a debian release files *) open Dose_common include Util.Logging (struct let label = "dose_deb.release" end) type release = { fname : string; origin : string; label : string; suite : string; version : string; codename : string; date : string; architecture : string; component : string; notauto : bool; autoup : bool; description : string; md5sums : (string * string * string) list; sha1 : (string * string * string) list; sha256 : (string * string * string) list } let parse_release_stanza fname par = { fname = Filename.basename fname; origin = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Origin" par; label = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Label" par; suite = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Suite" par; version = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Version" par; codename = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Codename" par; date = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Date" par; architecture = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Architectures" par; component = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Components" par; notauto = Dose_pef.Packages.parse_s ~default:false Dose_pef.Packages.parse_bool "NotAutomatic" par; autoup = Dose_pef.Packages.parse_s ~default:false Dose_pef.Packages.parse_bool "ButAutomaticUpgrades" par; description = Dose_pef.Packages.parse_s ~default:"" Dose_pef.Packages.parse_string "Description" par; md5sums = []; sha1 = []; sha256 = [] } let release_parser stanza_parser fname p = match Format822_parser.doc_822_sign Format822_lexer.token_822 p.Format822.lexbuf with | Some st -> Some (stanza_parser fname st) | None -> None let parse_release_in fname ic = Format822.parse_from_ch (release_parser parse_release_stanza fname) ic