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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
(* 'top'-like tool for libvirt domains.
(C) Copyright 2007-2009 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.
This file contains utility functions.
*)
open Printf
let (//) = Filename.concat
(* Int64 operators for convenience. *)
let (+^) = Int64.add
let (-^) = Int64.sub
let ( *^ ) = Int64.mul
let (/^) = Int64.div
(* failwithf is a printf-like version of failwith. *)
let failwithf fs = ksprintf failwith fs
let rec range a b =
if a <= b then
a :: range (a+1) b
else
[]
(* Input a whole file as a list of lines. *)
let input_all_lines chan =
let lines = ref [] in
(try
while true; do
lines := input_line chan :: !lines
done
with
End_of_file -> ());
List.rev !lines
(* Trim whitespace from the beginning and end of strings. *)
let isspace c =
c = ' '
(* || c = '\f' *) || c = '\n' || c = '\r' || c = '\t' (* || c = '\v' *)
let triml ?(test = isspace) str =
let i = ref 0 in
let n = ref (String.length str) in
while !n > 0 && test str.[!i]; do
decr n;
incr i
done;
if !i = 0 then str
else String.sub str !i !n
let trimr ?(test = isspace) str =
let n = ref (String.length str) in
while !n > 0 && test str.[!n-1]; do
decr n
done;
if !n = String.length str then str
else String.sub str 0 !n
let trim ?(test = isspace) str =
trimr (triml str)
(* Read a configuration file as a list of (key, value) pairs.
* If the config file is missing this returns an empty list.
*)
let blanks_and_comments = Str.regexp "^[ \t]*\\(#.*\\)?$"
let read_config_file filename =
let lines =
try
let chan = open_in filename in
let lines = input_all_lines chan in
close_in chan;
lines
with
Sys_error _ -> [] in (* Ignore errors opening file. *)
(* Line numbers. *)
let lines =
let i = ref 0 in List.map (fun line -> (incr i; !i), line) lines in
(* Remove blank lines and comment lines. *)
let lines =
List.filter
(fun (lineno, line) ->
not (Str.string_match blanks_and_comments line 0)) lines in
(* Convert to key, value pairs. *)
List.map (
fun (lineno, line) ->
let key, value = ExtString.String.split line " " in
lineno, trim key, trim value
) lines
(* Pad a string to the full width with spaces. If too long, truncate. *)
let pad width str =
if width <= 0 then ""
else (
let n = String.length str in
if n = width then str
else if n > width then String.sub str 0 width
else (* if n < width then *) str ^ String.make (width-n) ' '
)
module Show = struct
(* Show a percentage in 4 chars. *)
let percent percent =
if percent <= 0. then " 0.0"
else if percent <= 9.9 then sprintf " %1.1f" percent
else if percent <= 99.9 then sprintf "%2.1f" percent
else "100 "
(* Show an int64 option in 4 chars. *)
let rec int64_option = function
| None -> " "
| Some n -> int64 n
(* Show an int64 in 4 chars. *)
and int64 = function
| n when n < 0L -> "-!!!"
| n when n <= 9999L ->
sprintf "%4Ld" n
| n when n /^ 1024L <= 999L ->
sprintf "%3LdK" (n /^ 1024L)
| n when n /^ 1_048_576L <= 999L ->
sprintf "%3LdM" (n /^ 1_048_576L)
| n when n /^ 1_073_741_824L <= 999L ->
sprintf "%3LdG" (n /^ 1_073_741_824L)
| _ -> ">!!!"
(* Format the total time (may be large!) in 9 chars. *)
let time ns =
let secs_in_ns = 1_000_000_000L in
let mins_in_ns = 60_000_000_000L in
let hours_in_ns = 3_600_000_000_000L in
let hours = ns /^ hours_in_ns in
let ns = ns -^ (hours *^ hours_in_ns) in
let mins = ns /^ mins_in_ns in
let ns = ns -^ (mins *^ mins_in_ns) in
let secs = ns /^ secs_in_ns in
let ns = ns -^ (secs *^ secs_in_ns) in
let pennies = ns /^ 10_000_000L in
if hours < 12L then
sprintf "%3Ld:%02Ld.%02Ld" (hours *^ 60L +^ mins) secs pennies
else if hours <= 999L then
sprintf "%3Ld:%02Ld:%02Ld" hours mins secs
else (
let days = hours /^ 24L in
let hours = hours -^ (days *^ 24L) in
sprintf "%3Ldd%02Ld:%02Ld" days hours mins
)
end
|
