New numeral grammars.

1 files changed, 23 insertions, 0 deletions

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 
+  } ;
+  }