From: Richard W.M. Jones Date: Mon, 27 Mar 2017 11:41:21 +0000 (+0100) Subject: Remove support for OCaml Calendar v1. X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=61ded220af5511b6c164123e612e5650af8e49be;p=virt-top.git Remove support for OCaml Calendar v1. Calendar v2 was released in 2008 (9 years ago!), thus remove support for v1. This was already broken by commit dc0e217390132f7e76a4d9c0a8a81a9556d19081 so it likely didn't work anyway. --- diff --git a/MANIFEST b/MANIFEST index 2cf377f..26e87b2 100644 --- a/MANIFEST +++ b/MANIFEST @@ -55,8 +55,7 @@ src/.depend src/Makefile.in src/README src/main.ml -src/opt_calendar1.ml -src/opt_calendar2.ml +src/opt_calendar.ml src/opt_csv.ml src/opt_xml.ml src/top.ml diff --git a/configure.ac b/configure.ac index ad65465..c9c7e34 100644 --- a/configure.ac +++ b/configure.ac @@ -57,12 +57,7 @@ dnl Check for optional OCaml packages. AC_CHECK_OCAML_PKG(gettext) AC_CHECK_OCAML_PKG(xml-light) AC_CHECK_OCAML_PKG(csv) - -dnl Need to check which version of calendar is installed. AC_CHECK_OCAML_PKG(calendar) -if test "x$OCAML_PKG_calendar" != "xno"; then - AC_CHECK_OCAML_MODULE(is_calendar2,calendar,[CalendarLib.Date],[+$OCAML_PKG_calendar]) -fi AC_SUBST(OCAML_PKG_unix) AC_SUBST(OCAML_PKG_extlib) @@ -71,7 +66,6 @@ AC_SUBST(OCAML_PKG_gettext) AC_SUBST(OCAML_PKG_xml_light) AC_SUBST(OCAML_PKG_csv) AC_SUBST(OCAML_PKG_calendar) -AC_SUBST(is_calendar2) dnl Check for optional perldoc (for building manual pages). AC_CHECK_PROG(HAVE_PERLDOC,perldoc,perldoc) diff --git a/po/POTFILES b/po/POTFILES index 70d62d5..b826a2a 100644 --- a/po/POTFILES +++ b/po/POTFILES @@ -1,6 +1,5 @@ ../src/main.ml -../src/opt_calendar1.ml -../src/opt_calendar2.ml +../src/opt_calendar.ml ../src/opt_csv.ml ../src/opt_gettext.ml ../src/opt_xml.ml diff --git a/src/.depend b/src/.depend index 5325c54..f487c18 100644 --- a/src/.depend +++ b/src/.depend @@ -1,9 +1,7 @@ main.cmo: top.cmi opt_gettext.cmo main.cmx: top.cmx opt_gettext.cmx -opt_calendar1.cmo: top.cmi opt_gettext.cmo -opt_calendar1.cmx: top.cmx opt_gettext.cmx -opt_calendar2.cmo: top.cmi opt_gettext.cmo -opt_calendar2.cmx: top.cmx opt_gettext.cmx +opt_calendar.cmo: top.cmi opt_gettext.cmo +opt_calendar.cmx: top.cmx opt_gettext.cmx opt_csv.cmo: top.cmi opt_gettext.cmo opt_csv.cmx: top.cmx opt_gettext.cmx opt_gettext.cmo: diff --git a/src/Makefile.in b/src/Makefile.in index d744fd7..ae896cb 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -52,13 +52,8 @@ OBJS += opt_csv.cmo OCAMLCPACKAGES += -package csv endif ifneq ($(OCAML_PKG_calendar),no) -ifeq ($(is_calendar2),no) -OBJS += opt_calendar1.cmo +OBJS += opt_calendar.cmo OCAMLCPACKAGES += -package calendar -else -OBJS += opt_calendar2.cmo -OCAMLCPACKAGES += -package calendar -endif endif OBJS += main.cmo diff --git a/src/README b/src/README index 47382a5..8aa2348 100644 --- a/src/README +++ b/src/README @@ -40,16 +40,16 @@ The code is structured into these files: Any code which needs the optional ocaml-csv library goes in here. This implements the --csv command line option. - opt_calendar1.ml, opt_calendar2.ml + opt_calendar.ml Any code which needs the optional ocaml-calendar library - (v1 or v2) goes in here. This implements the --end-time - command line option. + (v2) goes in here. This implements the --end-time command + line option. main.ml This is just a small bit of code to glue the modules together - Top + Opt_xml? + Opt_csv? + Opt_calendar{1,2}? + Top + Opt_xml? + Opt_csv? + Opt_calendar? The man-page is generated from the single file: diff --git a/src/opt_calendar2.ml b/src/opt_calendar.ml similarity index 100% rename from src/opt_calendar2.ml rename to src/opt_calendar.ml diff --git a/src/opt_calendar1.ml b/src/opt_calendar1.ml deleted file mode 100644 index 2c459fe..0000000 --- a/src/opt_calendar1.ml +++ /dev/null @@ -1,56 +0,0 @@ -(* 'top'-like tool for libvirt domains. - (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 - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - - This file contains all code which requires ocaml-calendar < 2.0 -*) - -open Printf -open ExtString - -open Opt_gettext.Gettext ;; - -Top.parse_date_time := -fun time -> - let cal : Calendar.t = - if String.starts_with time "+" then ( (* +something *) - let period = String.sub time 1 (String.length time - 1) in - let period = - if String.contains period ':' then ( (* +HH:MM:SS *) - let t = Printer.TimePrinter.from_string period in - let hh = Time.hour t and mm = Time.minute t and ss = Time.second t in - Calendar.Period.make 0 0 0 hh mm ss - ) else (* +seconds *) - Calendar.Period.second (int_of_string period) in - (* Add it as an offset from the current time. *) - Calendar.add (Calendar.now ()) period - ) else ( - if String.contains time '-' then (* YYYY-MM-DD HH:MM:SS *) - Printer.CalendarPrinter.from_string time - else ( (* HH:MM:SS *) - let time = Printer.TimePrinter.from_string time in - Calendar.create (Date.today ()) time - ) - ) in - - eprintf "end time: %s\n" (Printer.CalendarPrinter.to_string cal); - - (* Convert to a time_t. Note that we compare this against - * Unix.gettimeofday in the main module, so this must be returned as - * plain seconds from 1970 with no timezone adjustment. (RHBZ#637964) - *) - Calendar.to_unixfloat cal