first Nobel grammar

lab2/grammars/NobelEng.gf

@@ -0,0 +1,32 @@
+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") ;
+
+}