Merge branch 'master' of www.grammaticalframework.org:/usr/local/www/GF

src/api/TryUrd.gf

@@ -1,6 +1,6 @@
 --# -path=.:../urdu:../hindustani:../common:../abstract:../prelude
 
-resource TryUrd = SyntaxUrd - [mkAdN] , LexiconUrd, ParadigmsUrd - [mkAdv,mkDet,mkIP,mkAdN] ** 
+resource TryUrd = SyntaxUrd - [mkAdN] , LexiconUrd, ParadigmsUrd - [mkAdv,mkDet,mkIP,mkAdN,mkQuant] ** 
   open (P = ParadigmsUrd) in {
 
 oper

src/chunk/ChunkUrd.gf

@@ -0,0 +1,48 @@
+concrete ChunkUrd of Chunk = CatUrd, ExtensionsUrd [VPS,VPI] ** 
+  ChunkFunctor - [Adv_Chunk, Prep_Chunk]
+    with (Syntax = SyntaxUrd), (Extensions = ExtensionsUrd) **
+  open 
+    SyntaxUrd, (E = ExtensionsUrd), Prelude, CommonHindustani, 
+    (R = ResUrd), (P = ParadigmsUrd) in {
+
+lin
+  Adv_Chunk adv = mkUtt adv ;
+  Prep_Chunk prep = pss (prep.s ! Masc) ; ----
+
+oper
+  emptyNP = mkNP (P.mkPN []) ;
+  pss = Prelude.ss ;
+
+lin
+  NP_Acc_Chunk np = mkUtt np ;
+  NP_Gen_Chunk np = mkUtt (mkAdv possess_Prep np) ;
+
+----  VPI_Chunk vpi = vpi ;
+
+  copula_inf_Chunk = pss " है " ;
+
+  refl_SgP1_Chunk,
+  refl_SgP2_Chunk,
+  refl_SgP3_Chunk,
+  refl_PlP1_Chunk,
+  refl_PlP2_Chunk,
+  refl_PlP3_Chunk = pss " आप " ; ----
+
+  neg_Chunk = pss " नहीं " ;
+  copula_Chunk = pss " है " ;
+  copula_neg_Chunk = pss " नहीं है " ;
+
+  past_copula_Chunk = pss " था " ;
+  past_copula_neg_Chunk = pss " नहीं था " ;
+
+  future_Chunk = pss " हीं होगा " ;
+  future_neg_Chunk = pss " नहीं होगा " ;
+
+  cond_Chunk = pss " हीं होगा " ; ---- same as future
+  cond_neg_Chunk = pss " नहीं होगा " ;
+  perfect_Chunk = pss " है " ;
+  perfect_neg_Chunk = pss " नहीं " ;
+  past_perfect_Chunk = pss " था " ;
+  past_perfect_neg_Chunk = pss " नहीं " ;
+
+}

src/estonian/LexiconEst.gf

@@ -248,7 +248,7 @@ lin
   bark_N = mkN "koor" "koore" "koort" "koorde" "koorte" "koori" ;
   belly_N = mkN "kõht" "kõhu" "kõhtu" ;
   blood_N = mkN "veri" "vere" "verd" "verre" "verede" "veresid" ;
-  bone_N = mkN "luu" ;
+  bone_N = mkN "kont" "kondi" "konti" ;
   breast_N = mkN "rind" "rinna" "rinda" ;
   cloud_N = mkN "pilv" "pilve" "pilve" "pilvi" ;
   day_N = mkN "päev" "päeva" "päeva" ;

src/translator/ExtensionsUrd.gf

@@ -0,0 +1,154 @@
+--# -path=.:../abstract
+
+concrete ExtensionsUrd of Extensions = 
+  CatUrd ** open MorphoUrd, ResUrd, ParadigmsUrd, CommonHindustani, (E = ExtraUrd), Prelude in {
+
+flags coding = utf8 ;
+
+lincat
+----  VPI = E.VPI ;
+----  ListVPI = E.ListVPI ;
+  VPS = E.VPS ;
+  ListVPS = E.ListVPS ;
+  
+lin
+----  MkVPI = E.MkVPI ;
+----  ConjVPI = E.ConjVPI ;
+----  ComplVPIVV = E.ComplVPIVV ;
+
+  MkVPS = E.MkVPS ;
+  ConjVPS = E.ConjVPS ;
+  PredVPS = E.PredVPS ;
+
+----  BaseVPI = E.BaseVPI ;
+----  ConsVPI = E.ConsVPI ;
+  BaseVPS = E.BaseVPS ;
+  ConsVPS = E.ConsVPS ;
+
+  GenNP = E.GenNP ;
+----  GenIP = E.GenIP ;
+----  GenRP = E.GenRP ;
+
+----  PassVPSlash = E.PassVPSlash ;
+----  PassAgentVPSlash = E.PassAgentVPSlash ;
+
+----  EmptyRelSlash = E.EmptyRelSlash ;
+
+
+lin
+
+  CompoundN noun cn = {
+    s = \\n,c => cn.s ! Sg ! Dir ++ noun.s ! n ! c;
+    g = cn.g
+  } ;
+  
+  GerundN v = {
+    s = \\n,c => v.cvp ++ v.s ! Inf ; -- v.s ! VF Imperf Pers2_Casual n Masc ++ hwa (Ag Masc n Pers2_Casual) ; --the main verb of compound verbs
+    g = Masc
+  } ;
+  
+  GerundAP v = {
+    s = \\n,g,_,_ => v.cvp ++ v.s ! VF Imperf Pers2_Casual n g ++ hwa (Ag g n Pers2_Casual) ;   
+  } ;
+
+----  PastPartAP v = {
+----    s = \\n,g,_,_ => v.cvp ++ v.s ! VF Imperf Pers2_Casual n g ; -- the main verb of compound versb needs to be attached here
+----  } ;
+
+  OrdCompar a = {s = a.s ! Sg ! Masc ! Dir ! Compar ; n = Sg } ;
+
+  PositAdVAdj a = {s = a.s ! Sg ! Masc ! Dir ! Posit} ;
+---------------
+--SlashV2V v p vp = insertVV (infV2V v.isAux vp) (predV v) vp.embComp  ** {c2 = {s = sE ; c = VTrans}}; -- changed from VTransPost
+ComplVV v a p vp = insertTrans (insertVV (infVV v.isAux vp) (predV v) vp.embComp ) VTrans; -- changed from VTransPost
+---------------
+  
+
+  UseQuantPN q pn = {s = \\c => q.s ! Sg ! pn.g ! Dir ++ pn.s ! Dir ; a = agrP3 pn.g Sg} ;
+
+PredVPosv np vp = mkClause np vp ; --{
+{-      s = \\t,a,b,o => 
+        let 
+          verb  = vp.s ! t ! a ! b ! o ! np.a ;
+          compl = vp.s2 ! np.a
+        in
+        case o of {
+          ODir => compl ++ "," ++ np.s ! npNom ++ verb.aux ++ vp.ad ++ verb.fin ++ verb.adv ++ verb.inf ;
+          OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf 
+          }
+    } ;
+-}    
+  PredVPovs np vp = mkClause np vp ; --{
+{-      s = \\t,a,b,o => 
+        let 
+          verb  = vp.s ! t ! a ! b ! o ! np.a ;
+          compl = vp.s2 ! np.a
+        in
+        case o of {
+          ODir => compl ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom ;
+          OQuest => verb.aux ++ compl ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom
+          }
+    } ;
+-}
+
+{-
+  SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++ 
+                                       v.c3 ++ 
+                                       infVP v.typ vp a)
+                               (predVc v) ;
+
+  ComplPredVP np vp = {
+      s = \\t,a,b,o => 
+        let 
+          verb  = vp.s ! t ! a ! b ! o ! np.a ;
+          compl = vp.s2 ! np.a
+        in
+        case o of {
+          ODir => compl ++ "," ++ np.s ! npNom ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ;
+          OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf 
+          }
+    } ;
+-}
+CompVP ant p vp = {s = \\a => ant.s ++ p.s ++ 
+                                infVP False vp a} ; -- check for vp.isAux
+
+  that_RP = {
+    s = \\_,_ => "कि" ;
+    a = RNoAg
+    } ;
+  --no_RP = {
+   -- s = \\_,_ => "" ;
+   -- a = RNoAg
+   -- } ;
+
+  CompS s = {s = \\_ => "कि" ++ s.s} ;
+--  CompVP vp = {s = \\a => infVP VVInf vp a} ;
+
+lin
+  PPos = {s = [] ; p = Pos} ;
+  PNeg = {s = [] ; p = Neg} ; -- contracted: don't
+  UncNeg = {s = [] ; p = Neg} ;
+  
+  VPSlashPrep vp p = vp ** {c2 = {s = p.s!Masc ; c = VTrans}} ;
+
+  PastPartRS ant pol vps = {
+    s = \\agr => (vps.s!VPTense VPPast agr).inf ;
+    c = Dir
+    } ;
+
+  PresPartRS ant pol vp = {
+    s = \\agr => (vp.s!VPTense VPPres agr).inf ;
+    c = Dir
+  } ;
+  
+  ApposNP np1 np2 = {
+      s = \\c => np1.s!NPC Dir ++ "," ++ np2.s ! c ;
+      a = np2.a
+      } ;
+      
+  AdAdV = cc2 ;
+  
+  UttAdV adv = adv;
+    
+
+}

