Version française
Home     About     Download     Resources     Contact us    
Browse thread
[Caml-list] dynlink
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Pietro Abate <Pietro.Abate@a...>
Subject: Re: [Caml-list] dynlink
tnx for your help. below the working code for future reference...

On Tue, Apr 06, 2004 at 07:58:46AM +0200, Nicolas Cannasse wrote:
> (this should work, I have been using 2 years ago)

let modules = Hashtbl.create 17;;
let are_loading = Hashtbl.create 17;;
let load_path = ["."] ;;

let find_in_path path name =
  let filename = (String.uncapitalize name) ^ ".cmo" in
  if not (Filename.is_implicit filename) then
    if Sys.file_exists filename then filename else raise Not_found
  else begin
    let rec try_dir = function
        [] -> raise Not_found
        | dir::rem ->
                let fullname = Filename.concat dir filename in
                if Sys.file_exists fullname then fullname
                else try_dir rem
    in try_dir path
  end

let rec load_module modname =
    try
        Hashtbl.find modules modname
    with
        Not_found ->
            try
                Hashtbl.add modules modname ();
                Hashtbl.add are_loading modname ();
                Printf.printf "Loading: %s\n" modname ;
                Dynlink.loadfile (modname);
		(* register dynamic functions *)
                Hashtbl.remove are_loading modname;
            with Dynlink.Error(Dynlink.Unavailable_unit(depend))
            |Dynlink.Error(
                Dynlink.Linking_error(_,Dynlink.Undefined_global(depend))
                ) as e ->
                        if Hashtbl.mem are_loading depend
                        then failwith ("Crossing with "^depend);
                        load_module (find_in_path load_path depend);
                        Hashtbl.remove modules modname;
                        load_module modname

let _ =
	Dynlink.init();
	load_module (find_in_path load_path "modulename")

p
-- 
++ "All great truths begin as blasphemies." -George Bernard Shaw
++ Please avoid sending me Word or PowerPoint attachments.
   See http://www.fsf.org/philosophy/no-word-attachments.html

-------------------
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