msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

enabled some gerunds and participles in Translate, implemented for Eng and Swe. Commented out which_N, a source of errors.

Browse Source
This commit is contained in:
aarne
2014-09-25 17:56:22 +00:00
parent 591b56a7e2
commit b4104b90e1
6 changed files with 40 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/scandinavian/CommonScand.gf
View File

@@ -138,6 +138,13 @@ oper
gennumAgr : Agr -> GenNum = \a -> gennum a.g a.n ;
aformpos2agr : AFormPos -> Agr = \af -> case af of {
Strong (GSg g) => {p = P3 ; n = Sg ; g = g} ;
Strong GPl => {p = P3 ; n = Pl ; g = Utr} ; -- loss of gender does not matter in Pl
Weak n => {p = P3 ; n = n ; g = Utr} ---- loss of gender: *det stor blivande huset
} ;
-- Used in $DiffScand.predV$.
vFin : STense -> Voice -> VForm = \t,v -> case t of {
@@ -333,6 +340,11 @@ oper
infVPPlus : VP -> Agr -> Anteriority -> Polarity -> Str = \vp,a,ant,pol ->
vp.a1 ! pol ! a ++ (vp.s ! Act ! VPInfinit ant).inf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; --- a1
partVPPlus : VP -> PartForm -> Agr -> Polarity -> Str = \vp,pf,a,pol ->
vp.a1 ! pol ! a ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ++ vp.sp ! pf ; -- verb final: i sängen liggande
partVPPlusPost : VP -> PartForm -> Agr -> Polarity -> Str = \vp,pf,a,pol ->
vp.a1 ! pol ! a ++ vp.sp ! pf ++ vp.n2 ! a ++ vp.a2 ++ vp.ext ; -- verb first: liggande i sängen
-- For $Sentence$.