forked from GitHub/comp-syntax-gu-mlt
37 lines
791 B
Plaintext
37 lines
791 B
Plaintext
concrete NobelFin of Nobel = LabelsFin ** open
|
|
SyntaxFin,
|
|
ParadigmsFin,
|
|
SymbolicFin
|
|
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)) ;
|
|
|
|
StringName s = symb s ;
|
|
|
|
YearDate i = SyntaxFin.mkAdv (mkPrep "vuonna" nominative) <symb i : NP> ;
|
|
|
|
he_Name = he_NP ;
|
|
she_Name = she_NP ;
|
|
they_Name = he_NP ;
|
|
|
|
oper
|
|
inAdv : NP -> Adv = \np -> SyntaxFin.mkAdv in_Prep np ;
|
|
born_VP = mkVP (mkV "syntyä") ;
|
|
die_VP = mkVP (mkV "kuolla") ;
|
|
get_V2 = mkV2 (mkV "saada") ;
|
|
|
|
}
|