From d445e4f54fcfd19a98451eb0b5b5b5237bf9df78 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 7 Jan 2008 22:53:34 +0000
Subject: mlvirtmanager renamed as virt-ctrl. 	* .hgignore, Makefile.in,
 configure.ac: Rename 	  mlvirtmanager as virt-ctrl to avoid any confusion
 with 	  the real virt-manager. 	* mlvirtmanager/, virt-ctrl/:
 Subdirectory moved. 	* README: Supporting documentation updated.

---
 mlvirtmanager/mlvirtmanager_helpers.ml | 95 ----------------------------------
 1 file changed, 95 deletions(-)
 delete mode 100755 mlvirtmanager/mlvirtmanager_helpers.ml

(limited to 'mlvirtmanager/mlvirtmanager_helpers.ml')

diff --git a/mlvirtmanager/mlvirtmanager_helpers.ml b/mlvirtmanager/mlvirtmanager_helpers.ml
deleted file mode 100755
index 859b8f2..0000000
--- a/mlvirtmanager/mlvirtmanager_helpers.ml
+++ /dev/null
@@ -1,95 +0,0 @@
-(* virt-manager-like 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.
-*)
-
-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 -> "unknown"
-  | D.InfoRunning -> "running"
-  | D.InfoBlocked -> "blocked"
-  | D.InfoPaused -> "paused"
-  | D.InfoShutdown -> "shutdown"
-  | D.InfoShutoff -> "shutoff"
-  | D.InfoCrashed -> "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
-- 
cgit