mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-13 00:50:11 -06:00
18 lines
423 B
Plaintext
18 lines
423 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
concrete ExtendEus of Extend =
|
|
CatEus ** ExtendFunctor - [GenNP,ICompAP]
|
|
with (Grammar=GrammarEus)
|
|
** open Prelude, ResEus in {
|
|
|
|
lin
|
|
GenNP np = -- NP -> Quant ; -- this man's
|
|
{ s = artDef ;
|
|
indep, isDef = True ;
|
|
pref = np.s ! Gen } ;
|
|
|
|
|
|
ICompAP ap = -- AP -> IComp ; -- "how old"
|
|
{ s = "nola" ++ ap.s ! Hau } ; --TODO agreement -- change type of IComp
|
|
} ;
|
|
|