GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

implemented negation in Slovenian based on Anna Ehrlemark's mini resource

Browse Source
This commit is contained in:
krasimir
2016-08-11 09:44:13 +00:00
parent 690f4a17f9
commit 3609202c52
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,12 +32,17 @@ oper
VP = {s : VForm => Str; s2 : Agr => Str} ; VP = {s : VForm => Str; s2 : Agr => Str} ;
predV : (VForm => Str) -> Tense => Agr => Str = neg : Polarity => Tense => Str =
table {Pos => \\_ => "" ;
Neg => table {Past => "ni"; _ => "ne"}
} ;
predV : (VForm => Str) -> Tense => Polarity => Agr => Str =
\v -> table { \v -> table {
Pres => \\a => v ! VPres a.n a.p ; Pres => \\p,a => neg ! p ! Pres ++ v ! VPres a.n a.p ;
Past => \\a => sem_V ! a.n ! a.p ++ v ! VPastPart a.g a.n ; Past => \\p,a => neg ! p ! Past + 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 ; Fut => \\p,a => neg ! p ! Fut ++ bom_V ! a.n ! a.p ++ v ! VPastPart a.g a.n ;
Cond => \\a => "bi" ++ v ! VPastPart a.g a.n Cond => \\p,a => neg ! p ! Cond ++ "bi" ++ v ! VPastPart a.g a.n
} ; } ;
sem_V : Number => Person => Str = sem_V : Number => Person => Str =
@@ -85,7 +90,7 @@ oper
mkClause : Str -> Agr -> VP -> Clause = mkClause : Str -> Agr -> VP -> Clause =
\subj,agr,vp -> { \subj,agr,vp -> {
s = \\t,a,p => s = \\t,a,p =>
subj ++ predV vp.s ! t ! agr ++ vp.s2 ! agr subj ++ predV vp.s ! t ! p ! agr ++ vp.s2 ! agr
} ; } ;
insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> vp ** { insertObj : (Agr => Str) -> VP -> VP = \obj,vp -> vp ** {