raw HTML markap generator

diff --git a/helm/ocaml/mathql/mQueryHTML.ml b/helm/ocaml/mathql/mQueryHTML.ml
new file mode 100644 (file)
index 0000000..ff6cb11
--- /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"