extend the documentation API

src/abstract/Documentation.gf

@@ -13,6 +13,7 @@ fun
   InflectionN   : N -> Inflection ;
   InflectionN2  : N2 -> Inflection ;
   InflectionN3  : N3 -> Inflection ;
+  InflectionPN  : PN -> Inflection ;
   InflectionA   : A -> Inflection ;
   InflectionA2  : A2 -> Inflection ;
   InflectionV   : V -> Inflection ;
@@ -27,6 +28,9 @@ fun
   InflectionV2Q : V2Q -> Inflection ;
   InflectionV2A : V2A -> Inflection ;
   InflectionAdv : Adv -> Inflection ;
+  InflectionAdV : AdV -> Inflection ;
+  InflectionAdA : AdA -> Inflection ;
+  InflectionAdN : AdN -> Inflection ;
   InflectionPrep : Prep -> Inflection ;
 
 fun

src/bulgarian/DocumentationBul.gf

@@ -79,6 +79,19 @@ lin
     s3 = ""
     } ;
 
+  InflectionPN = \pn -> {
+    t = "същ.с." ;
+    s1= heading1 ("Съществително Собствено"++
+                  case pn.gn of {
+                    GSg Masc => "(м.р.)" ;
+                    GSg Fem  => "(ж.р.)" ;
+                    GSg Neut => "(ср.р.)" ;
+                    GPl      => "(мн.ч.)"
+                  }) ;
+    s2 = pn.s ;
+    s3 = ""
+    } ;
+
   InflectionA, InflectionA2 = \a -> {
     t = "пр" ;
     s1= heading1 ("Прилагателно") ;
@@ -104,7 +117,7 @@ lin
     s3= ""
     } ;
 
-  InflectionAdv = \adv -> {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t = "нар" ;
     s1= heading1 ("Наречие") ;
     s2= paragraph (adv.s) ;

src/catalan/DocumentationCatFunctor.gf

@@ -50,7 +50,7 @@ lin
          )
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverbi" ;
     s2 = paragraph adv.s

src/chinese/DocumentationChi.gf

@@ -22,7 +22,7 @@ lin
     s2 = adj.s
     } ;
     
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverb" ;
     s2 = paragraph adv.s

src/dutch/DocumentationDutFunctor.gf

@@ -59,7 +59,7 @@ lin
          s2 = dtable
        } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 (heading preposition_Category) ;
     s2 = paragraph adv.s

src/english/DocumentationEng.gf

@@ -24,6 +24,20 @@ lin
          )
     } ;
 
+  InflectionPN = \pn -> {
+    t  = "pn" ;
+    s1 = heading1 ("Proper Name" ++
+                    case pn.g of {
+                      Neutr => "";
+                      Masc  => "(masc)";
+                      Fem   => "(fem)"
+                    }) ;
+    s2 = frameTable (
+           tr (th "nom"        ++ th "gen") ++
+           tr (td (pn.s ! Nom) ++ td (pn.s ! Gen))
+         )
+    } ;
+
   InflectionA, InflectionA2 = \adj -> {
     t  = "a" ;
     s1 = heading1 "Adjective" ;
@@ -37,7 +51,7 @@ lin
          paragraph (adj.s ! AAdv)
     } ;
 
-  InflectionAdv = \adv -> {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t = "adv" ;
     s1= heading1 "Adverb" ;
     s2= paragraph (adv.s) ;

src/estonian/DocumentationEstFunctor.gf

@@ -44,7 +44,7 @@ lin
              inflNoun (\nf -> superl ! AN nf)
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 (heading adverb_Category) ;
     s2 = paragraph adv.s

src/finnish/DocumentationFinFunctor.gf

@@ -41,7 +41,7 @@ lin
          inflNoun (\nf -> (snoun2nounSep {s = \\f => adj.s ! Superl ! sAN f ; h = adj.h}).s ! nf)
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 (heading adverb_Category) ;
     s2 = paragraph adv.s

src/french/DocumentationFreFunctor.gf

@@ -50,7 +50,7 @@ lin
          )
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverbe" ;
     s2 = paragraph adv.s

