There was some discussion about this on the main list, but there was no
clear answer.

http://groups.google.com/group/fa.caml/browse_thread/thread/46ad55d2102c1898/b92a26b04ce70c5d?lnk=gst&q=R#b92a26b04ce70c5d



On Thu, Jul 3, 2008 at 11:21 AM, Peng Zhang <pczhang@gmail.com> wrote:

> Is it at all possible?
>
> Following the manual, I know I can call ocaml when C is the main
> program. I want to compile C file to Dynamic-link library, and call it
> from R.
>
> Can somebody help to answer it?
>
> Thanks,
> Peng
>
> On Tue, Jun 24, 2008 at 10:17 PM, Peng Zhang <pczhang@gmail.com> wrote:
> > Hi folks,
> >
> > I need some help from you. What I want to do is that my main program
> > is in R and I want to implement part of it with ocaml.
> >
> > The following is an example.
> >
> > /* mysin.R */
> > dyn.load("mysin.so")
> > mysin <- function(x)
> >  .C("mysin", as.double(x), r = double(1))$r
> >
> > /* mycode.ml */
> > let sin_ml x = sin x
> > let _ = Callback.register "sin_ml" sin_ml
> >
> > I want to use sin defined in mycode.ml in mysin.R
> >
> > Then I write the following stub code
> >
> > /* mysin.c */
> > #include <caml/mlvalues.h>
> > #include <caml/memory.h>
> > #include <caml/alloc.h>
> > #include <caml/custom.h>
> > #include <caml/callback.h>
> >
> > void mysin(double * x, double * r){
> >  value * closure_f;
> >  caml_startup(NULL);
> >  closure_f = caml_named_value("sin_ml");
> >  *r = Double_val(caml_callback(*closure_f, caml_copy_double(*x)));
> > }
> >
> > It isn't working right now. What I am not sure about is what to put in
> > caml_startup.
> >
> > Can somebody help with me this? Thank you very much!
> >
> > Best,
> > Peng
> >
>
> _______________________________________________
> Caml-list mailing list. Subscription management:
> http://yquem.inria.fr/cgi-bin/mailman/listinfo/caml-list
> Archives: http://caml.inria.fr
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs
>