From 14cd757e133fa5fbd9e8dacbb5b812f8579381ee Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 28 Jun 2005 17:36:42 +0000
Subject: started Finnish

---
 examples/stoneage/StoneageResFin.gf | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 examples/stoneage/StoneageResFin.gf

(limited to 'examples/stoneage/StoneageResFin.gf')

diff --git a/examples/stoneage/StoneageResFin.gf b/examples/stoneage/StoneageResFin.gf
new file mode 100644
index 000000000..3542f5f07
--- /dev/null
+++ b/examples/stoneage/StoneageResFin.gf
@@ -0,0 +1,15 @@
+resource StoneageResFin = open ResourceFin, ParadigmsFin in {
+
+oper
+  PresV : V -> NP -> Phr = \v,s -> PresCl (SPredV s v) ;
+  PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> PresCl (SPredV2 s v o) ;
+  PresV3 : V3 -> NP -> NP -> NP -> Phr = \v,s,o,r -> PresCl (SPredV3 s v o r) ;
+  PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
+
+  PresCl : Cl -> Phr = 
+    \c -> { s = (UseCl (PosTP TPresent ASimul) c).s } ** {lock_Phr = <>} ;
+ 
+  ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
+  ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
+
+}
-- 
cgit v1.2.3