GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 10:28:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Dut) Make postmodifier AP take the predicative form; ComplA2 makes AP into postmodifier

Browse Source
This commit is contained in:
Inari Listenmaa
2018-04-19 15:46:36 +02:00
parent 34d27a6876
commit 6e9f81a4a3
2 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/dutch/AdjectiveDut.gf
View File

@@ -31,7 +31,7 @@ concrete AdjectiveDut of Adjective = CatDut ** open ResDut, Prelude in
ComplA2 a np = { ComplA2 a np = {
s = \\agr,af => a.s ! Posit ! af ++ appPrep a.c2 np ; s = \\agr,af => a.s ! Posit ! af ++ appPrep a.c2 np ;
isPre = True isPre = False
} ; } ;
ReflA2 a = { ReflA2 a = {

10
src/dutch/NounDut.gf
View File

@@ -162,9 +162,13 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
g = cn.g g = cn.g
in { in {
s = \\a,n => s = \\a,n =>
preOrPost ap.isPre let gan : Gender*Adjf*NForm = case ap.isPre of {
(ap.s ! agrP3 Sg ! agrAdj g a n) True => <g,a,n> ;
(cn.s ! a ! n) ; False => <Neutr,Strong,NF Sg Nom> } ;
af = agrAdj gan.p1 gan.p2 gan.p3 ;
in preOrPost ap.isPre
(ap.s ! agrP3 Sg ! af)
(cn.s ! a ! n) ;
g = g g = g
} ; } ;