[Caml-list] embedding OCaml into C on win32

caml-list - the Caml user's mailing list
 help / color / mirror / Atom feed

* [Caml-list] embedding OCaml into C on win32
@ 2002-07-02 18:56 Alexander V.Voinov
  2002-07-02 20:48 ` [Caml-list] camlp4 and anonymous function naming Julie Farago
  2002-07-02 21:30 ` [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
  0 siblings, 2 replies; 5+ messages in thread
From: Alexander V.Voinov @ 2002-07-02 18:56 UTC (permalink / raw)
  To: caml-list

Hi 

I have a small program, similar to one in the manual (where
fib_closure is defined). I try it on win32, with VC 6 and
ocaml-3.04.

The Makefile and the source texts are as follows. What else should I
add to the link command to resolve these externals?

Thank you

Alexander
=======Makefile:========================================================
PROG=test2

%.obj: %.ml
	ocamlopt -output-obj -c -o $@ $<  

%.obj: %.cpp
	cl /c /nologo /MT /Ic:/ocaml/lib $<

%.obj: %.c
	cl /c /nologo /MT /Ic:/ocaml/lib $<

run: $(PROG).exe
	./$(PROG).exe

$(PROG).exe: $(PROG).obj mltest.obj
	link /nologo $^ /OUT:$@ /libpath:"c:/ocaml/lib" libasmrun.lib
=======test2.c:=========================================================
#include <stdio.h>
#include <caml/mlvalues.h>
#include <caml/alloc.h>
#include <caml/memory.h>
#include <caml/callback.h>
#include <caml/custom.h>

int ml_inc(int n)
{
    static value * ml_inc_closure = NULL;
    if (ml_inc_closure == NULL)
	ml_inc_closure = caml_named_value("ml_inc");
    return Int_val(callback(*ml_inc_closure, Val_int(n)));
}

int main()
{
    char *argv[] = { NULL };
    int n;
    
    printf("In main\n"); fflush(stdout);

    caml_startup(argv);

    n = ml_inc(10);
    
    printf("n = %d\n", n); fflush(stdout);
    return 0;
}
======mltest.ml=========================================================
let ml_inc i = i + 1

let _ = Callback.register "ml_inc" ml_inc
======output:===========================================================
gmake -k 
cl /c /nologo /MT /Ic:/ocaml/lib test2.c
test2.c
ocamlopt -output-obj -c -o mltest.obj mltest.ml  
link /nologo test2.obj mltest.obj /OUT:test2.exe /libpath:"c:/ocaml/lib" libasmrun.lib
libasmrun.lib(startup.obj) : error LNK2001: unresolved external symbol _caml_code_segments
libasmrun.lib(startup.obj) : error LNK2001: unresolved external symbol _caml_data_segments
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Failure
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Invalid_argument
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Out_of_memory
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Stack_overflow
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Sys_error
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _End_of_file
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Division_by_zero
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Not_found
libasmrun.lib(fail.obj) : error LNK2001: unresolved external symbol _Sys_blocked_io
libasmrun.lib(i386nt.obj) : error LNK2001: unresolved external symbol _caml_apply2
libasmrun.lib(i386nt.obj) : error LNK2001: unresolved external symbol _caml_apply3
libasmrun.lib(i386nt.obj) : error LNK2001: unresolved external symbol _caml_program
libasmrun.lib(roots.obj) : error LNK2001: unresolved external symbol _caml_frametable
libasmrun.lib(roots.obj) : error LNK2001: unresolved external symbol _caml_globals
test2.exe : fatal error LNK1120: 16 unresolved externals
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


^ permalink raw reply	[flat|nested] 5+ messages in thread

* [Caml-list] camlp4 and anonymous function naming
  2002-07-02 18:56 [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
@ 2002-07-02 20:48 ` Julie Farago
  2002-07-03  8:08   ` Daniel de Rauglaudre
  2002-07-02 21:30 ` [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
  1 sibling, 1 reply; 5+ messages in thread
From: Julie Farago @ 2002-07-02 20:48 UTC (permalink / raw)
  To: caml-list

camlp4 hackers,

I am trying to use camlp4 to name anonymous functions. I want to take code
that in the form:
fun <args> -> <body>

and convert it to:
let anonfunc<number> <args> = <body> in anonfunc<number>

I've read over the camlp4 tutorial and have some sense of how to do this,
but am getting stuck because I do not know the correct syntax to use. I
currently am extending the grammar with:

EXTEND
 expr:
   [[ "fun" ; vars = LIST1 LIDENT ; "->" ; e = expr ->
         givenames loc vars e ]]
 ;
END;;

and then I try and re-write the anonymous function with:

let namefun =
  let cnt = ref 0 in
    fun var -> let x = incr cnt ; !cnt in
    var ^ "_genfun" ^ string_of_int x

let givenames loc vars e =
  let name = namefun "my" in
    <:expr<
      let $lid:name$ $vars$ = $e$
      in $lid:name$ >>

This code is, of course, wrong. The problem is that I cannot figure out
how to simply capture the args from the fun and place them back into the
let.

Any direction you could provide on this would be great!
-Julie

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: [Caml-list] camlp4 and anonymous function naming
  2002-07-02 20:48 ` [Caml-list] camlp4 and anonymous function naming Julie Farago
@ 2002-07-03  8:08   ` Daniel de Rauglaudre
  0 siblings, 0 replies; 5+ messages in thread
From: Daniel de Rauglaudre @ 2002-07-03  8:08 UTC (permalink / raw)
  To: caml-list

Hi,

On Tue, Jul 02, 2002 at 04:48:22PM -0400, Julie Farago wrote:

> let givenames loc vars e =
>   let name = namefun "my" in
>     <:expr<
>       let $lid:name$ $vars$ = $e$
>       in $lid:name$ >>
> 
> This code is, of course, wrong. The problem is that I cannot figure out
> how to simply capture the args from the fun and place them back into the
> let.

Write this function like this:

let givenames loc vars e =
  let name = namefun "my" in
  let e =
    List.fold_right (fun p e -> <:expr< fun $lid:p$ -> $e$ >>) vars e
  in
    <:expr<
      let $lid:name$ = $e$
      in $lid:name$ >>

-- 
Daniel de RAUGLAUDRE
daniel.de_rauglaudre@inria.fr
http://cristal.inria.fr/~ddr/
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: [Caml-list] embedding OCaml into C on win32
  2002-07-02 18:56 [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
  2002-07-02 20:48 ` [Caml-list] camlp4 and anonymous function naming Julie Farago
@ 2002-07-02 21:30 ` Alexander V.Voinov
  2002-07-02 22:32   ` Alexander V.Voinov
  1 sibling, 1 reply; 5+ messages in thread
From: Alexander V.Voinov @ 2002-07-02 21:30 UTC (permalink / raw)
  To: caml-list

From: "Alexander V.Voinov" <avv@quasar.ipa.nw.ru>
Subject: [Caml-list] embedding OCaml into C on win32
Date: Tue, 02 Jul 2002 11:56:19 -0700 (PDT)

> Hi 
> 
> I have a small program, similar to one in the manual (where
> fib_closure is defined). I try it on win32, with VC 6 and
> ocaml-3.04.

Same on Solaris. Please help! I don't know any other source
of information except the manual 'Chapter 17 Interfacing C with Objective Caml' 
and it seems that I follow it.

Thank you

Alexander


-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: [Caml-list] embedding OCaml into C on win32
  2002-07-02 21:30 ` [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
@ 2002-07-02 22:32   ` Alexander V.Voinov
  0 siblings, 0 replies; 5+ messages in thread
From: Alexander V.Voinov @ 2002-07-02 22:32 UTC (permalink / raw)
  To: caml-list

Hi

I denounce this question, sorry.

Alexander

From: "Alexander V.Voinov" <avv@quasar.ipa.nw.ru>
Subject: Re: [Caml-list] embedding OCaml into C on win32
Date: Tue, 02 Jul 2002 14:30:37 -0700 (PDT)

> From: "Alexander V.Voinov" <avv@quasar.ipa.nw.ru>
> Subject: [Caml-list] embedding OCaml into C on win32
> Date: Tue, 02 Jul 2002 11:56:19 -0700 (PDT)
> 
> > Hi 
> > 
> > I have a small program, similar to one in the manual (where
> > fib_closure is defined). I try it on win32, with VC 6 and
> > ocaml-3.04.
> 
> Same on Solaris. Please help! I don't know any other source
> of information except the manual 'Chapter 17 Interfacing C with Objective Caml' 
> and it seems that I follow it.
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2002-07-03  8:08 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-07-02 18:56 [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
2002-07-02 20:48 ` [Caml-list] camlp4 and anonymous function naming Julie Farago
2002-07-03  8:08   ` Daniel de Rauglaudre
2002-07-02 21:30 ` [Caml-list] embedding OCaml into C on win32 Alexander V.Voinov
2002-07-02 22:32   ` Alexander V.Voinov

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).