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

(Fin) Add prefix field to A

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-08 16:10:41 +02:00
parent d4f2df8aa4
commit 9aa31fdcdd
5 changed files with 48 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/finnish/NounFin.gf
+3 -1
View File
@@ -215,7 +215,9 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
} ;
AdjCN ap cn = {
s = \\nf => ap.s ! True ! (n2nform nf) ++ cn.s ! nf ;
s = case ap.hasPrefix of {
True => \\nf => ap.p ++ BIND ++ cn.s ! nf ;
False => \\nf => ap.s ! True ! (n2nform nf) ++ cn.s ! nf } ;
h = cn.h } ;
RelCN cn rs = {s = \\nf => cn.s ! nf ++ BIND ++ "," ++ rs.s ! agrP3 (numN nf) ;