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

Finnish adverbial existentials

Browse Source
This commit is contained in:
aarne
2006-06-18 20:51:40 +00:00
parent e47076fcec
commit dca9d90d00
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,4 +9,12 @@ concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
isDef = True --- "Jussin kolme autoa ovat" ; thus "...on" is missing 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)) ;
} }

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

@@ -1,3 +1,7 @@
abstract ExtraFinAbs = Extra [GenNP] ** { abstract ExtraFinAbs = Extra [GenNP] ** {
fun
AdvExistNP : Adv -> NP -> Cl ; -- kuvassa olemme me
AdvPredNP : Adv -> V -> NP -> Cl ; -- kuvassa hymyilee Veikko
} }