From e470c6281fc2ee7f53fa0ae41d76c30bb52b0f0b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 10 Nov 2003 15:45:42 +0000
Subject: New numeral grammars.

---
 grammars/numerals/ResNumSwedish.gf | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 grammars/numerals/ResNumSwedish.gf

(limited to 'grammars/numerals/ResNumSwedish.gf')

diff --git a/grammars/numerals/ResNumSwedish.gf b/grammars/numerals/ResNumSwedish.gf
new file mode 100644
index 000000000..2f4c80c9a
--- /dev/null
+++ b/grammars/numerals/ResNumSwedish.gf
@@ -0,0 +1,23 @@
+resource ResNumSwedish = {
+  param DForm = ental | ton | tiotal ;
+  oper mkTal : Str -> Str -> Str -> {
+    s : DForm => Str 
+  }
+  = \ två -> \ tolv -> \ tjugo -> {
+    s = table {
+      ental => två ;
+      ton => tolv ;
+      tiotal => tjugo 
+    }
+    } ;
+  oper regTal : Str -> {
+    s : DForm => Str 
+  }
+  = \ fem -> mkTal fem (fem + "ton")(fem + "tio");
+  oper ss : Str -> {
+    s : Str 
+  }
+  = \ s -> {
+    s = s 
+  } ;
+  }
-- 
cgit v1.2.3