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

Merge pull request #138 from inariksit/arabic

Browse Source 
Arabic
This commit is contained in:
Inari Listenmaa
2019-01-11 15:50:27 +01:00
committed by GitHub
parent 2c0a34b9f4 9d1e9b1bf1
commit d398863cf6
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/StructuralAra.gf
View File

@@ -117,7 +117,7 @@ concrete StructuralAra of Structural = CatAra **
whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ; whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ;
why_IAdv = ss "لِمَاذَا" ; why_IAdv = ss "لِمَاذَا" ;
without_Prep = mkPrep "بِدُونِ" ; without_Prep = mkPrep "بِدُونِ" ;
with_Prep = mkPrep "مَع" ; with_Prep = mkPrep "مَعَ" ;
yes_Utt = {s = \\_ => "نَعَم"} ; yes_Utt = {s = \\_ => "نَعَم"} ;
youSg_Pron = youSgMasc_Pron ; youSg_Pron = youSgMasc_Pron ;
youPl_Pron = youPlMasc_Pron ; youPl_Pron = youPlMasc_Pron ;

7
src/arabic/VerbAra.gf
View File

@@ -102,12 +102,13 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
-- : VPSlash -> VP ; -- love himself -- : VPSlash -> VP ; -- love himself
ReflVP vps = vps ** { ReflVP vps = vps ** {
s = \\pgn,vf => vps.s ! pgn ! vf ++ reflPron Acc pgn s = \\pgn,vf => vps.s ! pgn ! vf
++ vps.c2.s ++ bindIf vps.c2.binds
++ reflPron vps.c2.c pgn ;
c2 = noPrep
} ; } ;
PassV2 = passPredV ; PassV2 = passPredV ;
--
-- UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no
CompAP ap = {s = \\agr,c => ap.s ! Hum ! agr.g ! agr.n ! Indef ! c ; --FIXME CompAP ap = {s = \\agr,c => ap.s ! Hum ! agr.g ! agr.n ! Indef ! c ; --FIXME
obj = emptyObj ; isNP = False} ; obj = emptyObj ; isNP = False} ;