X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-top%2Fvirt_top_utils.ml;h=f858e0e3be35b2b798e24b367440c307873896e1;hb=58ef9a58dae1516ea4d0efcdd1f35361e75f0362;hp=53c9bf1084d4d4b235019ee0000ad60f139978a7;hpb=3126bfee333b5c635dc60a54265936af06117f6a;p=virt-top.git

diff --git a/virt-top/virt_top_utils.ml b/virt-top/virt_top_utils.ml
old mode 100755
new mode 100644
index 53c9bf1..f858e0e
--- a/virt-top/virt_top_utils.ml
+++ b/virt-top/virt_top_utils.ml
@@ -1,5 +1,5 @@
 (* 'top'-like tool for libvirt domains.
-   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+   (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
@@ -21,6 +21,8 @@
 
 open Printf
 
+open Virt_top_gettext.Gettext
+
 module C = Libvirt.Connect
 module D = Libvirt.Domain
 module N = Libvirt.Network
@@ -33,6 +35,9 @@ let (-^) = Int64.sub
 let ( *^ ) = Int64.mul
 let (/^) = Int64.div
 
+(* failwithf is a printf-like version of failwith. *)
+let failwithf fs = ksprintf failwith fs
+
 (* Input a whole file as a list of lines. *)
 let input_all_lines chan =
   let lines = ref [] in