From 086f861b5e807f049d4fd3159eeb2acdbc542348 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 16 Feb 2009 15:12:23 +0000 Subject: new school web page --- next-lib/src/arabic/ParadigmsAra.gf | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) (limited to 'next-lib/src') 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 -- cgit v1.2.3