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

participles and gerunds in TranslateFin. "vaimoni ostama olut on hyvää", "työn löytäminen on vaikeaa" etc

Browse Source
This commit is contained in:
aarne
2014-09-25 21:01:17 +00:00
parent b4104b90e1
commit e1538f762f
3 changed files with 38 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/translator/ExtensionsEng.gf
View File

@@ -79,7 +79,7 @@ lin
} ;
PastPartAgentAP vp np = {
s = \\a => vp.ad ! a ++ vp.ptp ++ vp.c2 ++ vp.s2 ! a ++ "by" ++ np.s ! NPAcc ++ vp.ext ;
isPre = vp.isSimple -- depends on whether there are complements
isPre = False
} ;
PositAdVAdj a = {s = a.s ! AAdv} ;

22
lib/src/translator/ExtensionsFin.gf
View File

@@ -69,9 +69,27 @@ lin
isPron = np1.isPron ; isNeg = np1.isNeg
} ;
GerundN v = mkN (lin V v) ;
GerundNP vp = {
s = \\c => vp.s2 ! True ! Pos ! agrP3 Sg ++ (mkNP the_Det (lin N (sverb2snoun vp.s))).s ! c ++ vp.adv ! Pos ++ vp.ext ;
a = agrP3 Sg ;
isPron = False ; isNeg = False
} ;
-- sen sanominen suoraan että...
---- se --> sen
---- lost agreement, lost genitive, lost possessive
---- minun saamiseni mukaan
GerundAP v = {s = \\_ => (snoun2nounSep (sverb2nounPresPartAct v)).s} ;
GerundAP vp = {s = \\f => vp.s2 ! True ! Pos ! agrP3 Sg ++ (snoun2nounSep (sverb2nounPresPartAct vp.s)).s ! f ++ vp.adv ! Pos ++ vp.ext} ;
GerundAdv vp = {s = (sverb2verbSep vp.s).s ! Inf Inf2Instr ++ vp.s2 ! True ! Pos ! agrP3 Sg ++ vp.adv ! Pos ++ vp.ext} ; -- nukkuen
-- tänään löydetty
PastPartAP vp = {s = \\_,f => vp.s2 ! True ! Pos ! agrP3 Sg ++ vp.adv ! Pos ++ (sverb2verbSep vp.s).s ! PastPartPass (AN f) ++ vp.ext} ;
-- miehen tänään löytämä
PastPartAgentAP vp np =
{s = \\_,f => np.s ! NPCase Gen ++ vp.s2 ! True ! Pos ! agrP3 Sg ++ vp.adv ! Pos ++ (sverb2verbSep vp.s).s ! AgentPart (AN f) ++ vp.ext} ;
OrdCompar a = snoun2nounSep {s = \\nc => a.s ! Compar ! SAN nc ; h = a.h} ;

20
lib/src/translator/TranslateFin.gf
View File

@@ -13,7 +13,8 @@ concrete TranslateFin of Translate =
],
ConjunctionFin,
VerbFin - [
UseCopula,
UseCopula, -- not used
CompAP, -- variant Nom/Part
PassV2 -- generalized in Extensions
],
AdverbFin,
@@ -26,8 +27,11 @@ concrete TranslateFin of Translate =
DocumentationFin,
ChunkFin,
ExtensionsFin [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
DirectComplVS, DirectComplVQ, FocusObjS],
ExtensionsFin [
CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
DirectComplVS, DirectComplVQ, FocusObjS
,PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv
],
DictionaryFin **
@@ -35,5 +39,15 @@ open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, (E = ExtraFin), (G = G
flags literal=Symb ; coding = utf8 ;
lin
CompAP ap = G.CompAP ap
|
{s = \\agr =>
let
n = complNumAgr agr ;
c = Part ;
in ap.s ! False ! (NCase n c)
} ;
}