GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 10:28:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

experimenting with Persian auxiliary verbs

Browse Source
This commit is contained in:
Aarne Ranta
2017-09-14 11:55:30 +02:00
parent 9c8cb395f5
commit 29380f0df0
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/persian/ResPes.gf
View File

@@ -111,6 +111,8 @@ oper
|VPFutr Anteriority |VPFutr Anteriority
|VPCond Anteriority ; |VPCond Anteriority ;
oper oper
--s (Vvform (AgPes Sg PPers1)) : بخوانم
predV : Verb -> VPH = \verb -> { predV : Verb -> VPH = \verb -> {
s = \\vh => s = \\vh =>
@@ -229,9 +231,17 @@ oper
infVP : Bool -> VPH -> Agr -> Str = \isAux,vp,a -> infVP : Bool -> VPH -> Agr -> Str = \isAux,vp,a ->
vp.obj.s ++ vp.inf ++ vp.comp ! a ; vp.obj.s ++ vp.inf ++ vp.comp ! a ;
-} -}
---- AR 14/9/2017 trying to fix isAux = True case by inserting conjThat
---- but don't know yet how False should be affect
infVV : Bool -> VPH -> {s : AgrPes => Str} = \isAux,vp -> infVV : Bool -> VPH -> {s : AgrPes => Str} = \isAux,vp ->
{s = \\agr => case agr of { {s = \\agr => case agr of {
AgPes n p => (vp.ad ++ vp.comp ! (toAgr n p)) ++ (vp.s ! VVForm (AgPes n p)).inf }}; AgPes n p => case isAux of {
True => conjThat ++ (vp.ad ++ vp.comp ! (toAgr n p)) ++ (vp.s ! VVForm (AgPes n p)).inf ;
False => (vp.ad ++ vp.comp ! (toAgr n p)) ++ (vp.s ! VVForm (AgPes n p)).inf
}
}
} ;
insertObjPre : (AgrPes => Str) -> VPHSlash -> VPH = \obj,vp -> { insertObjPre : (AgrPes => Str) -> VPHSlash -> VPH = \obj,vp -> {
s = vp.s ; s = vp.s ;

2
src/persian/StructuralPes.gf
View File

@@ -21,6 +21,7 @@ concrete StructuralPes of Structural = CatPes **
by8agent_Prep = ss "توسط" ; by8agent_Prep = ss "توسط" ;
by8means_Prep = ss "با" ; by8means_Prep = ss "با" ;
-- can8know_VV,can_VV = mkV "سکن" ** { isAux = True} ; -- can8know_VV,can_VV = mkV "سکن" ** { isAux = True} ;
can_VV = mkV_1 " توانستن " ** { isAux = True} ; ---- AR
during_Prep = ss ["در طول"] ; during_Prep = ss ["در طول"] ;
either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ; either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ;
-- everybody_NP = MassNP (UseN (MorphoPnb.mkN11 ["هر کwی"])); -- not a good way coz need to include NounPnb -- everybody_NP = MassNP (UseN (MorphoPnb.mkN11 ["هر کwی"])); -- not a good way coz need to include NounPnb
@@ -48,6 +49,7 @@ concrete StructuralPes of Structural = CatPes **
more_CAdv = {s = "بیشتر" ; p = "" } ; more_CAdv = {s = "بیشتر" ; p = "" } ;
most_Predet = ss "اکثر"; most_Predet = ss "اکثر";
much_Det = mkDet ["مقدار زیادی"] Pl ; much_Det = mkDet ["مقدار زیادی"] Pl ;
must_VV = mkV_1 " بایستن " ** {isAux = True} ; ---- AR
-- must_VV = { -- must_VV = {
-- s = table { -- s = table {
-- VVF VInf => ["هوe تْ"] ; -- VVF VInf => ["هوe تْ"] ;