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

1 files changed, 0 insertions, 62 deletions

diff --git a/otherlibs/labltk/support/cltkMisc.c b/otherlibs/labltk/support/cltkMisc.c
deleted file mode 100644
index 52c5d4846..000000000
--- a/otherlibs/labltk/support/cltkMisc.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/***********************************************************************/
-/*                                                                     */
-/*                 MLTk, Tcl/Tk interface of OCaml                     */
-/*                                                                     */
-/*    Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis    */
-/*               projet Cristal, INRIA Rocquencourt                    */
-/*            Jacques Garrigue, Kyoto University RIMS                  */
-/*                                                                     */
-/*  Copyright 2002 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 found in the OCaml source tree.          */
-/*                                                                     */
-/***********************************************************************/
-
-/* $Id$ */
-
-#include <string.h>
-#include <tcl.h>
-#include <tk.h>
-#include <mlvalues.h>
-#include <memory.h>
-#include "camltk.h"
-
-/* Parsing results */
-CAMLprim value camltk_splitlist (value v)
-{
-  int argc;
-  char **argv;
-  int result;
-  char *utf;
-
-  CheckInit();
-
-  utf = caml_string_to_tcl(v);
-  /* argv is allocated by Tcl, to be freed by us */
-  result = Tcl_SplitList(cltclinterp,utf,&argc,(const char ***)&argv);
-  switch(result) {
-  case TCL_OK:
-   { value res = copy_string_list(argc,argv);
-     Tcl_Free((char *)argv);    /* only one large block was allocated */
-     /* argv points into utf: utf must be freed after argv are freed */
-     stat_free( utf );
-     return res;
-   }
-  case TCL_ERROR:
-  default:
-    stat_free( utf );
-    tk_error(Tcl_GetStringResult(cltclinterp));
-  }
-}
-
-/* Copy an OCaml string to the C heap. Should deallocate with stat_free */
-char *string_to_c(value s)
-{
-  int l = string_length(s);
-  char *res = caml_stat_alloc(l + 1);
-  memmove (res, String_val (s), l);
-  res[l] = '\0';
-  return res;
-}