extensions from Codex

src/basque/NamesEus.gf

@@ -0,0 +1,25 @@
+concrete NamesEus of Names = CatEus ** open ResEus, Prelude in {
+
+  lin
+    GivenName = nameNP ;
+    MaleSurname = nameNP ;
+    FemaleSurname = nameNP ;
+    PlSurname sn = (nameNP sn) ** {agr = Hauek} ;
+
+    FullName gn sn = nameNP (sn ** {s = gn.s ++ sn.s ; nbr = Sg}) ;
+
+    UseLN, PlainLN = nameNP ;
+
+    InLN ln = {s = (nameNP ln).s ! Ine} ;
+
+    AdjLN ap ln = ln ** {s = ap.s ! Hau ++ ln.s} ;
+
+  oper
+    nameNP : PNoun -> NounPhrase = \pn -> {
+      s = \\c => pn.s ++ artIndef ! c ! pn.ph ;
+      stem = pn.s ;
+      agr = case pn.nbr of {Sg => Hau ; Pl => Hauek} ;
+      anim = pn.anim ;
+      isDef = True
+      } ;
+}