removed spurious substantival possessives created from empty strings in NounFin in the presence of ProDrop

This commit is contained in:
aarne
2014-05-23 14:10:36 +00:00
parent 48d61ad7c2
commit 6e1bb5446d
4 changed files with 15 additions and 2 deletions

View File

@@ -124,4 +124,14 @@ lin
--in Verb, SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash
DirectComplVS t np vs utt =
mkS (lin Adv (optCommaSS utt)) (mkS t positivePol (mkCl np (lin V vs))) ;
DirectComplVQ t np vs q =
mkS (lin Adv (optCommaSS (mkUtt q))) (mkS t positivePol (mkCl np (lin V vs))) ;
FocusObjS np sslash =
mkS (lin Adv (optCommaSS (ss (appCompl True Pos sslash.c2 np)))) <lin S sslash : S> ; ---- Pos could be Neg: häntä minä en tunne
}

View File

@@ -26,7 +26,8 @@ concrete TranslateFin of Translate =
DocumentationFin,
ChunkFin,
ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
DirectComplVS, DirectComplVQ, FocusObjS],
DictionaryFin **