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

(Fin) call mkPrefixA if mkA's argument ends in -

Browse Source
This commit is contained in:
Inari Listenmaa
2022-07-28 15:32:09 +02:00
parent 43fbf928fd
commit 7fc42192d7
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/finnish/ParadigmsFin.gf
View File

@@ -713,7 +713,15 @@ mkVS = overload {
mkA : V -> A = presActA ; mkA : V -> A = presActA ;
} ; } ;
mkA_1 : Str -> A = \x -> lin A (noun2adjDeg (mk1N x)) ; -- Adjectives that are not really adjectives are given in WordNet like "sähkö-"
-- We can at least make them into prefixA to make slightly better linearisation.
mkA_1 : Str -> A = \x ->
case x of {
prefix + "-"
=> let regA : A = noun2adjDeg (mk1N prefix) ;
in prefixA prefix regA ;
_ => noun2adjDeg (mk1N x)
} ;
-- auxiliaries -- auxiliaries
mkAdjective : (_,_,_ : SAdj) -> A = \hyva,parempi,paras -> lin A mkAdjective : (_,_,_ : SAdj) -> A = \hyva,parempi,paras -> lin A