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

(Pes) add defVV + cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-29 15:44:36 +01:00
parent c6a9434da4
commit 0e24f1c58a
2 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/persian/ParadigmsPes.gf
View File

@@ -164,6 +164,8 @@ oper
= \isAux,vvf,v -> v ** {isAux = isAux ; compl = vvf ; isDef = False} = \isAux,vvf,v -> v ** {isAux = isAux ; compl = vvf ; isDef = False}
} ; } ;
defVV : VV -> VV = \vv -> vv ** {isDef=True} ;
mkV2V = overload { mkV2V = overload {
mkV2V : V -> (cN : Str) -> (isAux : Bool) -> V2V -- Verb, complementiser for the noun, whether it's auxiliary. mkV2V : V -> (cN : Str) -> (isAux : Bool) -> V2V -- Verb, complementiser for the noun, whether it's auxiliary.
= \v,s,b -> let vv : VV = mkVV b subjunctive v in = \v,s,b -> let vv : VV = mkVV b subjunctive v in

6
src/persian/ResPes.gf
View File

@@ -137,12 +137,6 @@ oper
Add => v.s ! PerfStem ++ v.prefix ; Add => v.s ! PerfStem ++ v.prefix ;
Replace => v.prefix Replace => v.prefix
} ; } ;
-- s = table {
-- ImpPrefix p => becomeVerb.s ! ImpPrefix p ;
-- x => case verb.passive of {
-- Add => verb.s ! PerfStem ;
-- Replace => []}
-- ++ becomeVerb.s ! x }
} ; } ;
-- --------------------- -- ---------------------
-- VP complementation -- VP complementation