mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
d5b6f1df5f
This change allows parts of the daemon to be written in the OCaml programming language. I am using the ‘Main Program in C’ method along with ‘-output-obj’ to create an object file from the OCaml code / runtime, as described here: https://caml.inria.fr/pub/docs/manual-ocaml/intfc.html Furthermore, change the generator to allow individual APIs to be implemented in OCaml. This is picked by setting: impl = OCaml <ocaml_function>; The generator creates ‘do_function’ (the same one you would have to write by hand in C), with the function calling the named ‘ocaml_function’ and dealing with marshalling/unmarshalling the OCaml parameters.
327 lines
6.1 KiB
Makefile
327 lines
6.1 KiB
Makefile
# libguestfs-daemon
|
|
# Copyright (C) 2011 Red Hat Inc.
|
|
#
|
|
# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
include $(top_srcdir)/subdir-rules.mk
|
|
|
|
BUILT_SOURCES = \
|
|
actions.h \
|
|
caml-stubs.c \
|
|
dispatch.c \
|
|
names.c \
|
|
lvm-tokenization.c \
|
|
structs-cleanups.c \
|
|
structs-cleanups.h \
|
|
stubs-0.c \
|
|
stubs-1.c \
|
|
stubs-2.c \
|
|
stubs-3.c \
|
|
stubs-4.c \
|
|
stubs-5.c \
|
|
stubs-6.c \
|
|
stubs.h
|
|
|
|
generator_built = \
|
|
$(BUILT_SOURCES) \
|
|
callbacks.ml \
|
|
types.ml
|
|
|
|
EXTRA_DIST = \
|
|
$(generator_built) \
|
|
$(SOURCES_MLI) $(SOURCES_ML) \
|
|
guestfsd.pod
|
|
|
|
if INSTALL_DAEMON
|
|
sbin_PROGRAMS = guestfsd
|
|
else
|
|
noinst_PROGRAMS = guestfsd
|
|
endif
|
|
|
|
guestfsd_SOURCES = \
|
|
../common/errnostring/errnostring.h \
|
|
../common/protocol/guestfs_protocol.h \
|
|
../common/utils/cleanups.h \
|
|
../common/utils/guestfs-utils.h \
|
|
9p.c \
|
|
acl.c \
|
|
actions.h \
|
|
available.c \
|
|
augeas.c \
|
|
base64.c \
|
|
blkdiscard.c \
|
|
blkid.c \
|
|
blockdev.c \
|
|
btrfs.c \
|
|
caml-stubs.c \
|
|
cap.c \
|
|
checksum.c \
|
|
cleanups.c \
|
|
cmp.c \
|
|
command.c \
|
|
command.h \
|
|
compress.c \
|
|
copy.c \
|
|
cpio.c \
|
|
cpmv.c \
|
|
daemon-c.c \
|
|
daemon-c.h \
|
|
daemon.h \
|
|
dd.c \
|
|
debug.c \
|
|
debug-bmap.c \
|
|
device-name-translation.c \
|
|
devsparts.c \
|
|
df.c \
|
|
dir.c \
|
|
dispatch.c \
|
|
dmesg.c \
|
|
dropcaches.c \
|
|
du.c \
|
|
echo-daemon.c \
|
|
ext2.c \
|
|
fallocate.c \
|
|
file.c \
|
|
findfs.c \
|
|
fill.c \
|
|
find.c \
|
|
format.c \
|
|
fs-min-size.c \
|
|
fsck.c \
|
|
fstrim.c \
|
|
glob.c \
|
|
grep.c \
|
|
grub.c \
|
|
guestfsd.c \
|
|
headtail.c \
|
|
hexdump.c \
|
|
hotplug.c \
|
|
hivex.c \
|
|
htonl.c \
|
|
initrd.c \
|
|
inotify.c \
|
|
internal.c \
|
|
is.c \
|
|
isoinfo.c \
|
|
journal.c \
|
|
labels.c \
|
|
ldm.c \
|
|
link.c \
|
|
ls.c \
|
|
luks.c \
|
|
lvm.c \
|
|
lvm-filter.c \
|
|
lvm-tokenization.c \
|
|
md.c \
|
|
mkfs.c \
|
|
mknod.c \
|
|
mktemp.c \
|
|
modprobe.c \
|
|
mount.c \
|
|
mountable.c \
|
|
names.c \
|
|
ntfs.c \
|
|
ntfsclone.c \
|
|
optgroups.c \
|
|
optgroups.h \
|
|
parted.c \
|
|
pingdaemon.c \
|
|
proto.c \
|
|
readdir.c \
|
|
realpath.c \
|
|
rename.c \
|
|
rsync.c \
|
|
scrub.c \
|
|
selinux.c \
|
|
selinux-relabel.c \
|
|
sfdisk.c \
|
|
sh.c \
|
|
sleep.c \
|
|
sleuthkit.c \
|
|
squashfs.c \
|
|
stat.c \
|
|
statvfs.c \
|
|
strings.c \
|
|
structs-cleanups.c \
|
|
structs-cleanups.h \
|
|
stubs-0.c \
|
|
stubs-1.c \
|
|
stubs-2.c \
|
|
stubs-3.c \
|
|
stubs-4.c \
|
|
stubs-5.c \
|
|
stubs-6.c \
|
|
stubs.h \
|
|
stubs-macros.h \
|
|
swap.c \
|
|
sync.c \
|
|
syslinux.c \
|
|
sysroot-c.c \
|
|
tar.c \
|
|
tsk.c \
|
|
truncate.c \
|
|
umask.c \
|
|
upload.c \
|
|
utimens.c \
|
|
utsname.c \
|
|
uuids.c \
|
|
wc.c \
|
|
xattr.c \
|
|
xfs.c \
|
|
yara.c \
|
|
zero.c \
|
|
zerofree.c
|
|
|
|
guestfsd_LDFLAGS = \
|
|
-L$(shell $(OCAMLC) -where) \
|
|
-L$(shell $(OCAMLC) -where)/hivex \
|
|
-L../common/mlutils \
|
|
-L../common/mlstdutils
|
|
guestfsd_LDADD = \
|
|
../common/errnostring/liberrnostring.la \
|
|
../common/protocol/libprotocol.la \
|
|
../common/utils/libutils.la \
|
|
camldaemon.o \
|
|
$(ACL_LIBS) \
|
|
$(CAP_LIBS) \
|
|
$(YAJL_LIBS) \
|
|
$(SELINUX_LIBS) \
|
|
$(AUGEAS_LIBS) \
|
|
$(HIVEX_LIBS) \
|
|
$(SD_JOURNAL_LIBS) \
|
|
$(top_builddir)/gnulib/lib/.libs/libgnu.a \
|
|
$(GETADDRINFO_LIB) \
|
|
$(HOSTENT_LIB) \
|
|
$(INET_NTOP_LIB) \
|
|
$(LIBSOCKET) \
|
|
$(LIB_CLOCK_GETTIME) \
|
|
$(LIBINTL) \
|
|
$(SERVENT_LIB) \
|
|
$(PCRE_LIBS) \
|
|
$(TSK_LIBS) \
|
|
$(RPC_LIBS) \
|
|
$(YARA_LIBS) \
|
|
$(OCAML_LIBS)
|
|
|
|
guestfsd_CPPFLAGS = \
|
|
-I$(shell $(OCAMLC) -where) \
|
|
-I$(shell $(OCAMLC) -where)/hivex \
|
|
-I$(top_srcdir)/gnulib/lib \
|
|
-I$(top_builddir)/gnulib/lib \
|
|
-I$(top_srcdir)/lib \
|
|
-I$(top_builddir)/lib \
|
|
-I$(top_srcdir)/common/errnostring \
|
|
-I$(top_builddir)/common/errnostring \
|
|
-I$(top_srcdir)/common/protocol \
|
|
-I$(top_builddir)/common/protocol \
|
|
-I$(top_srcdir)/common/utils \
|
|
-I$(top_builddir)/common/utils
|
|
guestfsd_CFLAGS = \
|
|
$(WARN_CFLAGS) $(WERROR_CFLAGS) \
|
|
$(RPC_CFLAGS) \
|
|
$(AUGEAS_CFLAGS) \
|
|
$(HIVEX_CFLAGS) \
|
|
$(SD_JOURNAL_CFLAGS) \
|
|
$(YAJL_CFLAGS) \
|
|
$(PCRE_CFLAGS)
|
|
|
|
# Parts of the daemon are written in OCaml. These are linked into a
|
|
# library and then linked to the daemon. See
|
|
# https://caml.inria.fr/pub/docs/manual-ocaml/intfc.html
|
|
SOURCES_MLI = \
|
|
chroot.mli \
|
|
sysroot.mli \
|
|
utils.mli
|
|
|
|
SOURCES_ML = \
|
|
types.ml \
|
|
utils.ml \
|
|
structs.ml \
|
|
optgroups.ml \
|
|
sysroot.ml \
|
|
chroot.ml \
|
|
callbacks.ml \
|
|
daemon.ml
|
|
|
|
BOBJECTS = $(SOURCES_ML:.ml=.cmo)
|
|
XOBJECTS = $(BOBJECTS:.cmo=.cmx)
|
|
|
|
OCAMLPACKAGES = \
|
|
-package str,unix,hivex \
|
|
-I $(top_srcdir)/common/mlstdutils \
|
|
-I $(top_srcdir)/common/mlutils
|
|
|
|
OCAMLFLAGS = $(OCAML_FLAGS) $(OCAML_WARN_FLAGS)
|
|
|
|
if !HAVE_OCAMLOPT
|
|
OBJECTS = $(BOBJECTS)
|
|
CAMLRUN = camlrun
|
|
else
|
|
OBJECTS = $(XOBJECTS)
|
|
CAMLRUN = asmrun
|
|
endif
|
|
OCAML_LIBS = \
|
|
-lmlcutils \
|
|
-lmlstdutils \
|
|
-lmlhivex \
|
|
-lcamlstr \
|
|
-lunix \
|
|
-l$(CAMLRUN) -ldl -lm
|
|
|
|
CLEANFILES += camldaemon.o
|
|
|
|
camldaemon.o: $(OBJECTS)
|
|
$(OCAMLFIND) $(BEST) -output-obj -o $@ \
|
|
$(OCAMLFLAGS) $(OCAMLPACKAGES) \
|
|
-linkpkg mlcutils.$(MLARCHIVE) mlstdutils.$(MLARCHIVE) \
|
|
$(OBJECTS)
|
|
|
|
# OCaml dependencies.
|
|
depend: .depend
|
|
|
|
.depend: $(wildcard $(abs_srcdir)/*.mli) $(wildcard $(abs_srcdir)/*.ml)
|
|
rm -f $@ $@-t
|
|
$(OCAMLFIND) ocamldep -I $(abs_srcdir) -I $(abs_top_builddir)/common/mlstdutils -I $(abs_top_builddir)/common/mlutils $^ | \
|
|
$(SED) 's/ *$$//' | \
|
|
$(SED) -e :a -e '/ *\\$$/N; s/ *\\\n */ /; ta' | \
|
|
$(SED) -e 's,$(abs_srcdir)/,$(builddir)/,g' | \
|
|
sort > $@-t
|
|
mv $@-t $@
|
|
|
|
-include .depend
|
|
|
|
# Manual pages and HTML files for the website.
|
|
if INSTALL_DAEMON
|
|
man_MANS = guestfsd.8
|
|
noinst_DATA =
|
|
else
|
|
# It should be noinst_MANS but that doesn't work.
|
|
noinst_DATA = guestfsd.8
|
|
endif
|
|
noinst_DATA += $(top_builddir)/website/guestfsd.8.html
|
|
|
|
guestfsd.8 $(top_builddir)/website/guestfsd.8.html: stamp-guestfsd.pod
|
|
|
|
stamp-guestfsd.pod: guestfsd.pod
|
|
$(PODWRAPPER) \
|
|
--section 8 \
|
|
--man guestfsd.8 \
|
|
--html $(top_builddir)/website/guestfsd.8.html \
|
|
--license GPLv2+ \
|
|
$<
|
|
touch $@
|
|
|
|
.PHONY: depend force
|