blob: e3259fc66945fe4b3654f2868bb610884c8651c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(*************************************************************************)
(* *)
(* Objective Caml LablTk library *)
(* *)
(* Francois Rouaix, Francois Pessaux and Jun Furuse *)
(* projet Cristal, INRIA Rocquencourt *)
(* Jacques Garrigue, Kyoto University RIMS *)
(* *)
(* Copyright 1999 Institut National de Recherche en Informatique et *)
(* en Automatique and Kyoto University. All rights reserved. *)
(* This file is distributed under the terms of the GNU Library *)
(* General Public License. *)
(* *)
(*************************************************************************)
(* $Id$ *)
(* The code run on initialisation, in addition to normal Tk code
* NOTE: camltk has not fully been initialised yet
*)
external tcl_eval : string -> string
= "camltk_tcl_eval"
let tcl_command s = ignore (tcl_eval s);;
open Printf
let dynload args =
List.iter Dynlink.loadfile args
(* Default modules include everything from
let default_modules = []
*)
(* [caml::run foo.cmo .. bar.cmo] is now available from Tcl *)
let init () =
Dynlink.init();
(* Make it unsafe by default, with everything available *)
Dynlink.allow_unsafe_modules true;
Dynlink.add_interfaces [] [];
let s = register_callback Widget.dummy dynload in
tcl_command (sprintf "proc caml::run {l} {camlcb %s l}" s)
let _ =
Printexc.print init ()
(* A typical master program would then
* caml::run foo.cmo
* # during initialisation, "foo" was registered as a tcl procedure
* foo x y z
* # proceed with some Tcl code calling foo
*)
|
