1
0
forked from GitHub/gf-core

some more Finnish

This commit is contained in:
aarne
2005-06-22 14:18:35 +00:00
parent 00d421085d
commit 92d159c8b8
4 changed files with 49 additions and 52 deletions

View File

@@ -8,11 +8,11 @@ concrete ClauseFin of Clause = CategoriesFin **
lin
SPredV np v =
sats2clause (mkSats np v) ;
{-
SPredPassV subj v =
sats2clause (mkSatsCopula subj (v.s ! VPart (pgen2gen subj.g) subj.n)) ;
---- SPredPassV subj v =
---- sats2clause (mkSatsCopula subj (v.s ! VPart (pgen2gen subj.g) subj.n)) ;
SPredV2 np v y =
sats2clause (mkSatsObject np v y) ;
{-
SPredV3 subj verb obj1 obj2 =
sats2clause (insertObject (mkSatsObject subj verb obj1) verb.c3 verb.s3 obj2) ;
SPredReflV2 subj verb =