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

added ParadigmsFin.compoundA, totally different from prefixA (as now documented)

Browse Source
This commit is contained in:
aarneranta
2020-09-24 09:04:24 +02:00
parent c759a3f5f4
commit 08896eb34b
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/finnish/ParadigmsFin.gf
View File

@@ -199,7 +199,11 @@ oper
invarA : Str -> A -- invariant adjective, e.g. "kelpo" invarA : Str -> A -- invariant adjective, e.g. "kelpo"
= \s -> lin A {s = \\_,_ => s ; h = Back ; p = [] ; hasPrefix = False} ; ----- stemming adds bogus endings = \s -> lin A {s = \\_,_ => s ; h = Back ; p = [] ; hasPrefix = False} ; ----- stemming adds bogus endings
prefixA : Str -> A -> A = \pr,a -> a ** { compoundA : Str -> A -> A -- prefix glued to adjective, e.g. "hevos"+"vetoinen"
= \s,a -> lin A {s = \\d,c => s + a.s ! d ! c ; h = a.h ; p = s + a.p ; hasPrefix = a.hasPrefix} ;
prefixA : Str -> A -> A -- in modifying use, an uninflected glued prefix, e.g. "sähkö" for "sähköinen"
= \pr,a -> a ** {
p = pr ; p = pr ;
hasPrefix = True hasPrefix = True
} ; } ;