From 66aa6d31668c2b1e5ea98b838ae4f3fefae2513f Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 12 Nov 2006 21:36:07 +0000 Subject: [PATCH] finnish exts added --- lib/resource-1.0/finnish/ExtraFin.gf | 14 +++++++++++++- lib/resource-1.0/finnish/ExtraFinAbs.gf | 3 +++ 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource-1.0/finnish/ExtraFin.gf index 92da3a682..595419283 100644 --- a/lib/resource-1.0/finnish/ExtraFin.gf +++ b/lib/resource-1.0/finnish/ExtraFin.gf @@ -1,4 +1,6 @@ -concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Coordination, Prelude in { +--# -path=.:abstract:common:prelude + +concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, MorphoFin, Coordination, Prelude, StructuralFin in { lin GenNP np = { @@ -30,4 +32,14 @@ concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Coordination, Prelude mkClause (\_ -> adv.s) np.a (insertObj (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ; + i_implicPron = mkPronoun [] "minun" "minua" "minuna" "minuun" Sg P1 ; + whatPart_IP = { + s = table { + NPCase Nom | NPAcc => "mitä" ; + c => whatSg_IP.s ! c + } ; + n = Sg + } ; + + } diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource-1.0/finnish/ExtraFinAbs.gf index c9777a7bb..651c4826f 100644 --- a/lib/resource-1.0/finnish/ExtraFinAbs.gf +++ b/lib/resource-1.0/finnish/ExtraFinAbs.gf @@ -5,4 +5,7 @@ abstract ExtraFinAbs = Extra [ AdvExistNP : Adv -> NP -> Cl ; -- kuvassa olemme me AdvPredNP : Adv -> V -> NP -> Cl ; -- kuvassa hymyilee Veikko + i_implicPron : Pron ; -- (minä), minut, ... + whatPart_IP : IP ; + }