after lecture 5 (will finish AgreementSwe on Wednesday)

lectures/lecture-05/AgreementEng.gf

@@ -0,0 +1,32 @@
+concrete AgreementEng of Agreement = open MorphologyEng in {
+    lincat
+        NP = {s: Str; n: Number} ;
+        CN = Noun ;
+        N = Noun ;
+        A = {s: Str} ;
+        Det = {s: Str; n: Number} ;
+
+    lin
+        DetCN d cn = {
+            s = d.s ++ (cn.s ! d.n) ;
+            n = d.n ; 
+        } ;
+        AdjCN a cn = {
+            s = \\n => a.s ++ (cn.s ! n) ;
+        } ;
+        UseN n = n ;
+        
+        cat_N = regNoun "cat" ; 
+        house_N = regNoun "house" ;
+        black_A = {s = "black"} ;
+        big_A = {s = "big"} ;
+        this_Det = {
+            s = "this";
+            n = Sg ;
+        } ;
+        these_Det = {
+            s = "these";
+            n = Pl ;
+        } ;
+    
+}