forked from GitHub/gf-rgl
20 lines
654 B
Plaintext
20 lines
654 B
Plaintext
--# -path=alltenses:../common:../abstract
|
|
|
|
concrete ExtendChi of Extend = CatChi **
|
|
ExtendFunctor - [ProDrop,ComplDirectVS, ComplDirectVQ]
|
|
with (Grammar=GrammarChi) ** open Prelude, ResChi in {
|
|
|
|
lin
|
|
ProDrop pron = pron ** {s = []} ;
|
|
ComplDirectVS vs utt =
|
|
AdvVP (UseV <lin V vs : V>)
|
|
(mkAdv (":" ++ quoted utt.s)) ; -- DEFAULT complement added as Adv in quotes
|
|
ComplDirectVQ vq utt =
|
|
AdvVP (UseV <lin V vq : V>)
|
|
(mkAdv (":" ++ quoted utt.s)) ; -- DEFAULT complement added as Adv in quotes
|
|
|
|
oper
|
|
mkAdv : Str -> Adv ;
|
|
mkAdv str = lin Adv {s = str ; advType = ATManner ; hasDe = False} ;
|
|
};
|