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

(Pes) misc. small fixes, additions and TODOs

Browse Source
This commit is contained in:
Inari Listenmaa
2019-05-03 18:43:29 +02:00
parent 038ed0e863
commit 361deec532
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/persian/ExtendPes.gf
View File

@@ -2,7 +2,7 @@
concrete ExtendPes of Extend = concrete ExtendPes of Extend =
CatPes ** ExtendFunctor - [ CatPes ** ExtendFunctor - [
GenNP, ApposNP, ICompAP, AdvIsNP, InOrderToVP, ByVP GenNP, ApposNP, ICompAP, AdvIsNP, InOrderToVP, ByVP, AdjAsNP, ComplBareVS
,GerundNP,GerundCN,GerundAdv,EmbedPresPart,EmbedSSlash ,GerundNP,GerundCN,GerundAdv,EmbedPresPart,EmbedSSlash
] ]
with (Grammar=GrammarPes) with (Grammar=GrammarPes)
@@ -20,6 +20,12 @@ lin
s = \\m => np1.s ! m ++ np2.s ! m s = \\m => np1.s ! m ++ np2.s ! m
} ; } ;
-- : AP -> NP
AdjAsNP ap = emptyNP ** ap ;
-- : VS -> S -> VP
ComplBareVS vs s = embComp (s.s ! vs.compl) (predV vs) ;
ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ; ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ;
-- : VP -> CN ; -- publishing of the document (can get a determiner) -- : VP -> CN ; -- publishing of the document (can get a determiner)
GerundCN vp = useN (indeclN (infVP vp)) ; GerundCN vp = useN (indeclN (infVP vp)) ;

6
src/persian/StructuralPes.gf
View File

@@ -101,12 +101,12 @@ 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 "هیچ" "هیچ" ; -- TODO: takes object in clitic form + is always singular no_Quant = mkQuant "هیچ" "هیچ" ; -- TODO: takes object in clitic form + is always singular + VP is negated
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 "حداقل" ;
at_most_AdN = ss "حداکثر"; at_most_AdN = ss "حداکثر";
nothing_NP = R.indeclNP "هیچ" ; nothing_NP = R.indeclNP "هیچ چیز" ;
except_Prep = mkPrep ["به جز"] ; except_Prep = mkPrep ["به جز"] ;
nobody_NP = R.indeclNP "هیچ کس"; nobody_NP = R.indeclNP "هیچ کس";
@@ -114,7 +114,7 @@ concrete StructuralPes of Structural = CatPes **
---- have_V2 = mkV2 (mkV "داشتن" "دار") "را" ; ---- have_V2 = mkV2 (mkV "داشتن" "دار") "را" ;
language_title_Utt = ss "پeرسن" ; language_title_Utt = ss "فارسی" ;
---- AR from Nasrin ---- AR from Nasrin