change NP to contain GenNum instead of Number and Gender

This commit is contained in:
Krasimir Angelov
2026-03-20 08:14:10 +01:00
parent 1d7b717866
commit 928889b2aa
3 changed files with 15 additions and 11 deletions

View File

@@ -1,11 +1,13 @@
concrete SentenceMkd of Sentence = CatMkd ** open Prelude,ResMkd in {
lin PredVP np vp = {present = \\a => np.s ++ vp.present ! a ! np.n ! np.p ;
aorist = np.s ++ vp.aorist ! np.n ! np.p ;
participle = {aorist = \\a => np.s ++ vp.participle.aorist ! a !
case np.n of {
Sg => GSg np.g;
Pl => GPl
};
perfect = \\a => np.s ++ vp.participle.perfect ! a}} ;
lin PredVP np vp =
let n = case np.g of {
GSg _ => Sg ;
GPl => Pl
}
in {present = \\a => np.s ++ vp.present ! a ! n ! np.p ;
aorist = np.s ++ vp.aorist ! n ! np.p ;
participle = {aorist = \\a => np.s ++ vp.participle.aorist ! a ! np.g;
perfect = \\a => np.s ++ vp.participle.perfect ! a}} ;
}