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

optimizing Fin

Browse Source
This commit is contained in:
aarne
2005-09-05 20:22:07 +00:00
parent 9cb3b65b84
commit 7340b804da
5 changed files with 104 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource/finnish/ClauseFin.gf
View File

@@ -51,22 +51,22 @@ concrete ClauseFin of Clause = CategoriesFin **
sats2clause (
insertComplement
(mkSats subj verb)
(vp.s ! True ! VIInfinit Simul)
(vp.s ! VIInfinit ! subj.n)
) ;
SPredObjV2V subj verb obj vp =
sats2clause (
insertComplement
(mkSatsObject subj verb obj)
(vp.s ! True ! VIInfinit Simul)
(vp.s ! VIInfinit ! subj.n)
) ;
SPredSubjV2V subj verb obj vp =
sats2clause (
insertComplement
(mkSatsObject subj verb obj)
(vp.s ! True ! VIInfinit Simul)
(vp.s ! VIInfinit ! subj.n)
) ;
SPredProgVP np vp = sats2clause (progressiveSats np vp) ;
----- SPredProgVP np vp = sats2clause (progressiveSats np vp) ;
SPredAP subj adj =
sats2clause (mkSatsCopula subj (complAdjPhrase subj.n adj)) ;