OCaml viewer: Handle exceptions properly.

[libguestfs.git] / ocaml / examples / Makefile.am

diff --git a/ocaml/examples/Makefile.am b/ocaml/examples/Makefile.am
index abe6cdf..d088c4a 100644 (file)
--- a/ocaml/examples/Makefile.am
+++ b/ocaml/examples/Makefile.am
@@ -1,10 +1,33 @@
-EXTRA_DIST = LICENSE README lvs.ml
+EXTRA_DIST = LICENSE README lvs.ml viewer.ml Throbber.png Throbber.gif
+
+CLEANFILES = throbber.ml *.cmi *.cmo *.cmx *.o lvs
 
 if HAVE_OCAML
 
+noinst_SCRIPTS = lvs
+
 lvs:   lvs.ml
-       $(OCAMLFIND) ocamlopt -I .. mlguestfs.cmxa $< -o $@
+       $(OCAMLFIND) ocamlopt -warn-error A -I .. mlguestfs.cmxa $< -o $@
+
+if BUILD_OCAML_VIEWER
+
+noinst_SCRIPTS += viewer
+
+viewer: throbber.ml viewer.ml
+       $(OCAMLFIND) ocamlopt \
+         -warn-error A \
+         -thread \
+         -package libvirt,lablgtk2,extlib,xml-light,threads -I .. \
+         -predicates init,threads \
+         -linkpkg mlguestfs.cmxa gtkThread.cmx \
+         $^ -o $@
+
+throbber.ml: Throbber.png Throbber.gif
+       gdk_pixbuf_mlsource --build-list \
+         static Throbber.png \
+         animation Throbber.gif \
+         > $@-t && mv $@-t $@
 
-CLEANFILES = *.cmi *.cmo *.cmx *.o lvs
+endif
 
 endif
\ No newline at end of file