From 2c6c4e4bce6d2643c3a309722ca84dc8183357ac Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 4 Apr 2005 20:14:41 +0000
Subject: Italian Swadesh (incomplete)

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

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

diff --git a/examples/stoneage/StoneageResIta.gf b/examples/stoneage/StoneageResIta.gf
new file mode 100644
index 000000000..d8b025004
--- /dev/null
+++ b/examples/stoneage/StoneageResIta.gf
@@ -0,0 +1,25 @@
+resource StoneageResIta = open RulesIta, SyntaxIta, ParadigmsIta in {
+
+oper
+  PresV : V -> NP -> Phr = \v,s -> PresCl (mkSats s v) ;
+  PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> 
+    PresCl (mkSatsObject s v o) ;
+  PresV3 : V3 -> NP -> NP -> NP -> Phr = \v,s,o,r -> 
+    PresCl (insertObject (mkSatsObject s v o) v.c3 v.s3 r) ;
+  PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
+
+  PresReflV : V -> NP -> Phr = \v,s -> 
+    PresCl (insertObject (mkSats s v) accusative.p1 [] 
+      (reflPronNounPhrase (pgen2gen s.g) s.n s.p)) ;
+
+  PresCl : Sats -> Phr = \c -> 
+    {s = (UseCl (PosTP TPresent ASimul) 
+            (sats2clause c ** {lock_Cl = <>})
+         ).s ! Ind ; 
+     lock_Phr = <>
+    } ;
+ 
+  ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
+  ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
+
+}
\ No newline at end of file
-- 
cgit v1.2.3