From ed4ff97b7b17aad95ee7ea3f186eb1241d5fe27f Mon Sep 17 00:00:00 2001 From: Herbert Lange Date: Tue, 12 Nov 2019 14:54:33 +0100 Subject: [PATCH] varios function is extend --- src/latin/ExtendLat.gf | 22 ++++++++++++++++++---- 1 file changed, 18 insertions(+), 4 deletions(-) diff --git a/src/latin/ExtendLat.gf b/src/latin/ExtendLat.gf index 003ca30e3..ec214bb84 100644 --- a/src/latin/ExtendLat.gf +++ b/src/latin/ExtendLat.gf @@ -16,7 +16,8 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in { lin --- GenNP : NP -> Quant ; -- this man's + -- GenNP : NP -> Quant ; -- this man's + GenNP np = { s = \\_ => combineNounPhrase np ! PronNonDrop ! APostN ! DPreN ! Gen ; sp = \\_ => ""} ; -- GenIP : IP -> IQuant ; -- whose -- GenRP : Num -> CN -> RP ; -- whose car @@ -95,7 +96,10 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in { -- -- this is a generalization of Verb.PassV2 and should replace it in the future. --- PassVPSlash : VPSlash -> VP ; -- be forced to sleep + -- PassVPSlash : VPSlash -> VP ; -- be forced to sleep + PassVPSlash vp = vp ** { + s = \\a => case a of { VAct _ t n p => vp.pass ! VPass t n p } ; + } ; -- -- the form with an agent may result in a different linearization -- -- from an adverbial modification by an agent phrase. @@ -147,8 +151,18 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in { -- -- to use an AP as CN or NP without CN --- AdjAsCN : AP -> CN ; -- a green one ; en grön (Swe) --- AdjAsNP : AP -> NP ; -- green (is good) + -- AdjAsCN : AP -> CN ; -- a green one ; en grön (Swe) + -- AdjAsNP : AP -> NP ; -- green (is good) + AdjAsNP ap = { + s = \\_,c => ap.s ! (Ag Neutr Sg c) ; + adv = "" ; + det = { s, sp = \\_ => "" } ; + g = Neutr ; + n = Sg ; + p = P3 ; + postap = { s = \\_ => "" } ; + preap = { s = \\_ => "" } ; + } ; -- -- infinitive complement for IAdv