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

(Ara) Add proDrop function to the API

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-12 14:25:16 +01:00
parent 64b07cd352
commit 2159d4b0be
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/ParadigmsAra.gf
View File

@@ -536,6 +536,8 @@ resource ParadigmsAra = open
lock_NP = <> lock_NP = <>
}; };
proDrop : NP -> NP = ResAra.proDrop ; -- Force a NP to lose its string, only contributing with its agreement.
-- e.g. al-jamii3, 2a7ad -- e.g. al-jamii3, 2a7ad
regNP : Str -> Number -> NP = \word,n -> regNP : Str -> Number -> NP = \word,n ->
{ s = \\c => fixShd word (dec1sg ! Def ! c) ; { s = \\c => fixShd word (dec1sg ! Def ! c) ;

8
src/arabic/ResAra.gf
View File

@@ -1201,6 +1201,14 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
a : Agr a : Agr
} ; } ;
proDrop : NP -> NP = \np ->
case np.a.isPron of {
True => np ** {s = \\_ => []};
_ => np
} ;
emptyNP : NP = {s = \\_ => [] ; a = {pgn = Per3 Masc Sg ; isPron = False}} ;
IP : Type = { IP : Type = {
s : Bool -- different forms for "what is this" and "what do you do" s : Bool -- different forms for "what is this" and "what do you do"
=> State => Case -- because of PrepIP: e.g. "in which" chooses definite accusative => State => Case -- because of PrepIP: e.g. "in which" chooses definite accusative