forked from GitHub/comp-syntax-gu-mlt
40 lines
895 B
Plaintext
40 lines
895 B
Plaintext
concrete NobelEng of Nobel = LabelsEng ** open
|
|
SyntaxEng,
|
|
ParadigmsEng,
|
|
SymbolicEng,
|
|
IrregEng
|
|
in {
|
|
|
|
lincat
|
|
Sentence = S ;
|
|
Name = NP ;
|
|
Date = Adv ;
|
|
|
|
lin
|
|
BornSentence name country date =
|
|
mkS pastTense (mkCl name (mkVP (mkVP born_VP (inAdv country)) date)) ;
|
|
|
|
AwardSentence name award date =
|
|
mkS pastTense (mkCl name (mkVP (mkVP get_V2 award) date)) ;
|
|
|
|
DiedSentence name date =
|
|
mkS pastTense (mkCl name (mkVP die_VP date)) ;
|
|
|
|
FemaleName s = symb s ; -- use if your language needs gender agreement
|
|
MaleName s = symb s ; -- use if your language needs gender agreement
|
|
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") ;
|
|
die_VP = mkVP (mkV "die") ;
|
|
get_V2 = mkV2 get_V ;
|
|
|
|
}
|