forked from GitHub/gf-rgl
Krasimir Angelov
14 lines
487 B
Plaintext
14 lines
487 B
Plaintext
concrete SentenceMkd of Sentence = CatMkd ** open Prelude,ResMkd in {
|
|
|
|
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}} ;
|
|
|
|
}
|