added gender to nouns

This commit is contained in:
Krasimir Angelov
2026-04-22 13:25:04 +02:00
parent 4a3e30a1cd
commit 41e3b8280b
3 changed files with 351 additions and 176 deletions

View File

@@ -10,7 +10,11 @@ lincat
lin lin
InflectionN,InflectionN2,InflectionN3 = \x -> { InflectionN,InflectionN2,InflectionN3 = \x -> {
t="n" ; t="n" ;
s1="" ; s1 = heading1 ("Noun" ++ case x.g of {
Neutr => "(neuter)";
Masc => "(masc)";
Fem => "(fem)"
}) ;
s2=frameTable ( s2=frameTable (
tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Indef" ++ th "Def") ++ tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Indef" ++ th "Def") ++
tr (intagAttr "th" "rowspan=\"4\"" "Sg" ++ tr (intagAttr "th" "rowspan=\"4\"" "Sg" ++

File diff suppressed because it is too large Load Diff

View File

@@ -3,10 +3,10 @@ resource ResFao = {
param Species = Indef | Def ; param Species = Indef | Def ;
param Number = Sg | Pl ; param Number = Sg | Pl ;
param Case = Nom | Acc | Dat | Gen ; param Case = Nom | Acc | Dat | Gen ;
param Gender = Neutr | Fem | Masc ; param Gender = Masc | Fem | Neutr ;
oper Noun = {s: Species => Number => Case => Str} ; -- 2135 oper Noun = {s: Species => Number => Case => Str; g : Gender} ; -- 2135
oper mkNoun : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Noun = oper mkNoun : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> Noun =
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16 -> \f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,g ->
{ s = table { { s = table {
Indef => table { Indef => table {
Sg => table { Sg => table {
@@ -36,7 +36,8 @@ oper mkNoun : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Noun =
Gen => f16 Gen => f16
} }
} }
} } ;
g = g
} ; } ;