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

(Som) Add ProgrVP

Browse Source
This commit is contained in:
Inari Listenmaa
2019-08-27 16:36:41 +02:00
parent d077965a6b
commit d2b49b1936
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/somali/IdiomSom.gf
View File

@@ -31,7 +31,13 @@ concrete IdiomSom of Idiom = CatSom ** open Prelude, ResSom, VerbSom in {
ExistIPAdv : IP -> Adv -> QCl ; -- which houses are there in Paris
-}
-- : VP -> VP ;
--ProgrVP vp = vp ** { } ;
ProgrVP vp = vp ** {
s = table {
VPres _ agr pol => vp.s ! VPres Progressive agr pol ;
VPast _ agr => vp.s ! VPast Progressive agr ;
VNegPast _ => vp.s ! VNegPast Progressive ;
x => vp.s ! x }
} ;
{- TODO: Saeed p. 92 optative