From: Stefano Zacchiroli Date: Thu, 22 Jan 2004 15:50:16 +0000 (+0000) Subject: abstracted over which transformer gTopLevel uses (ocaml or xslt) X-Git-Tag: V_0_5_1_4~11 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=abc1538e60ab29caaacd3a9825cea25413cffac3;p=helm.git abstracted over which transformer gTopLevel uses (ocaml or xslt) --- diff --git a/helm/gTopLevel/chosenTransformer.ml b/helm/gTopLevel/chosenTransformer.ml new file mode 100644 index 000000000..85e27049a --- /dev/null +++ b/helm/gTopLevel/chosenTransformer.ml @@ -0,0 +1,2 @@ +(* include ApplyStylesheets *) +include ApplyTransformation diff --git a/helm/gTopLevel/chosenTransformer.mli b/helm/gTopLevel/chosenTransformer.mli new file mode 100644 index 000000000..9373e384d --- /dev/null +++ b/helm/gTopLevel/chosenTransformer.mli @@ -0,0 +1,52 @@ +(* Copyright (C) 2000-2004, HELM Team. + * + * This file is part of HELM, an Hypertextual, Electronic + * Library of Mathematics, developed at the Computer Science + * Department, University of Bologna, Italy. + * + * HELM is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * HELM 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with HELM; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, + * MA 02111-1307, USA. + * + * For details, see the HELM World-Wide-Web page, + * http://cs.unibo.it/helm/. + *) + +(***************************************************************************) +(* *) +(* PROJECT HELM *) +(* *) +(* Andrea Asperti *) +(* 21/11/2003 *) +(* *) +(* *) +(***************************************************************************) + +val reload_stylesheets: unit -> unit + +val mml_of_cic_sequent : + Cic.metasenv -> + int * Cic.context * Cic.term -> + Gdome.document * + ((Cic.id, Cic.term) Hashtbl.t * + (Cic.id, Cic.id option) Hashtbl.t * + (string, Cic.hypothesis) Hashtbl.t) + +val mml_of_cic_object : + explode_all:bool -> + UriManager.uri -> + Cic.annobj -> + (string, string) Hashtbl.t -> + (string, Cic2acic.anntypes) Hashtbl.t -> Gdome.document + diff --git a/helm/gTopLevel/termViewer.ml b/helm/gTopLevel/termViewer.ml index 409c7cd70..91b2dd1a7 100644 --- a/helm/gTopLevel/termViewer.ml +++ b/helm/gTopLevel/termViewer.ml @@ -32,8 +32,6 @@ (* *) (***************************************************************************) -let use_stylesheets = ref false;;(* false performs the transformations in OCaml*) - (* List utility functions *) exception Skip;; @@ -110,10 +108,7 @@ class sequent_viewer obj = method load_sequent metasenv sequent = (**** SIAM QUI ****) let sequent_mml,(ids_to_terms,ids_to_father_ids,ids_to_hypotheses) = - if !use_stylesheets then - ApplyStylesheets.mml_of_cic_sequent metasenv sequent - else - ApplyTransformation.mml_of_cic_sequent metasenv sequent + ChosenTransformer.mml_of_cic_sequent metasenv sequent in self#load_doc ~dom:sequent_mml ; (* @@ -213,12 +208,9 @@ class proof_viewer obj = = Cic2acic.acic_object_of_cic_object currentproof in let mml = - if !use_stylesheets then - ApplyStylesheets.mml_of_cic_object - ~explode_all:true uri acic ids_to_inner_sorts ids_to_inner_types - else - ApplyTransformation.mml_of_cic_object - ~explode_all:true uri acic ids_to_inner_sorts ids_to_inner_types in + ChosenTransformer.mml_of_cic_object + ~explode_all:true uri acic ids_to_inner_sorts ids_to_inner_types + in current_infos <- Some (ids_to_terms,ids_to_father_ids,ids_to_conjectures,ids_to_hypotheses); diff --git a/helm/gTopLevel/termViewer.mli b/helm/gTopLevel/termViewer.mli index db4c05899..0cc9ba93b 100644 --- a/helm/gTopLevel/termViewer.mli +++ b/helm/gTopLevel/termViewer.mli @@ -35,8 +35,6 @@ (** A widget to render sequents **) -val use_stylesheets: bool ref;; (* false performs the transformations in OCaml*) - class sequent_viewer : Gtk_mathview.math_view Gtk.obj -> object