msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

extend the documentation API

Browse Source
This commit is contained in:
krangelov
2021-03-12 22:24:40 +01:00
parent 9d75eebcc0
commit 88b3974bee
21 changed files with 73 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/abstract/Documentation.gf
View File

@@ -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

15
src/bulgarian/DocumentationBul.gf
View File

@@ -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) ;

2
src/catalan/DocumentationCatFunctor.gf
View File

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

2
src/chinese/DocumentationChi.gf
View File

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

2
src/dutch/DocumentationDutFunctor.gf
View File

@@ -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

16
src/english/DocumentationEng.gf
View File

@@ -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) ;

2
src/estonian/DocumentationEstFunctor.gf
View File

@@ -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

2
src/finnish/DocumentationFinFunctor.gf
View File

@@ -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

2
src/french/DocumentationFreFunctor.gf
View File

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

2
src/german/DocumentationGerFunctor.gf
View File

@@ -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

6
src/hindi/DocumentationHin.gf
View File

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

2
src/icelandic/DocumentationIceFunctor.gf
View File

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

2
src/italian/DocumentationItaFunctor.gf
View File

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

2
src/portuguese/DocumentationPorFunctor.gf
View File

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

2
src/russian/DocumentationRusFunctor.gf
View File

@@ -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

2
src/russian/v1/DocumentationRus.gf
View File

@@ -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) ;

2
src/slovenian/DocumentationSlv.gf
View File

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

2
src/spanish/DocumentationSpaFunctor.gf
View File

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

14
src/swedish/DocumentationSwe.gf
View File

@@ -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

2
src/turkish/DocumentationTur.gf
View File

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

6
src/urdu/DocumentationUrd.gf
View File

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