/*************************************************************************/

/*                                                                       */

/*                         OCaml 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, with the special exception on linking       */

/*   described in file ../../../LICENSE.                                 */

/*                                                                       */

/*************************************************************************/

/* $Id$ */

#if defined(_WIN32) && defined(CAML_DLL) && defined(IN_CAMLTKSUPPORT)

#define CAMLTKextern CAMLexport

#else

#define CAMLTKextern CAMLextern

#endif

/* compatibility with earlier versions of Tcl/Tk */

#ifndef CONST84

#define CONST84

#endif

/*Tcl_GetResult(), Tcl_GetStringResult(), Tcl_SetResult(), */

  /*Tcl_SetStringResult(), Tcl_GetErrorLine() */

/* if Tcl_GetStringResult is not defined, we use interp->result */

/*#ifndef Tcl_GetStringResult*/

/*#  define Tcl_GetStringResult(interp) (interp->result)*/

/*#endif*/

/* cltkMisc.c */

/* copy an OCaml string to the C heap. Must be deallocated with stat_free */

extern char *string_to_c(value s);

/* cltkUtf.c */

extern value tcl_string_to_caml( const char * );

extern char * caml_string_to_tcl( value );

/* cltkEval.c */

CAMLTKextern Tcl_Interp *cltclinterp; /* The Tcl interpretor */

extern value copy_string_list(int argc, char **argv);

/* cltkCaml.c */

/* pointers to OCaml values */

extern value *tkerror_exn;

extern value *handler_code;

extern int CamlCBCmd(ClientData clientdata, Tcl_Interp *interp,

                     int argc, CONST84 char *argv[]);

CAMLTKextern void tk_error(const char * errmsg) Noreturn;

/* cltkMain.c */

extern int signal_events;

extern void invoke_pending_caml_signals(ClientData clientdata);

extern Tk_Window cltk_mainWindow;

extern int cltk_slave_mode;

/* check that initialisations took place */

#define CheckInit()  if (!cltclinterp) tk_error("Tcl/Tk not initialised")

#define RCNAME ".camltkrc"

#define CAMLCB "camlcb"