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

transitive verbs in Slovenian

Browse Source
This commit is contained in:
krasimir
2016-05-03 13:47:14 +00:00
parent a9d257a31c
commit c42d31bc45
4 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/slovenian/ResSlv.gf
View File

@@ -30,15 +30,16 @@ param
oper
Agr = {g : Gender; n : Number; p : Person} ;
VP = {s : Tense => Agr => Str} ;
VP = {s : Tense => Agr => Str; s2 : Agr => Str} ;
predV : (VForm => Str) -> VP =
\v -> { s = table {
Pres => \\a => v ! VPres a.n a.p ;
Past => \\a => "biti" ++ v ! VPastPart a.g a.n ;
Fut => \\a => "biti" ++ v ! VPastPart a.g a.n ;
Cond => \\a => "bi" ++ v ! VPastPart a.g a.n
}
} ;
s2= \\a => ""
} ;
Clause : Type = {
@@ -48,7 +49,11 @@ oper
mkClause : Str -> Agr -> VP -> Clause =
\subj,agr,vp -> {
s = \\t,a,p =>
subj ++ vp.s ! t ! agr
subj ++ vp.s ! t ! agr ++ vp.s2 ! agr
} ;
insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> vp ** {
s2 = \\a => vp.s2 ! a ++ obj ! a ;
} ;
}