msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

everything in place for Lab 2

Browse Source
This commit is contained in:
Aarne Ranta
2025-05-04 12:14:37 +02:00
parent cc604093d0
commit 6ea7d5d838
10 changed files with 403 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lab2/grammars/NobelEng.gf
View File

@@ -6,17 +6,20 @@ concrete NobelEng of Nobel = LabelsEng ** open
in {
lincat
Description = Text ;
Sentence = S ;
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)))) ;
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 (mkV2 get_V) award) date)) ;
DiedSentence name date =
mkS pastTense (mkCl name (mkVP die_VP date)) ;
-- PastDescription : Name -> Country -> Date -> Date -> Award -> Description ;
StringName s = symb s ;
YearDate i = inAdv <symb i : NP> ;
@@ -28,5 +31,6 @@ lin
oper
inAdv : NP -> Adv = \np -> SyntaxEng.mkAdv in_Prep np ;
born_VP = mkVP (mkA "born") ;
die_VP = mkVP (mkV "die") ;
}