GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki 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
Timeunit = N ;
@@ -6,9 +6,16 @@ lincat
Monthday = NP ;
Month = N ;
Year = NP ;
{-
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 =
let n_card : Card = n ;
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 ;
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

6
src/malay/StructuralMay.gf
View File

@@ -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" ;