extensions from Codex

This commit is contained in:
Krasimir Angelov
2026-09-26 09:05:13 +02:00
parent bfc0a89f99
commit 5e7330deb9
11 changed files with 283 additions and 10 deletions
+2 -2
View File
@@ -16,7 +16,7 @@ concrete QuestionEus of Question = CatEus ** open ResEus, (VE=VerbEus), (NE=Noun
-- : IAdv -> Cl -> QCl ; -- why does John walk
-- nola (how), zerbait (how much), noiz (when), non (where), zergatik (why)
QuestIAdv iadv cl =
QuestIAdv iadv cl =
{ s = \\t,a,p,c =>
let sent = cl.s ! t ! a ! p ! Indir ; -- no "al" with a wh-word!
in { beforeAux = iadv.s ++ sent.beforeAux ;
@@ -78,4 +78,4 @@ concrete QuestionEus of Question = CatEus ** open ResEus, (VE=VerbEus), (NE=Noun
QuestQVP : IP -> QVP -> QCl ; -- who buys what where
-}
}
}