mirror of
https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git
synced 2026-02-09 14:51:06 -07:00
everything in place for Lab 2
This commit is contained in:
36
lab2/grammars/NobelFin.gf
Normal file
36
lab2/grammars/NobelFin.gf
Normal file
@@ -0,0 +1,36 @@
|
||||
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") ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user