From dca9d90d00fa69e711b8e4ceafa29ed64be18934 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 18 Jun 2006 20:51:40 +0000 Subject: [PATCH] Finnish adverbial existentials --- lib/resource-1.0/finnish/ExtraFin.gf | 8 ++++++++ lib/resource-1.0/finnish/ExtraFinAbs.gf | 4 ++++ 2 files changed, 12 insertions(+) diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource-1.0/finnish/ExtraFin.gf index 37580d32e..eb039d2f7 100644 --- a/lib/resource-1.0/finnish/ExtraFin.gf +++ b/lib/resource-1.0/finnish/ExtraFin.gf @@ -9,4 +9,12 @@ concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in { isDef = True --- "Jussin kolme autoa ovat" ; thus "...on" is missing } ; + AdvExistNP adv np = + mkClause (\_ -> adv.s) np.a (insertObj + (\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom}))) ; + + AdvPredNP adv v np = + mkClause (\_ -> adv.s) np.a (insertObj + (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ; + } diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource-1.0/finnish/ExtraFinAbs.gf index 0a9b562b4..ae4580976 100644 --- a/lib/resource-1.0/finnish/ExtraFinAbs.gf +++ b/lib/resource-1.0/finnish/ExtraFinAbs.gf @@ -1,3 +1,7 @@ abstract ExtraFinAbs = Extra [GenNP] ** { + fun + AdvExistNP : Adv -> NP -> Cl ; -- kuvassa olemme me + AdvPredNP : Adv -> V -> NP -> Cl ; -- kuvassa hymyilee Veikko + }