20071225_ArabicRG

This commit is contained in:
ali.eldada
2007-12-25 23:30:26 +00:00
parent 3e108b98dd
commit bb353fcbf7
12 changed files with 532 additions and 347 deletions

View File

@@ -8,8 +8,9 @@ flags optimize = all ;--noexpand;
= \word,num,state ->
{ s = \\_,_,c => word + vowel ! c ;
n = numberToSize num;
d = state;
isNum = False
d = state; --only Const is used now. check StructuralAra
isNum = False;
isPron = False
};
mkPredet : Str -> Bool -> Predet
@@ -23,7 +24,7 @@ flags optimize = all ;--noexpand;
};
mkQuantNum : Str -> Number -> State -> {
s: Species => Gender => Case => Str; n: Number; d : State; isNum : Bool} =
s: Species => Gender => Case => Str; n: Number; d : State; isPron: Bool; isNum : Bool} =
\waHid,num,state ->
let waHida = waHid + "َة" in
{ s = \\_,g,c =>
@@ -34,6 +35,7 @@ flags optimize = all ;--noexpand;
} in Al ! state + word + dec1sg ! state ! c;
n = num;
d = state;
isPron = False;
isNum = True
};