diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-02-16 15:12:23 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-02-16 15:12:23 +0000 |
| commit | 086f861b5e807f049d4fd3159eeb2acdbc542348 (patch) | |
| tree | 7a70a85722d9d0eb3e8243f02c5166b560d6db31 /next-lib | |
| parent | e6fd01066bb50626a10cdc93c344488077e5183f (diff) | |
new school web page
Diffstat (limited to 'next-lib')
| -rw-r--r-- | next-lib/src/arabic/ParadigmsAra.gf | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/next-lib/src/arabic/ParadigmsAra.gf b/next-lib/src/arabic/ParadigmsAra.gf index bc9d498a5..752039bd5 100644 --- a/next-lib/src/arabic/ParadigmsAra.gf +++ b/next-lib/src/arabic/ParadigmsAra.gf @@ -187,17 +187,29 @@ resource ParadigmsAra = open -- The definitions should not bother the user of the API. So they are -- hidden from the document. -{- --- AED's original definition of regV - regV = \word -> - case word of { +----AR AED's original definition of regV + regV_orig : Str -> V = \wo -> + case wo of { "يَ" + f@_ + c@_ + "ُ" + l@_ => v1 (f+c+l) a u ; "يَ" + f@_ + c@_ + "ِ" + l@_ => v1 (f+c+l) a i ; "يَ" + f@_ + c@_ + "َ" + l@_ => v1 (f+c+l) a a ; - f@_ + "َ" + c@_ + "ِ" + l@_ => v1 (f+c+l) i a + f@_ + "َ" + c@_ + "ِ" + l@_ => v1 (f+c+l) i a ; + _ => Predef.error "regV not applicable" }; --} + + + regV_o : Str -> Str = \word -> + case word of { + "يَ" + f@_ + c@_ + "ُ" + l@_ => "a" ; + "يَ" + f@_ + c@_ + "ِ" + l@_ => "b" ; + "يَ" + f@_ + c@_ + "َ" + l@_ => "c" ; + f@_ + "َ" + c@_ + "ِ" + l@_ => "d" ; + _ => "q" + }; + aa = a ; uu = u ; ii = i ; + ----AR for debug end + ---- begin workaround for a problem with pattern matching, AR 27/6/2008 |