|
Packit |
bd2e5d |
/*************************************************************************/
|
|
Packit |
bd2e5d |
/* */
|
|
Packit |
bd2e5d |
/* OCaml LablTk library */
|
|
Packit |
bd2e5d |
/* */
|
|
Packit |
bd2e5d |
/* Francois Rouaix, Francois Pessaux and Jun Furuse */
|
|
Packit |
bd2e5d |
/* projet Cristal, INRIA Rocquencourt */
|
|
Packit |
bd2e5d |
/* Jacques Garrigue, Kyoto University RIMS */
|
|
Packit |
bd2e5d |
/* */
|
|
Packit |
bd2e5d |
/* Copyright 1999 Institut National de Recherche en Informatique et */
|
|
Packit |
bd2e5d |
/* en Automatique and Kyoto University. All rights reserved. */
|
|
Packit |
bd2e5d |
/* This file is distributed under the terms of the GNU Library */
|
|
Packit |
bd2e5d |
/* General Public License, with the special exception on linking */
|
|
Packit |
bd2e5d |
/* described in file ../../../LICENSE. */
|
|
Packit |
bd2e5d |
/* */
|
|
Packit |
bd2e5d |
/*************************************************************************/
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* $Id$ */
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
#if defined(_WIN32) && defined(CAML_DLL) && defined(IN_CAMLTKSUPPORT)
|
|
Packit |
bd2e5d |
#define CAMLTKextern CAMLexport
|
|
Packit |
bd2e5d |
#else
|
|
Packit |
bd2e5d |
#define CAMLTKextern CAMLextern
|
|
Packit |
bd2e5d |
#endif
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* compatibility with earlier versions of Tcl/Tk */
|
|
Packit |
bd2e5d |
#ifndef CONST84
|
|
Packit |
bd2e5d |
#define CONST84
|
|
Packit |
bd2e5d |
#endif
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/*Tcl_GetResult(), Tcl_GetStringResult(), Tcl_SetResult(), */
|
|
Packit |
bd2e5d |
/*Tcl_SetStringResult(), Tcl_GetErrorLine() */
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* if Tcl_GetStringResult is not defined, we use interp->result */
|
|
Packit |
bd2e5d |
/*#ifndef Tcl_GetStringResult*/
|
|
Packit |
bd2e5d |
/*# define Tcl_GetStringResult(interp) (interp->result)*/
|
|
Packit |
bd2e5d |
/*#endif*/
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* cltkMisc.c */
|
|
Packit |
bd2e5d |
/* copy an OCaml string to the C heap. Must be deallocated with stat_free */
|
|
Packit |
bd2e5d |
extern char *string_to_c(value s);
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* cltkUtf.c */
|
|
Packit |
bd2e5d |
extern value tcl_string_to_caml( const char * );
|
|
Packit |
bd2e5d |
extern char * caml_string_to_tcl( value );
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* cltkEval.c */
|
|
Packit |
bd2e5d |
CAMLTKextern Tcl_Interp *cltclinterp; /* The Tcl interpretor */
|
|
Packit |
bd2e5d |
extern value copy_string_list(int argc, char **argv);
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* cltkCaml.c */
|
|
Packit |
bd2e5d |
/* pointers to OCaml values */
|
|
Packit |
bd2e5d |
extern value *tkerror_exn;
|
|
Packit |
bd2e5d |
extern value *handler_code;
|
|
Packit |
bd2e5d |
extern int CamlCBCmd(ClientData clientdata, Tcl_Interp *interp,
|
|
Packit |
bd2e5d |
int argc, CONST84 char *argv[]);
|
|
Packit |
bd2e5d |
CAMLTKextern void tk_error(const char * errmsg) Noreturn;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* cltkMain.c */
|
|
Packit |
bd2e5d |
extern int signal_events;
|
|
Packit |
bd2e5d |
extern void invoke_pending_caml_signals(ClientData clientdata);
|
|
Packit |
bd2e5d |
extern Tk_Window cltk_mainWindow;
|
|
Packit |
bd2e5d |
extern int cltk_slave_mode;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
/* check that initialisations took place */
|
|
Packit |
bd2e5d |
#define CheckInit() if (!cltclinterp) tk_error("Tcl/Tk not initialised")
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
#define RCNAME ".camltkrc"
|
|
Packit |
bd2e5d |
#define CAMLCB "camlcb"
|