summaryrefslogtreecommitdiff
path: root/next-lib/src/arabic/MorphoAra.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/arabic/MorphoAra.gf')
-rw-r--r--next-lib/src/arabic/MorphoAra.gf49
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 => "ِ"
- };
-
-}