From f6f77d384d5b524b8cdd78775874edbeebce762f Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 31 May 2019 16:37:03 +0200
Subject: [PATCH] (Som) minor fixes and additions

---
 src/somali/LexiconSom.gf   | 2 +-
 src/somali/ParadigmsSom.gf | 4 ++--
 src/somali/ResSom.gf       | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/somali/LexiconSom.gf b/src/somali/LexiconSom.gf
index b196bd8e..8ff7f2d6 100644
--- a/src/somali/LexiconSom.gf
+++ b/src/somali/LexiconSom.gf
@@ -95,7 +95,7 @@ lin city_N = mkN "magaalo" ;
 -- lin doctor_N = mkN "" ;
 -- lin dog_N = mkN "" ;
 -- lin door_N = mkN "" ;
--- lin drink_V2 = mkV2 "" ;
+lin drink_V2 = mkV2 "cab" ;
 -- lin dry_A = mkA "" ;
 -- lin dull_A = mkA "" ;
 -- lin dust_N = mkN "" ;
diff --git a/src/somali/ParadigmsSom.gf b/src/somali/ParadigmsSom.gf
index 1a621f3b..63ea6ab5 100644
--- a/src/somali/ParadigmsSom.gf
+++ b/src/somali/ParadigmsSom.gf
@@ -1,4 +1,4 @@
-resource ParadigmsSom = open CatSom, ResSom, Prelude in {
+resource ParadigmsSom = open CatSom, ResSom, ParamSom, Prelude in {
 
 oper
 
@@ -189,7 +189,7 @@ oper
   copula = ResSom.copula ;
 
   regV : Str -> Verb = \s -> case s of {
---    _ + g@#c + s@#c + "o" => cJoogso s ;
+    _ + #c + #c + "o" => cJoogso s ;
     _           + "o" => cQaado s ; ----
     _           + "i" => cKari s ;
     _          + "ee" => cYaree s ;
diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf
index 2d9335ea..950d9416 100644
--- a/src/somali/ResSom.gf
+++ b/src/somali/ResSom.gf
@@ -406,7 +406,7 @@ oper
      in mkVerb joogso (joogsa + "d") joogsa ;
 
   cQaado qaado =
-    let qaa = drop 2 qaado
+    let qaa = init (init qaado)
      in mkVerb qaado  -- Imperative sg, with the vowel
               (qaa + "t")    -- Per1 Sg, Per3 Pl and Per3 Sg Masc
               (qaa + "da") ; -- Per2 Pl and others