From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Wed, 4 Sep 2002 17:05:21 +0000 (+0000)
Subject: raw HTML markap generator
X-Git-Tag: new_mathql_before_first_merge~50
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=2865afb3a2ebce0376087c1cd41ab7146a6bdde4;p=helm.git

raw HTML markap generator
---

diff --git a/helm/ocaml/mathql/mQueryHTML.ml b/helm/ocaml/mathql/mQueryHTML.ml
new file mode 100644
index 000000000..ff6cb1191
--- /dev/null
+++ b/helm/ocaml/mathql/mQueryHTML.ml
@@ -0,0 +1,21 @@
+(* raw HTML representation **************************************************)
+
+let key s = "<font color=\"blue\">" ^ s ^ " </font>"
+
+let sub s = "<font color=\"blue\"> " ^ s ^ " </font>"
+
+let sub2 s = "<font color=\"blue\">" ^ s ^ "</font>"
+
+let sym s = s
+
+let sep s = s
+
+let str s = "<font color=\"red\">'" ^ s ^ "'</font>"
+
+let pat s = "<font color=\"red\">\"" ^ s ^ "\"</font>"
+
+let res s = "<font color=\"brown\">\"" ^ s ^ "\"</font>"
+
+let nl () = "<br>\n"
+
+let par () = "<p>\n"