[Pkg-ocaml-maint-commits] [coinst] 01/04: Imported Upstream version 1.9.3
Mehdi Dogguy
mehdi at moszumanska.debian.org
Sat Feb 13 13:45:06 UTC 2016
This is an automated email from the git hooks/post-receive script.
mehdi pushed a commit to branch master
in repository coinst.
commit 5517e47a4ec4494bc46c8fad3cf2d103d06f14fd
Author: Mehdi Dogguy <mehdi at debian.org>
Date: Sat Feb 13 14:41:16 2016 +0100
Imported Upstream version 1.9.3
---
CHANGES | 6 ++++++
Makefile | 2 +-
rpm_lib.ml | 10 +++++-----
transition.ml | 24 +++++++++++++-----------
util.ml | 4 ----
util.mli | 2 --
viewer/Makefile | 2 +-
7 files changed, 26 insertions(+), 24 deletions(-)
diff --git a/CHANGES b/CHANGES
index bed28f3..a836d12 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,9 @@
+===== 1.9.3 (2016-02-13) =====
+
+* Show single-package hints when asked to (using --all-hints)
+* Fix buffering bug when printing hints
+* Fix space/tab issue in Makefile
+
===== 1.9.2 (2016-01-24) =====
* Add build targets for bytecode binaries
diff --git a/Makefile b/Makefile
index 869569f..9bfe621 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-VERSION=1.9.2
+VERSION=1.9.3
COINST=coinst
UPGRADE=coinst-upgrades
TRANS=comigrate
diff --git a/rpm_lib.ml b/rpm_lib.ml
index 58c9744..a14ddd6 100644
--- a/rpm_lib.ml
+++ b/rpm_lib.ml
@@ -319,14 +319,14 @@ exception Skip
let check_entry tag typ tag' typ' =
if tag <> tag' then begin
let b = Buffer.create 80 in
- Util.bprintf b "Expected tag %a but actual tag is %a@?"
+ Format.bprintf b "Expected tag %a but actual tag is %a@?"
pr_tag tag pr_tag tag';
Util.print_warning (Buffer.contents b);
raise Skip
end;
if typ <> typ' then begin
let b = Buffer.create 80 in
- Util.bprintf b "Entry %a has expected type %a but actual typ is %a@?"
+ Format.bprintf b "Entry %a has expected type %a but actual typ is %a@?"
pr_tag tag pr_typ typ pr_typ typ';
Util.fail (Buffer.contents b)
end
@@ -336,7 +336,7 @@ let estring store entry i tag =
check_entry tag STRING tag' typ;
if count <> 1 then begin
let b = Buffer.create 80 in
- Util.bprintf b "Entry %a has type STRING with count %d > 1@?"
+ Format.bprintf b "Entry %a has type STRING with count %d > 1@?"
pr_tag tag count;
Util.fail (Buffer.contents b)
end;
@@ -352,7 +352,7 @@ let eint32 store entry i tag =
check_entry tag INT32 tag' typ;
if count <> 1 then begin
let b = Buffer.create 80 in
- Util.bprintf b "Expecting a single INT32 for entry %a but got %d@?"
+ Format.bprintf b "Expecting a single INT32 for entry %a but got %d@?"
pr_tag tag count;
Util.fail (Buffer.contents b)
end;
@@ -536,7 +536,7 @@ let parse_version s =
match release with Some r -> check_version r | _ -> false
then begin
let b = Buffer.create 80 in
- Util.bprintf b
+ Format.bprintf b
"version '%a' not ending with an alphanumeric character@?"
pr_version (epoch, version, release, distepoch);
Util.print_warning (Buffer.contents b)
diff --git a/transition.ml b/transition.ml
index 3240d88..ef23097 100644
--- a/transition.ml
+++ b/transition.ml
@@ -2464,7 +2464,7 @@ let collect_changes st (unchanged, subset, src_unchanged) =
let src =
if smooth_update then begin
let b = Buffer.create 20 in
- Util.bprintf b "-%s/%s/%a"
+ Format.bprintf b "-%s/%s/%a%!"
(M.name_of_id nm) st.arch M.print_version v;
Buffer.contents b
end else
@@ -2546,7 +2546,7 @@ let generate_hints ?formatter
if should_show then begin
let (su, gen) =
List.partition (fun (src, arch) -> is_smooth_update src) l in
- if List.length gen > 1 then begin
+ if List.length gen > 1 || !all_hints then begin
Format.fprintf f "easy";
List.iter (fun (src, arch) -> print_pkg f src arch) gen;
Format.fprintf f "@.";
@@ -2592,7 +2592,7 @@ let heidi_line lines nm vers arch sect =
Buffer.add_string heidi_buffer sect;
Buffer.add_char heidi_buffer '\n';
(*
- Util.bprintf heidi_buffer "%s %a %s %s at ."
+ Format.bprintf heidi_buffer "%s %a %s %s at ."
nm M.print_version vers arch sect;
*)
lines := Buffer.contents heidi_buffer :: !lines;
@@ -2750,29 +2750,30 @@ let analyze_migration
!lst;
let lst =
let b = Buffer.create 80 in
+ let to_b = Format.formatter_of_buffer b in
List.map
(fun (p, reason) ->
Buffer.clear b;
begin match reason with
Not_yet_built (nm, _, _, outdated) ->
if outdated then
- Util.bprintf b "# remove outdated binary package %a"
+ Format.fprintf to_b "# remove outdated binary package %a"
print_package p
else
- Util.bprintf b "# remove obsolete binary package %a"
+ Format.fprintf to_b "# remove obsolete binary package %a"
print_package p
| Blocked (kind, _) ->
let (src, _) = get_name_arch p in
let vers =
(M.find_source_by_name u (M.id_of_name src)).M.s_version
in
- Util.bprintf b "un%s %s/%a" kind src M.print_version vers
+ Format.fprintf to_b "un%s %s/%a" kind src M.print_version vers
| Too_young (cur_ag, _) ->
let (src, _) = get_name_arch p in
let vers =
(M.find_source_by_name u (M.id_of_name src)).M.s_version
in
- Util.bprintf b "age-days %d %s/%a"
+ Format.fprintf to_b "age-days %d %s/%a"
cur_ag src M.print_version vers
| More_bugs s ->
let print_bugs =
@@ -2783,13 +2784,13 @@ let analyze_migration
let vers =
(M.find_source_by_name u (M.id_of_name nm)).M.s_version
in
- Util.bprintf b "# source package %s/%a: fix "
+ Format.fprintf to_b "# source package %s/%a: fix "
nm M.print_version vers;
if StringSet.cardinal s = 1 then
- Util.bprintf b "bug %a"
+ Format.fprintf to_b "bug %a"
print_bugs (StringSet.elements s)
else
- Util.bprintf b "bugs %a"
+ Format.fprintf to_b "bugs %a"
print_bugs (StringSet.elements s)
end else begin
let s =
@@ -2800,7 +2801,7 @@ let analyze_migration
s
in
if not (StringSet.is_empty s) then begin
- Util.bprintf b "# binary package %s: fix bugs %a"
+ Format.fprintf to_b "# binary package %s: fix bugs %a"
nm print_bugs (StringSet.elements s)
end
end
@@ -2808,6 +2809,7 @@ let analyze_migration
| Binary_not_added | Binary_not_removed | Unchanged ->
assert false
end;
+ Format.pp_print_flush to_b ();
Buffer.contents b)
(List.rev !lst)
in
diff --git a/util.ml b/util.ml
index d25ef3f..d6df95d 100644
--- a/util.ml
+++ b/util.ml
@@ -325,7 +325,3 @@ let date () =
Format.sprintf "%s, %d %s %d %02d:%02d:%02d UTC"
days.(t.Unix.tm_wday - 1) t.Unix.tm_mday months.(t.Unix.tm_mon)
(t.Unix.tm_year + 1900) t.Unix.tm_hour t.Unix.tm_min t.Unix.tm_sec
-
-let bprintf b f x =
- let to_b = Format.formatter_of_buffer b in
- Format.fprintf to_b f x
diff --git a/util.mli b/util.mli
index f6fb24b..ad0bb9c 100644
--- a/util.mli
+++ b/util.mli
@@ -102,5 +102,3 @@ end
val trim : string -> string
val date : unit -> string
-
-val bprintf : Buffer.t -> ('a -> 'b, Format.formatter, unit) format -> 'a -> 'b
diff --git a/viewer/Makefile b/viewer/Makefile
index b6915e8..5153664 100644
--- a/viewer/Makefile
+++ b/viewer/Makefile
@@ -28,7 +28,7 @@ coinst_viewer: $(OBJS)
$(OCAMLOPT) -o $@ $(OPTLINKFLAGS) $^
coinst_viewer.byte: $(OBJS:.cmx=.cmo)
- $(OCAMLC) -o $@ $(OPTLINKFLAGS) $^
+ $(OCAMLC) -o $@ $(OPTLINKFLAGS) $^
coinst_converter: $(CONVERTER)
$(OCAMLOPT) -o $@ $(OPTLINKFLAGS) $^
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-ocaml-maint/packages/coinst.git
More information about the Pkg-ocaml-maint-commits
mailing list