src/translator/TranslateUrd.gf

@@ -0,0 +1,36 @@
+--# -path=.:../chunk:alltenses
+
+concrete TranslateUrd of Translate = 
+  TenseX - [AdN,Adv,SC],
+  CatUrd,
+  NounUrd - [PPartNP],
+  AdjectiveUrd,
+  NumeralUrd,
+  SymbolUrd [
+    PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
+    ],
+  ConjunctionUrd,
+  VerbUrd -  [
+    UseCopula,  
+    PassV2  -- generalized in Extensions
+    ],
+  AdverbUrd,
+  PhraseUrd,
+  SentenceUrd,
+  QuestionUrd,
+  RelativeUrd,
+  IdiomUrd,
+  ConstructionUrd,
+  DocumentationUrd,
+
+  ChunkUrd,
+  ExtensionsUrd [    ListVPS,BaseVPS,ConsVPS,ConjVPS,ListVPI,BaseVPI,ConsVPI,ConjVPI,
+CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+
+  DictionaryUrd ** 
+open MorphoUrd, ResUrd, ParadigmsUrd, SyntaxUrd, CommonScand, (E = ExtraUrd), Prelude in {
+
+flags
+  literal=Symb ;
+
+}

src/urdu/AllUrd.gf

@@ -1,4 +1,4 @@
---# -path=.:../abstract:../common:../prelude:../hindustani
+--# -path=.:../abstract:../common:../prelude:../hindustani:../api
 
 concrete AllUrd of AllUrdAbs =
   LangUrd,

src/urdu/ConstructionUrd.gf

@@ -0,0 +1,160 @@
+--# -path=.:../abstract
+
+concrete ConstructionUrd of Construction = CatUrd ** 
+  open SyntaxUrd, SymbolicUrd, ParadigmsUrd, (L = LexiconUrd), (E = ExtraUrd), (G = GrammarUrd), (R = ResUrd), (S = StructuralUrd), Prelude in {
+flags coding=utf8 ;
+
+
+lin
+{-
+  hungry_VP = mkVP  (mkA "भूखा") ;
+  thirsty_VP = mkVP (mkA "प्यासा") ;
+--  tired_VP = mkVP (mkCompoundA "थका" "हुआ") ;
+--  scared_VP = mkVP (mkCompoundA "डरा" "हुआ") ;
+  ill_VP = mkVP (mkA "बीमार") ;
+  ready_VP = mkVP (mkA "तैयार") ;
+-}
+----  has_age_VP card = mkVP (mkNP <card : Card> (mkCN (mmodN L.year_N))) ;
+
+  have_name_Cl x y = mkCl (mkNP (E.GenNP x) L.name_N) (lin NP y) ;
+  married_Cl x y = mkCl (lin NP x) L.married_A2 (lin NP y) ;
+
+  what_name_QCl x = mkQCl (mkIComp whatSg_IP) (mkNP (E.GenNP x) L.name_N) ;
+----  how_old_QCl x = mkQCl (lin IAdv {s = "कितनी"}) (mkNP (E.GenNP x) (mkN "उम्र" "उम्र" "उम्र" "उम्र" "उम्र" "उम्र" feminine)) ;
+  how_far_QCl x = mkQCl (E.IAdvAdv (ParadigmsUrd.mkAdv "दूर")) (lin NP x) ;
+
+---- oper
+----  mmodN : N -> N = \noun -> lin N {s = \\n,c =>noun.s!n!c++"का" ; g =noun.g} ;
+
+-- some more things
+----  weather_adjCl ap = mkCl (mkVP (lin AP ap)) ;
+   
+----  is_right_VP = mkVP (ParadigmsUrd.mkA "right") ;
+----  is_wrong_VP = mkVP (ParadigmsUrd.mkA "wrong") ;
+
+----  n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
+
+
+----  bottle_of_CN np = mkCN (lin N2 (mkN2 "bottle")) (lin NP np) ;
+----  cup_of_CN    np = mkCN (lin N2 (mkN2 "cup"))    (lin NP np) ;
+----  glass_of_CN  np = mkCN (lin N2 (mkN2 "glass"))  (lin NP np) ;
+
+{-
+-- spatial deixis and motion verbs
+
+  where_go_QCl np = mkQCl where_IAdv (mkCl np (mkVP L.go_V)) ;
+  where_come_from_QCl np =  mkQCl from_where_IAdv (mkCl np (mkVP L.go_V)) ;
+  
+  go_here_VP = mkVP (mkVP L.go_V) S.here_Adv ;
+  come_here_VP = mkVP (mkVP L.come_V) S.here_Adv ;
+  come_from_here_VP = mkVP (mkVP L.come_V) (mkAdv "from here") ;
+
+  go_there_VP = mkVP (mkVP L.go_V)  S.there_Adv ;
+  come_there_VP = mkVP (mkVP L.come_V) S.there_Adv ;
+  come_from_there_VP = mkVP (mkVP L.come_V) (mkAdv "from there") ;
+
+--TODO "where did X come from" instead of "from where did X come"
+oper from_where_IAdv : IAdv = lin IAdv (ss "from where") ;
+
+-}
+
+
+lincat
+  Weekday = N ;
+  Monthday = NP ;
+  Month = N ;
+  Year = NP ;
+
+lin
+{- ----
+  weekdayPunctualAdv w = SyntaxUrd.mkAdv on_Prep (mkNP w) ;         -- on Sunday
+  weekdayHabitualAdv w = SyntaxUrd.mkAdv on_Prep (mkNP aPl_Det w) ; -- on Sundays
+  weekdayNextAdv w = SyntaxUrd.mkAdv (mkPrep "next") (mkNP w) ;     -- next Sunday
+  weekdayLastAdv w = SyntaxUrd.mkAdv (mkPrep "last") (mkNP w) ;     -- last Sunday
+
+  monthAdv m = SyntaxUrd.mkAdv in_Prep (mkNP m) ;
+  yearAdv y = SyntaxUrd.mkAdv in_Prep y ;
+  dayMonthAdv d m = ParadigmsUrd.mkAdv ("on" ++ d.s ! R.NPAcc ++ m.s ! R.Sg ! R.Nom) ; -- on 17 May
+  monthYearAdv m y = SyntaxUrd.mkAdv in_Prep (mkNP (mkCN m y)) ; -- in May 2012
+  dayMonthYearAdv d m y = ParadigmsUrd.mkAdv ("on" ++ d.s ! R.NPAcc ++ m.s ! R.Sg ! R.Nom ++ y.s ! R.NPAcc) ; -- on 17 May 2013
+-}
+  intYear = symb ;
+  intMonthday = symb ;
+
+lincat Language = PN ;
+
+lin InLanguage l = SyntaxUrd.mkAdv in_Prep (mkNP l) ; ----
+
+lin
+  weekdayN w = w ;
+  monthN m = m ;
+
+----  weekdayPN w = mkPN w ;
+----  monthPN m = mkPN m ;
+
+  languagePN l = l ;
+
+oper mkLanguage : Str -> PN = \s -> mkPN s ;
+
+----------------------------------------------
+---- lexicon of special names
+
+lin monday_Weekday = mkN "सोमवार" ;
+lin tuesday_Weekday = mkN "मंगलवार" ;
+lin wednesday_Weekday = mkN "बुधवार" ;
+lin thursday_Weekday = mkN "गुरुवार" ;
+lin friday_Weekday = mkN "शुक्रवार" ;
+lin saturday_Weekday = mkN "शनिवार" ;
+lin sunday_Weekday = mkN "रविवार" ;
+
+lin january_Month = mkN "जनवरी" ;
+lin february_Month = mkN "फ़रवरी" ;
+lin march_Month = mkN "मार्च" ;
+lin april_Month = mkN "अप्रैल" ;
+lin may_Month = mkN "मई" ;
+lin june_Month = mkN "जून" ;
+lin july_Month = mkN "जुलाई" ;
+lin august_Month = mkN "अगस्त" ;
+lin september_Month = mkN "सितम्बर" ; 
+lin october_Month = mkN "अक्टूबर" ;
+lin november_Month = mkN "नवम्बर" ;
+lin december_Month = mkN "दिसम्बर" ;
+
+lin afrikaans_Language = mkLanguage "Afrikaans" ;
+lin amharic_Language = mkLanguage "Amharic" ;
+lin arabic_Language = mkLanguage "Arabic" ;
+lin bulgarian_Language = mkLanguage "बल्गेरियाई" ;
+lin catalan_Language = mkLanguage "Catalan" ;
+lin chinese_Language = mkLanguage "चीनी" ;
+lin danish_Language = mkLanguage "Danish" ;
+lin dutch_Language = mkLanguage "Dutch" ;
+lin english_Language = mkLanguage "अंग्रेज़ी" ;
+lin estonian_Language = mkLanguage "Estonian" ;
+lin finnish_Language = mkLanguage "Finnish" ;
+lin french_Language = mkLanguage "फ्रेंच" ;
+lin german_Language = mkLanguage "जर्मन" ;
+lin greek_Language = mkLanguage "Greek" ;
+lin hebrew_Language = mkLanguage "Hebrew" ;
+lin hindi_Language = mkLanguage "हिंदी" ;
+lin japanese_Language = mkLanguage "Japanese" ;
+lin italian_Language = mkLanguage "Italian" ;
+lin latin_Language = mkLanguage "Latin" ;
+lin latvian_Language = mkLanguage "Latvian" ;
+lin maltese_Language = mkLanguage "Maltese" ;
+lin nepali_Language = mkLanguage "Nepali" ;
+lin norwegian_Language = mkLanguage "Norwegian" ;
+lin persian_Language = mkLanguage "Persian" ;
+lin polish_Language = mkLanguage "Polish" ;
+lin punjabi_Language = mkLanguage "Punjabi" ;
+lin romanian_Language = mkLanguage "Romanian" ;
+lin russian_Language = mkLanguage "Russian" ;
+lin sindhi_Language = mkLanguage "Sindhi" ;
+lin spanish_Language = mkLanguage "Spanish" ;
+lin swahili_Language = mkLanguage "Swahili" ;
+lin swedish_Language = mkLanguage "Swedish" ;
+lin thai_Language = mkLanguage "Thai" ;
+lin turkish_Language = mkLanguage "Turkish" ;
+lin urdu_Language = mkLanguage "Urdu" ;
+
+
+}

src/urdu/DocumentationUrd.gf

@@ -0,0 +1,132 @@
+concrete DocumentationUrd of Documentation = CatUrd ** open
+  ResUrd,
+  CommonHindustani,
+  HTML 
+in {
+
+lincat
+  Inflection = {t : Str; s1,s2 : Str} ;
+  Definition = {s : Str} ;
+  Document = {s : Str} ;
+  Tag = {s : Str} ;
+
+lin
+  InflectionN, InflectionN2, InflectionN3 = \noun -> {
+    t  = "n" ;
+    s1 = heading1 ("Noun" ++
+         case noun.g of {
+           Masc => "(Masc)" ;
+           Fem  => "(Fem)"
+         });
+    s2 = frameTable (
+           tr (th ""    ++ th "sg"                ++ th "pl") ++
+           tr (th "dir" ++ td (noun.s ! Sg ! Dir) ++ td (noun.s ! Pl ! Dir)) ++
+           tr (th "obl" ++ intagAttr "td" "rowspan=2" (noun.s ! Sg ! Obl) ++ td (noun.s ! Pl ! Obl)) ++
+           tr (th "voc" ++ td (noun.s ! Pl ! CommonHindustani.Voc))
+         )
+    } ;
+
+  InflectionA, InflectionA2 = \adj -> {
+    t  = "a" ;
+    s1 = heading1 "Adjective" ;
+    s2 = heading2 "Positive" ++
+         forms Posit ++
+         heading2 "Comparative" ++
+         forms Compar ++
+         heading2 "Superlative" ++
+         forms Superl
+    } where {
+        forms : Degree -> Str = \degree ->
+          frameTable (
+            tr (intagAttr "th" "colspan=2" "" ++ th "sg" ++ th "pl") ++
+            tr (intagAttr "th" "rowspan=3" "masc" ++
+                th "dir" ++ td (adj.s ! Sg ! Masc ! Dir ! degree) ++ td (adj.s ! Pl ! Masc ! Dir ! degree)) ++
+            tr (th "obl" ++ intagAttr "td" "rowspan=2" (adj.s ! Sg ! Masc ! Obl ! degree) ++ td (adj.s ! Pl ! Masc ! Obl ! degree)) ++
+            tr (th "voc" ++ td (adj.s ! Pl ! Masc ! CommonHindustani.Voc ! degree)) ++
+            tr (intagAttr "th" "rowspan=3" "fem" ++
+                th "dir" ++ td (adj.s ! Sg ! Fem ! Dir ! degree) ++ td (adj.s ! Pl ! Fem ! Dir ! degree)) ++
+            tr (th "obl" ++ intagAttr "td" "rowspan=2" (adj.s ! Sg ! Fem ! Obl ! degree) ++ td (adj.s ! Pl ! Fem ! Obl ! degree)) ++
+            tr (th "voc" ++ td (adj.s ! Pl ! Fem ! CommonHindustani.Voc ! degree))
+          ) ;
+    };
+
+  InflectionAdv = \adv -> {
+    t  = "adv" ;
+    s1 = heading1 "Adverb" ;
+    s2 = frameTable (
+            tr (th "masc" ++ td (adv.s ! Masc)) ++
+            tr (th "fem"  ++ td (adv.s ! Fem))
+          )
+    } ;
+
+  InflectionPrep = \prep -> {
+    t  = "prep" ;
+    s1 = heading1 "Preposition" ;
+    s2 = frameTable (
+            tr (th "masc" ++ td (prep.s ! Masc)) ++
+            tr (th "fem"  ++ td (prep.s ! Fem))
+          )
+    } ;
+
+  InflectionV, InflectionV2, InflectionV3,
+  InflectionV2A, InflectionV2Q, InflectionV2S, InflectionV2V,
+  InflectionVA, InflectionVQ, InflectionVS, InflectionVV = \verb -> {
+    t  = "v" ;
+    s1 = heading1 "Verb" ;
+    s2 = heading2 "Root" ++
+         paragraph (verb.s ! Root) ++
+         heading2 "Present" ++
+         forms Imperf ++
+         heading2 "Past" ++
+         forms CommonHindustani.Subj ++
+         heading2 "Past Perfect" ++
+         forms Perf ++
+         heading2 "Infinitive" ++
+         frameTable (
+           tr (th ""    ++ td (verb.s ! Inf)) ++
+           tr (th "obl" ++ td (verb.s ! Inf_Obl)) ++
+           tr (th "fem" ++ td (verb.s ! Inf_Fem))
+         )
+    } where {
+        forms : VTense -> Str = \tense ->
+          frameTable (
+            tr (intagAttr "th" "colspan=2" "" ++ th "masc" ++ th "fem") ++
+            tr (intagAttr "th" "rowspan=6" "sg" ++ 
+                th "1.p"          ++ td (verb.s ! VF tense Pers1 Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers1 Sg Fem)) ++
+            tr (th "2.p casual"   ++ td (verb.s ! VF tense Pers2_Casual   Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Casual   Sg Fem)) ++
+            tr (th "2.p familiar" ++ td (verb.s ! VF tense Pers2_Familiar Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Familiar Sg Fem)) ++
+            tr (th "2.p respect"  ++ td (verb.s ! VF tense Pers2_Respect  Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Familiar Sg Fem)) ++
+            tr (th "3.p near"     ++ td (verb.s ! VF tense Pers3_Near     Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers3_Near     Sg Fem)) ++
+            tr (th "3.p distant"  ++ td (verb.s ! VF tense Pers3_Distant  Sg Masc) ++ 
+                                     td (verb.s ! VF tense Pers3_Distant  Sg Fem)) ++
+            tr (intagAttr "th" "rowspan=6" "pl" ++
+                th "1.p"          ++ td (verb.s ! VF tense Pers1 Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers1 Pl Fem)) ++
+            tr (th "2.p casual"   ++ td (verb.s ! VF tense Pers2_Casual   Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Casual   Pl Fem)) ++
+            tr (th "2.p familiar" ++ td (verb.s ! VF tense Pers2_Familiar Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Familiar Pl Fem)) ++
+            tr (th "2.p respect"  ++ td (verb.s ! VF tense Pers2_Respect  Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers2_Familiar Pl Fem)) ++
+            tr (th "3.p near"     ++ td (verb.s ! VF tense Pers3_Near     Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers3_Near     Pl Fem)) ++
+            tr (th "3.p distant"  ++ td (verb.s ! VF tense Pers3_Distant  Pl Masc) ++ 
+                                     td (verb.s ! VF tense Pers3_Distant  Pl Fem))
+          )
+    } ;
+
+lin
+  NoDefinition   t     = {s=t.s};
+  MkDefinition   t d   = {s="<p><b>परिभाषा:</b>"++t.s++d.s++"</p>"};
+  MkDefinitionEx t d e = {s="<p><b>परिभाषा:</b>"++t.s++d.s++"</p><p><b>नमूना:</b>"++e.s++"</p>"};
+
+lin
+  MkDocument d i e = {s = i.s1 ++ d.s ++ i.s2 ++ paragraph e.s} ;
+  MkTag i = {s = i.t} ;
+
+}

src/urdu/LangUrd.gf

@@ -3,6 +3,9 @@
 concrete LangUrd of Lang = 
   GrammarUrd,
   LexiconUrd
+ ,DocumentationUrd --# notpresent
+ ,ConstructionUrd
+
   ** {
 
 flags startcat = Phr ; unlexer=unwords ; lexer=words ;