first draft of a Belarusian grammar

2026-06-09 07:01:11 +02:00
parent e65469ffb2
commit f2ac424bfe
20 changed files with 1274 additions and 52 deletions
@@ -0,0 +1,45 @@
+concrete SentenceBel of Sentence = CatBel ** open ResBel, (R = ParamX), Prelude in {
+
+lin
+  PredVP np vp = {
+    s = \\t,p => np.s ! Nom ++ vp.s ! t ! p ! np.a
+  } ;
+  PredSCVP sc vp = {
+    s = \\t,p => sc.s ++ vp.s ! t ! p ! defaultAgr
+  } ;
+
+  SlashVP np vp = {
+    s = \\t,p => np.s ! Nom ++ vp.s ! t ! p ! np.a ++ vp.post ;
+    c = vp.c
+  } ;
+  AdvSlash cl adv = {
+    s = \\t,p => cl.s ! t ! p ++ adv.s ;
+    c = cl.c
+  } ;
+  SlashPrep cl prep = {
+    s = \\t,p => cl.s ! t ! p ++ prep.s ;
+    c = prep
+  } ;
+  SlashVS np vs ss = {
+    s = \\t,p => np.s ! Nom ++ finiteVerb vs t p np.a ++ ss.s ;
+    c = ss.c
+  } ;
+
+  ImpVP vp = {s = \\p,n => vp.imp ! p ! n} ;
+  AdvImp adv imp = {s = \\p,n => adv.s ++ imp.s ! p ! n} ;
+
+  EmbedS s = {s = "што" ++ s.s} ;
+  EmbedQS qs = {s = qs.s} ;
+  EmbedVP vp = {s = vp.inf} ;
+
+  UseCl temp pol cl = {s = temp.s ++ pol.s ++ cl.s ! temp.t ! pol.p} ;
+  UseQCl temp pol cl = {s = temp.s ++ pol.s ++ cl.s ! temp.t ! pol.p} ;
+  UseRCl temp pol cl = {s = cl.s ! temp.t ! pol.p} ;
+  UseSlash temp pol cl = {s = cl.s ! temp.t ! pol.p; c = cl.c} ;
+
+  AdvS adv s = {s = adv.s ++ s.s} ;
+  ExtAdvS adv s = {s = adv.s ++ s.s} ;
+  SSubjS s1 subj s2 = {s = s1.s ++ subj.s ++ s2.s} ;
+  RelS s rs = {s = s.s ++ rs.s} ;
+
+}