forked from GitHub/gf-rgl
42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
resource MorphoAra = ResAra ** open Prelude in {
|
|
|
|
flags optimize = all ;--noexpand;
|
|
coding=utf8 ;
|
|
|
|
oper
|
|
|
|
mkDet : Str -> Number -> State -> Det
|
|
= \word,num,state -> baseQuant **
|
|
{ s = \\_,_,c => word + caseTbl ! c ;
|
|
n = numberToSize num;
|
|
d = state; --only Const is used now. check StructuralAra
|
|
} ;
|
|
|
|
mkPredet : Str -> Bool -> Predet
|
|
= \word,decl ->
|
|
{ s = \\c =>
|
|
case decl of {
|
|
True => word + caseTbl!c;
|
|
False => word
|
|
};
|
|
isDecl = decl
|
|
};
|
|
|
|
mkQuantNum : Str -> Number -> State -> {
|
|
s: Species => Gender => Case => Str; n: Number; d : State; isPron: Bool; isNum : Bool} =
|
|
\waHid,num,state ->
|
|
let waHida = waHid + "َة" in
|
|
{ s = \\_,g,c =>
|
|
let word =
|
|
case g of {
|
|
Masc => waHid;
|
|
Fem => waHida
|
|
} in defArt state c waHid + word + dec1sg ! state ! c;
|
|
n = num;
|
|
d = state;
|
|
isPron = False;
|
|
isNum = True
|
|
};
|
|
|
|
}
|