From 23ccacf22267eac7960e3f9d5089ffb15fdf7711 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 25 Jul 2024 09:18:31 +0200
Subject: [PATCH] mkStrongDet, mkWeakDet in MakeStructuralGer

---
 src/german/MakeStructuralGer.gf | 8 ++++++++
 1 file changed, 8 insertions(+)

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