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

(Ara) hack to force the case of a NP

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-02 13:39:28 +02:00
parent 829ab04dcf
commit b325a61299
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/arabic/ResAra.gf
View File

@@ -1121,7 +1121,6 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
_ => brkPl word ! s ! c _ => brkPl word ! s ! c
} ; } ;
-- takes a singular word and tests the ending to -- takes a singular word and tests the ending to
-- determine the declension and gives the corresponding dual inf table -- determine the declension and gives the corresponding dual inf table
dual : Str -> State => Case => Str = \caSaA -> dual : Str -> State => Case => Str = \caSaA ->
@@ -1449,6 +1448,11 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
empty : Str -- to prevent ambiguities with prodrop empty : Str -- to prevent ambiguities with prodrop
} ; } ;
-- hack, but better to have it here than to define ad hoc in every application grammar /IL
forceCase : NP -> Case -> NP = \np,c -> np ** {
s = \\_ => np.s ! c
} ;
mkPron : (_,_,_ : Str) -> PerGenNum -> NP = \ana,nI,I,pgn -> mkPron : (_,_,_ : Str) -> PerGenNum -> NP = \ana,nI,I,pgn ->
{ s = { s =
table { table {