diff --git a/src/german/MakeStructuralGer.gf b/src/german/MakeStructuralGer.gf index 50d7c5d5..07a13afb 100644 --- a/src/german/MakeStructuralGer.gf +++ b/src/german/MakeStructuralGer.gf @@ -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} ; + }