src/german/DocumentationGerFunctor.gf

@@ -62,7 +62,7 @@ lin
          s2 = dtable positive_Parameter Posit ++ dtable comparative_Parameter Compar ++ dtable superlative_Parameter Superl
        } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adverb" ;
     s1 = heading1 (heading adverb_Category) ;
     s2 = paragraph adv.s

src/hindi/DocumentationHin.gf

@@ -59,6 +59,12 @@ lin
           )
     } ;
 
+  InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
+    t  = "adv" ;
+    s1 = heading1 "Adverb" ;
+    s2 = adv.s
+    } ;
+
   InflectionPrep = \prep -> {
     t  = "prep" ;
     s1 = heading1 "Preposition" ;

src/icelandic/DocumentationIceFunctor.gf

@@ -74,7 +74,7 @@ lin
        } ;
 
 {-
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adverb" ;
     s1 = heading1 (heading adverb_Category) ;
     s2 = paragraph adv.s

src/italian/DocumentationItaFunctor.gf

@@ -50,7 +50,7 @@ lin
          )
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverbe" ;
     s2 = paragraph adv.s

src/portuguese/DocumentationPorFunctor.gf

@@ -50,7 +50,7 @@ lin
          )
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Advérbio" ;
     s2 = paragraph adv.s

src/russian/DocumentationRusFunctor.gf

@@ -44,7 +44,7 @@ lin
          frameTable (tr (tr (adj.comp)))
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 (heading adverb_Category) ;
     s2 = paragraph adv.s

src/russian/v1/DocumentationRus.gf

@@ -357,7 +357,7 @@ intagAttr "tr" "style=\"border-top-color:white;border-left-color:white;border-ri
 
   } ;    
 
-  InflectionAdv = \adv -> {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t = "нар" ;
     s1= heading1 ("Наречие") ;
     s2= paragraph (adv.s) ;

src/slovenian/DocumentationSlv.gf

@@ -60,7 +60,7 @@ lin
         )
       } ;
 
-  InflectionAdv = \adv -> {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t = "prs" ;
     s1= heading1 ("Prislov") ;
     s2= paragraph (adv.s)

src/spanish/DocumentationSpaFunctor.gf

@@ -50,7 +50,7 @@ lin
          )
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverbe" ;
     s2 = paragraph adv.s

src/swedish/DocumentationSwe.gf

@@ -32,6 +32,18 @@ lin
            )
      } ;
 
+  InflectionPN = \pn -> {
+    t  = "nm" ;
+    s1 = heading1 ("Namn" ++ case pn.g of {
+                               Utr   => "(utr)" ;
+                               Neutr => "(neutr)"
+                             }) ;
+    s2 = frameTable (
+           tr (th "nom" ++ td (pn.s ! Nom)) ++
+           tr (th "gen" ++ td (pn.s ! Gen))
+           )
+     } ;
+
   InflectionA, InflectionA2 = \adj -> { 
     t  = "a" ;
     s1 = heading1 "Adjektiv" ;
@@ -66,7 +78,7 @@ lin
               td (adj.s ! (AF (APosit (Weak Pl)) c))) ;
     } ;
 
-  InflectionAdv adv = {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t  = "adv" ;
     s1 = heading1 "Adverb" ;
     s2 = paragraph adv.s

src/turkish/DocumentationTur.gf

@@ -54,7 +54,7 @@ lin
         paragraph (adj.adv) ;
     } ;
 
-  InflectionAdv = \adv -> {
+  InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
     t = "b" ;
     s1= heading1 ("Belirteç") ;
     s2= paragraph (adv.s) ;

src/urdu/DocumentationUrd.gf

@@ -59,6 +59,12 @@ lin
           )
     } ;
 
+  InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
+    t  = "adv" ;
+    s1 = heading1 "Adverb" ;
+    s2 = adv.s
+    } ;
+
   InflectionPrep = \prep -> {
     t  = "prep" ;
     s1 = heading1 "Preposition" ;