msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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 -> { conjAgr : Agr -> Agr -> Agr = \a,b -> {
g = Utr ; ---- g = Utr ; ----
n = conjNumber a.n b.n ; 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$. -- The infinitive particle "te" is used if and only if $vv.isAux = False$.
infPart : Bool -> Str = \b -> if_then_Str b [] "te" ; infPart : Bool -> Str = \b -> if_then_Str b [] "te" ;