From 9bdc202b9066dbb3367a9e1f11851a86783a349c Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 29 Mar 2010 13:59:46 +0000
Subject: [PATCH] AttemptoUrd added

---
 src/urdu/MakeStructuralUrd.gf | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/urdu/MakeStructuralUrd.gf

diff --git a/src/urdu/MakeStructuralUrd.gf b/src/urdu/MakeStructuralUrd.gf
new file mode 100644
index 000000000..5d827f741
--- /dev/null
+++ b/src/urdu/MakeStructuralUrd.gf
@@ -0,0 +1,14 @@
+--# -path=.:../common:../abstract
+
+resource MakeStructuralUrd = open CatUrd, ParadigmsUrd, ResUrd, MorphoUrd, NounUrd, Prelude in {
+
+oper 
+  mkSubj : Str -> CatUrd.Subj = \x -> 
+    lin Subj {s = x} ;
+  mkNP : Str -> Number -> ResUrd.NP = \s,n ->
+     MassNP (UseN (ParadigmsUrd.mkN s));
+--    lin NP (regNP s n) ;
+  mkIDet : Str -> Number -> IDet = \s,n ->
+    lin IDet {s = \\_ => s ; n = n} ;
+
+}