forked from GitHub/gf-rgl
(Som) minor fixes and additions
This commit is contained in:
@@ -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 "" ;
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user