From: Andrea Asperti Date: Fri, 20 May 2011 08:45:36 +0000 (+0000) Subject: rm rendering attrs X-Git-Tag: make_still_working~2507 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=8143bd09a92b3a1564e19c449e82c1ef4377f888;p=helm.git rm rendering attrs --- diff --git a/matitaB/components/content_pres/.depend b/matitaB/components/content_pres/.depend index dcc30c6ee..bcbd3cae2 100644 --- a/matitaB/components/content_pres/.depend +++ b/matitaB/components/content_pres/.depend @@ -12,14 +12,14 @@ smallLexer.cmo: smallLexer.cmi smallLexer.cmx: smallLexer.cmi cicNotationParser.cmo: cicNotationLexer.cmi cicNotationParser.cmi cicNotationParser.cmx: cicNotationLexer.cmx cicNotationParser.cmi -box.cmo: renderingAttrs.cmi box.cmi -box.cmx: renderingAttrs.cmx box.cmi -termContentPres.cmo: renderingAttrs.cmi content2presMatcher.cmi \ - cicNotationParser.cmi termContentPres.cmi -termContentPres.cmx: renderingAttrs.cmx content2presMatcher.cmx \ - cicNotationParser.cmx termContentPres.cmi -boxPp.cmo: renderingAttrs.cmi box.cmi boxPp.cmi -boxPp.cmx: renderingAttrs.cmx box.cmx boxPp.cmi +box.cmo: box.cmi +box.cmx: box.cmi +termContentPres.cmo: content2presMatcher.cmi cicNotationParser.cmi \ + termContentPres.cmi +termContentPres.cmx: content2presMatcher.cmx cicNotationParser.cmx \ + termContentPres.cmi +boxPp.cmo: box.cmi boxPp.cmi +boxPp.cmx: box.cmx boxPp.cmi cicNotationPres.cmo: termContentPres.cmi box.cmi cicNotationPres.cmi cicNotationPres.cmx: termContentPres.cmx box.cmx cicNotationPres.cmi content2presMatcher.cmo: content2presMatcher.cmi diff --git a/matitaB/components/content_pres/renderingAttrs.ml b/matitaB/components/content_pres/renderingAttrs.ml deleted file mode 100644 index 256238d3d..000000000 --- a/matitaB/components/content_pres/renderingAttrs.ml +++ /dev/null @@ -1,54 +0,0 @@ -(* Copyright (C) 2005, 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://helm.cs.unibo.it/ - *) - -(* $Id$ *) - -type xml_attribute = string option * string * string -type markup = [ `MathML | `BoxML ] - -let color1 = "blue" -(* let color2 = "red" *) -let color2 = "blue" - -let keyword_attributes = function - | `MathML -> [ None, "mathcolor", color1 ] - | `BoxML -> [ None, "color", color1 ] - -let builtin_symbol_attributes = function - | `MathML -> [ None, "mathcolor", color1 ] - | `BoxML -> [ None, "color", color1 ] - -let object_keyword_attributes = function - | `MathML -> [ None, "mathcolor", color2 ] - | `BoxML -> [ None, "color", color2 ] - -let symbol_attributes _ = [] -let ident_attributes _ = [] -let number_attributes _ = [] - -let spacing_attributes _ = [ None, "spacing", "0.5em" ] -let indent_attributes _ = [ None, "indent", "0.5em" ] -let small_skip_attributes _ = [ None, "width", "0.5em" ] - diff --git a/matitaB/components/content_pres/renderingAttrs.mli b/matitaB/components/content_pres/renderingAttrs.mli deleted file mode 100644 index 64323598b..000000000 --- a/matitaB/components/content_pres/renderingAttrs.mli +++ /dev/null @@ -1,57 +0,0 @@ -(* Copyright (C) 2005, 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://helm.cs.unibo.it/ - *) - -(** XML attributes for MathML/BoxML rendering of terms and objects - * markup defaults to MathML in all functions below *) - -type xml_attribute = string option * string * string -type markup = [ `MathML | `BoxML ] - -(** High-level attributes *) - -val keyword_attributes: (* let, match, in, ... *) - markup -> xml_attribute list - -val builtin_symbol_attributes: (* \\Pi, \\to, ... *) - markup -> xml_attribute list - -val symbol_attributes: (* +, *, ... *) - markup -> xml_attribute list - -val ident_attributes: (* nat, plus, ... *) - markup -> xml_attribute list - -val number_attributes: (* 1, 2, ... *) - markup -> xml_attribute list - -val object_keyword_attributes: (* Body, Definition, ... *) - markup -> xml_attribute list - -(** Low-level attributes *) - -val spacing_attributes: markup -> xml_attribute list -val indent_attributes: markup -> xml_attribute list -val small_skip_attributes: markup -> xml_attribute list -