diff options
Diffstat (limited to 'next-lib/src/arabic/MorphoAra.gf')
| -rw-r--r-- | next-lib/src/arabic/MorphoAra.gf | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/next-lib/src/arabic/MorphoAra.gf b/next-lib/src/arabic/MorphoAra.gf deleted file mode 100644 index 8846e11a6..000000000 --- a/next-lib/src/arabic/MorphoAra.gf +++ /dev/null @@ -1,49 +0,0 @@ -resource MorphoAra = ResAra ** open Prelude in { - -flags optimize = all ;--noexpand; coding=utf8 ; - - oper - - mkDet : Str -> Number -> State -> Det - = \word,num,state -> - { s = \\_,_,c => word + vowel ! c ; - n = numberToSize num; - d = state; --only Const is used now. check StructuralAra - isNum = False; - isPron = False - }; - - mkPredet : Str -> Bool -> Predet - = \word,decl -> - { s = \\c => - case decl of { - True => word + vowel!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 Al ! state + word + dec1sg ! state ! c; - n = num; - d = state; - isPron = False; - isNum = True - }; - - vowel : Case => Str = - table { - Nom => "ُ"; - Acc => "َ"; - Gen => "ِ" - }; - -} |
