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

(Ara) Bugfix in DetCN: retain adjective every time

Browse Source
This commit is contained in:
Inari Listenmaa
2018-09-21 09:35:44 +02:00
parent c837f1cdf7
commit e281cb6f5c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/arabic/NounAra.gf
View File

@@ -8,12 +8,12 @@ lin
number = sizeToNumber det.n; number = sizeToNumber det.n;
determiner : Case -> Str = \c -> determiner : Case -> Str = \c ->
det.s ! cn.h ! (detGender cn.g det.n) ! c; det.s ! cn.h ! (detGender cn.g det.n) ! c;
noun : Case -> Str = \c -> cn.s ! noun : Case -> NTable -> Str = \c,nt -> nt !
number ! (nounState det.d number) ! (nounCase c det.n det.d) number ! (nounState det.d number) ! (nounCase c det.n det.d)
} in { } in {
s = \\c => s = \\c =>
case cnB4det det.isPron det.isNum det.n det.d of { case cnB4det det.isPron det.isNum det.n det.d of {
False => determiner c ++ noun c; False => determiner c ++ noun c cn.s ++ noun c cn.adj ;
--FIXME use the adj -> cn -> cn rule from below instead of --FIXME use the adj -> cn -> cn rule from below instead of
--repeating code --repeating code
True => cn.s ! number ! det.d ! c ++ det.s ! cn.h ! cn.g ! c True => cn.s ! number ! det.d ! c ++ det.s ! cn.h ! cn.g ! c