GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 06:52:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

bug fixes in Finnish

Browse Source
This commit is contained in:
aarne
2010-01-04 21:16:34 +00:00
parent f6cbc69e09
commit 14efc8a8a5
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/finnish/ExtraFinAbs.gf
View File

@@ -8,7 +8,7 @@ abstract ExtraFinAbs = Extra [
RelExistNP : Prep -> RP -> NP -> RCl ; -- jossa on jazzia RelExistNP : Prep -> RP -> NP -> RCl ; -- jossa on jazzia
i_implicPron : Pron ; -- (minä), minut, ... i_implicPron : Pron ; -- (minä), minut, ...
whatPart_IP : IP ; whatPart_IP : IP ;
PartCN : CN -> NP ; -- olutta PartCN : CN -> NP ; -- olutta

4
lib/src/finnish/IdiomFin.gf
View File

@@ -16,9 +16,9 @@ concrete IdiomFin of Idiom = CatFin **
ExistIP ip = ExistIP ip =
let let
cas : NPForm = NPCase Part ; --- dep on num, pol? cas : NPForm = NPCase Nom ; ---- also partitive in Extra
vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ; vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ;
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 Sg}) cas) (agrP3 Sg) vp cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp
in { in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ; } ;

4
lib/src/finnish/StructuralFin.gf
View File

@@ -212,7 +212,7 @@ oper
kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str = kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str =
let let
kuka = mkN "kuka" "kenen" "kenä" "ketä" "keneen" kuka = mkN "kuka" "kenen" "ketä" "kenä" "keneen"
"keiden" "keitä" "keinä" "keissä" "keihin" ; "keiden" "keitä" "keinä" "keissä" "keihin" ;
in in
table { table {
@@ -275,7 +275,7 @@ oper
} ; } ;
lin lin
not_Predet = {s = \\_,_ => "vain"} ; not_Predet = {s = \\_,_ => "ei"} ;
no_Quant = heavyQuant { no_Quant = heavyQuant {
s1 = \\n,c => "ei" ++ mikaanPron ! n ! c ; s1 = \\n,c => "ei" ++ mikaanPron ! n ! c ;