From dd7fdb137ed74fcb69a28b6beed1982ff979790b Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 29 Sep 2026 07:20:26 +0200
Subject: [PATCH] added n_units_of_NP by using Codex

---
 src/swedish/ConstructionSwe.gf | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/swedish/ConstructionSwe.gf b/src/swedish/ConstructionSwe.gf
index 2b622d22..284ed7f5 100644
--- a/src/swedish/ConstructionSwe.gf
+++ b/src/swedish/ConstructionSwe.gf
@@ -30,6 +30,11 @@ lin
 
   n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
 
+  n_units_of_NP card cn np =
+    G.AdvNP
+      (mkNP <lin Card card : Card> (lin CN cn))
+      (SyntaxSwe.mkAdv noPrep (lin NP np)) ;
+
   bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "flaska") noPrep))      (lin NP np) ;
   cup_of_CN np    = mkCN (lin N2 (mkN2 (mkN "kopp") noPrep))        (lin NP np) ;
   glass_of_CN np  = mkCN (lin N2 (mkN2 (mkN "glas" "glas") noPrep)) (lin NP np) ;