summaryrefslogtreecommitdiffstats
path: root/examples
diff options
context:
space:
mode:
authorrjones@thinkpad <rjones@thinkpad>2008-04-17 11:13:39 +0100
committerrjones@thinkpad <rjones@thinkpad>2008-04-17 11:13:39 +0100
commit5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8 (patch)
tree6774d8d7c9fb2ec1b6f4b5913636f5e36af1dae2 /examples
parentf9d99e63272520c19bddc9e4b47731d57e5658e2 (diff)
parentf5f45d38269842b591a89ccaf2e6af7879d57aab (diff)
downloadvirt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.tar.gz
virt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.tar.xz
virt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.zip
Merge.
Diffstat (limited to 'examples')
-rw-r--r--examples/.depend4
-rw-r--r--examples/Makefile.in90
-rw-r--r--examples/list_domains.ml46
-rw-r--r--examples/node_info.ml48
4 files changed, 0 insertions, 188 deletions
diff --git a/examples/.depend b/examples/.depend
deleted file mode 100644
index 334ba5d..0000000
--- a/examples/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-list_domains.cmo: ../libvirt/libvirt.cmi
-list_domains.cmx: ../libvirt/libvirt.cmx
-node_info.cmo: ../libvirt/libvirt.cmi
-node_info.cmx: ../libvirt/libvirt.cmx
diff --git a/examples/Makefile.in b/examples/Makefile.in
deleted file mode 100644
index 75a98eb..0000000
--- a/examples/Makefile.in
+++ /dev/null
@@ -1,90 +0,0 @@
-# ocaml-libvirt
-# Copyright (C) 2007 Red Hat Inc., Richard W.M. Jones
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library 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
-# Lesser General Public License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-OCAMLFIND = @OCAMLFIND@
-
-ifneq ($(OCAMLFIND),)
-OCAMLCPACKAGES := -package unix -I ../libvirt
-OCAMLCFLAGS := -g
-OCAMLCLIBS := -linkpkg
-OCAMLOPTPACKAGES := $(OCAMLCPACKAGES)
-OCAMLOPTFLAGS :=
-OCAMLOPTLIBS := $(OCAMLCLIBS)
-else
-OCAMLCINCS := -I ../libvirt
-OCAMLCFLAGS := -g
-OCAMLCLIBS := unix.cma
-OCAMLOPTINCS := $(OCAMLCINCS)
-OCAMLOPTFLAGS :=
-OCAMLOPTLIBS := unix.cmxa
-endif
-
-export LIBRARY_PATH=../libvirt
-export LD_LIBRARY_PATH=../libvirt
-
-BYTE_TARGETS := list_domains node_info
-OPT_TARGETS := list_domains.opt node_info.opt
-
-all: $(BYTE_TARGETS)
-
-opt: $(OPT_TARGETS)
-
-ifneq ($(OCAMLFIND),)
-list_domains: list_domains.cmo
- $(OCAMLFIND) ocamlc \
- $(OCAMLCPACKAGES) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
- ../libvirt/mllibvirt.cma -o $@ $<
-
-list_domains.opt: list_domains.cmx
- $(OCAMLFIND) ocamlopt \
- $(OCAMLOPTPACKAGES) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
- ../libvirt/mllibvirt.cmxa -o $@ $<
-
-node_info: node_info.cmo
- $(OCAMLFIND) ocamlc \
- $(OCAMLCPACKAGES) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
- ../libvirt/mllibvirt.cma -o $@ $<
-
-node_info.opt: node_info.cmx
- $(OCAMLFIND) ocamlopt \
- $(OCAMLOPTPACKAGES) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
- ../libvirt/mllibvirt.cmxa -o $@ $<
-else
-list_domains: list_domains.cmo
- $(OCAMLC) \
- $(OCAMLCINCS) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
- ../libvirt/mllibvirt.cma -o $@ $<
-
-list_domains.opt: list_domains.cmx
- $(OCAMLOPT) \
- $(OCAMLOPTINCS) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
- ../libvirt/mllibvirt.cmxa -o $@ $<
-
-node_info: node_info.cmo
- $(OCAMLC) \
- $(OCAMLCINCS) $(OCAMLCFLAGS) $(OCAMLCLIBS) \
- ../libvirt/mllibvirt.cma -o $@ $<
-
-node_info.opt: node_info.cmx
- $(OCAMLOPT) \
- $(OCAMLOPTINCS) $(OCAMLOPTFLAGS) $(OCAMLOPTLIBS) \
- ../libvirt/mllibvirt.cmxa -o $@ $<
-endif
-
-install:
-
-include ../Make.rules
diff --git a/examples/list_domains.ml b/examples/list_domains.ml
deleted file mode 100644
index c97432c..0000000
--- a/examples/list_domains.ml
+++ /dev/null
@@ -1,46 +0,0 @@
-(* Simple demo program showing how to list out domains.
- Usage: list_domains [URI]
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
- http://libvirt.org/
- *)
-
-open Printf
-
-module C = Libvirt.Connect
-module D = Libvirt.Domain
-module N = Libvirt.Network
-
-let () =
- try
- let name =
- if Array.length Sys.argv >= 2 then
- Some (Sys.argv.(1))
- else
- None in
- let conn = C.connect_readonly ?name () in
-
- (* List running domains. *)
- let n = C.num_of_domains conn in
- let ids = C.list_domains conn n in
- let domains = Array.map (D.lookup_by_id conn) ids in
- Array.iter (
- fun dom ->
- printf "%8d %s\n%!" (D.get_id dom) (D.get_name dom)
- ) domains;
-
- (* List inactive domains. *)
- let n = C.num_of_defined_domains conn in
- let names = C.list_defined_domains conn n in
- Array.iter (
- fun name ->
- printf "inactive %s\n%!" name
- ) names;
- with
- Libvirt.Virterror err ->
- eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
-
-let () =
- (* Run the garbage collector which is a good way to check for
- * memory corruption errors and reference counting issues in libvirt.
- *)
- Gc.compact ()
diff --git a/examples/node_info.ml b/examples/node_info.ml
deleted file mode 100644
index c52615e..0000000
--- a/examples/node_info.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* Simple demo program showing node info.
- Usage: node_info [URI]
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
- http://libvirt.org/
- *)
-
-open Printf
-
-module C = Libvirt.Connect
-
-let () =
- try
- let name =
- if Array.length Sys.argv >= 2 then
- Some (Sys.argv.(1))
- else
- None in
- let conn = C.connect_readonly ?name () in
-
- (* Get node_info, hostname, etc. *)
- let node_info = C.get_node_info conn in
-
- printf "model = %s\n" node_info.C.model;
- printf "memory = %Ld K\n" node_info.C.memory;
- printf "cpus = %d\n" node_info.C.cpus;
- printf "mhz = %d\n" node_info.C.mhz;
- printf "nodes = %d\n" node_info.C.nodes;
- printf "sockets = %d\n" node_info.C.sockets;
- printf "cores = %d\n" node_info.C.cores;
- printf "threads = %d\n%!" node_info.C.threads;
-
- let hostname = C.get_hostname conn in
-
- printf "hostname = %s\n%!" hostname;
-
- let uri = C.get_uri conn in
-
- printf "uri = %s\n%!" uri
-
- with
- Libvirt.Virterror err ->
- eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
-
-let () =
- (* Run the garbage collector which is a good way to check for
- * memory corruption errors and reference counting issues in libvirt.
- *)
- Gc.compact ()