GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #241 from inariksit/persian

Browse Source 
Persian: small fixes
This commit is contained in:
Inari Listenmaa
2019-05-15 22:14:09 +02:00
committed by GitHub
parent 4f505b62df 9c2e4a2943
commit ecd686df78
3 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/persian/LexiconPes.gf
View File

@@ -89,7 +89,7 @@ concrete LexiconPes of Lexicon = CatPes **
girl_N = mkN02 "دختر" animate; girl_N = mkN02 "دختر" animate;
glove_N = mkN01 "دستکش" inanimate; glove_N = mkN01 "دستکش" inanimate;
gold_N = mkN01 "طلا" inanimate; gold_N = mkN01 "طلا" inanimate;
good_A = mkA "خوب" ; good_A = mkA "خوب" "بهتر" "خوب" ;
go_V = mkV "رفتن" "رو"; go_V = mkV "رفتن" "رو";
green_A = mkA "سبز" ; green_A = mkA "سبز" ;
harbour_N = mkN "بندر" "بنادر" inanimate; harbour_N = mkN "بندر" "بنادر" inanimate;

8
src/persian/ParadigmsPes.gf
View File

@@ -323,9 +323,7 @@ oper
mkA = overload { mkA = overload {
mkA : Str -> A -- Regular adjective, same adj and adv forms. mkA : Str -> A -- Regular adjective, same adj and adv forms.
= \str -> lin A (case str of { = \str -> lin A (mkAdj str str) ;
_ + " " + _ => mkAdj str str str ;
_ => mkAdj str str }) ;
mkA : Str-> Str -> A -- Takes adj and adv forms mkA : Str-> Str -> A -- Takes adj and adv forms
= \str,adv -> lin A (mkAdj str adv); = \str,adv -> lin A (mkAdj str adv);
mkA : (pos,compar,adv : Str) -> A -- positive, comparative and adverb mkA : (pos,compar,adv : Str) -> A -- positive, comparative and adverb
@@ -334,6 +332,10 @@ oper
= \a,c -> lin A2 (mkAdj a a ** {c2 = c}) = \a,c -> lin A2 (mkAdj a a ** {c2 = c})
} ; } ;
-- Mostly for things that are not really adjectives, like adverbials /IL
invarA : Str -> A = \str ->
lin A (<mkAdj str str : Adjective> ** {s = \\_,_ => str}) ;
prefixA a = a ** {isPre=True}; prefixA a = a ** {isPre=True};
preA : (adj,adv : Str) -> A = \adj,adv -> preA : (adj,adv : Str) -> A = \adj,adv ->

2
src/persian/StructuralPes.gf
View File

@@ -21,7 +21,7 @@ concrete StructuralPes of Structural = CatPes **
by8agent_Prep = mkPrep "توسط" ; by8agent_Prep = mkPrep "توسط" ;
by8means_Prep = mkPrep "با" ; by8means_Prep = mkPrep "با" ;
-- can8know_VV,can_VV = mkVV (mkV "سکن") ; -- can8know_VV,can_VV = mkVV (mkV "سکن") ;
can_VV = mkVV (mkV_1 "توانستن") ; ---- AR can_VV = let isAux = False in mkVV isAux subjunctive (mkV_1 "توانستن") ; ---- AR
during_Prep = mkPrep ["در طول"] ; during_Prep = mkPrep ["در طول"] ;
either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ; either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ;
-- everybody_NP = R.indeclNP "هر کwی"; -- everybody_NP = R.indeclNP "هر کwی";