(Som) Add a few words + comments

src/somali/LexiconSom.gf

@@ -258,7 +258,7 @@ lin name_N = mkN "magac" ;
 -- lin paris_PN = mkPN "Paris" ;
 -- lin peace_N = mkN "" ;
 -- lin pen_N = mkN "" ;
--- lin person_N = mkN "" ;
+lin person_N = mkNoun "dad" "dadka" "dad" "dadka" Masc ;
 -- lin planet_N = mkN "" ;
 -- lin plastic_N = mkN "" ;
 -- lin play_V = mkV "" ;

src/somali/ResSom.gf

@@ -182,6 +182,18 @@ oper
     sp : Case => Str ;
     } ;
 
+  {- Saeed p.115: "This combination of possessive and article [kay-ga, tay-da] 
+      is the basic form but possessives occur with the full range of determiners,
+      with associated meanings, for example:
+      remote article kii/tii:    gurigaagii 'your house (remote)' 
+      demonstrative kaas/taas:   gurigaagaas 'that house of yours' 
+      interrogative kee/tee:     gurigaagee? 'which house of yours?'"
+
+     Since RGL abstract syntax doesn't allow combining two Quants, the way to go is
+     to have another Pron -> Quant function in Extra, which forms Quants such as
+     -gaagii, -gaagaas, -gaagee.
+  -}
+
   pronTable : Agreement => Pronoun = table {
     Sg1 => {
       s = table {Nom => "aan" ; Abs => "i"} ;
@@ -288,7 +300,7 @@ oper
     } ;
 
   Numeral : Type = BaseNum ** {
-    ord : Str -- whether to choose Numerative as the value of NForm
+    ord : Str
     } ;
 
   baseQuant : BaseQuant = {

src/somali/StructuralSom.gf

@@ -64,11 +64,30 @@ lin every_Det = R.defDet [] pl **
 lin few_Det = R.indefDet "" pl ;
 lin many_Det = R.indefDet "" pl ;
 lin much_Det = R.indefDet "" sg ;
-lin somePl_Det = R.indefDet "" pl ;
-lin someSg_Det = R.indefDet "" sg ;
-
-lin no_Quant = mkPrep no_Quant
 -}
+lin somePl_Det = {
+    s = \\x,_ => BIND ++ defStems ! x ++ BIND ++ "a qaarkood" ;
+    shortPoss = \\x => BIND ++ defStems ! x ++ BIND ++ "a qaarkood" ;
+    sp = \\_,_ => "qaarkood" ;
+    isPoss, isNum = False ;
+    n = Pl ;
+    st = Definite -- NB. Indefinite is really only reserved for IndefArt NumSg.
+    } ;
+
+lin someSg_Det = somePl_Det ** {
+    n = Sg ;
+    s = table {
+            M x => \\_ => BIND ++ defStems ! M x ++ BIND ++ "a qaarkiis" ;
+            F x => \\_ => BIND ++ defStems ! F x ++ BIND ++ "a qaarkeed" } ;
+    shortPoss = table {
+            M x => BIND ++ defStems ! M x ++ BIND ++ "a qaarkiis" ;
+            F x => BIND ++ defStems ! F x ++ BIND ++ "a qaarkeed" } ;
+    sp = \\g,c => case g of {Fem => "qaarkeed" ; _ => "qaarkiis"}
+    } ;
+
+
+--lin no_Quant = mkPrep no_Quant
+
 lin that_Quant = defQuant "aas" "kaas" "taas" "kuwaas" True ;
 lin this_Quant = defQuant "an" "kan" "tan" "kuwan" True ;
 --lin which_IQuant = defQuant