1
0
forked from GitHub/gf-rgl

(Dut) Remove . after date (op 17 mei, not 17. mei)

This commit is contained in:
Inari Listenmaa
2018-06-15 10:38:04 +02:00
parent 6c3125c3e2
commit 7dd9e62de5

View File

@@ -2,7 +2,7 @@
concrete ConstructionDut of Construction = CatDut **
open SyntaxDut, SymbolicDut, ParadigmsDut,
(L = LexiconDut), (E = ExtraDut), (G = GrammarDut), (I = IrregDut), (R = ResDut), (N = NounDut), Prelude in {
(L = LexiconDut), (E = ExtendDut), (G = GrammarDut), (I = IrregDut), (R = ResDut), (N = NounDut), (P=ParamX), Prelude in {
lin
@@ -49,9 +49,9 @@ lin
monthAdv m = SyntaxDut.mkAdv in_Prep (mkNP the_Det m) ;
yearAdv y = SyntaxDut.mkAdv (mkPrep "in jaar") y ; ----
dayMonthAdv d m = ParadigmsDut.mkAdv ("op" ++ d.s ! R.NPNom ++ BIND ++ "." ++ m.s ! R.NF R.Sg R.Nom) ; -- op 17 Mai
monthYearAdv m y = SyntaxDut.mkAdv in_Prep (mkNP the_Det (mkCN m y)) ; -- im Mai 2012
dayMonthYearAdv d m y = ParadigmsDut.mkAdv ("op" ++ d.s ! R.NPNom ++ BIND ++ "." ++ m.s ! R.NF R.Sg R.Nom ++ y.s ! R.NPNom) ; -- am 17 Mai 2013
dayMonthAdv d m = ParadigmsDut.mkAdv ("op" ++ d.s ! R.NPNom ++ m.s ! R.NF R.Sg R.Nom) ; -- op 17 mei
monthYearAdv m y = SyntaxDut.mkAdv in_Prep (mkNP the_Det (mkCN m y)) ; -- in mei 2012
dayMonthYearAdv d m y = ParadigmsDut.mkAdv ("op" ++ d.s ! R.NPNom ++ m.s ! R.NF R.Sg R.Nom ++ y.s ! R.NPNom ) ; -- op 17 mei 2013
intYear = symb ;
intMonthday = symb ;