GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 04:16:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Lexicon extended

Browse Source
This commit is contained in:
Roman Suzi
2020-08-19 23:22:11 +03:00
parent 7a100120af
commit ecb032770e
18 changed files with 5279 additions and 232 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/NounRus.gf
+9 -8
View File
@@ -44,15 +44,16 @@ lin
RelNP np rs = np ** {s=\\cas=>np.s ! cas ++ embedInCommas (rs.s ! agrGenNum np.a ! Inanimate !cas)} ;
-- : Det -> NP ; -- these five
DetNP det = {
s=case det.type of {
EmptyIndef => \\cas => a_Det.s ! det.g ! Inanimate ! cas ++ det.s ! det.g ! Inanimate ! cas ;
EmptyDef => \\cas => the_Det.s ! det.g ! Inanimate ! cas ++ det.s ! det.g ! Inanimate ! cas ;
_ => \\cas => det.s ! det.g ! Inanimate ! cas
DetNP det =
let g = det.g in {
s=case det.type of {
EmptyIndef => \\cas => a_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
EmptyDef => \\cas => the_Det.s ! g ! Inanimate ! cas ++ det.s ! g ! Inanimate ! cas ;
_ => \\cas => det.s ! g ! Inanimate ! cas
} ;
pron=False ;
a=Ag (gennum g (numSizeNumber det.size)) P3
} ;
pron=False ;
a=Ag (gennum det.g (numSizeNumber det.size)) P3
} ;
-- : CN -> NP ; -- (beer)
MassNP cn =