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) Better approximation of conjAgr

Browse Source
This commit is contained in:
Inari Listenmaa
2018-04-19 17:09:56 +02:00
parent 6a9145cc93
commit c8c6077cf7
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/dutch/ResDut.gf
View File

@@ -714,9 +714,14 @@ param
conjAgr : Agr -> Agr -> Agr = \a,b -> {
g = Utr ; ----
n = conjNumber a.n b.n ;
p = conjPerson a.p b.p
p = conjPerson' a.p b.p
} ;
conjPerson' : Person -> Person -> Person = \a,b -> case <a,b> of {
<P1,x> => x ;
<P3,x> => P3 ;
<P2,x> => case x of {P3 => P3 ; _ => P2} } ;
-- The infinitive particle "te" is used if and only if $vv.isAux = False$.
infPart : Bool -> Str = \b -> if_then_Str b [] "te" ;