msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

finnish exts added

Browse Source
This commit is contained in:
aarne
2006-11-12 21:36:07 +00:00
parent 482e08bf9f
commit 66aa6d3166
2 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/resource-1.0/finnish/ExtraFin.gf
View File

@@ -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 lin
GenNP np = { GenNP np = {
@@ -30,4 +32,14 @@ concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Coordination, Prelude
mkClause (\_ -> adv.s) np.a (insertObj mkClause (\_ -> adv.s) np.a (insertObj
(\\_,b,_ => np.s ! NPCase Nom) (predV v)) ; (\\_,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
} ;
} }

3
lib/resource-1.0/finnish/ExtraFinAbs.gf
View File

@@ -5,4 +5,7 @@ abstract ExtraFinAbs = Extra [
AdvExistNP : Adv -> NP -> Cl ; -- kuvassa olemme me AdvExistNP : Adv -> NP -> Cl ; -- kuvassa olemme me
AdvPredNP : Adv -> V -> NP -> Cl ; -- kuvassa hymyilee Veikko AdvPredNP : Adv -> V -> NP -> Cl ; -- kuvassa hymyilee Veikko
i_implicPron : Pron ; -- (minä), minut, ...
whatPart_IP : IP ;
} }