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

Most of Finnish done.

Browse Source
This commit is contained in:
aarne
2006-02-06 20:44:41 +00:00
parent 1568ac53e6
commit cb1363413c
11 changed files with 249 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/resource-1.0/finnish/RelativeFin.gf
View File

@@ -5,7 +5,8 @@ concrete RelativeFin of Relative = CatFin ** open ResFin in {
lin
RelCl cl = {
s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir
s = \\t,a,p,_ => "siten" ++ "että" ++ cl.s ! t ! a ! p ! SDecl
---- sellainen
} ;
RelVP rp vp = {
@@ -15,11 +16,11 @@ concrete RelativeFin of Relative = CatFin ** open ResFin in {
RNoAg => ag ;
RAg a => a
} ;
cl = mkClause (rp.s ! Nom) agr vp
cl = mkClause (rp.s ! agr.n ! vp.sc) agr vp
in
cl.s ! t ! ant ! b ! ODir
cl.s ! t ! ant ! b ! SDecl
} ;
{-
RelSlash rp slash = {
s = \\t,a,p,_ => slash.c2 ++ rp.s ! Acc ++ slash.s ! t ! a ! p ! ODir
} ;
@@ -30,5 +31,5 @@ concrete RelativeFin of Relative = CatFin ** open ResFin in {
} ;
IdRP = mkIP "which" "which" "whose" Sg ** {a = RNoAg} ;
-}
}