virt-top/virt_top_calendar2.ml

   1 (* 'top'-like tool for libvirt domains.
   2    (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
   3    http://libvirt.org/
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 2 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18
  19    This file contains all code which requires ocaml-calendar >= 2.0
  20 *)
  21
  22 open CalendarLib
  23
  24 open Printf
  25 open ExtString
  26
  27 open Virt_top_gettext.Gettext ;;
  28
  29 Virt_top.parse_date_time :=
  30 fun time ->
  31   let cal : Calendar.t =
  32     if String.starts_with time "+" then ( (* +something *)
  33       let period = String.sub time 1 (String.length time - 1) in
  34       let period =
  35         if String.contains period ':' then ( (* +HH:MM:SS *)
  36           let t = Printer.TimePrinter.from_string period in
  37           let hh = Time.hour t and mm = Time.minute t and ss = Time.second t in
  38           Calendar.Period.make 0 0 0 hh mm ss
  39         ) else                          (* +seconds *)
  40           Calendar.Period.second (int_of_string period) in
  41       (* Add it as an offset from the current time. *)
  42       Calendar.add (Calendar.now ()) period
  43     ) else (
  44       if String.contains time '-' then  (* YYYY-MM-DD HH:MM:SS *)
  45         Printer.CalendarPrinter.from_string time
  46       else (                            (* HH:MM:SS *)
  47         let time = Printer.TimePrinter.from_string time in
  48         Calendar.create (Date.today ()) time
  49       )
  50     ) in
  51
  52   eprintf "end time: %s\n" (Printer.CalendarPrinter.to_string cal);
  53
  54   (* Convert to a time_t, adjusting for the current timezone. *)
  55   fst (Unix.mktime (Calendar.to_unixtm cal))