From 2865afb3a2ebce0376087c1cd41ab7146a6bdde4 Mon Sep 17 00:00:00 2001
From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Wed, 4 Sep 2002 17:05:21 +0000
Subject: [PATCH] raw HTML markap generator

---
 helm/ocaml/mathql/mQueryHTML.ml | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 helm/ocaml/mathql/mQueryHTML.ml

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"
-- 
2.39.2