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

(Fin) Add new constructor for V -> A: present participle into adjective.

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-05 15:50:24 +02:00
parent 84f53ba086
commit d13c34e641
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/finnish/ParadigmsFin.gf
View File

@@ -642,6 +642,7 @@ mkVS = overload {
mkA : (hyva,parempi,paras : N) -> (hyvin,paremmin,parhaiten : Str) -> A mkA : (hyva,parempi,paras : N) -> (hyvin,paremmin,parhaiten : Str) -> A
= \h,p,ps,hn,pn,ph -> lin A (mkAdj h p ps hn pn ph) ; = \h,p,ps,hn,pn,ph -> lin A (mkAdj h p ps hn pn ph) ;
mkA : V -> A = presPartA ;
} ; } ;
mkA_1 : Str -> A = \x -> lin A (noun2adjDeg (mk1N x)) ; mkA_1 : Str -> A = \x -> lin A (noun2adjDeg (mk1N x)) ;
@@ -668,6 +669,13 @@ mkVS = overload {
(snoun2superl suuri) ; (snoun2superl suuri) ;
presPartA : SVerb -> A = \tullaSV ->
let tulla = sverb2verb True tullaSV ;
tuleva : NForm => Str = \\nf => tulla.s ! PresPartAct (AN nf) ;
tuleva_SN = { s = tuleva ;
h = tullaSV.h } ;
in noun2adjDeg tuleva_SN ;
-- verbs -- verbs