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 doctor_N = mkN "" ;
|
||||||
-- lin dog_N = mkN "" ;
|
-- lin dog_N = mkN "" ;
|
||||||
-- lin door_N = mkN "" ;
|
-- lin door_N = mkN "" ;
|
||||||
-- lin drink_V2 = mkV2 "" ;
|
lin drink_V2 = mkV2 "cab" ;
|
||||||
-- lin dry_A = mkA "" ;
|
-- lin dry_A = mkA "" ;
|
||||||
-- lin dull_A = mkA "" ;
|
-- lin dull_A = mkA "" ;
|
||||||
-- lin dust_N = mkN "" ;
|
-- lin dust_N = mkN "" ;
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
resource ParadigmsSom = open CatSom, ResSom, Prelude in {
|
resource ParadigmsSom = open CatSom, ResSom, ParamSom, Prelude in {
|
||||||
|
|
||||||
oper
|
oper
|
||||||
|
|
||||||
@@ -189,7 +189,7 @@ oper
|
|||||||
copula = ResSom.copula ;
|
copula = ResSom.copula ;
|
||||||
|
|
||||||
regV : Str -> Verb = \s -> case s of {
|
regV : Str -> Verb = \s -> case s of {
|
||||||
-- _ + g@#c + s@#c + "o" => cJoogso s ;
|
_ + #c + #c + "o" => cJoogso s ;
|
||||||
_ + "o" => cQaado s ; ----
|
_ + "o" => cQaado s ; ----
|
||||||
_ + "i" => cKari s ;
|
_ + "i" => cKari s ;
|
||||||
_ + "ee" => cYaree s ;
|
_ + "ee" => cYaree s ;
|
||||||
|
|||||||
@@ -406,7 +406,7 @@ oper
|
|||||||
in mkVerb joogso (joogsa + "d") joogsa ;
|
in mkVerb joogso (joogsa + "d") joogsa ;
|
||||||
|
|
||||||
cQaado qaado =
|
cQaado qaado =
|
||||||
let qaa = drop 2 qaado
|
let qaa = init (init qaado)
|
||||||
in mkVerb qaado -- Imperative sg, with the vowel
|
in mkVerb qaado -- Imperative sg, with the vowel
|
||||||
(qaa + "t") -- Per1 Sg, Per3 Pl and Per3 Sg Masc
|
(qaa + "t") -- Per1 Sg, Per3 Pl and Per3 Sg Masc
|
||||||
(qaa + "da") ; -- Per2 Pl and others
|
(qaa + "da") ; -- Per2 Pl and others
|
||||||
|
|||||||
Reference in New Issue
Block a user