msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge pull request #322 from inariksit/finnish-smart-paradigm

Browse Source 
Finnish smart paradigm fix
This commit is contained in:
Inari Listenmaa
2020-05-04 14:28:06 +02:00
committed by GitHub
parent 21f468a5f5 e5ff427826
commit 899ab19e78
32 changed files with 735 additions and 739 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/finnish/AllFin.gf
View File

@@ -4,4 +4,3 @@ concrete AllFin of AllFinAbs =
LangFin - [SlashV2VNP,SlashVV, TFut], ---- to speed up linking; to remove spurious parses LangFin - [SlashV2VNP,SlashVV, TFut], ---- to speed up linking; to remove spurious parses
ExtraFin - [ProDrop, ProDropPoss, S_OSV, S_VSO, S_ASV, AdvExistNP] -- to exclude spurious parses ExtraFin - [ProDrop, ProDropPoss, S_OSV, S_VSO, S_ASV, AdvExistNP] -- to exclude spurious parses
** open ExtendFin in {} --- to make it compile by default ** open ExtendFin in {} --- to make it compile by default

1
src/finnish/IdiomFin.gf
View File

@@ -92,4 +92,3 @@ concrete IdiomFin of Idiom = CatFin **
noSubj : Polarity -> Str = \_ -> [] ; noSubj : Polarity -> Str = \_ -> [] ;
} }

3
src/finnish/IrregFin.gf
View File

@@ -1,7 +1,7 @@
kayda_V = kayda_V =
let kay = Predef.tk 2 s ; kavi = init kay + "vi" in let kay = Predef.tk 2 s ; kavi = init kay + "vi" in
vForms12 s (kay + "n") kay (kay + "vät") (kay + "kää") (kay + "dään") vForms12 s (kay + "n") kay (kay + "v<EFBFBD>t") (kay + "k<EFBFBD><EFBFBD>") (kay + "d<EFBFBD><EFBFBD>n")
(kavi + "n") kavi (kavi + "si") (kay + "nyt") (kay + "tty") (kavi + "n") kavi (kavi + "si") (kay + "nyt") (kay + "tty")
(kay + "nee") ; (kay + "nee") ;
tuntea_V = tuntea_V =
@@ -18,4 +18,3 @@ tietaa_V
taitaa_V taitaa_V
siita_V siita_V

1
src/finnish/Kotus.gf
View File

@@ -317,4 +317,3 @@ oper
let ys = d y in \\v => x + ys ! v ; let ys = d y in \\v => x + ys ! v ;
} }

2
src/finnish/MorphoFin.gf
View File

@@ -409,7 +409,7 @@ resource MorphoFin = ResFin ** open Prelude in {
in in
{s = table { {s = table {
NCase Sg Nom => Ukko ; NCase Sg Nom => Ukko ;
NCase Sg Gen => uko + "n" ; NCase Sg Gen => ukon ;
NCase Sg Part => ukkoa ; NCase Sg Part => ukkoa ;
NCase Sg Transl => uko + "ksi" ; NCase Sg Transl => uko + "ksi" ;
NCase Sg Ess => ukkona ; NCase Sg Ess => ukkona ;

1
src/finnish/NumeralFin.gf
View File

@@ -187,4 +187,3 @@ oper
} ; } ;
} }

3
src/finnish/ParadigmsFin.gf
View File

@@ -598,6 +598,9 @@ mkVS = overload {
dRae ukko ukon ; dRae ukko ukon ;
<nukk + "e", nuk + "een"> => dRae ukko ukon ; <nukk + "e", nuk + "een"> => dRae ukko ukon ;
<arp + "i", arv + "en"> => dArpi ukko ukon ; <arp + "i", arv + "en"> => dArpi ukko ukon ;
<muk + "i", muk_ + "in",
muk__ + "ej" + ("a"|"ä")> => -- don't match voi - voin - voita
dPaatti ukko ukon ; -- 1-arg paradigm forces consonant gradation
<_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ; <_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ;
<laid + ("u"|"a"|"ä") + "n", laitu + "men"> <laid + ("u"|"a"|"ä") + "n", laitu + "men">
=> dLiitin ukko ukon ; -- laidun,hapan,sydän not caught in previous => dLiitin ukko ukon ; -- laidun,hapan,sydän not caught in previous

1
src/finnish/StructuralFin.gf
View File

@@ -317,4 +317,3 @@ oper
mkPersonPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> Pron = \a,b,c,d,e,n,p -> mkPersonPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> Pron = \a,b,c,d,e,n,p ->
lin Pron (MorphoFin.mkPronoun a b c d e n p) ; lin Pron (MorphoFin.mkPronoun a b c d e n p) ;
} }

1
src/finnish/SymbolFin.gf
View File

@@ -41,4 +41,3 @@ lin
ConsSymb = infixSS (SOFT_BIND ++ ",") ; ConsSymb = infixSS (SOFT_BIND ++ ",") ;
} }