diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
| commit | df0c4f81fa9c620d7c63af79c0b183a6beccf0bd (patch) | |
| tree | 0cdc80b29f8f5df0ad280f17be0ba9d46fbd948c /src-3.0/GF/Text/Hebrew.hs | |
| parent | 6394f3ccfbb9d14017393b433a38a3921f1083e5 (diff) | |
remove all files that aren't used in GF-3.0
Diffstat (limited to 'src-3.0/GF/Text/Hebrew.hs')
| -rw-r--r-- | src-3.0/GF/Text/Hebrew.hs | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/src-3.0/GF/Text/Hebrew.hs b/src-3.0/GF/Text/Hebrew.hs deleted file mode 100644 index c7026d8da..000000000 --- a/src-3.0/GF/Text/Hebrew.hs +++ /dev/null @@ -1,53 +0,0 @@ ----------------------------------------------------------------------- --- | --- Module : Hebrew --- Maintainer : (Maintainer) --- Stability : (stable) --- Portability : (portable) --- --- > CVS $Date: 2005/04/21 16:23:37 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.8 $ --- --- (Description of the module) ------------------------------------------------------------------------------ - -module GF.Text.Hebrew (mkHebrew) where - -mkHebrew :: String -> String -mkHebrew = mkHebrewWord -----mkHebrew = reverse . mkHebrewWord ---- reverse : assumes everything's on same line - -type HebrewChar = Char - --- HH 031103 added code for spooling the markup --- removed reverse, words, unwords --- (seemed obsolete and come out wrong on the screen) --- AR 26/1/2004 put reverse back - needed in Fudgets (but not in Java?) - -mkHebrewWord :: String -> [HebrewChar] --- mkHebrewWord = map mkHebrewChar - -mkHebrewWord s = case s of - [] -> [] - '<' : cs -> '<' : spoolMarkup cs - ' ' : cs -> ' ' : mkHebrewWord cs - c1 : cs -> mkHebrewChar c1 : mkHebrewWord cs - -spoolMarkup :: String -> String -spoolMarkup s = case s of - [] -> [] -- Shouldn't happen - '>' : cs -> '>' : mkHebrewWord cs - c1 : cs -> c1 : spoolMarkup cs - -mkHebrewChar c = case lookup c cc of Just c' -> c' ; _ -> c - where - cc = zip allHebrewCodes allHebrew - -allHebrewCodes = "-abgdhwzHTyKklMmNnSoPpCcqrst" - -allHebrew :: String -allHebrew = (map toEnum (0x05be : [0x05d0 .. 0x05ea])) - - |
