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

more in the documentation

Browse Source
This commit is contained in:
Krasimir Angelov
2025-02-05 09:22:01 +01:00
parent f3811e8a0e
commit 7b777c425e
2 changed files with 99 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/latvian/CatLav.gf
View File

@@ -110,7 +110,8 @@ lincat
N3 = Noun ** {prep1, prep2 : Preposition ; isPre1, isPre2 : Bool} ;
PN,LN,GN = ProperNoun ;
PN,LN = ProperNoun ;
GN = {s : Case => Str ; gend : Gender} ;
SN = {s : Sex => Case => Str; pl : Case => Str} ;
-- Overriden from CommonX

97
src/latvian/DocumentationLav.gf
View File

@@ -28,6 +28,80 @@ lin InflectionN, InflectionN2, InflectionN3 = \x -> {
s3=[]
} ;
lin InflectionPN = \pn -> {
t = "pn" ;
s1 = heading1 ("Proper Name" ++ "(" ++ BIND ++
case pn.gend of {
Masc => "masculine";
Fem => "feminine"
} ++
case pn.num of {
Sg => "singular";
Pl => "plural"
} ++
BIND ++ ")") ;
s2 = frameTable (
tr (th "Nom" ++ td (pn.s ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Voc))) ;
s3=[]
} ;
lin InflectionLN = \pn -> {
t = "ln" ;
s1 = heading1 ("Location Name" ++ "(" ++ BIND ++
case pn.gend of {
Masc => "masculine";
Fem => "feminine"
} ++
case pn.num of {
Sg => "singular";
Pl => "plural"
} ++
BIND ++ ")") ;
s2 = frameTable (
tr (th "Nom" ++ td (pn.s ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Voc))) ;
s3=[]
} ;
lin InflectionGN = \pn -> {
t = "ln" ;
s1 = heading1 ("Given Name" ++
case pn.gend of {
Masc => "(masculine)";
Fem => "(feminine)"
}) ;
s2 = frameTable (
tr (th "Nom" ++ td (pn.s ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Voc))) ;
s3=[]
} ;
lin InflectionSN = \pn -> {
t = "ln" ;
s1 = heading1 "Family Name" ;
s2 = frameTable (
tr (th "Nom" ++ td (pn.s ! Male ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Male ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Male ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Male ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Male ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Male ! Voc))) ;
s3=[]
} ;
lin InflectionA, InflectionA2 = \adj -> {
t="a" ;
s1=heading1 "Adjective" ;
@@ -88,4 +162,27 @@ lin InflectionA, InflectionA2 = \adj -> {
s3=[]
} ;
lin InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
t = "adv" ;
s1= heading1 "Adverb" ;
s2= paragraph (adv.s) ;
s3= ""
} ;
lin InflectionPrep = \prep -> {
t = "prep" ;
s1= heading1 "Preposition" ;
s2= paragraph (prep.s) ;
s3= ""
} ;
lin
NoDefinition t = {s=t.s};
MkDefinition t d = {s="<p><b>Definition:</b>"++t.s++d.s++"</p>"};
MkDefinitionEx t d e = {s="<p><b>Definition:</b>"++t.s++d.s++"</p><p><b>Example:</b>"++e.s++"</p>"};
lin
MkDocument d i e = {s = i.s1 ++ d.s ++ i.s2 ++ paragraph e.s} ;
MkTag i = {s = i.t} ;
}