diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2008-07-01 09:55:52 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2008-07-01 09:55:52 +0000 |
| commit | 10b38811b6fdd4d37ad8fd93f17f58cb2884cd0e (patch) | |
| tree | 8d3cd452522295bbf1f5f1b0d34648a4e43d9064 /otherlibs/labltk/support/cltkDMain.c | |
| parent | 5abe61a5ade8c30c3c634748b2346ac88f3a8055 (diff) | |
Support for tk8.5: correcting tk_incs.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8899 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkDMain.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkDMain.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/otherlibs/labltk/support/cltkDMain.c b/otherlibs/labltk/support/cltkDMain.c index 7b2e59bc2..9272e8fc2 100644 --- a/otherlibs/labltk/support/cltkDMain.c +++ b/otherlibs/labltk/support/cltkDMain.c @@ -17,7 +17,7 @@ /* $Id$ */ #include <unistd.h> -#include <fcntl.h> +#include <fcntl.h> #include <tcl.h> #include <tk.h> #include "gc.h" @@ -34,7 +34,7 @@ #endif -/* +/* * Dealing with signals: when a signal handler is defined in Caml, * the actual execution of the signal handler upon reception of the * signal is delayed until we are sure we are out of the GC. @@ -48,7 +48,7 @@ int signal_events = 0; /* do we have a pending timer */ -void invoke_pending_caml_signals (clientdata) +void invoke_pending_caml_signals (clientdata) ClientData clientdata; { signal_events = 0; @@ -203,7 +203,7 @@ int Caml_Init(interp) cltclinterp = interp; /* Create the camlcallback command */ Tcl_CreateCommand(cltclinterp, - CAMLCB, CamlCBCmd, + CAMLCB, CamlCBCmd, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); /* This is required by "unknown" and thus autoload */ @@ -220,7 +220,7 @@ int Caml_Init(interp) strcat(f, home); strcat(f, "/"); strcat(f, RCNAME); - if (0 == access(f,R_OK)) + if (0 == access(f,R_OK)) if (TCL_OK != Tcl_EvalFile(cltclinterp,f)) { stat_free(f); tk_error(cltclinterp->result); @@ -228,7 +228,7 @@ int Caml_Init(interp) stat_free(f); } } - + /* Initialisations from caml_main */ { int verbose_init = 0, |