git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Internationalize virt-df program.
[virt-top.git]
/
virt-df
/
virt_df_linux_swap.ml
diff --git
a/virt-df/virt_df_linux_swap.ml
b/virt-df/virt_df_linux_swap.ml
old mode 100755
(executable)
new mode 100644
(file)
index
4638828
..
04e22b9
--- a/
virt-df/virt_df_linux_swap.ml
+++ b/
virt-df/virt_df_linux_swap.ml
@@
-20,6
+20,8
@@
Support for Linux swap partitions.
*)
Support for Linux swap partitions.
*)
+open Virt_df_gettext.Gettext
+
(* Int64 operators for convenience. *)
let (+^) = Int64.add
let (-^) = Int64.sub
(* Int64 operators for convenience. *)
let (+^) = Int64.add
let (-^) = Int64.sub
@@
-28,7
+30,7
@@
let (/^) = Int64.div
let probe_swap target part_type fd start size =
Virt_df.Swap {
let probe_swap target part_type fd start size =
Virt_df.Swap {
- Virt_df.swap_name = "Linux swap";
+ Virt_df.swap_name =
s_
"Linux swap";
swap_block_size = 4096L; (* XXX *)
swap_blocks_total = size *^ 512L /^ 4096L;
}
swap_block_size = 4096L; (* XXX *)
swap_blocks_total = size *^ 512L /^ 4096L;
}