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

(Pes) small fixes + TODOs

Browse Source
This commit is contained in:
Inari Listenmaa
2019-04-30 18:40:49 +02:00
parent 4a13d04e6f
commit 5b7fae3c20
3 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/persian/ResPes.gf
View File

@@ -205,10 +205,14 @@ oper
_ => showVPH (VSubj Pos agr) agr vp _ => showVPH (VSubj Pos agr) agr vp
} ; } ;
insertAdV : Str -> VPH -> VPH = \ad,vp -> vp ** { insertAdv : Str -> VPH -> VPH = \ad,vp -> vp ** {
ad = vp.ad ++ ad ; ad = vp.ad ++ ad ;
} ; } ;
insertAdV : Str -> VPH -> VPH = \ad,vp -> vp ** {
ad = ad ++ vp.ad ;
} ;
conjThat : Str = "که" ; conjThat : Str = "که" ;
--------------------------- ---------------------------

2
src/persian/StructuralPes.gf
View File

@@ -101,7 +101,7 @@ concrete StructuralPes of Structural = CatPes **
youSg_Pron = R.agr2pron ! Ag Sg P2 ; youSg_Pron = R.agr2pron ! Ag Sg P2 ;
youPl_Pron = R.agr2pron ! Ag Pl P2 ; youPl_Pron = R.agr2pron ! Ag Pl P2 ;
youPol_Pron = R.agr2pron ! Ag Pl P2 ; youPol_Pron = R.agr2pron ! Ag Pl P2 ;
no_Quant = mkQuant "هیچ" "هیچ" ; no_Quant = mkQuant "هیچ" "هیچ" ; -- TODO: takes object in clitic form + is always singular
not_Predet = {s="نه"} ; not_Predet = {s="نه"} ;
if_then_Conj = sd2 "اگر" "آنگاه" ** {n = Sg} ; if_then_Conj = sd2 "اگر" "آنگاه" ** {n = Sg} ;
at_least_AdN = ss "حداقل" ; at_least_AdN = ss "حداقل" ;

3
src/persian/VerbPes.gf
View File

@@ -54,7 +54,7 @@ concrete VerbPes of Verb = CatPes ** open ResPes,Prelude in {
VPSlashPrep vp prep = vp ** vs prep ; VPSlashPrep vp prep = vp ** vs prep ;
AdvVP vp adv = insertAdV adv.s vp ; AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdV adv.s vp ; AdVVP adv vp = insertAdV adv.s vp ;
ReflVP = insertCompPre reflPron ; ReflVP = insertCompPre reflPron ;
PassV2 = passV ; PassV2 = passV ;
@@ -64,6 +64,7 @@ concrete VerbPes of Verb = CatPes ** open ResPes,Prelude in {
CompAdv adv = {s = \\_ => adv.s} ; CompAdv adv = {s = \\_ => adv.s} ;
-- see https://sites.la.utexas.edu/persian_online_resources/nouns/noun-in-a-predicative-position/ -- see https://sites.la.utexas.edu/persian_online_resources/nouns/noun-in-a-predicative-position/
-- TODO: extend this to all verbs, when NP is indefinite
CompCN cn = { CompCN cn = {
s = \\a => cn.s ! giveNumber a s = \\a => cn.s ! giveNumber a
! case cn.hasAdj of { ! case cn.hasAdj of {