[Libguestfs] [PATCH (incomplete)] Rewrite virt-sysprep in OCaml.

[Wanlong Gao]

On 04/01/2012 02:25 AM, Richard W.M. Jones wrote:

> This patch is incomplete but it illustrates the idea.  virt-sysprep is
> rewritten as a modular tool in OCaml.
> 
> Only the 'utmp' and 'hostname' operations are implemented at the
> moment.


ocamlfind ocamlopt -g -warn-error CDEFLMPSUVYZX -package unix -I ../src/.libs -I ../ocaml \
  mlguestfs.cmxa -linkpkg utils.cmx sysprep_operation.cmx sysprep_operation_cron_spool.cmx sysprep_operation_dhcp_client_state.cmx sysprep_operation_dhcp_server_state.cmx sysprep_operation_hostname.cmx sysprep_operation_logfiles.cmx sysprep_operation_mail_spool.cmx sysprep_operation_net_hwaddr.cmx sysprep_operation_random_seed.cmx sysprep_operation_rhn_systemid.cmx sysprep_operation_script.cmx sysprep_operation_smolt_uuid.cmx sysprep_operation_ssh_hostkeys.cmx sysprep_operation_udev_persistent_net.cmx sysprep_operation_utmp.cmx sysprep_operation_yum_uuid.cmx main.cmx -cclib -lncurses -o virt-sysprep
rm -f sysprep-extra-options.pod sysprep-extra-options.pod-t
./virt-sysprep --dump-pod-options > sysprep-extra-options.pod-t
./virt-sysprep: error while loading shared libraries: libguestfs.so.0: cannot open shared object file: No such file or directory
make[2]: *** [sysprep-extra-options.pod] Error 127


some thing wrong with this "-I ../src/.libs" ? I just can't complete compiling :(

Thanks,
Wanlong Gao

> 
> Rich.
> 
>