From b5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 29 Apr 2004 04:03:19 +0000
Subject: multimodality exx

---
 grammars/prelude/HTML.gf  |  8 ++++++++
 grammars/prelude/Latex.gf | 12 ++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 grammars/prelude/HTML.gf
 create mode 100644 grammars/prelude/Latex.gf

(limited to 'grammars/prelude')

diff --git a/grammars/prelude/HTML.gf b/grammars/prelude/HTML.gf
new file mode 100644
index 000000000..b469b582c
--- /dev/null
+++ b/grammars/prelude/HTML.gf
@@ -0,0 +1,8 @@
+resource HTML = open Prelude in {
+  oper
+    tag : Str -> Str = \t -> "<" + t + ">" ;
+    endtag : Str -> Str = \t -> tag ("/" + t) ;
+    intag : Str -> Str -> Str = \t,s -> tag t ++ s ++ endtag t ;
+    intagAttr : Str -> Str -> Str -> Str = 
+      \t,a,s -> ("<" + t) ++ (a + ">") ++ s ++ endtag t ;
+}
diff --git a/grammars/prelude/Latex.gf b/grammars/prelude/Latex.gf
new file mode 100644
index 000000000..2fd2f9ec8
--- /dev/null
+++ b/grammars/prelude/Latex.gf
@@ -0,0 +1,12 @@
+resource Latex = open Prelude in {
+  oper
+    command : Str -> Str = \c -> "\\" + c ;
+    fun1 : Str -> Str -> Str = \f,x -> "\\" + f + "{" ++ x ++ "}" ;    
+    fun2 : Str -> Str -> Str -> Str = 
+      \f,x,y -> "\\" + f + "{" ++ x ++ "}{" ++ y ++ "}" ;
+    begin : Str -> Str = \e -> "\\begin{" + e + "}" ;   
+    end : Str -> Str = \e -> "\\end{" + e + "}" ;
+    inEnv : Str -> Str -> Str = \e,s -> begin e ++ s ++ end e ;
+}
+    
+
-- 
cgit v1.2.3