extensions from Codex

This commit is contained in:
Krasimir Angelov committed 2026-10-14 08:34:11 +02:00
1 parent 52790d5b43
commit 1cef16870e
36 files changed
+864 -236

No files matched your search

+3 -1
View File
@@ -1,8 +1,10 @@
concrete AdverbSwa of Adverb = CatSwa **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS] with
concrete AdverbSwa of Adverb = CatSwa **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS,PrepNP] with
(ResBantu = ResSwa)** open DiffSwa in
{
flags coding=utf8;
lin
PrepNP prep np = let agr = complAgr np.a in
{s = prep.s ! agr.n ! agr.g ++ np.s ! NCase Nom} ;
ComparAdvAdj cadv a np =let agr = complAgr np.a
in {
s = cadv.s ++ a.s !AAdj agr.g agr.n ++ cadv.p ++ np.s ! npNom