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

(May) Misc new words and funs

Browse Source
This commit is contained in:
Inari Listenmaa
2023-08-04 17:19:14 +08:00
parent f7e9357ed4
commit e91b613e1a
3 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/malay/ConstructionMay.gf
View File

@@ -1,4 +1,4 @@
concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay in { concrete ConstructionMay of Construction = CatMay ** open ParadigmsMay, (L=LexiconMay), SyntaxMay in {
lincat lincat
Timeunit = N ; Timeunit = N ;
@@ -6,9 +6,16 @@ lincat
Monthday = NP ; Monthday = NP ;
Month = N ; Month = N ;
Year = NP ; Year = NP ;
{-
lin lin
has_age_VP card = mkVP umur_V2 (mkNP <lin Card card : Card> L.year_N) ;
oper
umur_V2 : V2 = mkV2 (mkV "umur") noPrep ;
{-
timeunitAdv n time = timeunitAdv n time =
let n_card : Card = n ; let n_card : Card = n ;
n_hours_NP : NP = mkNP n_card time ; n_hours_NP : NP = mkNP n_card time ;

4
src/malay/NounMay.gf
View File

@@ -104,13 +104,13 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
-- : Numeral -> Card ; -- : Numeral -> Card ;
NumNumeral num = num ; NumNumeral num = num ;
{-
-- : AdN -> Card -> Card ; -- : AdN -> Card -> Card ;
AdNum adn card = card ** { s = adn.s ++ card.s } ; AdNum adn card = card ** { s = adn.s ++ card.s } ;
-- : Digits -> Ord ; -- : Digits -> Ord ;
OrdDigits digs = digs ** { s = digs.s ! NOrd } ; OrdDigits digs = digs ** { s = digs.s ! NOrd } ;
-}
-- : Numeral -> Ord ; -- : Numeral -> Ord ;
OrdNumeral num = { OrdNumeral num = {
s = num.ord s = num.ord

6
src/malay/StructuralMay.gf
View File

@@ -3,11 +3,11 @@ concrete StructuralMay of Structural = CatMay **
------- -------
-- Ad* -- Ad*
lin at_least_AdN = ss "sekurangnya" ;
lin at_most_AdN = ss "paling tua" ;
{- {-
lin almost_AdA = mkAdA "" ; lin almost_AdA = mkAdA "" ;
lin almost_AdN = ss "" ; lin almost_AdN = ss "" ;
lin at_least_AdN = ss "" ;
lin at_most_AdN = ss "" ;
lin so_AdA = ss "" ; lin so_AdA = ss "" ;
lin too_AdA = ss "" ; lin too_AdA = ss "" ;
lin very_AdA = mkAdA "" ; lin very_AdA = mkAdA "" ;
@@ -154,7 +154,7 @@ lin whoSg_IP = mkIP "siapa";
-- Subj -- Subj
-- lin although_Subj = -- lin although_Subj =
-- lin because_Subj = lin because_Subj = ss "kerana" ;
lin if_Subj = ss "sekiranya" ; lin if_Subj = ss "sekiranya" ;
lin that_Subj = ss "yang" ; lin that_Subj = ss "yang" ;
lin when_Subj = ss "kalau" ; lin when_Subj = ss "kalau" ;