forgot to add Constructions

2026-09-20 09:16:02 -06:00 · 2026-09-20 11:53:04 +02:00
parent d9004e75a8
commit c25a1dab55
1 changed files with 60 additions and 0 deletions
@@ -0,0 +1,60 @@
+--# -path=.:../abstract:../common
+
+concrete ConstructionAfr of Construction = CatAfr **
+  open SyntaxAfr, GrammarAfr, ParadigmsAfr, Prelude,
+       (N = NounAfr), (L = LexiconAfr) in {
+
+lin
+  ready_VP = mkVP (mkA "gereed") ;
+
+  has_age_VP card = mkVP
+    (lin AP (mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (mkN "jaar"))))
+                 (mkA "oud"))) ;
+
+  n_units_AP card cn a = mkAP
+    (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
+
+  n_units_of_NP card cn np = N.AdvNP
+    (mkNP <lin Card card : Card> (lin CN cn))
+    (SyntaxAfr.mkAdv (mkPrep "van") (lin NP np)) ;
+
+  cup_of_CN np = mkCN (mkCN (mkN "koppie"))
+                       (SyntaxAfr.mkAdv (mkPrep "van") (lin NP np)) ;
+
+lincat
+  Weekday = N ;
+  Month = N ;
+  Year = {s : Str} ;
+  Monthday = {s : Str} ;
+
+lin
+  weekdayPunctualAdv w = SyntaxAfr.mkAdv (mkPrep "op") (mkNP w) ;
+  weekdayHabitualAdv w = SyntaxAfr.mkAdv (mkPrep "elke") (mkNP w) ;
+  yearAdv y = {s = "in" ++ y.s} ;
+  intYear i = {s = i.s} ;
+
+  weekdayN w = w ;
+  monthN m = m ;
+
+  monday_Weekday = mkN "Maandag" ;
+  tuesday_Weekday = mkN "Dinsdag" ;
+  wednesday_Weekday = mkN "Woensdag" ;
+  thursday_Weekday = mkN "Donderdag" ;
+  friday_Weekday = mkN "Vrydag" ;
+  saturday_Weekday = mkN "Saterdag" ;
+  sunday_Weekday = mkN "Sondag" ;
+
+  january_Month = mkN "Januarie" ;
+  february_Month = mkN "Februarie" ;
+  march_Month = mkN "Maart" ;
+  april_Month = mkN "April" ;
+  may_Month = mkN "Mei" ;
+  june_Month = mkN "Junie" ;
+  july_Month = mkN "Julie" ;
+  august_Month = mkN "Augustus" ;
+  september_Month = mkN "September" ;
+  october_Month = mkN "Oktober" ;
+  november_Month = mkN "November" ;
+  december_Month = mkN "Desember" ;
+
+}