GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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
i_implicPron : Pron ; -- (minä), minut, ...
i_implicPron : Pron ; -- (minä), minut, ...
whatPart_IP : IP ;
PartCN : CN -> NP ; -- olutta

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

@@ -16,9 +16,9 @@ concrete IdiomFin of Idiom = CatFin **
ExistIP ip =
let
cas : NPForm = NPCase Part ; --- dep on num, pol?
cas : NPForm = NPCase Nom ; ---- also partitive in Extra
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 {
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 =
let
kuka = mkN "kuka" "kenen" "kenä" "ketä" "keneen"
kuka = mkN "kuka" "kenen" "ketä" "kenä" "keneen"
"keiden" "keitä" "keinä" "keissä" "keihin" ;
in
table {
@@ -275,7 +275,7 @@ oper
} ;
lin
not_Predet = {s = \\_,_ => "vain"} ;
not_Predet = {s = \\_,_ => "ei"} ;
no_Quant = heavyQuant {
s1 = \\n,c => "ei" ++ mikaanPron ! n ! c ;

2
lib/src/parse/oald/OaldEng.gf
View File

@@ -43964,4 +43964,4 @@ lin
lin élite_N = mkN "élite" "élites";
lin émigré_N = mkN "émigré" "émigrés";
lin épée_N = mkN "épée" "épées";
}
}