|
 |
3c50ef |
From b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c Mon Sep 17 00:00:00 2001
|
|
|
3c50ef |
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
|
3c50ef |
Date: Mon, 31 Oct 2016 12:01:40 +0000
|
|
|
3c50ef |
Subject: [PATCH 05/17] Rename source directory and files.
|
|
|
3c50ef |
|
|
|
3c50ef |
This renames the source directory from virt-top to src/ and removes
|
|
|
3c50ef |
the unnecessary virt_top_* prefix from many source files.
|
|
|
3c50ef |
|
|
|
3c50ef |
This is entirely refactoring and makes no functional change.
|
|
|
3c50ef |
|
|
|
3c50ef |
Also this fixes the MANIFEST file and removes old Transifex
|
|
|
3c50ef |
configuration, fixing commit defe5bdd4a32e0206a786d279e0f9cfc238e5e17.
|
|
|
3c50ef |
---
|
|
|
3c50ef |
.gitignore | 72 +++++++++-------------
|
|
|
3c50ef |
.tx/config | 8 ---
|
|
|
3c50ef |
ChangeLog | 30 +++++++++
|
|
|
3c50ef |
MANIFEST | 41 +++++++-----
|
|
|
3c50ef |
Makefile.in | 15 ++---
|
|
|
3c50ef |
README | 2 +-
|
|
|
3c50ef |
configure.ac | 29 ++++-----
|
|
|
3c50ef |
src/.depend | 20 ++++++
|
|
|
3c50ef |
{virt-top => src}/Makefile.in | 18 +++---
|
|
|
3c50ef |
{virt-top => src}/README | 22 ++++---
|
|
|
3c50ef |
virt-top/virt_top_main.ml => src/main.ml | 4 +-
|
|
|
3c50ef |
.../virt_top_calendar1.ml => src/opt_calendar1.ml | 4 +-
|
|
|
3c50ef |
.../virt_top_calendar2.ml => src/opt_calendar2.ml | 4 +-
|
|
|
3c50ef |
virt-top/virt_top_csv.ml => src/opt_csv.ml | 6 +-
|
|
|
3c50ef |
virt-top/virt_top_xml.ml => src/opt_xml.ml | 4 +-
|
|
|
3c50ef |
virt-top/virt_top.ml => src/top.ml | 8 +--
|
|
|
3c50ef |
virt-top/virt_top.mli => src/top.mli | 0
|
|
|
3c50ef |
virt-top/virt_top_utils.ml => src/utils.ml | 2 +-
|
|
|
3c50ef |
virt-top/virt_top_utils.mli => src/utils.mli | 0
|
|
|
3c50ef |
.../virt_top_version.ml.in => src/version.ml.in | 0
|
|
|
3c50ef |
{virt-top => src}/virt-top.pod | 0
|
|
|
3c50ef |
virt-top/.depend | 20 ------
|
|
|
3c50ef |
22 files changed, 163 insertions(+), 146 deletions(-)
|
|
|
3c50ef |
delete mode 100644 .tx/config
|
|
|
3c50ef |
create mode 100644 src/.depend
|
|
|
3c50ef |
rename {virt-top => src}/Makefile.in (91%)
|
|
|
3c50ef |
rename {virt-top => src}/README (77%)
|
|
|
3c50ef |
rename virt-top/virt_top_main.ml => src/main.ml (98%)
|
|
|
3c50ef |
rename virt-top/virt_top_calendar1.ml => src/opt_calendar1.ml (97%)
|
|
|
3c50ef |
rename virt-top/virt_top_calendar2.ml => src/opt_calendar2.ml (97%)
|
|
|
3c50ef |
rename virt-top/virt_top_csv.ml => src/opt_csv.ml (94%)
|
|
|
3c50ef |
rename virt-top/virt_top_xml.ml => src/opt_xml.ml (97%)
|
|
|
3c50ef |
rename virt-top/virt_top.ml => src/top.ml (99%)
|
|
|
3c50ef |
rename virt-top/virt_top.mli => src/top.mli (100%)
|
|
|
3c50ef |
rename virt-top/virt_top_utils.ml => src/utils.ml (99%)
|
|
|
3c50ef |
rename virt-top/virt_top_utils.mli => src/utils.mli (100%)
|
|
|
3c50ef |
rename virt-top/virt_top_version.ml.in => src/version.ml.in (100%)
|
|
|
3c50ef |
rename {virt-top => src}/virt-top.pod (100%)
|
|
|
3c50ef |
delete mode 100644 virt-top/.depend
|
|
|
3c50ef |
|
|
|
3c50ef |
diff --git a/.gitignore b/.gitignore
|
|
|
3c50ef |
index d08e9e2..e3f77e7 100644
|
|
|
3c50ef |
--- a/.gitignore
|
|
|
3c50ef |
+++ b/.gitignore
|
|
|
3c50ef |
@@ -1,50 +1,36 @@
|
|
|
3c50ef |
-aclocal.m4
|
|
|
3c50ef |
-META
|
|
|
3c50ef |
-ocaml-libvirt-*.tar.gz
|
|
|
3c50ef |
-ocaml-libvirt-*.exe
|
|
|
3c50ef |
-html
|
|
|
3c50ef |
-configure
|
|
|
3c50ef |
-config.log
|
|
|
3c50ef |
-config.status
|
|
|
3c50ef |
-config.h
|
|
|
3c50ef |
-config.cache
|
|
|
3c50ef |
-Makefile
|
|
|
3c50ef |
-Make.rules
|
|
|
3c50ef |
-*/Makefile
|
|
|
3c50ef |
-autom4te.cache
|
|
|
3c50ef |
-core
|
|
|
3c50ef |
-core.*
|
|
|
3c50ef |
+*.a
|
|
|
3c50ef |
+*.cma
|
|
|
3c50ef |
*.cmi
|
|
|
3c50ef |
*.cmo
|
|
|
3c50ef |
*.cmx
|
|
|
3c50ef |
-*.cma
|
|
|
3c50ef |
*.cmxa
|
|
|
3c50ef |
-*.o
|
|
|
3c50ef |
-*.so
|
|
|
3c50ef |
-*.a
|
|
|
3c50ef |
-*.opt
|
|
|
3c50ef |
*.dll
|
|
|
3c50ef |
*.exe
|
|
|
3c50ef |
-*~
|
|
|
3c50ef |
-libvirt/libvirt_version.ml
|
|
|
3c50ef |
-examples/list_domains
|
|
|
3c50ef |
-examples/node_info
|
|
|
3c50ef |
-mlvirsh/mlvirsh
|
|
|
3c50ef |
-virt-ctrl/virt-ctrl
|
|
|
3c50ef |
-virt-top/virt-top
|
|
|
3c50ef |
-virt-df/virt-df
|
|
|
3c50ef |
-wininstaller.nsis
|
|
|
3c50ef |
+*.o
|
|
|
3c50ef |
+*.opt
|
|
|
3c50ef |
*.orig
|
|
|
3c50ef |
-mlvirsh/mlvirsh_gettext.ml
|
|
|
3c50ef |
-virt-ctrl/virt_ctrl_gettext.ml
|
|
|
3c50ef |
-virt-df/virt_df_gettext.ml
|
|
|
3c50ef |
-virt-top/virt_top_gettext.ml
|
|
|
3c50ef |
-virt-top/virt_top_version.ml
|
|
|
3c50ef |
-po/*.mo
|
|
|
3c50ef |
-po/*.po.bak
|
|
|
3c50ef |
-virt-df/virt_df_lvm2_lexer.ml
|
|
|
3c50ef |
-virt-df/virt_df_lvm2_parser.ml
|
|
|
3c50ef |
-virt-df/virt_df_lvm2_parser.mli
|
|
|
3c50ef |
-virt-top-*.tar.gz
|
|
|
3c50ef |
-virt-top/virt-top.1
|
|
|
3c50ef |
-virt-top/virt-top.txt
|
|
|
3c50ef |
\ No newline at end of file
|
|
|
3c50ef |
+*.so
|
|
|
3c50ef |
+*~
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+META
|
|
|
3c50ef |
+Makefile
|
|
|
3c50ef |
+aclocal.m4
|
|
|
3c50ef |
+config.cache
|
|
|
3c50ef |
+config.h
|
|
|
3c50ef |
+config.log
|
|
|
3c50ef |
+config.status
|
|
|
3c50ef |
+configure
|
|
|
3c50ef |
+core
|
|
|
3c50ef |
+core.*
|
|
|
3c50ef |
+html
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+/Make.rules
|
|
|
3c50ef |
+/autom4te.cache
|
|
|
3c50ef |
+/po/*.mo
|
|
|
3c50ef |
+/po/*.po.bak
|
|
|
3c50ef |
+/src/opt_gettext.ml
|
|
|
3c50ef |
+/src/version.ml
|
|
|
3c50ef |
+/src/virt-top
|
|
|
3c50ef |
+/src/virt-top.1
|
|
|
3c50ef |
+/src/virt-top.txt
|
|
|
3c50ef |
+/virt-top-*.tar.gz
|
|
|
3c50ef |
diff --git a/.tx/config b/.tx/config
|
|
|
3c50ef |
deleted file mode 100644
|
|
|
3c50ef |
index 3e17770..0000000
|
|
|
3c50ef |
--- a/.tx/config
|
|
|
3c50ef |
+++ /dev/null
|
|
|
3c50ef |
@@ -1,8 +0,0 @@
|
|
|
3c50ef |
-[main]
|
|
|
3c50ef |
-host = https://www.transifex.net
|
|
|
3c50ef |
-
|
|
|
3c50ef |
-[virttop.virttoppot]
|
|
|
3c50ef |
-file_filter = po/<lang>.po
|
|
|
3c50ef |
-source_file = po/virt-top.pot
|
|
|
3c50ef |
-source_lang = en
|
|
|
3c50ef |
-
|
|
|
3c50ef |
diff --git a/ChangeLog b/ChangeLog
|
|
|
3c50ef |
index 8daca45..1b3999a 100644
|
|
|
3c50ef |
--- a/ChangeLog
|
|
|
3c50ef |
+++ b/ChangeLog
|
|
|
3c50ef |
@@ -1,3 +1,33 @@
|
|
|
3c50ef |
+2016-10-31 Richard W.M. Jones <rjones@redhat.com>
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ Rename source directory and files.
|
|
|
3c50ef |
+ This renames the source directory from virt-top to src/ and removes
|
|
|
3c50ef |
+ the unnecessary virt_top_* prefix from many source files.
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ This is entirely refactoring and makes no functional change.
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ Also this fixes the MANIFEST file and removes old Transifex
|
|
|
3c50ef |
+ configuration, fixing commit defe5bdd4a32e0206a786d279e0f9cfc238e5e17.
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+2016-01-04 Richard W.M. Jones <rjones@redhat.com>
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ build: Add -g flag to ocamlopt.
|
|
|
3c50ef |
+ Modern ocamlopt supports the -g flag fine (very old versions did not).
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+2015-02-21 Richard W.M. Jones <rjones@redhat.com>
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ Update translations from Zanata.
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ Move upstream translations from Tranifex to Zanata.
|
|
|
3c50ef |
+ This is at the request of the Fedora localization team.
|
|
|
3c50ef |
+ For further information see:
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ https://www.redhat.com/archives/libguestfs/2015-February/msg00168.html
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+2014-08-02 Richard W.M. Jones <rjones@redhat.com>
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ Disable warning about immutable strings (for OCaml 4.02).
|
|
|
3c50ef |
+
|
|
|
3c50ef |
2012-10-12 Richard W.M. Jones <rjones@redhat.com>
|
|
|
3c50ef |
|
|
|
3c50ef |
Version 1.0.8.
|
|
|
3c50ef |
diff --git a/MANIFEST b/MANIFEST
|
|
|
3c50ef |
index c5958d7..2cf377f 100644
|
|
|
3c50ef |
--- a/MANIFEST
|
|
|
3c50ef |
+++ b/MANIFEST
|
|
|
3c50ef |
@@ -14,12 +14,17 @@ Make.rules.in
|
|
|
3c50ef |
MANIFEST
|
|
|
3c50ef |
m4/ocaml.m4
|
|
|
3c50ef |
po/as.po
|
|
|
3c50ef |
+po/ca.po
|
|
|
3c50ef |
po/de.po
|
|
|
3c50ef |
po/es.po
|
|
|
3c50ef |
+po/eu.po
|
|
|
3c50ef |
po/fr.po
|
|
|
3c50ef |
po/gu.po
|
|
|
3c50ef |
+po/hu.po
|
|
|
3c50ef |
+po/id.po
|
|
|
3c50ef |
po/it.po
|
|
|
3c50ef |
po/ja.po
|
|
|
3c50ef |
+po/ka.po
|
|
|
3c50ef |
po/kn.po
|
|
|
3c50ef |
po/LINGUAS
|
|
|
3c50ef |
po/Makefile.in
|
|
|
3c50ef |
@@ -27,30 +32,36 @@ po/ml.po
|
|
|
3c50ef |
po/mr.po
|
|
|
3c50ef |
po/nl.po
|
|
|
3c50ef |
po/or.po
|
|
|
3c50ef |
+po/pa.po
|
|
|
3c50ef |
po/pl.po
|
|
|
3c50ef |
po/pt_BR.po
|
|
|
3c50ef |
po/pt.po
|
|
|
3c50ef |
po/POTFILES
|
|
|
3c50ef |
po/ru.po
|
|
|
3c50ef |
+po/sr.po
|
|
|
3c50ef |
+po/sv.po
|
|
|
3c50ef |
po/te.po
|
|
|
3c50ef |
+po/tg.po
|
|
|
3c50ef |
+po/tr.po
|
|
|
3c50ef |
po/uk.po
|
|
|
3c50ef |
po/virt-top.pot
|
|
|
3c50ef |
+po/zanata-pull.sh
|
|
|
3c50ef |
+po/zanata.xml
|
|
|
3c50ef |
po/zh_CN.po
|
|
|
3c50ef |
po/zh_TW.po
|
|
|
3c50ef |
README
|
|
|
3c50ef |
TODO
|
|
|
3c50ef |
-.tx/config
|
|
|
3c50ef |
-virt-top/.depend
|
|
|
3c50ef |
-virt-top/Makefile.in
|
|
|
3c50ef |
-virt-top/README
|
|
|
3c50ef |
-virt-top/virt-top.pod
|
|
|
3c50ef |
-virt-top/virt_top.ml
|
|
|
3c50ef |
-virt-top/virt_top.mli
|
|
|
3c50ef |
-virt-top/virt_top_calendar1.ml
|
|
|
3c50ef |
-virt-top/virt_top_calendar2.ml
|
|
|
3c50ef |
-virt-top/virt_top_csv.ml
|
|
|
3c50ef |
-virt-top/virt_top_main.ml
|
|
|
3c50ef |
-virt-top/virt_top_utils.ml
|
|
|
3c50ef |
-virt-top/virt_top_utils.mli
|
|
|
3c50ef |
-virt-top/virt_top_version.ml.in
|
|
|
3c50ef |
-virt-top/virt_top_xml.ml
|
|
|
3c50ef |
+src/.depend
|
|
|
3c50ef |
+src/Makefile.in
|
|
|
3c50ef |
+src/README
|
|
|
3c50ef |
+src/main.ml
|
|
|
3c50ef |
+src/opt_calendar1.ml
|
|
|
3c50ef |
+src/opt_calendar2.ml
|
|
|
3c50ef |
+src/opt_csv.ml
|
|
|
3c50ef |
+src/opt_xml.ml
|
|
|
3c50ef |
+src/top.ml
|
|
|
3c50ef |
+src/top.mli
|
|
|
3c50ef |
+src/utils.ml
|
|
|
3c50ef |
+src/utils.mli
|
|
|
3c50ef |
+src/version.ml.in
|
|
|
3c50ef |
+src/virt-top.pod
|
|
|
3c50ef |
diff --git a/Makefile.in b/Makefile.in
|
|
|
3c50ef |
index b310e58..d0aec17 100644
|
|
|
3c50ef |
--- a/Makefile.in
|
|
|
3c50ef |
+++ b/Makefile.in
|
|
|
3c50ef |
@@ -22,25 +22,22 @@ INSTALL = @INSTALL@
|
|
|
3c50ef |
|
|
|
3c50ef |
MAKENSIS = @MAKENSIS@
|
|
|
3c50ef |
|
|
|
3c50ef |
-SUBDIRS = virt-top
|
|
|
3c50ef |
+SUBDIRS = src
|
|
|
3c50ef |
|
|
|
3c50ef |
all opt depend install:
|
|
|
3c50ef |
- for d in $(SUBDIRS); do \
|
|
|
3c50ef |
- $(MAKE) -C $$d $@; \
|
|
|
3c50ef |
- if [ $$? -ne 0 ]; then exit 1; fi; \
|
|
|
3c50ef |
- done
|
|
|
3c50ef |
+ $(MAKE) -C src $@
|
|
|
3c50ef |
|
|
|
3c50ef |
clean:
|
|
|
3c50ef |
for d in . $(SUBDIRS); do \
|
|
|
3c50ef |
(cd $$d; rm -f *.cmi *.cmo *.cmx *.cma *.cmxa *.o *.a *.so *.opt *~ *.dll *.exe core); \
|
|
|
3c50ef |
done
|
|
|
3c50ef |
- rm -f virt-top/virt-top
|
|
|
3c50ef |
+ rm -f src/virt-top
|
|
|
3c50ef |
|
|
|
3c50ef |
distclean: clean
|
|
|
3c50ef |
rm -f config.h config.log config.status configure
|
|
|
3c50ef |
rm -rf autom4te.cache
|
|
|
3c50ef |
rm -f Makefile
|
|
|
3c50ef |
- rm -f virt-top/Makefile
|
|
|
3c50ef |
+ rm -f src/Makefile
|
|
|
3c50ef |
|
|
|
3c50ef |
# Distribution.
|
|
|
3c50ef |
|
|
|
3c50ef |
@@ -51,8 +48,8 @@ dist: ChangeLog
|
|
|
3c50ef |
tar -cf - -T MANIFEST | tar -C $(PACKAGE)-$(VERSION) -xf -
|
|
|
3c50ef |
$(INSTALL) -m 0755 configure $(PACKAGE)-$(VERSION)/
|
|
|
3c50ef |
$(INSTALL) -m 0644 aclocal.m4 $(PACKAGE)-$(VERSION)/
|
|
|
3c50ef |
- $(INSTALL) -m 0644 virt-top/virt-top.1 $(PACKAGE)-$(VERSION)/virt-top/
|
|
|
3c50ef |
- $(INSTALL) -m 0644 virt-top/virt-top.txt $(PACKAGE)-$(VERSION)/virt-top/
|
|
|
3c50ef |
+ $(INSTALL) -m 0644 src/virt-top.1 $(PACKAGE)-$(VERSION)/src/
|
|
|
3c50ef |
+ $(INSTALL) -m 0644 src/virt-top.txt $(PACKAGE)-$(VERSION)/src/
|
|
|
3c50ef |
tar zcf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
|
|
|
3c50ef |
rm -rf $(PACKAGE)-$(VERSION)
|
|
|
3c50ef |
ls -l $(PACKAGE)-$(VERSION).tar.gz
|
|
|
3c50ef |
diff --git a/README b/README
|
|
|
3c50ef |
index 5a8bc87..d97fa62 100644
|
|
|
3c50ef |
--- a/README
|
|
|
3c50ef |
+++ b/README
|
|
|
3c50ef |
@@ -1,7 +1,7 @@
|
|
|
3c50ef |
virt-top
|
|
|
3c50ef |
----------------------------------------------------------------------
|
|
|
3c50ef |
|
|
|
3c50ef |
-Copyright (C) 2007-2012 Richard W.M. Jones, Red Hat Inc.
|
|
|
3c50ef |
+Copyright (C) 2007-2016 Richard W.M. Jones, Red Hat Inc.
|
|
|
3c50ef |
http://et.redhat.com/~rjones/virt-top/
|
|
|
3c50ef |
http://libvirt.org/ocaml/
|
|
|
3c50ef |
http://libvirt.org/
|
|
|
3c50ef |
diff --git a/configure.ac b/configure.ac
|
|
|
3c50ef |
index 0d41cda..ad65465 100644
|
|
|
3c50ef |
--- a/configure.ac
|
|
|
3c50ef |
+++ b/configure.ac
|
|
|
3c50ef |
@@ -84,26 +84,24 @@ AC_CHECK_PROG(MSGFMT,msgfmt,msgfmt)
|
|
|
3c50ef |
|
|
|
3c50ef |
dnl Write gettext modules for the programs.
|
|
|
3c50ef |
dnl http://www.le-gall.net/sylvain+violaine/documentation/ocaml-gettext/html/reference-manual/ch03s04.html
|
|
|
3c50ef |
-for d in virt-top; do
|
|
|
3c50ef |
- f=`echo $d | tr - _`_gettext.ml
|
|
|
3c50ef |
- AC_MSG_NOTICE([creating $d/$f])
|
|
|
3c50ef |
- rm -f $d/$f
|
|
|
3c50ef |
- echo "(* This file is generated automatically by ./configure. *)" > $d/$f
|
|
|
3c50ef |
- if test "x$OCAML_PKG_gettext" != "xno"; then
|
|
|
3c50ef |
- # Gettext module is available, so use it.
|
|
|
3c50ef |
- cat <<EOT >>$d/$f
|
|
|
3c50ef |
+AC_MSG_NOTICE([creating src/opt_gettext.ml])
|
|
|
3c50ef |
+rm -f src/opt_gettext.ml
|
|
|
3c50ef |
+echo "(* This file is generated automatically by ./configure. *)" > src/opt_gettext.ml
|
|
|
3c50ef |
+if test "x$OCAML_PKG_gettext" != "xno"; then
|
|
|
3c50ef |
+ # Gettext module is available, so use it.
|
|
|
3c50ef |
+ cat <<EOT >>src/opt_gettext.ml
|
|
|
3c50ef |
module Gettext = Gettext.Program (
|
|
|
3c50ef |
struct
|
|
|
3c50ef |
- let textdomain = "$d"
|
|
|
3c50ef |
+ let textdomain = "virt-top"
|
|
|
3c50ef |
let codeset = None
|
|
|
3c50ef |
let dir = None
|
|
|
3c50ef |
let dependencies = [[]]
|
|
|
3c50ef |
end
|
|
|
3c50ef |
) (GettextStub.Native)
|
|
|
3c50ef |
EOT
|
|
|
3c50ef |
- else
|
|
|
3c50ef |
- # No gettext module is available, so fake the translation functions.
|
|
|
3c50ef |
- cat <<EOT >>$d/$f
|
|
|
3c50ef |
+else
|
|
|
3c50ef |
+ # No gettext module is available, so fake the translation functions.
|
|
|
3c50ef |
+ cat <<EOT >>src/opt_gettext.ml
|
|
|
3c50ef |
module Gettext = struct
|
|
|
3c50ef |
external s_ : string -> string = "%identity"
|
|
|
3c50ef |
external f_ : ('a -> 'b, 'c, 'd) format -> ('a -> 'b, 'c, 'd) format
|
|
|
3c50ef |
@@ -115,8 +113,7 @@ module Gettext = struct
|
|
|
3c50ef |
= fun s p n -> if n = 1 then s else p
|
|
|
3c50ef |
end
|
|
|
3c50ef |
EOT
|
|
|
3c50ef |
- fi
|
|
|
3c50ef |
-done
|
|
|
3c50ef |
+fi
|
|
|
3c50ef |
|
|
|
3c50ef |
dnl Summary.
|
|
|
3c50ef |
echo "------------------------------------------------------------"
|
|
|
3c50ef |
@@ -128,7 +125,7 @@ AC_CONFIG_HEADERS([config.h])
|
|
|
3c50ef |
AC_CONFIG_FILES([Makefile
|
|
|
3c50ef |
Make.rules
|
|
|
3c50ef |
po/Makefile
|
|
|
3c50ef |
- virt-top/Makefile
|
|
|
3c50ef |
- virt-top/virt_top_version.ml
|
|
|
3c50ef |
+ src/Makefile
|
|
|
3c50ef |
+ src/version.ml
|
|
|
3c50ef |
])
|
|
|
3c50ef |
AC_OUTPUT
|
|
|
3c50ef |
diff --git a/src/.depend b/src/.depend
|
|
|
3c50ef |
new file mode 100644
|
|
|
3c50ef |
index 0000000..5325c54
|
|
|
3c50ef |
--- /dev/null
|
|
|
3c50ef |
+++ b/src/.depend
|
|
|
3c50ef |
@@ -0,0 +1,20 @@
|
|
|
3c50ef |
+main.cmo: top.cmi opt_gettext.cmo
|
|
|
3c50ef |
+main.cmx: top.cmx opt_gettext.cmx
|
|
|
3c50ef |
+opt_calendar1.cmo: top.cmi opt_gettext.cmo
|
|
|
3c50ef |
+opt_calendar1.cmx: top.cmx opt_gettext.cmx
|
|
|
3c50ef |
+opt_calendar2.cmo: top.cmi opt_gettext.cmo
|
|
|
3c50ef |
+opt_calendar2.cmx: top.cmx opt_gettext.cmx
|
|
|
3c50ef |
+opt_csv.cmo: top.cmi opt_gettext.cmo
|
|
|
3c50ef |
+opt_csv.cmx: top.cmx opt_gettext.cmx
|
|
|
3c50ef |
+opt_gettext.cmo:
|
|
|
3c50ef |
+opt_gettext.cmx:
|
|
|
3c50ef |
+opt_xml.cmo: top.cmi opt_gettext.cmo
|
|
|
3c50ef |
+opt_xml.cmx: top.cmx opt_gettext.cmx
|
|
|
3c50ef |
+top.cmi:
|
|
|
3c50ef |
+top.cmo: version.cmo utils.cmi opt_gettext.cmo top.cmi
|
|
|
3c50ef |
+top.cmx: version.cmx utils.cmx opt_gettext.cmx top.cmi
|
|
|
3c50ef |
+utils.cmi:
|
|
|
3c50ef |
+utils.cmo: opt_gettext.cmo utils.cmi
|
|
|
3c50ef |
+utils.cmx: opt_gettext.cmx utils.cmi
|
|
|
3c50ef |
+version.cmo:
|
|
|
3c50ef |
+version.cmx:
|
|
|
3c50ef |
diff --git a/virt-top/Makefile.in b/src/Makefile.in
|
|
|
3c50ef |
similarity index 91%
|
|
|
3c50ef |
rename from virt-top/Makefile.in
|
|
|
3c50ef |
rename to src/Makefile.in
|
|
|
3c50ef |
index e149b26..d29f2e8 100755
|
|
|
3c50ef |
--- a/virt-top/Makefile.in
|
|
|
3c50ef |
+++ b/src/Makefile.in
|
|
|
3c50ef |
@@ -39,28 +39,28 @@ OCAMLCPACKAGES += -package gettext-stub
|
|
|
3c50ef |
endif
|
|
|
3c50ef |
|
|
|
3c50ef |
OBJS := \
|
|
|
3c50ef |
- virt_top_version.cmo \
|
|
|
3c50ef |
- virt_top_gettext.cmo \
|
|
|
3c50ef |
- virt_top_utils.cmo \
|
|
|
3c50ef |
- virt_top.cmo
|
|
|
3c50ef |
+ version.cmo \
|
|
|
3c50ef |
+ opt_gettext.cmo \
|
|
|
3c50ef |
+ utils.cmo \
|
|
|
3c50ef |
+ top.cmo
|
|
|
3c50ef |
ifneq ($(OCAML_PKG_xml_light),no)
|
|
|
3c50ef |
-OBJS += virt_top_xml.cmo
|
|
|
3c50ef |
+OBJS += opt_xml.cmo
|
|
|
3c50ef |
OCAMLCPACKAGES += -package xml-light
|
|
|
3c50ef |
endif
|
|
|
3c50ef |
ifneq ($(OCAML_PKG_csv),no)
|
|
|
3c50ef |
-OBJS += virt_top_csv.cmo
|
|
|
3c50ef |
+OBJS += opt_csv.cmo
|
|
|
3c50ef |
OCAMLCPACKAGES += -package csv
|
|
|
3c50ef |
endif
|
|
|
3c50ef |
ifneq ($(OCAML_PKG_calendar),no)
|
|
|
3c50ef |
ifeq ($(is_calendar2),no)
|
|
|
3c50ef |
-OBJS += virt_top_calendar1.cmo
|
|
|
3c50ef |
+OBJS += opt_calendar1.cmo
|
|
|
3c50ef |
OCAMLCPACKAGES += -package calendar
|
|
|
3c50ef |
else
|
|
|
3c50ef |
-OBJS += virt_top_calendar2.cmo
|
|
|
3c50ef |
+OBJS += opt_calendar2.cmo
|
|
|
3c50ef |
OCAMLCPACKAGES += -package calendar
|
|
|
3c50ef |
endif
|
|
|
3c50ef |
endif
|
|
|
3c50ef |
-OBJS += virt_top_main.cmo
|
|
|
3c50ef |
+OBJS += main.cmo
|
|
|
3c50ef |
|
|
|
3c50ef |
XOBJS := $(OBJS:.cmo=.cmx)
|
|
|
3c50ef |
|
|
|
3c50ef |
diff --git a/virt-top/README b/src/README
|
|
|
3c50ef |
similarity index 77%
|
|
|
3c50ef |
rename from virt-top/README
|
|
|
3c50ef |
rename to src/README
|
|
|
3c50ef |
index b594f95..47382a5 100755
|
|
|
3c50ef |
--- a/virt-top/README
|
|
|
3c50ef |
+++ b/src/README
|
|
|
3c50ef |
@@ -1,11 +1,11 @@
|
|
|
3c50ef |
The code is structured into these files:
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top_utils.mli / virt_top_utils.ml
|
|
|
3c50ef |
+ utils.mli, utils.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
String functions and other small utility functions. This is
|
|
|
3c50ef |
included directly into virt_top.ml.
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top.mli / virt_top.ml
|
|
|
3c50ef |
+ top.mli, top.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
This is the virt-top program.
|
|
|
3c50ef |
|
|
|
3c50ef |
@@ -22,7 +22,11 @@ The code is structured into these files:
|
|
|
3c50ef |
The function 'main_loop' runs the main loop and has sub-functions
|
|
|
3c50ef |
to deal with keypresses, help screens and so on.
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top_xml.ml
|
|
|
3c50ef |
+ opt_gettext.ml
|
|
|
3c50ef |
+ A generated file which adds gettext support if ocaml-gettext
|
|
|
3c50ef |
+ was found at configure time, or else stubs it out.
|
|
|
3c50ef |
+
|
|
|
3c50ef |
+ opt_xml.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
Any code which needs the optional xml-light library goes
|
|
|
3c50ef |
in here. Mainly for parsing domain XML descriptions to get
|
|
|
3c50ef |
@@ -31,21 +35,21 @@ The code is structured into these files:
|
|
|
3c50ef |
The reason for having it in a separate file is so that we
|
|
|
3c50ef |
don't depend on xml-light.
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top_csv.ml
|
|
|
3c50ef |
+ opt_csv.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
Any code which needs the optional ocaml-csv library goes
|
|
|
3c50ef |
in here. This implements the --csv command line option.
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top_calendar.ml
|
|
|
3c50ef |
+ opt_calendar1.ml, opt_calendar2.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
Any code which needs the optional ocaml-calendar library
|
|
|
3c50ef |
- goes in here. This implements the --end-time command line
|
|
|
3c50ef |
- option.
|
|
|
3c50ef |
+ (v1 or v2) goes in here. This implements the --end-time
|
|
|
3c50ef |
+ command line option.
|
|
|
3c50ef |
|
|
|
3c50ef |
- virt_top_main.ml
|
|
|
3c50ef |
+ main.ml
|
|
|
3c50ef |
|
|
|
3c50ef |
This is just a small bit of code to glue the modules together
|
|
|
3c50ef |
- Virt_top + Virt_top_xml? + Virt_top_csv? + Virt_top_calendar?
|
|
|
3c50ef |
+ Top + Opt_xml? + Opt_csv? + Opt_calendar{1,2}?
|
|
|
3c50ef |
|
|
|
3c50ef |
The man-page is generated from the single file:
|
|
|
3c50ef |
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_main.ml b/src/main.ml
|
|
|
3c50ef |
similarity index 98%
|
|
|
3c50ef |
rename from virt-top/virt_top_main.ml
|
|
|
3c50ef |
rename to src/main.ml
|
|
|
3c50ef |
index e8c4425..34d13c8 100644
|
|
|
3c50ef |
--- a/virt-top/virt_top_main.ml
|
|
|
3c50ef |
+++ b/src/main.ml
|
|
|
3c50ef |
@@ -21,8 +21,8 @@
|
|
|
3c50ef |
|
|
|
3c50ef |
open Curses
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext
|
|
|
3c50ef |
-open Virt_top
|
|
|
3c50ef |
+open Opt_gettext.Gettext
|
|
|
3c50ef |
+open Top
|
|
|
3c50ef |
|
|
|
3c50ef |
(* Note: make sure we catch any exceptions and clean up the display.
|
|
|
3c50ef |
*
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_calendar1.ml b/src/opt_calendar1.ml
|
|
|
3c50ef |
similarity index 97%
|
|
|
3c50ef |
rename from virt-top/virt_top_calendar1.ml
|
|
|
3c50ef |
rename to src/opt_calendar1.ml
|
|
|
3c50ef |
index 534465c..2c459fe 100755
|
|
|
3c50ef |
--- a/virt-top/virt_top_calendar1.ml
|
|
|
3c50ef |
+++ b/src/opt_calendar1.ml
|
|
|
3c50ef |
@@ -22,9 +22,9 @@
|
|
|
3c50ef |
open Printf
|
|
|
3c50ef |
open ExtString
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext ;;
|
|
|
3c50ef |
+open Opt_gettext.Gettext ;;
|
|
|
3c50ef |
|
|
|
3c50ef |
-Virt_top.parse_date_time :=
|
|
|
3c50ef |
+Top.parse_date_time :=
|
|
|
3c50ef |
fun time ->
|
|
|
3c50ef |
let cal : Calendar.t =
|
|
|
3c50ef |
if String.starts_with time "+" then ( (* +something *)
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_calendar2.ml b/src/opt_calendar2.ml
|
|
|
3c50ef |
similarity index 97%
|
|
|
3c50ef |
rename from virt-top/virt_top_calendar2.ml
|
|
|
3c50ef |
rename to src/opt_calendar2.ml
|
|
|
3c50ef |
index cc82eec..fd93704 100755
|
|
|
3c50ef |
--- a/virt-top/virt_top_calendar2.ml
|
|
|
3c50ef |
+++ b/src/opt_calendar2.ml
|
|
|
3c50ef |
@@ -24,9 +24,9 @@ open CalendarLib
|
|
|
3c50ef |
open Printf
|
|
|
3c50ef |
open ExtString
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext ;;
|
|
|
3c50ef |
+open Opt_gettext.Gettext ;;
|
|
|
3c50ef |
|
|
|
3c50ef |
-Virt_top.parse_date_time :=
|
|
|
3c50ef |
+Top.parse_date_time :=
|
|
|
3c50ef |
fun time ->
|
|
|
3c50ef |
let cal : Calendar.t =
|
|
|
3c50ef |
if String.starts_with time "+" then ( (* +something *)
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_csv.ml b/src/opt_csv.ml
|
|
|
3c50ef |
similarity index 94%
|
|
|
3c50ef |
rename from virt-top/virt_top_csv.ml
|
|
|
3c50ef |
rename to src/opt_csv.ml
|
|
|
3c50ef |
index e048856..6c3b2be 100644
|
|
|
3c50ef |
--- a/virt-top/virt_top_csv.ml
|
|
|
3c50ef |
+++ b/src/opt_csv.ml
|
|
|
3c50ef |
@@ -19,16 +19,16 @@
|
|
|
3c50ef |
This file contains all code which requires CSV support.
|
|
|
3c50ef |
*)
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext
|
|
|
3c50ef |
+open Opt_gettext.Gettext
|
|
|
3c50ef |
|
|
|
3c50ef |
(* Output channel, or None if CSV output not enabled. *)
|
|
|
3c50ef |
let chan = ref None ;;
|
|
|
3c50ef |
|
|
|
3c50ef |
-Virt_top.csv_start :=
|
|
|
3c50ef |
+Top.csv_start :=
|
|
|
3c50ef |
fun filename ->
|
|
|
3c50ef |
chan := Some (open_out filename) ;;
|
|
|
3c50ef |
|
|
|
3c50ef |
-Virt_top.csv_write :=
|
|
|
3c50ef |
+Top.csv_write :=
|
|
|
3c50ef |
fun row ->
|
|
|
3c50ef |
match !chan with
|
|
|
3c50ef |
| None -> () (* CSV output not enabled. *)
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_xml.ml b/src/opt_xml.ml
|
|
|
3c50ef |
similarity index 97%
|
|
|
3c50ef |
rename from virt-top/virt_top_xml.ml
|
|
|
3c50ef |
rename to src/opt_xml.ml
|
|
|
3c50ef |
index ab291d3..bb83780 100644
|
|
|
3c50ef |
--- a/virt-top/virt_top_xml.ml
|
|
|
3c50ef |
+++ b/src/opt_xml.ml
|
|
|
3c50ef |
@@ -21,13 +21,13 @@
|
|
|
3c50ef |
|
|
|
3c50ef |
open ExtList
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext
|
|
|
3c50ef |
+open Opt_gettext.Gettext
|
|
|
3c50ef |
|
|
|
3c50ef |
module C = Libvirt.Connect
|
|
|
3c50ef |
module D = Libvirt.Domain
|
|
|
3c50ef |
module N = Libvirt.Network ;;
|
|
|
3c50ef |
|
|
|
3c50ef |
-Virt_top.parse_device_xml :=
|
|
|
3c50ef |
+Top.parse_device_xml :=
|
|
|
3c50ef |
fun id dom ->
|
|
|
3c50ef |
try
|
|
|
3c50ef |
let xml = D.get_xml_desc dom in
|
|
|
3c50ef |
diff --git a/virt-top/virt_top.ml b/src/top.ml
|
|
|
3c50ef |
similarity index 99%
|
|
|
3c50ef |
rename from virt-top/virt_top.ml
|
|
|
3c50ef |
rename to src/top.ml
|
|
|
3c50ef |
index 0aae24e..38658c6 100644
|
|
|
3c50ef |
--- a/virt-top/virt_top.ml
|
|
|
3c50ef |
+++ b/src/top.ml
|
|
|
3c50ef |
@@ -21,8 +21,8 @@ open Printf
|
|
|
3c50ef |
open ExtList
|
|
|
3c50ef |
open Curses
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext
|
|
|
3c50ef |
-open Virt_top_utils
|
|
|
3c50ef |
+open Opt_gettext.Gettext
|
|
|
3c50ef |
+open Utils
|
|
|
3c50ef |
|
|
|
3c50ef |
module C = Libvirt.Connect
|
|
|
3c50ef |
module D = Libvirt.Domain
|
|
|
3c50ef |
@@ -159,7 +159,7 @@ let start_up () =
|
|
|
3c50ef |
and set_end_time time = end_time := Some ((!parse_date_time) time)
|
|
|
3c50ef |
and display_version () =
|
|
|
3c50ef |
printf "virt-top %s ocaml-libvirt %s\n"
|
|
|
3c50ef |
- Virt_top_version.version Libvirt_version.version;
|
|
|
3c50ef |
+ Version.version Libvirt_version.version;
|
|
|
3c50ef |
exit 0
|
|
|
3c50ef |
in
|
|
|
3c50ef |
let argspec = Arg.align [
|
|
|
3c50ef |
@@ -1723,7 +1723,7 @@ and show_help (_, _, _, _, _, _, hostname,
|
|
|
3c50ef |
(* Banner at the top of the screen. *)
|
|
|
3c50ef |
let banner =
|
|
|
3c50ef |
sprintf (f_"virt-top %s ocaml-libvirt %s libvirt %d.%d.%d by Red Hat")
|
|
|
3c50ef |
- Virt_top_version.version
|
|
|
3c50ef |
+ Version.version
|
|
|
3c50ef |
Libvirt_version.version
|
|
|
3c50ef |
libvirt_major libvirt_minor libvirt_release in
|
|
|
3c50ef |
let banner = pad cols banner in
|
|
|
3c50ef |
diff --git a/virt-top/virt_top.mli b/src/top.mli
|
|
|
3c50ef |
similarity index 100%
|
|
|
3c50ef |
rename from virt-top/virt_top.mli
|
|
|
3c50ef |
rename to src/top.mli
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_utils.ml b/src/utils.ml
|
|
|
3c50ef |
similarity index 99%
|
|
|
3c50ef |
rename from virt-top/virt_top_utils.ml
|
|
|
3c50ef |
rename to src/utils.ml
|
|
|
3c50ef |
index c5dc97d..3dc637d 100644
|
|
|
3c50ef |
--- a/virt-top/virt_top_utils.ml
|
|
|
3c50ef |
+++ b/src/utils.ml
|
|
|
3c50ef |
@@ -21,7 +21,7 @@
|
|
|
3c50ef |
|
|
|
3c50ef |
open Printf
|
|
|
3c50ef |
|
|
|
3c50ef |
-open Virt_top_gettext.Gettext
|
|
|
3c50ef |
+open Opt_gettext.Gettext
|
|
|
3c50ef |
|
|
|
3c50ef |
module C = Libvirt.Connect
|
|
|
3c50ef |
module D = Libvirt.Domain
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_utils.mli b/src/utils.mli
|
|
|
3c50ef |
similarity index 100%
|
|
|
3c50ef |
rename from virt-top/virt_top_utils.mli
|
|
|
3c50ef |
rename to src/utils.mli
|
|
|
3c50ef |
diff --git a/virt-top/virt_top_version.ml.in b/src/version.ml.in
|
|
|
3c50ef |
similarity index 100%
|
|
|
3c50ef |
rename from virt-top/virt_top_version.ml.in
|
|
|
3c50ef |
rename to src/version.ml.in
|
|
|
3c50ef |
diff --git a/virt-top/virt-top.pod b/src/virt-top.pod
|
|
|
3c50ef |
similarity index 100%
|
|
|
3c50ef |
rename from virt-top/virt-top.pod
|
|
|
3c50ef |
rename to src/virt-top.pod
|
|
|
3c50ef |
diff --git a/virt-top/.depend b/virt-top/.depend
|
|
|
3c50ef |
deleted file mode 100644
|
|
|
3c50ef |
index 46099b7..0000000
|
|
|
3c50ef |
--- a/virt-top/.depend
|
|
|
3c50ef |
+++ /dev/null
|
|
|
3c50ef |
@@ -1,20 +0,0 @@
|
|
|
3c50ef |
-virt_top_calendar1.cmo: virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top_calendar1.cmx: virt_top_gettext.cmx virt_top.cmx
|
|
|
3c50ef |
-virt_top_calendar2.cmo: virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top_calendar2.cmx: virt_top_gettext.cmx virt_top.cmx
|
|
|
3c50ef |
-virt_top.cmi:
|
|
|
3c50ef |
-virt_top.cmo: virt_top_version.cmo virt_top_utils.cmi virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top.cmx: virt_top_version.cmx virt_top_utils.cmx virt_top_gettext.cmx virt_top.cmi
|
|
|
3c50ef |
-virt_top_csv.cmo: virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top_csv.cmx: virt_top_gettext.cmx virt_top.cmx
|
|
|
3c50ef |
-virt_top_gettext.cmo:
|
|
|
3c50ef |
-virt_top_gettext.cmx:
|
|
|
3c50ef |
-virt_top_main.cmo: virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top_main.cmx: virt_top_gettext.cmx virt_top.cmx
|
|
|
3c50ef |
-virt_top_utils.cmi:
|
|
|
3c50ef |
-virt_top_utils.cmo: virt_top_gettext.cmo virt_top_utils.cmi
|
|
|
3c50ef |
-virt_top_utils.cmx: virt_top_gettext.cmx virt_top_utils.cmi
|
|
|
3c50ef |
-virt_top_version.cmo:
|
|
|
3c50ef |
-virt_top_version.cmx:
|
|
|
3c50ef |
-virt_top_xml.cmo: virt_top_gettext.cmo virt_top.cmi
|
|
|
3c50ef |
-virt_top_xml.cmx: virt_top_gettext.cmx virt_top.cmx
|
|
|
3c50ef |
--
|
|
|
3c50ef |
2.9.3
|
|
|
3c50ef |
|