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

(Pes) Remove VType param; was copied from Punjabi and never used

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-01 07:08:55 +01:00
parent 42d9299879
commit 955927e041
2 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/persian/ResPes.gf
View File

@@ -58,6 +58,7 @@ resource ResPes = MorphoPes ** open Prelude,Predef in {
param param
VVForm = Indic | Subj ; VVForm = Indic | Subj ;
VVTense = VVPres | VVPerf | VVPast ; -- VVPast Anteriority ??? VVTense = VVPres | VVPerf | VVPast ; -- VVPast Anteriority ???
TAnt = TA Tense Anteriority ;
oper oper
@@ -77,10 +78,9 @@ oper
comp : Agr => Str; -- complements of a verb, agr for ReflVP "I/you see myself/yourself" and CompCN "I am human/we are humans" comp : Agr => Str; -- complements of a verb, agr for ReflVP "I/you see myself/yourself" and CompCN "I am human/we are humans"
vComp : Agr => VVTense => Str; -- when a verb is used as a complement of an auxiliary verb. Unlike ‘comp’ or ‘obj’, this type of complement follows the auxiliary verb. vComp : Agr => VVTense => Str; -- when a verb is used as a complement of an auxiliary verb. Unlike ‘comp’ or ‘obj’, this type of complement follows the auxiliary verb.
obj : Str ; -- object of a verb; so far only used for A ("paint it black") obj : Str ; -- object of a verb; so far only used for A ("paint it black")
subj : VType ;
ad : Str ; ad : Str ;
embComp : Str ; -- when a declarative or interrogative sentence is used as a complement of a verb. embComp : Str ; -- when a declarative or interrogative sentence is used as a complement of a verb.
isVV : Bool ; -- whether a VV has been added vvtype : Bool ; -- whether a VV has been added
isDef : Bool ; -- whether a the VV is defective isDef : Bool ; -- whether a the VV is defective
} ; } ;
@@ -98,15 +98,8 @@ oper
VPHSlash : Type = VPH ** {c2 : Compl} ; VPHSlash : Type = VPH ** {c2 : Compl} ;
param
TAnt = TA Tense Anteriority ;
VType = VIntrans | VTrans | VTransPost ; -- TODO: find out if needed
oper
predV : Verb -> VPH = \verb -> verb ** { predV : Verb -> VPH = \verb -> verb ** {
subj = VIntrans ;
ad, ad,
obj, obj,
embComp = []; embComp = [];
@@ -214,7 +207,7 @@ oper
quest = table quest = table
{ ODir => []; { ODir => [];
OQuest => "آیا" } ; OQuest => "آیا" } ;
subj = np.s ! Bare ; subj = np.s ! Bare ;
vp = \\ta,p,ord => vp = \\ta,p,ord =>
let vps = clTable vp ! np.a ! ta ! p ; let vps = clTable vp ! np.a ! ta ! p ;
vvt = ta2vvt ta ; vvt = ta2vvt ta ;
@@ -238,7 +231,6 @@ oper
VAor p a => haveVerb.s ! VAor Pos a ++ verb.s ! ImpPrefix p ++ verb.s ! VAor Pos a ; VAor p a => haveVerb.s ! VAor Pos a ++ verb.s ! ImpPrefix p ++ verb.s ! VAor Pos a ;
VPast p a => haveVerb.s ! VPast Pos a ++ verb.s ! ImpPrefix p ++ verb.s ! VPast Pos a ; -- negation in ImpPrefix VPast p a => haveVerb.s ! VPast Pos a ++ verb.s ! ImpPrefix p ++ verb.s ! VPast Pos a ; -- negation in ImpPrefix
_ => verb.s ! vh } ; -- TODO more forms _ => verb.s ! vh } ; -- TODO more forms
subj = VIntrans
} ; } ;
IndefArticle : Str ; IndefArticle : Str ;

3
src/persian/StructuralPes.gf
View File

@@ -136,8 +136,7 @@ have_V2 = haveVerb ** {
x => haveVerb.s ! x } ; x => haveVerb.s ! x } ;
c2 = { c2 = {
s = [] ; s = [] ;
ra = [] ; --- "را" ; ---- AR 18/9/2017: usually no ra acc. to Nasrin, but this is tricky ra = [] --- "را" ; ---- AR 18/9/2017: usually no ra acc. to Nasrin, but this is tricky
c = R.VTrans
} }
} ; } ;
} }