src: Include <libxml/parser.h>

libxml2 2.12.1 failed with this error:

xml-c.c:92:9: warning: implicit declaration of function ‘xmlReadMemory’; did you mean ‘xmlInitMemory’? [-Wimplicit-function-declaration]
   92 |   doc = xmlReadMemory (String_val (xmlv), caml_string_length (xmlv),
      |         ^~~~~~~~~~~~~
      |         xmlInitMemory

virt-top: fix to parse init-file correctly

This fixes the following runtime error when parsing init-file.

$ virt-top --init-file <(echo "sort id")
Error: Invalid_argument("String.sub / Bytes.sub")
Raised at Stdlib.invalid_arg in file "stdlib.ml", line 30, characters 20-45
Called from Stdlib__String.sub in file "string.ml" (inlined), line 50, characters 2-23
Called from Utils.split in file "utils.ml", line 82, characters 24-68
Called from Utils.read_config_file.(fun) in file "utils.ml", line 114, characters 23-37
Called from Stdlib__List.map in file "list.ml", line 92, characters 20-23
Called from Top.start_up.try_to_read_init_file in file "top.ml", line 153, characters 17-42
Called from Main.script_mode in file "main.ml", line 37, characters 6-17

Signed-off-by: Yuya Higashi <higashi.yuya@fujitsu.com>

virt-top: fix to explicitly disconnect from libvirtd

To prevent libvirtd from printing virNetSocketReadWire I/O errors when
the virt-top command exits, explicitly disconnect from libvirtd.

Signed-off-by: Yuya Higashi <higashi.yuya@fujitsu.com>

Version 1.1.1.

src/collect.ml: Don't die if a domain goes away during lookup

libvirt: VIR_ERR_NO_DOMAIN: VIR_FROM_QEMU: Domain not found: no domain with matching uuid '231eb609-fe6c-4de5-abbc-e1f834457c37'
Raised by primitive operation at Libvirt in file "libvirt.ml" (inlined), line 573, characters 0-1023
Called from Collect.collect.(fun) in file "collect.ml", line 168, characters 18-44
Called from Stdlib__List.map in file "list.ml", line 92, characters 20-23
Called from Stdlib__List.map in file "list.ml", line 92, characters 32-39
Called from Collect.collect in file "collect.ml", line 138, characters 4-1023
Called from Top.main_loop in file "top.ml", line 318, characters 16-29
Called from Main in file "main.ml", line 50, characters 4-19

Remove dependency on xml-light, replace with libxml2

This commit removes the dependency on the ancient and dead upstream
xml-light light.  It is replaced with the C library libxml2.  This
introduces a small amount of C code to interface with libxml2 and
parse the libvirt domain XML into the list of block devices and
network devices (using XPath).

build: Remove bogus directory list in ocaml-dep.sh.in

This was a cut and paste error when I copied this file over from
libguestfs.

Fixes: commit 5405de2920fa56529b56f61ff683806e72ddfa6a

Remove external dependency on ocaml-csv

We only used a tiny number of features from this library, and it is
distributed under a compatible license so we might as well inline the
function we need.

Remove dependency on ocaml-extlib

We only used a handful of small functions from this library, so we can
completely remove the dependency easily.

build: Use non-deprecated form of warning flags

In OCaml 4.13:

Alert ocaml_deprecated_cli: Setting a warning with a sequence of lowercase or uppercase letters,
like 'CDEFLMPSUVYZX', is deprecated.
Use the equivalent signed form: +C+D+E+F+L+M+P+S+U+V+Y+Z+X-3.

Merge remote-tracking branch 'weblate/master'

Version 1.1.0.

Move to the more usual (for us) even = stable, odd = unstable
semantic-ish versioning system, as used by olden days Linux.

This is the first in a new development series.

Remove Changelog file

Users can easily read the git logs if they want this information.

Remove old Zanata files

We're meant to be using Weblate now.

Convert to using automake

Translated using Weblate (Czech)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/cs/

Translated using Weblate (Indonesian)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/id/

Translated using Weblate (Indonesian)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/id/

Translated using Weblate (Finnish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/fi/

Translated using Weblate (Finnish)

Currently translated at 67.8% (57 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/fi/

Added translation using Weblate (Finnish)

Translated using Weblate (Sinhala)

Currently translated at 1.1% (1 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/si/

Added translation using Weblate (Sinhala)

Translated using Weblate (Dutch)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/nl/

Translated using Weblate (Spanish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/es/

Translated using Weblate (Spanish)

Currently translated at 84.5% (71 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/es/

Merge remote-tracking branch 'weblate/master' into master

Translated using Weblate (Spanish)

Currently translated at 84.5% (71 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/es/

Translated using Weblate (French)

Currently translated at 20.2% (17 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/fr/

Translated using Weblate (Ukrainian)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/uk/

Translated using Weblate (Swedish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/sv/

Translated using Weblate (Turkish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/tr/

Translated using Weblate (Polish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/pl/

Translated using Weblate (Polish)

Currently translated at 100.0% (84 of 84 strings)

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/pl/

Update translation files

Updated by "Update PO files to match POT (msgmerge)" hook in Weblate.

Translation: virt-top/master
Translate-URL: https://translate.fedoraproject.org/projects/virt-top/master/

Update translations from Zanata (RHBZ#1868108).

libvirt: Handle VIR_DOMAIN_PMSUSPENDED state.

Fixes FTBFS with ocaml-libvirt 0.6.1.5.

RWMJ: Added documentation and changed the letter to 'M'.

Version 1.0.9.

src/top.ml: Don't depend on exact value of Failure argument.

File "top.ml", line 423, characters 14-31:
423 |       Failure "float_of_string" ->
                    ^^^^^^^^^^^^^^^^^
Warning 52: Code should not depend on the actual values of
this constructor's arguments. They are only for information
and may change in future versions. (See manual section 9.5)

build: Pass through CFLAGS and LDFLAGS to ocaml compiler (RHBZ#1630636).

Link with -fPIC runtime.

Fixes for -safe-string in OCaml 4.06.

chmod -x COPYING* files.

Use virConnectGetAllDomainStats API to collect domain stats (RHBZ#1422795).

This is much faster than using the basic libvirt APIs to collect
stats for each domain individually.

Note this will not work unless you have the latest ocaml-libvirt
package which includes this new API binding.

Remove unused variable is_calendar2.

Fixes commit effd1ec5897a2cac6e897ae7bce72f6b1e617b90.

Move block_in_bytes entirely to the presentation layer.

Simplifies and updates commit dbef8dd3bf00417e75a12c851b053e49c9e1a79e.

Split up huge Top module into smaller modules.

This change is hopefully pure refactoring, splitting up the very large
and highly interlinked module into more manageable modules with
well-defined (or at least *better*-defined) interfaces between them.

src: Fix some comments which referred to the old filenames.

Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.

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.

Update PO files.

Fix po/POTFILES for new location of source files.

Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.

Refresh HACKING file.

Fixes commit b7c3ef13cbd9c9cd49005a32ffb70faf6f5bbe8c.

Remove +x (executable) permission on several source files.

Not sure why it was there, but it was incorrect.

Enable same warnings as libguestfs.

In particular 'warning 3' was still enabled before, meaning that the
code would fail with newer OCaml compilers:

  File "top.ml", line 377, characters 12-25:
  Warning 3: deprecated: String.create
  Use Bytes.create instead.

Since we want to continue using old OCaml for now, don't enable
this warning.

Rename source directory and files.

This renames the source directory from virt-top to src/ and removes
the unnecessary virt_top_* prefix from many source files.

This is entirely refactoring and makes no functional change.

Also this fixes the MANIFEST file and removes old Transifex
configuration, fixing commit defe5bdd4a32e0206a786d279e0f9cfc238e5e17.

build: Add -g flag to ocamlopt.

Modern ocamlopt supports the -g flag fine (very old versions did not).

Update translations from Zanata.

Move upstream translations from Tranifex to Zanata.

This is at the request of the Fedora localization team.
For further information see:

https://www.redhat.com/archives/libguestfs/2015-February/msg00168.html

Disable warning about immutable strings (for OCaml 4.02).

Version 1.0.8.

show `vcpu usages' by `virt-top -1'

Before this patch, `virt-top -1' shows total cpu usages
which euqal to `vcpu usages' + `hypervisor usages'. This
patch adds another column for domains showing `vcpu
usages'. An example is:

PHYCPU %CPU example_domain
   0   10.4 10.4  0.8
   1    1.6  1.6  1.4
   2    2.6  2.6  2.6
   3    0.0  0.0  0.1

RWMJ: I cleaned up this patch a little, but it should be
functionally the same.

Rename find_usages_from_stats as find_cpu_usages.

This is just code motion.

OCaml stable dependencies.

Remove D.get_cpu_stats second parameter.

In upstream ocaml-libvirt, this second parameter has been removed,
because it was found that nr_pcpus can be found by calling the libvirt
API directly.

Make the main code and exception handling simpler.

Better error messages when parsing the init file (RHBZ#836231).

Add missing sort order options in --help output (RHBZ#807176).

Man page: Add an explanation of columns (RHBZ#834208).

man page: Update copyright date.

Version 1.0.7.

Ignore aclocal.m4.

Document requirements in README file.

virt-top: correct "virt-top -1" command via cpuacct cgroup

Old "virt-top -1" is not correct, its output is generated by guess:
use average usage for pinned physical CPUs.

example(old "virt-top -1"):

PHYCPU %CPU rhel6  Windows
   0    0.6  0.1=   0.5=
   1    0.6  0.1=   0.5=#
   2    0.6  0.1=   0.5=
   3    0.6  0.1=#  0.5=

The output almost makes no sense(all the value are just average, not real).

This is new implement, it use cpuacct cgroup to gain *real* physical usages
via cpuacct cgroup by virDomainGetCPUStats() API.

new result:

PHYCPU %CPU rhel6  Windows
   0    1.3  0.3     1.0
   1    2.3  0.3     2.0
   2    2.2  0.5     1.7
   3    2.5  0.4     2.1

PHYCPU %CPU rhel6  Windows
   0    1.7  0.4     1.3
   1    3.6  1.0     2.7
   2    1.6  0.4     1.2
   3    4.8  3.1     1.7

Note: average flag(=) is dropped, there is not average value in here.
Note: running flag(#) is dropped, because if the value is not empty,
      it means the guest was once running in the physical CPU in this period
      between updates.

Changed from V3:
use new virDomainGetCPUStats() libvirt-API.
add a new function find_usages_from_stats() to gain cpu usages.

Signed-off-by: Lai Jiangshan <laijs@cn.fujitsu.com>

Ensure manpages get built when using native compiler (thanks Laurent Léonard).

Version 1.0.6.

Update MANIFEST and fix 'make dist'.

make dist now copies the generated manual pages into the tarball, so
that we don't have to keep these generated files in git.

Fix ordering of csv_mode and stream_mode in tuple.

Note that this bug could have been avoided by using a struct instead
of a tuple here.

This updates commit daf79631f3eff904ba89297148c4125ac7dfee39.

docs: Explain how to debug libvirt initialization problems (RHBZ#680031).

Pull translations from Transifex.

Fix --end-time option with absolute times.

Assume the user enters a local time, and convert it to UTC.

This also adds some clarifying comments to the relative time
code (but doesn't change that code).

Note that the obsolete Calendar1 code is *not* updated by this change.

docs: Fix documentation for virt-top -c option.

Because of changes in libvirt, this no longer connects to Xen by
default.  Instead the default is to connect to the libvirt default
hypervisor (which could be Xen, KVM or others).  Update the --help
documentation and manual page accordingly.

Remove generated man pages from git.

add memory stats to --csv mode.

In csv mode, memory usage in kbytes and %mem against total system
memory is shown.

Signed-off-by: KAMEZAWA Hiroyuki <kamezawa.hiroyu@jp.fujitsu.com>

Record memory statistics information to 'rd' object.

This helps to share the calculation (between modes) and
will help to show memory statistics in --csv mode

Signged-off-by: KAMEZAWA Hiroyuki <kamezawa.hiroyu@jp.fujitsu.com>

Import virt-top into transifex.

http://www.transifex.net/projects/p/virttop/

Update generated man page files.

Add --block-in-bytes option.

This option and the 'B' key toggles block I/O stats between
requests and bytes.

Add --stream flag.

Output is sent to stdout (similar to the top -b option).

Obey virt-top --end-time down to near millisecond accuracy (RHBZ#637964).

Adjust the final delay down so that the --end-time option is obeyed
down to near millisecond accuracy.

The 'usleep' function has been renamed more accurately as 'millisleep'
since it sleeps for milliseconds not microseconds.

Version 1.0.5.

Add aclocal.m4 file to git.

This file is sort of generated, but at the moment only has
a single line which includes m4/ocaml.m4, that is vital for
the build.

Re-add virt-top/README file.

This seems to have been dropped during the hg->git transition.

Document background noise of RX packets from bridges (RHBZ#647987).

For more information see:
https://bugzilla.redhat.com/show_bug.cgi?id=647987#c9

man page: Remove excess blank line.

main: Record and print full exception stack traces.

This turns on stack trace recording unconditionally (the same
effect as if OCAMLRUNPARAM=b was always supplied), and also prints
stack traces to the log file if there is an exception.

See also:
http://caml.inria.fr/pub/docs/manual-ocaml/libref/Printexc.html

Note that this requires OCaml >= 3.11.0.

Fix pad function to work for negative widths (RHBZ#634435).

The pad function is supposed to pad a string to a width.  Under some
circumstances, the width parameter could be negative resulting in a
call to String.sub such as:

  String.sub str 0 (-1)

which caused an exception to be thrown and not caught, causing
virt-top to exit.  Fix the pad function to return an empty string if
width <= 0 instead of throwing an exception.

See also:
https://bugzilla.redhat.com/show_bug.cgi?id=634435

Update dependencies.

Update generated man pages.

Fix virt-top --end-time option when TZ<>UTC (RHBZ#637964).

Return the end time as seconds since 1970, and don't adjust it
for timezone.  In the main module the end time is compared against
the result of Unix.gettimeofday, which is also seconds since 1970,
so the comparison now works.

Tested with TZ=UTC-05, TZ=UTC and TZ=UTC+05.

NB: This has not been tested against ocaml-calendar 1.x, although
that version of calendar is obsolete and no one should be using it.

Update dependencies file.

man page: memory option shows total guest memory (RHBZ#647991).

man page: Update copyright date and link to web pages.

Remove references to xm/xentop manual pages (RHBZ#648186).

These Xen tools are obsolete since virsh/virt-top works across
all hypervisors.

Change order of return values from getyx - fixes display of historical CPU.

In this commit:
http://cvs.savannah.gnu.org/viewvc/ocaml-tmk/functions.c?root=ocaml-tmk&r1=1.2&r2=1.3
Sam changed (fixed) the order that the coordinates are returned
from the ncurses 'getyx' call.  Since this commit was made 3 years
ago it should be safe to assume everyone is using the new ocaml-ncurses
by now.

This meant the historical %CPU was being displayed off the bottom of
the screen instead of on the top row at the right.  Now it is displayed
in the correct place.

Update Japanese translations (RHBZ#493799).