forked from GitHub/gf-rgl
fix paradigm mkN003
This commit is contained in:
@@ -58,11 +58,15 @@ oper
|
||||
mkN003 : Str -> N ;
|
||||
mkN003 base = let v0 = tk 3 base;
|
||||
v1 = last (base);
|
||||
g = AMasc NonHuman
|
||||
in {s = mkNoun (v0+"đú"+v1)
|
||||
(v0+"úđ"+v1+"îâĺ")
|
||||
(v0+"úđ"+v1+"ŕ")
|
||||
(v0+"đú"+v1)
|
||||
g = AMasc NonHuman
|
||||
in {s = table {
|
||||
NF Sg Indef => v0+"đú"+v1 ;
|
||||
NF Sg Def => v0+"úđ"+v1+"ŕ" ;
|
||||
NF Pl Indef => v0+"úđ"+v1+"îâĺ" ;
|
||||
NF Pl Def => v0+"úđ"+v1+"îâĺňĺ" ;
|
||||
NFSgDefNom => v0+"úđ"+v1+"úň" ;
|
||||
NFPlCount => v0+"úđ"+v1+"îâĺ" ;
|
||||
NFVocative => v0+"đú"+v1
|
||||
} ;
|
||||
rel = \\_ => base ; relPost = False ;
|
||||
g = g ;
|
||||
|
||||
Reference in New Issue
Block a user