extend the names API

src/german/ResGer.gf

@@ -25,6 +25,7 @@ resource ResGer = ParamX ** open Prelude in {
   param
     Case = Nom | Acc | Dat | Gen ;
     Gender = Masc | Fem | Neutr ;
+    Sex = Male | Female ;
 
 -- Complex $CN$s, like adjectives, have strong and weak forms.
 
@@ -1009,4 +1010,10 @@ resource ResGer = ParamX ** open Prelude in {
       subj = appPrepNP prep np
     in <subj , agr> ;
 
+  sex2gender : Sex -> Gender = \g ->
+    case g of {
+      Male => Masc ;
+      Female => Fem
+    } ;
+
 }