mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 09:28:54 -06:00
added gender to nouns
This commit is contained in:
@@ -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
@@ -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
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user