msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Som) Add ImpVP and UttImp{Sg,Pl,Pol}

Browse Source
This commit is contained in:
Inari Listenmaa
2019-09-25 11:53:27 +02:00
parent 9973349270
commit 1f62af0e2c
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/somali/PhraseSom.gf
+5 -3
View File
@@ -8,9 +8,11 @@ concrete PhraseSom of Phrase = CatSom ** open Prelude, ResSom in {
UttIAdv iadv = iadv ;
UttImpSg pol imp =
let ma = case pol.p of { Pos => [] ; Neg => "ma" }
in { s = ma ++ imp.s } ;
UttImpPl = UttImpSg ;
let ha = case pol.p of {Pos => [] ; Neg => "ha"}
in {s = ha ++ imp.s ! Sg ! pol.p} ;
UttImpPl pol imp =
let ha = case pol.p of {Pos => [] ; Neg => "ha"}
in {s = ha ++ imp.s ! Pl ! pol.p} ;
UttImpPol = UttImpSg ;
UttIP ip = {s = ip.s ! Abs} ;