diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2008-03-28 17:03:03 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2008-03-28 17:03:03 +0000 |
| commit | f4bba95a7a09519e8828a146dfd7cb57b7e7df73 (patch) | |
| tree | c9639b8d983a2d11dea2a05ba02e30e43dbfa535 /virt-ctrl/vc_dbus.ml | |
| parent | 7c5ff9eee393016f8aca13fd32e32977f512a65d (diff) | |
| download | virt-top-f4bba95a7a09519e8828a146dfd7cb57b7e7df73.tar.gz virt-top-f4bba95a7a09519e8828a146dfd7cb57b7e7df73.tar.xz virt-top-f4bba95a7a09519e8828a146dfd7cb57b7e7df73.zip | |
Internationalize virt-ctrl.
Diffstat (limited to 'virt-ctrl/vc_dbus.ml')
| -rw-r--r-- | virt-ctrl/vc_dbus.ml | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/virt-ctrl/vc_dbus.ml b/virt-ctrl/vc_dbus.ml index 278b1fc..82b66dd 100644 --- a/virt-ctrl/vc_dbus.ml +++ b/virt-ctrl/vc_dbus.ml @@ -39,6 +39,7 @@ *) open Printf +open Virt_ctrl_gettext.Gettext open DBus let debug = true @@ -120,7 +121,7 @@ let add_service bus err msg = Hashtbl.replace services name uri | _ -> - prerr_endline "warning: unexpected message contents of Found signal" + prerr_endline (s_ "warning: unexpected message contents of Found signal") (* Process an ItemRemove message, indicating that a service has * gone away. @@ -135,7 +136,8 @@ let remove_service bus err msg = Hashtbl.remove services name | _ -> - prerr_endline "warning: unexpected message contents of ItemRemove signal" + prerr_endline + (s_ "warning: unexpected message contents of ItemRemove signal") (* A service has appeared on the network. Resolve its IP address, etc. *) let start_resolve_service bus err sb_path msg = @@ -182,7 +184,8 @@ let start_resolve_service bus err sb_path msg = () | _ -> - prerr_endline "warning: unexpected message contents of ItemNew signal" + prerr_endline + (s_ "warning: unexpected message contents of ItemNew signal") (* This is called when we get a message/signal. Could be from the * (global) ServiceBrowser or any of the ServiceResolver objects. @@ -212,8 +215,10 @@ let got_message bus err sb_path msg = remove_service bus err msg | "org.freedesktop.DBus", _ -> () | interface, member -> - eprintf "warning: ignored unknown message %s from %s\n%!" - member interface + let () = + eprintf (f_ "warning: ignored unknown message %s from %s\n%!") + member interface in + () ); true @@ -230,7 +235,8 @@ let connect () = | None -> let err = Error.init () in let bus = Bus.get Bus.System err in - if Error.is_set err then failwith "error set after getting System bus"; + if Error.is_set err then + failwith (s_ "error set after getting System bus"); (* Create a new ServiceBrowser object which emits a signal whenever * a new network service of the type specified is found on the network. |