forked from GitHub/comp-syntax-gu-mlt
33 lines
740 B
Plaintext
33 lines
740 B
Plaintext
concrete NobelEng of Nobel = LabelsEng ** open
|
|
SyntaxEng,
|
|
ParadigmsEng,
|
|
SymbolicEng,
|
|
IrregEng
|
|
in {
|
|
|
|
lincat
|
|
Description = Text ;
|
|
Name = NP ;
|
|
Date = Adv ;
|
|
|
|
lin
|
|
LivingDescription name pron country birthdate awarddate award =
|
|
mkText
|
|
(mkPhr (mkS pastTense (mkCl name (mkVP (mkVP born_VP (inAdv country)) birthdate))))
|
|
(mkText (mkS pastTense (mkCl pron (mkVP (mkVP (mkV2 get_V) award) awarddate)))) ;
|
|
|
|
-- PastDescription : Name -> Country -> Date -> Date -> Award -> Description ;
|
|
StringName s = symb s ;
|
|
|
|
YearDate i = inAdv <symb i : NP> ;
|
|
|
|
he_Name = he_NP ;
|
|
she_Name = she_NP ;
|
|
they_Name = they_NP ;
|
|
|
|
oper
|
|
inAdv : NP -> Adv = \np -> SyntaxEng.mkAdv in_Prep np ;
|
|
born_VP = mkVP (mkA "born") ;
|
|
|
|
}
|