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

mkStrongDet, mkWeakDet in MakeStructuralGer

Browse Source
This commit is contained in:
Aarne Ranta
2024-07-25 09:18:31 +02:00
parent d3ecaadef0
commit 23ccacf222
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/german/MakeStructuralGer.gf
View File

@@ -36,4 +36,12 @@ oper
sp = \\gn,c => q.s ! False ! gn ! c + a.s ! Posit ! agrAdj q.a gn c
} ;
mkStrongDet : Str -> Number -> Det = \adj, n -> lin Det {
s,sp = \\_,g,c => adj + adjEnding ! (gennum g Pl) ! c ;
n = n ; a = Strong ; isDef = False ; hasDefArt = False} ;
mkWeakDet : Str -> Number -> Det = \adj, n -> lin Det {
s,sp = \\_,g,c => adj + adjEnding ! (gennum g Pl) ! c ;
n = n ; a = Weak ; isDef = False ; hasDefArt = False} ;
}