mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-11-03 11:15:36 -07:00
added dative case
This commit is contained in:
1 parent
dde837863b
commit
46d68bf40b
11 files changed
+79
-68
No files matched your search
@@ -15,10 +15,19 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
|
||||
} ;
|
||||
_ => NF det.n det.spec
|
||||
} ;
|
||||
in det.s ! cn.g ! c ++ cn.s ! nf ;
|
||||
s = det.s ! cn.g ! c ++ cn.s ! nf
|
||||
in case c of {
|
||||
Dat => "íà" ++ s;
|
||||
_ => s
|
||||
} ;
|
||||
a = {gn = gennum cn.g det.n; p = P3} ;
|
||||
} ;
|
||||
UsePN pn = {s = \\_ => pn.s; a = {gn = GSg pn.g; p = P3}} ;
|
||||
UsePN pn = { s = \\c => case c of {
|
||||
Dat => "íà" ++ pn.s;
|
||||
_ => pn.s
|
||||
} ;
|
||||
a = {gn = GSg pn.g; p = P3}
|
||||
} ;
|
||||
UsePron p = {s = p.s; a=p.a} ;
|
||||
|
||||
PredetNP pred np = {
|
||||
|
||||
Reference in new issue
Block a user