Removed virt-ctrl, virt-df, ocaml-libvirt - now in separate repositories.

[virt-top.git] / virt-ctrl / vc_helpers.ml

diff --git a/virt-ctrl/vc_helpers.ml b/virt-ctrl/vc_helpers.ml
deleted file mode 100644 (file)
index 74e70cb..0000000
--- a/virt-ctrl/vc_helpers.ml
+++ /dev/null
@@ -1,97 +0,0 @@
-(* virt-ctrl: A graphical management tool.
-   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
-   http://libvirt.org/
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-
-   This program is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-*)
-
-open Virt_ctrl_gettext.Gettext
-
-module C = Libvirt.Connect
-module D = Libvirt.Domain
-module N = Libvirt.Network
-
-(* Given two lists, xs and ys, return a list of items which have been
- * added to ys, items which are the same, and items which have been
- * removed from ys.
- * Returns a triplet (list of added, list of same, list of removed).
- *)
-let differences xs ys =
-  let rec d = function
-    | [], [] -> (* Base case. *)
-       ([], [], [])
-    | [], ys -> (* All ys have been added. *)
-       (ys, [], [])
-    | xs, [] -> (* All xs have been removed. *)
-       ([], [], xs)
-    | (x :: xs), (y :: ys) when x = y -> (* Not added or removed. *)
-       let added, unchanged, removed = d (xs, ys) in
-       added, x :: unchanged, removed
-    | (x :: xs), ((y :: _) as ys) when x < y -> (* x removed. *)
-       let added, unchanged, removed = d (xs, ys) in
-       added, unchanged, x :: removed
-    | ((x :: _) as xs), (y :: ys) (* when x > y *) -> (* y added. *)
-       let added, unchanged, removed = d (xs, ys) in
-       y :: added, unchanged, removed
-  in
-  d (List.sort compare xs, List.sort compare ys)
-
-let string_of_domain_state = function
-  | D.InfoNoState -> s_ "unknown"
-  | D.InfoRunning -> s_ "running"
-  | D.InfoBlocked -> s_ "blocked"
-  | D.InfoPaused -> s_ "paused"
-  | D.InfoShutdown -> s_ "shutdown"
-  | D.InfoShutoff -> s_ "shutoff"
-  | D.InfoCrashed -> s_ "crashed"
-
-(* Filter top level rows (only) in a tree_store.  If function f returns
- * true then the row remains, but if it returns false then the row is
- * removed.
- *)
-let rec filter_top_level_rows (model : GTree.tree_store) f =
-  match model#get_iter_first with
-  | None -> ()
-  | Some iter -> filter_rows model f iter
-
-(* Filter rows in a tree_store at a particular level. *)
-and filter_rows model f row =
-  let keep = f row in
-  let iter_still_valid =
-    if not keep then model#remove row else model#iter_next row in
-  if iter_still_valid then filter_rows model f row
-
-(* Find the first top level row matching predicate f and return it. *)
-let rec find_top_level_row (model : GTree.tree_store) f =
-  match model#get_iter_first with
-  | None -> raise Not_found (* no rows *)
-  | Some row -> find_row model f row
-
-(* Find the first row matching predicate f at a particular level. *)
-and find_row model f row =
-  if f row then row
-  else if model#iter_next row then find_row model f row
-  else raise Not_found
-
-(* Iterate over top level rows (only) in a tree_store. *)
-let rec iter_top_level_rows (model : GTree.tree_store) f =
-  match model#get_iter_first with
-  | None -> ()
-  | Some iter -> iter_rows model f iter
-
-(* Iterate over rows in a tree_store at a particular level. *)
-and iter_rows model f row =
-  f row;
-  if model#iter_next row then iter_rows model f row