summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/support/camltk.h
diff options
context:
space:
mode:
authorXavier Clerc <xavier.clerc@inria.fr>2013-09-09 09:32:00 +0000
committerXavier Clerc <xavier.clerc@inria.fr>2013-09-09 09:32:00 +0000
commite82104a755463d481667650ba4f00de535048f39 (patch)
tree054c7de9b2992be063de2dd22b56ee5993d5a374 /otherlibs/labltk/support/camltk.h
parent83ca86dd2309914aa458bc25fd265f0bcadaa337 (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.h68
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"