From: Pietro Abate <Pietro.Abate@anu.edu.au>
To: ocaml ml <caml-list@inria.fr>
Subject: Re: [Caml-list] dynlink
Date: Tue, 6 Apr 2004 17:46:39 +1000 [thread overview]
Message-ID: <20040406074639.GA12801@pulp.anu.edu.au> (raw)
In-Reply-To: <006301c41b9c$3d475670$19b0e152@warp>
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
next prev parent reply other threads:[~2004-04-06 7:46 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-04-06 2:51 Pietro Abate
2004-04-06 5:58 ` Nicolas Cannasse
2004-04-06 7:46 ` Pietro Abate [this message]
-- strict thread matches above, loose matches on Subject: below --
2015-09-09 13:09 [Caml-list] Dynlink Sébastien Hinderer
2015-09-09 13:19 ` Olivier Andrieu
2015-09-09 13:29 ` Sébastien Hinderer
2015-09-09 13:34 ` Xavier Leroy
2015-09-09 13:44 ` Sébastien Hinderer
2015-09-09 16:03 ` Gerd Stolpmann
2015-09-10 12:08 ` Sébastien Hinderer
2015-09-10 16:57 ` Gerd Stolpmann
2015-09-09 13:25 ` Gabriel Scherer
2002-01-07 20:49 Warp
2002-01-08 21:43 ` Warp
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20040406074639.GA12801@pulp.anu.edu.au \
--to=pietro.abate@anu.edu.au \
--cc=caml-list@inria.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).