GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 16:22:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

20071202_AD

Browse Source
This commit is contained in:
ali.eldada
2007-12-02 20:59:45 +00:00
parent e7b03c9446
commit 01e50c45e4
8 changed files with 85 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/resource-1.0/arabic/NounAra.gf
View File

@@ -22,13 +22,20 @@ concrete NounAra of Noun = CatAra ** open ResAra, Prelude in {
isPron = False }
};
-- UsePN pn = pn ** {a = agrP3 Sg} ;
UsePN pn = {
s = pn.s;
a = {pgn = (Per3 pn.g Sg); isPron = False }
};
UsePron p = p ;
--
-- PredetNP pred np = {
-- s = \\c => pred.s ++ np.s ! c ;
-- a = np.a
-- } ;
PredetNP pred np = {
s = \\c => case pred.isDecl of {
True => pred.s!c ++ np.s ! Gen ; -- akvaru l-awlAdi
False => pred.s!c ++ np.s ! c
};
a = np.a
} ;
DetSg quant ord = {
s = quant.s ; --++ ord.s