forked from GitHub/gf-rgl
refactor the noun paradigms
This commit is contained in:
@@ -1,8 +1,8 @@
|
||||
concrete CatBel of Cat = CommonX ** open ResBel in {
|
||||
|
||||
lincat N = N ;
|
||||
lincat N2 = N ** {c2 : Compl} ;
|
||||
lincat N3 = N ** {c2,c3 : Compl} ;
|
||||
lincat N = Noun ;
|
||||
lincat N2 = Noun ** {c2 : Compl} ;
|
||||
lincat N3 = Noun ** {c2,c3 : Compl} ;
|
||||
lincat V = V ;
|
||||
lincat VV,VS,VQ,VA = V ;
|
||||
lincat V2 = V ** {c2 : Compl} ;
|
||||
|
||||
@@ -18,8 +18,7 @@ lin
|
||||
tr (th "Dat" ++ td (x.s ! Dat ! Sg) ++ td (x.s ! Dat ! Pl)) ++
|
||||
tr (th "Gen" ++ td (x.s ! Gen ! Sg) ++ td (x.s ! Gen ! Pl)) ++
|
||||
tr (th "Loc" ++ td (x.s ! Loc ! Sg) ++ td (x.s ! Loc ! Pl)) ++
|
||||
tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl)) ++
|
||||
tr (th "Voc" ++ td (x.Voc ! Sg) ++ td (x.Voc ! Pl))) ;
|
||||
tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl))) ;
|
||||
s3=[]
|
||||
} ;
|
||||
lin
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -3,9 +3,9 @@ resource ResBel = {
|
||||
param Case = Nom | Acc | Dat | Gen | Loc | Instr ;
|
||||
param Number = Sg | Pl ;
|
||||
param Gender = Masc | Fem | Neuter ;
|
||||
oper N = {s: Case => Number => Str; Voc: Number => Str; g: Gender} ; -- 2696
|
||||
oper mkN : (_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> N =
|
||||
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,g ->
|
||||
oper Noun = {s: Case => Number => Str; voc: Str; g: Gender} ; -- 2696
|
||||
oper mkNoun : (_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> Noun =
|
||||
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,g ->
|
||||
{ s = table {
|
||||
Nom => table {
|
||||
Sg => f1 ;
|
||||
@@ -32,10 +32,7 @@ oper mkN : (_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> N =
|
||||
Pl => f12
|
||||
}
|
||||
} ;
|
||||
Voc = table {
|
||||
Sg => f13 ;
|
||||
Pl => f14
|
||||
} ;
|
||||
voc = f13 ;
|
||||
g = g
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user