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

Finnish passive Impf and Condit fixed (both in rgl and stemmed)

Browse Source
This commit is contained in:
aarne
2013-03-30 20:44:28 +00:00
parent 73e0a8e5c6
commit 07d12bdffc
9 changed files with 76 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/finnish/stemmed/DictEngFin.gf
View File

@@ -40104,7 +40104,7 @@ proteolytic_A = mkWA (compoundA "pro" (k38 "teolyyttinen")) ;
proteome_N = mkWN "proteomi" ;
proteomics_N = mkWN (compoundN "proteo" (k9A "miikka")) ;
proterozoic_A = mkWA (compoundA "pro" (k38 "terotsooinen")) ;
protest_N = mkWN (k39 "vastustus") ;
protest_N = mkN "protesti" ; --MANC
protest_V = mkWV (k53A "esittää") "vastalause" ;
protest_V2 = mkWV2 (k53A "esittää") "vastalause" ;
protestant_A = mkWA (k38 "protestanttinen") ;
@@ -41730,7 +41730,7 @@ recombinant_N = mkWN (compoundN "rekombi" (k5A "naatti")) ;
recombination_N = mkWN "rekombinaatio" ;
recommend_V2 = mkWV2 (k52 "puhua") "puolestaan" ;
recommend_VS = mkWVS (k52 "puhua") "puolestaan" ;
recommendation_N = mkWN (k33 "avain") ;
recommendation_N = mkN "suositus" ; --MANC
recommit_V2 = mkWV2 (k53A "palauttaa") "valiokuntaan" ;
recompense_N = mkWN (k3 "palkkio") ;
recompense_V2 = mkWV2 (k62 "kompensoida") ;
@@ -55530,7 +55530,7 @@ valent_A = mkWA "valenssi-" ;
valentine_N = mkWN (compoundN "ystävänpäivä" (k5A "kortti")) ;
valerian_N = mkWN (k26 "virmajuuri") ;
valet_N = mkWN (k12 "palvelija") ;
valet_V2 = mkWV2 (k67 "palvella") ;
valet_V2 = mkWV2 (k67 "palvella") partitive ; --MANC
valetudinarian_A = mkWA (k38 "sairaalloinen") ;
valetudinarian_N = mkWN (k2 "henkilö") "sairaalloinen" ;
--PLURNOUN --POSTPONE valgus_N = mkWN (compoundN "uloskäänty" (k99 "nyt")) ;
@@ -55548,14 +55548,14 @@ valsartan_N = mkWN "Diovan" ;
valuable_A = mkWA (k41A "arvokas") ;
valuable_N = mkWN (compoundN "arvo" (k48 "esine")) ;
valuation_N = mkWN (k39 "luokitus") ;
value_N = mkWN (k6 "valööri") ;
value_N = mkN "arvo" ; --MANC
value_V = mkWV (k62 "arvioida") ;
value_V2 = mkWV2 (k62 "arvioida") ;
value_V2 = mkV2 "arvostaa" ; --MANC
valueless_A = mkWA (k34A "arvoton") ;
valuelessness_N = mkWN (k40 "arvottomuus") ;
valuer_N = mkWN (k12 "arvioitsija") ;
--PLURNOUN values_N = mkWN "arvot" ;
valve_N = mkWN (k41A "puolikas") "kuoren" ;
valve_N = mkN "venttiili" ; --MANC
valved_A = mkWA (k38 "läpällinen") ;
valvotomy_N = mkWN (compoundN "laajennus" (k39 "leikkaus")) "läppäaukon" ;
valvular_A = mkWA (k38 "läpällinen") ;

4
lib/src/finnish/stemmed/ParseFin.gf
View File

@@ -59,8 +59,8 @@ lin
oper
passVPSlash : VPSlash -> ResFin.VP = \vp -> lin VP {
s = \\vif,ant,pol,agr => case vif of {
VIInf _ => vp.s ! vif ! ant ! pol ! agr ;
_ => vp.s ! VIPass ! ant ! pol ! agr
VIFin t => vp.s ! VIPass t ! ant ! pol ! agr ;
_ => vp.s ! vif ! ant ! pol ! agr
} ;
s2 = vp.s2 ;
adv = vp.adv ;

13
lib/src/finnish/stemmed/StemFin.gf
View File

@@ -150,7 +150,7 @@ oper
7 => (vf ! 7) ; -- tuli
8 => (vf ! 8) ; -- tulisi
9 => Predef.tk 2 (vf ! 9) ; -- tull(ut)
10 => (vf ! 10) ; -- tultu
10 => Predef.tk 1 (vf ! 10) ; -- tult(u)
11 => weakGrade (vf ! 10) ; -- tullu(n)
12 => Predef.tk 1 (vf ! 11) -- tulle(e)
} ;
@@ -172,7 +172,7 @@ oper
tuli = vh ! 7 ;
tulisi = vh ! 8 ;
tull_ = vh ! 9 ; -- tull(ut)
tultu = vh ! 10 ;
tult_ = vh ! 10 ;
tullu__ = vh ! 11 ; -- tullu(n)
tulle_ = vh ! 12 ; -- tulle(e)
@@ -187,6 +187,7 @@ oper
tullu_ = plus tull_ u ;
tullut = plus tullu_ "t" ;
tullun = plus tullu_ "n" ;
tultu = plus tult_ u ;
tullutN : Noun = snoun2noun b {
s = table SNForm [
@@ -250,8 +251,12 @@ oper
ImperP3 Pl => plus tulkoo "t" ;
ImperP1Pl => plus tulk_ (a + a + "mme") ;
ImpNegPl => tulko ;
Pass True => plus tulla_ (a + "n") ;
Pass False => tulla_ ;
PassPresn True => plus tulla_ (a + "n") ;
PassPresn False => tulla_ ;
PassImpf True => plus tult_ ("iin") ; --# notpresent
PassImpf False => tultu ; --# notpresent
PassCondit True => plus tult_ (a + "isiin") ; --# notpresent
PassCondit False => plus tult_ (a + "isi") ; --# notpresent
PastPartAct (AN n) => tullutN.s ! n ;
PastPartAct AAdv => plus tullee "sti" ;
PastPartPass (AN n) => tultuN.s ! n ;

9
lib/src/finnish/stemmed/VerbFin.gf
View File

@@ -87,14 +87,17 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
ReflVP v = insertObjPre False (\\fin,b,agr => appCompl fin b v.c2 (reflPron agr)) v ;
PassV2 v = let vp = predSV v in {
s = \\_ => vp.s ! VIPass ;
s = \\vif,ant,pol,agr => case vif of {
VIFin t => vp.s ! VIPass t ! ant ! pol ! agr ;
_ => vp.s ! vif ! ant ! pol ! agr
} ;
s2 = \\_,_,_ => [] ;
adv = \\_ => [] ;
ext = [] ;
qp = vp.qp ;
isNeg = False ;
sc = v.c2.c -- minut valitaan ; minua rakastetaan ; minulle kuiskataan
} ; ---- talon valitaan: should be marked like inf.
sc = v.c2.c ; -- minut valitaan ; minua rakastetaan ; minulle kuiskataan
} ; ---- talon valitaan: should be marked like inf.
----b UseVS, UseVQ = \v -> v ** {c2 = {s = [] ; c = NPAcc ; isPre = True}} ;