|
 |
59834e |
From b7a80d457904a3d677a14b7641b957c9760c03f9 Mon Sep 17 00:00:00 2001
|
|
|
fbac9f |
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
|
fbac9f |
Date: Mon, 27 Mar 2017 13:06:18 +0100
|
|
|
59834e |
Subject: [PATCH 13/23] src: Fix some comments which referred to the old
|
|
|
fbac9f |
filenames.
|
|
|
fbac9f |
|
|
|
fbac9f |
Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.
|
|
|
fbac9f |
---
|
|
|
fbac9f |
src/top.ml | 8 ++++----
|
|
|
fbac9f |
src/top.mli | 6 +++---
|
|
|
fbac9f |
2 files changed, 7 insertions(+), 7 deletions(-)
|
|
|
fbac9f |
|
|
|
fbac9f |
diff --git a/src/top.ml b/src/top.ml
|
|
|
fbac9f |
index 38658c6..f50e6a8 100644
|
|
|
fbac9f |
--- a/src/top.ml
|
|
|
fbac9f |
+++ b/src/top.ml
|
|
|
fbac9f |
@@ -30,13 +30,13 @@ module N = Libvirt.Network
|
|
|
fbac9f |
|
|
|
fbac9f |
let rcfile = ".virt-toprc"
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hook for XML support (see virt_top_xml.ml). *)
|
|
|
fbac9f |
+(* Hook for XML support (see [opt_xml.ml]). *)
|
|
|
fbac9f |
let parse_device_xml : (int -> [>`R] D.t -> string list * string list) ref =
|
|
|
fbac9f |
ref (
|
|
|
fbac9f |
fun _ _ -> [], []
|
|
|
fbac9f |
)
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hooks for CSV support (see virt_top_csv.ml). *)
|
|
|
fbac9f |
+(* Hooks for CSV support (see [opt_csv.ml]). *)
|
|
|
fbac9f |
let csv_start : (string -> unit) ref =
|
|
|
fbac9f |
ref (
|
|
|
fbac9f |
fun _ -> failwith (s_"virt-top was compiled without support for CSV files")
|
|
|
fbac9f |
@@ -46,7 +46,7 @@ let csv_write : (string list -> unit) ref =
|
|
|
fbac9f |
fun _ -> ()
|
|
|
fbac9f |
)
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hook for calendar support (see virt_top_calendar.ml). *)
|
|
|
fbac9f |
+(* Hook for calendar support (see [opt_calendar.ml]). *)
|
|
|
fbac9f |
let parse_date_time : (string -> float) ref =
|
|
|
fbac9f |
ref (
|
|
|
fbac9f |
fun _ ->
|
|
|
fbac9f |
@@ -345,7 +345,7 @@ OPTIONS" in
|
|
|
fbac9f |
|
|
|
fbac9f |
(* This tuple of static information is called 'setup' in other parts
|
|
|
fbac9f |
* of this program, and is passed to other functions such as redraw and
|
|
|
fbac9f |
- * main_loop. See virt_top_main.ml.
|
|
|
fbac9f |
+ * main_loop. See [main.ml].
|
|
|
fbac9f |
*)
|
|
|
fbac9f |
(conn,
|
|
|
fbac9f |
!batch_mode, !script_mode, !csv_enabled, !stream_mode, (* immutable modes *)
|
|
|
fbac9f |
diff --git a/src/top.mli b/src/top.mli
|
|
|
fbac9f |
index 3ad0718..b0953dd 100644
|
|
|
fbac9f |
--- a/src/top.mli
|
|
|
fbac9f |
+++ b/src/top.mli
|
|
|
fbac9f |
@@ -17,15 +17,15 @@
|
|
|
fbac9f |
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
fbac9f |
*)
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hook for virt_top_xml to override (if present). *)
|
|
|
fbac9f |
+(* Hook for [Opt_xml] to override (if present). *)
|
|
|
fbac9f |
val parse_device_xml :
|
|
|
fbac9f |
(int -> [ `R ] Libvirt.Domain.t -> string list * string list) ref
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hooks for virt_top_csv to override (if present). *)
|
|
|
fbac9f |
+(* Hooks for [Opt_csv] to override (if present). *)
|
|
|
fbac9f |
val csv_start : (string -> unit) ref
|
|
|
fbac9f |
val csv_write : (string list -> unit) ref
|
|
|
fbac9f |
|
|
|
fbac9f |
-(* Hook for virt_top_calendar to override (if present). *)
|
|
|
fbac9f |
+(* Hook for [Opt_calendar] to override (if present). *)
|
|
|
fbac9f |
val parse_date_time : (string -> float) ref
|
|
|
fbac9f |
|
|
|
fbac9f |
type setup =
|
|
|
fbac9f |
--
|
|
|
59834e |
2.31.1
|
|
|
fbac9f |
|