X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FDEVEL%2Fmathml_editor%2Focaml%2Fi_mathml_editor.ml;fp=helm%2FDEVEL%2Fmathml_editor%2Focaml%2Fi_mathml_editor.ml;h=0000000000000000000000000000000000000000;hp=d865898d614bb74a811a5a3f2a50c3f0ef8e922f;hb=1696761e4b8576e8ed81caa905fd108717019226;hpb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1

diff --git a/helm/DEVEL/mathml_editor/ocaml/i_mathml_editor.ml b/helm/DEVEL/mathml_editor/ocaml/i_mathml_editor.ml
deleted file mode 100644
index d865898d6..000000000
--- a/helm/DEVEL/mathml_editor/ocaml/i_mathml_editor.ml
+++ /dev/null
@@ -1,76 +0,0 @@
-(* This file is part of EdiTeX, an editor of mathematical
- * expressions based on TeX syntax.
- * 
- * Copyright (C) 2002-2003 Luca Padovani <lpadovan@cs.unibo.it>,
- *                    2003 Paolo Marinelli <pmarinel@cs.unibo.it>.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- *
- * For more information, please visit the project's home page
- * http://helm.cs.unibo.it/editex/
- * or send an email to <lpadovan@cs.unibo.it>
- *)
-
-type t
-
-external get_default_dictionary_path : unit -> string
-  = "ml_mathml_editor_get_default_dictionary_path"
-
-external get_default_mathml_stylesheet_path : unit -> string
-  = "ml_mathml_editor_get_default_mathml_stylesheet_path"
-
-external get_default_tex_stylesheet_path : unit -> string
-  = "ml_mathml_editor_get_default_tex_stylesheet_path"
-
-external raw_create : 
-  alt_lexer:bool ->
-  dictionary_uri: string ->
-  mml_uri: string -> 
-  tml_uri: string ->
-  log:(int -> string -> unit) ->
-  t
-  = "ml_mathml_editor_new"
-let create ?(alt_lexer=false) = raw_create ~alt_lexer
-
-external freeze : editor:t -> bool
-  = "ml_mathml_editor_freeze"
-
-external thaw : editor:t -> bool
-  = "ml_mathml_editor_thaw"
-
-external reset : editor:t -> unit
-  = "ml_mathml_editor_reset"
-
-external push : editor:t -> ch:char -> unit
-  = "ml_mathml_editor_push"
-
-external drop : editor:t -> alt:bool -> unit
-  = "ml_mathml_editor_drop"
-
-external cursor_hide : editor:t -> unit
-  = "ml_mathml_editor_cursor_hide"
-
-external cursor_show : editor:t -> unit
-  = "ml_mathml_editor_cursor_show"
-
-external get_tex : editor:t -> string
-  = "ml_mathml_editor_get_tex"
-
-external get_tml : editor:t -> TDocument.t
-  = "ml_mathml_editor_get_tml"
-
-external get_mml : editor:t -> TDocument.t
-  = "ml_mathml_editor_get_mml"
-