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

(May) don't use API due to problem with path

Browse Source
This commit is contained in:
Inari Listenmaa
2023-08-14 15:43:27 +03:00
parent d25d648134
commit 91237f753c
1 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/malay/ConstructionMay.gf
View File

@@ -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 lincat
Timeunit = N ; Timeunit = N ;
@@ -9,18 +9,13 @@ lincat
lin lin
has_age_VP card = mkVP umur_V2 (mkNP <lin Card card : Card> 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 oper
umur_V2 : V2 = mkV2 (mkV "umur") noPrep ; 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 weekdayPunctualAdv w = ; -- on Sunday
weekdayHabitualAdv w = ; -- on Sundays weekdayHabitualAdv w = ; -- on Sundays
weekdayNextAdv w = -- next Sunday weekdayNextAdv w = -- next Sunday