From d09777a9aaeb580d8e793ad5e572296eb4c351d9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 29 Jan 2004 12:57:32 +0000
Subject: New order among numerals.

---
 examples/numerals/finnish.gf | 60 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 examples/numerals/finnish.gf

(limited to 'examples/numerals/finnish.gf')

diff --git a/examples/numerals/finnish.gf b/examples/numerals/finnish.gf
new file mode 100644
index 000000000..6cb789ff2
--- /dev/null
+++ b/examples/numerals/finnish.gf
@@ -0,0 +1,60 @@
+include numerals.Abs.gf ;
+
+param Place = attr  | indep  ;
+param Nm = sg  | pl  ;
+oper sata : Nm => Str =
+  table {{sg} => "sata" ; {pl} => "sataa"} ;
+oper tuhat : Nm => Str =
+  table {{sg} => "tuhat" ; {pl} => "tuhatta"} ;
+lincat Numeral = {s : Str} ;
+lincat Digit = {s : Str} ;
+lincat Sub10 = {inh : Nm ; s : Place => Str} ;
+lincat Sub100 = {inh : Nm ; s : Place => Str} ;
+lincat Sub1000 = {inh : Nm ; s : Place => Str} ;
+lincat Sub1000000 = {s : Str} ;
+lin num x0 =
+  {s = x0.s} ;
+lin n2  =
+  {s = "kaksi"} ;
+lin n3  =
+  {s = "kolme"} ;
+lin n4  =
+  {s = "neljä"} ;
+lin n5  =
+  {s = "viisi"} ;
+lin n6  =
+  {s = "kuusi"} ;
+lin n7  =
+  {s = "seitsemän"} ;
+lin n8  =
+  {s = "kahdeksan"} ;
+lin n9  =
+  {s = "yhdeksän"} ;
+lin pot01  =
+  {inh = sg ; s = table {{attr} => [] ; {indep} => "yksi"}} ;
+lin pot0 d =
+  {inh = pl ; s = table {p => d.s}} ;
+lin pot110  =
+  {inh = pl ; s = table {p => "kymmenen"}} ;
+lin pot111  =
+  {inh = pl ; s = table {p => "yksi"++"toista"}} ;
+lin pot1to19 d =
+  {inh = pl ; s = table {p => d.s ++ "toista"}} ;
+lin pot0as1 n =
+  {inh = n.inh ; s = table {p => n.s ! p}} ;
+lin pot1 d =
+  {inh = pl ; s = table {p => d.s ++ "kymmentä"}} ;
+lin pot1plus d e =
+  {inh = pl ; s = table {p => d.s ++ "kymmentä" ++ e.s ! indep}} ;
+lin pot1as2 n =
+  {inh = n.inh ; s = table {p => n.s ! p}} ;
+lin pot2 d =
+  {inh = pl ; s = table {p => (d.s ! attr) ++ sata ! (d.inh)}} ;
+lin pot2plus d e =
+  {inh = pl ; s = table {p => (d.s ! attr) ++ (sata ! (d.inh)) ++ e.s ! indep}} ;
+lin pot2as3 n =
+  {s = n.s ! indep} ;
+lin pot3 n =
+  {s = (n.s ! attr) ++ tuhat ! (n.inh)} ;
+lin pot3plus n m =
+  {s = (n.s ! attr) ++ (tuhat ! (n.inh)) ++ m.s ! indep} ;
-- 
cgit v1.2.3