Finnish complete

This commit is contained in:
aarne
2006-02-07 18:05:25 +00:00
parent 52dc7d460d
commit 0e4a0f2041
45 changed files with 567 additions and 436 deletions

View File

@@ -11,7 +11,7 @@ concrete PhraseFin of Phrase = CatFin ** open ResFin in {
UttIP ip = {s = ip.s ! NPCase Nom} ;
UttIAdv iadv = iadv ;
UttNP np = {s = np.s ! NPCase Nom} ;
-- UttVP vp = {s = "to" ++ infVP vp (agrP3 Sg)} ;
UttVP vp = {s = infVP (NPCase Nom) Pos (agrP3 Sg) vp} ;
UttAdv adv = adv ;
NoPConj = {s = []} ;