From 91237f753c80ff433d3b99978e1712c81b392510 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 14 Aug 2023 15:43:27 +0300 Subject: [PATCH] (May) don't use API due to problem with path --- src/malay/ConstructionMay.gf | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/src/malay/ConstructionMay.gf b/src/malay/ConstructionMay.gf index 0da606684..eda790f8f 100644 --- a/src/malay/ConstructionMay.gf +++ b/src/malay/ConstructionMay.gf @@ -1,4 +1,4 @@ -concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), SyntaxMay in { +concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), (G=GrammarMay) in { lincat Timeunit = N ; @@ -9,18 +9,13 @@ lincat lin - has_age_VP card = mkVP umur_V2 (mkNP L.year_N) ; + has_age_VP card = G.ComplSlash (G.SlashV2a umur_V2) (G.DetCN (G.DetQuant G.IndefArt (G.NumCard card)) (G.UseN L.year_N)) ; oper umur_V2 : V2 = mkV2 (mkV "umur") noPrep ; {- - timeunitAdv n time = - let n_card : Card = n ; - n_hours_NP : NP = mkNP n_card time ; - in SyntaxMay.mkAdv for_Prep n_hours_NP | mkAdv (n_hours_NP.s ! R.npNom) ; - weekdayPunctualAdv w = ; -- on Sunday weekdayHabitualAdv w = ; -- on Sundays weekdayNextAdv w = -- next Sunday