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

imperatives in Slovenian

Browse Source
This commit is contained in:
krasimir
2016-05-06 08:29:25 +00:00
parent ca3f218122
commit ead812e2b0
5 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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