diff --git a/src/malay/ConstructionMay.gf b/src/malay/ConstructionMay.gf index 7bd5489f..0da60668 100644 --- a/src/malay/ConstructionMay.gf +++ b/src/malay/ConstructionMay.gf @@ -1,4 +1,4 @@ -concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay in { +concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), SyntaxMay in { lincat Timeunit = N ; @@ -6,9 +6,16 @@ lincat Monthday = NP ; Month = N ; Year = NP ; -{- + lin + has_age_VP card = mkVP umur_V2 (mkNP 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 ; diff --git a/src/malay/NounMay.gf b/src/malay/NounMay.gf index 90f0b7d5..48c8854f 100644 --- a/src/malay/NounMay.gf +++ b/src/malay/NounMay.gf @@ -104,13 +104,13 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in { -- : Numeral -> Card ; NumNumeral num = num ; -{- + -- : AdN -> Card -> Card ; AdNum adn card = card ** { s = adn.s ++ card.s } ; -- : Digits -> Ord ; OrdDigits digs = digs ** { s = digs.s ! NOrd } ; --} + -- : Numeral -> Ord ; OrdNumeral num = { s = num.ord diff --git a/src/malay/StructuralMay.gf b/src/malay/StructuralMay.gf index 9dea3715..14a10dea 100644 --- a/src/malay/StructuralMay.gf +++ b/src/malay/StructuralMay.gf @@ -3,11 +3,11 @@ concrete StructuralMay of Structural = CatMay ** ------- -- Ad* +lin at_least_AdN = ss "sekurangnya" ; +lin at_most_AdN = ss "paling tua" ; {- lin almost_AdA = mkAdA "" ; lin almost_AdN = ss "" ; -lin at_least_AdN = ss "" ; -lin at_most_AdN = ss "" ; lin so_AdA = ss "" ; lin too_AdA = ss "" ; lin very_AdA = mkAdA "" ; @@ -154,7 +154,7 @@ lin whoSg_IP = mkIP "siapa"; -- Subj -- lin although_Subj = --- lin because_Subj = +lin because_Subj = ss "kerana" ; lin if_Subj = ss "sekiranya" ; lin that_Subj = ss "yang" ; lin when_Subj = ss "kalau" ;