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

show word class

Browse Source
This commit is contained in:
Krasimir Angelov
2024-12-07 17:53:17 +01:00
parent 5e02340160
commit dcbfb2a464
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/albanian/DocumentationSqi.gf
View File

@@ -8,8 +8,12 @@ lincat
Tag = {s : Str} ; Tag = {s : Str} ;
lin InflectionN = \x -> { lin InflectionN = \x -> {
t="noun" ; t="em" ;
s1="" ; s1=heading1 ("Emër" ++
case x.g of {
Masc => "(mashkullor)" ;
Fem => "(femëror")
}) ;
s2=frameTable ( s2=frameTable (
tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++ tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++
tr (intagAttr "th" "rowspan=\"4\"" "Indef" ++ th "Nom" ++ td (x.s ! Indef ! Nom ! Sg) ++ td (x.s ! Indef ! Nom ! Pl)) ++ tr (intagAttr "th" "rowspan=\"4\"" "Indef" ++ th "Nom" ++ td (x.s ! Indef ! Nom ! Sg) ++ td (x.s ! Indef ! Nom ! Pl)) ++
@@ -23,8 +27,8 @@ lin InflectionN = \x -> {
s3=[] s3=[]
} ; } ;
lin InflectionA = \x -> { lin InflectionA = \x -> {
t="adj" ; t="mb" ;
s1="" ; s1=heading1 "Mbiemër" ;
s2=frameTable ( s2=frameTable (
tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++ tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++
tr (intagAttr "th" "rowspan=\"2\"" "Nom" ++ th "Masc" ++ td (y ! Nom ! Masc ! Sg) ++ td (y ! Nom ! Masc ! Pl)) ++ tr (intagAttr "th" "rowspan=\"2\"" "Nom" ++ th "Masc" ++ td (y ! Nom ! Masc ! Sg) ++ td (y ! Nom ! Masc ! Pl)) ++
@@ -44,8 +48,8 @@ lin InflectionA = \x -> {
} ; } ;
} ; } ;
lin InflectionV = \x -> { lin InflectionV = \x -> {
t="verb" ; t="fl" ;
s1="" ; s1=heading1 "Folje" ;
s2=frameTable ( s2=frameTable (
tr (intagAttr "th" "rowspan=\"24\"" "Indicative" ++ intagAttr "th" "rowspan=\"6\"" "Pres" ++ intagAttr "th" "rowspan=\"3\"" "Sg" ++ th "P1" ++ td (x.Indicative ! Pres ! Sg ! P1)) ++ tr (intagAttr "th" "rowspan=\"24\"" "Indicative" ++ intagAttr "th" "rowspan=\"6\"" "Pres" ++ intagAttr "th" "rowspan=\"3\"" "Sg" ++ th "P1" ++ td (x.Indicative ! Pres ! Sg ! P1)) ++
tr (th "P2" ++ td (x.Indicative ! Pres ! Sg ! P2)) ++ tr (th "P2" ++ td (x.Indicative ! Pres ! Sg ! P2)) ++
@@ -101,8 +105,8 @@ lin InflectionV = \x -> {
s3=[] s3=[]
} ; } ;
lin InflectionAdv = \x -> { lin InflectionAdv = \x -> {
t="adv" ; t="nd" ;
s1="" ; s1=heading1 "Ndajfolje" ;
s2=frameTable ( s2=frameTable (
tr (th "s" ++ td (x.s))) ; tr (th "s" ++ td (x.s))) ;
s3=[] s3=[]