GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-15 22:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added UseComp and CompAP in Slovenian. This also implements the complicated word order

Browse Source
This commit is contained in:
krasimir
2016-08-30 13:16:44 +00:00
parent 500ff14f7b
commit 0dbfe723ef
4 changed files with 83 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/src/slovenian/VerbSlv.gf
View File

@@ -1,20 +1,32 @@
concrete VerbSlv of Verb = CatSlv ** open ResSlv, Prelude in {
concrete VerbSlv of Verb = CatSlv ** open ResSlv, ParamX, Prelude in {
lin
UseV v =
{ s = v.s ;
s2 = \\a => ""
{ s = \\p,vform => ne ! p ++ v.s ! vform ;
s2 = \\a => "" ;
isCop = False
} ;
SlashV2a v =
{ s = v.s ;
{ s = \\p,vform => ne ! p ++ v.s ! vform ;
s2 = \\a => "" ;
c2 = v.c2
c2 = v.c2 ;
isCop = False
} ;
ComplSlash vp np =
insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp ;
insertObj (\\_ => vp.c2.s ++ np.s ! vp.c2.c) vp;
UseComp comp = {
s = copula ;
s2 = comp.s ;
isCop = True
} ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
CompAP ap = {
s = \\agr => ap.s ! Indef ! inanimateGender agr.g ! Nom ! agr.n
} ;
}