diff options
author | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
---|---|---|
committer | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
commit | e82104a755463d481667650ba4f00de535048f39 (patch) | |
tree | 054c7de9b2992be063de2dd22b56ee5993d5a374 /otherlibs/labltk/support/camltk.h | |
parent | 83ca86dd2309914aa458bc25fd265f0bcadaa337 (diff) |
Remove labltk from the distribution (will be available as a third-party library).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14077 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/camltk.h')
-rw-r--r-- | otherlibs/labltk/support/camltk.h | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/otherlibs/labltk/support/camltk.h b/otherlibs/labltk/support/camltk.h deleted file mode 100644 index 9efbbea33..000000000 --- a/otherlibs/labltk/support/camltk.h +++ /dev/null @@ -1,68 +0,0 @@ -/*************************************************************************/ -/* */ -/* 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( 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(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" |