src/opt_calendar1.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 Printf
  23 open ExtString
  24
  25 open Opt_gettext.Gettext ;;
  26
  27 Top.parse_date_time :=
  28 fun time ->
  29   let cal : Calendar.t =
  30     if String.starts_with time "+" then ( (* +something *)
  31       let period = String.sub time 1 (String.length time - 1) in
  32       let period =
  33         if String.contains period ':' then ( (* +HH:MM:SS *)
  34           let t = Printer.TimePrinter.from_string period in
  35           let hh = Time.hour t and mm = Time.minute t and ss = Time.second t in
  36           Calendar.Period.make 0 0 0 hh mm ss
  37         ) else                          (* +seconds *)
  38           Calendar.Period.second (int_of_string period) in
  39       (* Add it as an offset from the current time. *)
  40       Calendar.add (Calendar.now ()) period
  41     ) else (
  42       if String.contains time '-' then  (* YYYY-MM-DD HH:MM:SS *)
  43         Printer.CalendarPrinter.from_string time
  44       else (                            (* HH:MM:SS *)
  45         let time = Printer.TimePrinter.from_string time in
  46         Calendar.create (Date.today ()) time
  47       )
  48     ) in
  49
  50   eprintf "end time: %s\n" (Printer.CalendarPrinter.to_string cal);
  51
  52   (* Convert to a time_t.  Note that we compare this against
  53    * Unix.gettimeofday in the main module, so this must be returned as
  54    * plain seconds from 1970 with no timezone adjustment.  (RHBZ#637964)
  55    *)
  56   Calendar.to_unixfloat cal