From a04c40348b7a8bc6cc237f992b8abb70a87d2f7f Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 22 Oct 2004 07:59:13 +0000
Subject: basic

---
 grammars/basic/tut1.Sve.gf | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 grammars/basic/tut1.Sve.gf

(limited to 'grammars/basic/tut1.Sve.gf')

diff --git a/grammars/basic/tut1.Sve.gf b/grammars/basic/tut1.Sve.gf
new file mode 100644
index 000000000..1bf610ecc
--- /dev/null
+++ b/grammars/basic/tut1.Sve.gf
@@ -0,0 +1,32 @@
+include tut1.Abs.gf ;
+
+param Ord = dir | indir | sub  ;
+lincat S  = {s : Ord => Str} ;
+lincat NP = {s : Str} ;
+lincat A1 = {s : Str} ;
+lincat CN = {s : Str} ;
+lin PredA1 Q F = {s = table {
+   dir   => Q.s ++ "är" ++ F.s ; 
+   indir => "är" ++ Q.s ++ F.s ; 
+   sub   => Q.s ++ "är" ++ F.s}} ;
+lin CondS A B = {s = table {
+   dir   => "om" ++ A.s ! sub ++ "så" ++ B.s ! indir ; 
+   indir => B.s ! indir ++ "om" ++ A.s ! sub ; 
+   sub   => B.s ! sub ++ "om" ++ A.s ! sub}} ;
+lin DisjA1 F G =
+  {s = F.s ++ "eller" ++ G.s} ;
+lin Every A =
+  {s = "varje" ++ A.s} ;
+lin ModA1 A F =
+  {s = F.s ++ A.s} ;
+lin Number  =
+  {s = "tal"} ;
+lin Even  =
+  {s = "jämnt"} ;
+lin Odd  =
+  {s = "udda"} ;
+lin Prime  =
+  {s = "primt"} ;
+lin Zero  =
+  {s = "noll"} ;
+
-- 
cgit v1.2.3