GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 09:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

completing Idiom implementations

Browse Source
This commit is contained in:
aarne
2006-02-21 11:09:30 +00:00
parent 29aa2b8499
commit 0365c6f346
13 changed files with 101 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
lib/resource-1.0/finnish/IdiomFin.gf
View File

@@ -3,5 +3,40 @@ concrete IdiomFin of Idiom = CatFin **
flags optimize=all_subs ;
lin
ExistNP np =
let
cas : Polarity -> NPForm = \p -> case p of {
Pos => NPCase Nom ; -- on olemassa luku
Neg => NPCase Part -- ei ole olemassa lukua
}
in
mkClause [] (agrP3 Sg) (insertObj
(\\_,b,_ => "olemassa" ++ np.s ! cas b) (predV olla)) ;
ImpersCl vp = mkClause [] (agrP3 Sg) vp ;
GenericCl vp = mkClause [] (agrP3 Sg) {
s = \\_ => vp.s ! VIPass ;
s2 = vp.s2 ;
ext = vp.ext ;
sc = vp.sc
} ;
ProgrVP vp =
let
inf = (vp.s ! VIInf Inf3Iness ! Simul ! Pos ! agrP3 Sg).fin ;
on = predV olla
in {
s = on.s ;
s2 = \\b,p,a => inf ++ vp.s2 ! b ! p ! a ;
ext = vp.ext ;
sc = vp.sc
} ;
oper
olla = verbOlla ** {sc = NPCase Nom} ;
}