GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

added UseDAP

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-24 08:27:36 +02:00
parent 17da1893d7
commit cd1a43db58
1 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/russian/ExtendRus.gf
View File

@@ -23,6 +23,9 @@ concrete ExtendRus of Extend =
--ConjRNP, Cons_nr_RNP, Cons_rr_RNP,
DetNPMasc,
DetNPFem,
UseDAP,
UseDAPMasc,
UseDAPFem,
-- EmbedPresPart, EmptyRelSlash,
ExistsNP,
-- ExistCN, ExistMassCN, ExistPluralCN,
@@ -214,6 +217,41 @@ lin
a=Ag (gennum g (numSizeNumber det.size)) P3
} ;
UseDAP 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
} ;
-- : DAP -> NP ;
UseDAPFem det =
let g = Fem 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
} ;
-- : Det -> NP ;
UseDAPMasc det =
let g = Masc 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
} ;
oper
rus_quoted : Str -> Str = \s -> "«" ++ s ++ "»" ; ---- TODO bind ; move to Prelude?