the rest of Urdu files - now compiles with lib/src/Make

lib/src/Make.hs

@@ -49,7 +49,8 @@ langsCoding = [
   (("spanish",  "Spa"),""),
   (("swedish",  "Swe"),""), 
   (("thai",     "Tha"),"to_thai"),
-  (("turkish",  "Tur"),"")
+  (("turkish",  "Tur"),""),
+  (("urdu",     "Urd"),"")
   ]
 
 langs = map fst langsCoding

lib/src/api/CombinatorsUrd.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsUrd = Combinators with 
+  (Cat = CatUrd),
+  (Structural = StructuralUrd),
+  (Constructors = ConstructorsUrd) ;

lib/src/api/ConstructorsUrd.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsUrd = Constructors with (Grammar = GrammarUrd) ;

lib/src/api/SymbolicUrd.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:mathematical:prelude
+
+resource SymbolicUrd = Symbolic with 
+  (Symbol = SymbolUrd),
+  (Grammar = GrammarUrd) ;

lib/src/api/SyntaxUrd.gf

@@ -0,0 +1,5 @@
+--# -path=.:./alltenses:../prelude
+
+instance SyntaxUrd of Syntax = 
+  ConstructorsUrd, CatUrd, StructuralUrd, CombinatorsUrd ;
+

lib/src/api/TryUrd.gf

@@ -0,0 +1,22 @@
+--# -path=.:alltenses:prelude
+--# -path=.:./present:c:/gf/lib/src/prelude:c:/gf/lib/src/abstract:c:/gf/lib/src/api:c:/gf/lib/src/urdu:c:/gf/lib/src/common 
+resource TryUrd = SyntaxUrd - [mkAdN] , LexiconUrd, ParadigmsUrd - [mkAdv,mkDet,mkIP,mkAdN] ** 
+  open (P = ParadigmsUrd) in {
+
+oper
+
+  mkAdv = overload SyntaxUrd {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+  mkAdN = overload {
+    mkAdN : CAdv -> AdN = SyntaxUrd.mkAdN ;
+---   mkAdN : Str -> AdN = P.mkAdN ;
+  } ;
+
+--  mkOrd = overload SyntaxUrd {
+--    mkOrd : A -> Ord = SyntaxUrd.OrdSuperl ;
+--  } ;
+
+
+}

lib/src/urdu/AllUrd.gf

@@ -0,0 +1,6 @@
+--# -path=.:../abstract:../common:../prelude
+
+concrete AllUrd of AllUrdAbs =
+  LangUrd,
+  ExtraUrd
+  ** {} ;

lib/src/urdu/AllUrdAbs.gf

@@ -0,0 +1,4 @@
+abstract AllUrdAbs =
+  Lang,
+  ExtraUrdAbs
+  ** {} ;

lib/src/urdu/ExtraUrd.gf

@@ -0,0 +1,11 @@
+concrete ExtraUrd of ExtraUrdAbs = CatUrd ** 
+  open ResUrd, Coordination, Prelude, MorphoUrd, ParadigmsUrd in {
+
+  lin
+    GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "ka" ; a = np.a} ;
+
+    each_Det = mkDet  "hr kwy" "hr kwy" "hr kwy" "hr kwy" Sg ;
+    have_V = mkV "rakh-na";
+
+-- for VP conjunction
+} 

lib/src/urdu/ExtraUrdAbs.gf

@@ -0,0 +1,8 @@
+abstract ExtraUrdAbs = Extra ** {
+
+-- uncontracted negations; contracted are the default
+  fun
+
+  each_Det : Det ;
+  have_V : V;
+}

lib/src/urdu/SymbolUrd.gf

@@ -0,0 +1,45 @@
+--# -path=.:../abstract:../common
+
+concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd in {
+
+ lin
+-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
+  SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
+  IntPN i  = {s = addGenitiveS i.s ; g = Masc} ;
+  FloatPN i = {s = addGenitiveS i.s ; g = Masc} ;
+  NumPN i = {s = \\_ =>i.s ; g = Masc} ;
+  CNIntNP cn i = {
+    s = \\c => cn.s ! Sg ! Dir ++ i.s ;
+    a = agrP3 cn.g Sg
+    } ;
+  CNSymbNP det cn xs = {
+    s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Dir ++  xs.s ; 
+    a = agrP3 cn.g det.n
+    } ;
+  CNNumNP cn i = {
+    s = \\c => cn.s ! Sg ! Dir ++ i.s ;
+    a = agrP3 cn.g Sg
+    } ;
+
+  SymbS sy = sy ; 
+  SymbNum sy = { s = sy.s ; n = Pl } ;
+  SymbOrd sy = { s = sy.s ++ "waN" ; n = Pl} ;
+
+lincat 
+
+  Symb, [Symb] = SS ;
+
+lin
+  MkSymb s = s ;
+
+  BaseSymb = infixSS "awr" ;
+  ConsSymb = infixSS "" ;
+
+oper
+    -- Note: this results in a space before 's, but there's
+    -- not mauch we can do about that.
+    addGenitiveS : Str -> Case => Str = \s -> 
+     table {_ => s ++ "ka" } ;
+
+
+}