msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Fixed module names and imports after giant file move.

Browse Source
This commit is contained in:
bringert
2005-04-21 15:21:02 +00:00
parent 8e44d9a8c1
commit 93af0c8535
209 changed files with 2038 additions and 2036 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Text/Arabic.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:13 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.5 $
-- > CVS $Date: 2005/04/21 16:23:34 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.6 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Arabic (mkArabic) where
module GF.Text.Arabic (mkArabic) where
mkArabic :: String -> String
mkArabic = unwords . (map mkArabicWord) . words

8
src/GF/Text/Devanagari.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:34 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Devanagari (mkDevanagari) where
module GF.Text.Devanagari (mkDevanagari) where
mkDevanagari :: String -> String
mkDevanagari = digraphWordToUnicode . adHocToDigraphWord

8
src/GF/Text/Ethiopic.hs
View File

@@ -5,15 +5,15 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.5 $
-- > CVS $Date: 2005/04/21 16:23:35 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.6 $
--
-- Ascii-Unicode decoding for Ethiopian.
-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
-----------------------------------------------------------------------------
module Ethiopic (mkEthiopic) where
module GF.Text.Ethiopic (mkEthiopic) where
mkEthiopic :: String -> String
mkEthiopic = digraphWordToUnicode . adHocToDigraphWord

10
src/GF/Text/ExtendedArabic.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.5 $
-- > CVS $Date: 2005/04/21 16:23:36 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.6 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module ExtendedArabic (mkArabic0600, mkExtendedArabic) where
module GF.Text.ExtendedArabic (mkArabic0600, mkExtendedArabic) where
mkArabic0600 :: String -> String
mkArabic0600 = digraphWordToUnicode . aarnesToDigraphWord
@@ -96,4 +96,4 @@ spoolMarkup2 :: String -> [(Char, Char)]
spoolMarkup2 s = case s of
[] -> [] -- Shouldn't happen
'>' : cs -> ('\\', '>') : aarnesToDigraphWord cs
c1 : cs -> ('\\', c1) : spoolMarkup2 cs
c1 : cs -> ('\\', c1) : spoolMarkup2 cs

8
src/GF/Text/ExtraDiacritics.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:36 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module ExtraDiacritics (mkExtraDiacritics) where
module GF.Text.ExtraDiacritics (mkExtraDiacritics) where
mkExtraDiacritics :: String -> String
mkExtraDiacritics = mkExtraDiacriticsWord

8
src/GF/Text/Greek.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:37 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Greek (mkGreek) where
module GF.Text.Greek (mkGreek) where
mkGreek :: String -> String
mkGreek = unwords . (map mkGreekWord) . mkGravis . words

8
src/GF/Text/Hebrew.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.7 $
-- > CVS $Date: 2005/04/21 16:23:37 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.8 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Hebrew (mkHebrew) where
module GF.Text.Hebrew (mkHebrew) where
mkHebrew :: String -> String
mkHebrew = mkHebrewWord

8
src/GF/Text/Hiragana.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:38 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Hiragana (mkJapanese) where
module GF.Text.Hiragana (mkJapanese) where
-- long vowel romaaji must be ei, ou not ee, oo

8
src/GF/Text/LatinASupplement.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:14 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:39 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module LatinASupplement (mkLatinASupplement) where
module GF.Text.LatinASupplement (mkLatinASupplement) where
mkLatinASupplement :: String -> String
mkLatinASupplement = mkLatinASupplementWord

8
src/GF/Text/OCSCyrillic.hs
View File

@@ -4,14 +4,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/03/29 11:17:56 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.5 $
-- > CVS $Date: 2005/04/21 16:23:39 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.6 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module OCSCyrillic (mkOCSCyrillic) where
module GF.Text.OCSCyrillic (mkOCSCyrillic) where
mkOCSCyrillic :: String -> String
mkOCSCyrillic = mkOCSCyrillicWord

8
src/GF/Text/Russian.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:15 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:40 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Russian (mkRussian, mkRusKOI8) where
module GF.Text.Russian (mkRussian, mkRusKOI8) where
-- | an ad hoc ASCII encoding. Delimiters: @\/_ _\/@
mkRussian :: String -> String

8
src/GF/Text/Tamil.hs
View File

@@ -5,14 +5,14 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:16 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:40 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module Tamil (mkTamil) where
module GF.Text.Tamil (mkTamil) where
mkTamil :: String -> String
mkTamil = digraphWordToUnicode . adHocToDigraphWord

12
src/GF/Text/Text.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/03/31 16:57:35 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.8 $
-- > CVS $Date: 2005/04/21 16:23:41 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.9 $
--
-- elementary text postprocessing. AR 21\/11\/2001.
--
@@ -17,7 +17,7 @@
-- XML hack 14\/8\/2004; not in use yet
-----------------------------------------------------------------------------
module Text (untokWithXML,
module GF.Text.Text (untokWithXML,
exceptXML,
formatAsTextLit,
formatAsCodeLit,
@@ -30,8 +30,8 @@ module Text (untokWithXML,
concatRemSpace
) where
import Operations
import Char
import GF.Data.Operations
import Data.Char
-- | does not apply untokenizer within XML tags --- heuristic "< "
-- this function is applied from top level...

8
src/GF/Text/UTF8.hs
View File

@@ -5,15 +5,15 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:16 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.4 $
-- > CVS $Date: 2005/04/21 16:23:42 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.5 $
--
-- From the Char module supplied with HBC.
-- code by Thomas Hallgren (Jul 10 1999)
-----------------------------------------------------------------------------
module UTF8 (decodeUTF8, encodeUTF8) where
module GF.Text.UTF8 (decodeUTF8, encodeUTF8) where
-- | Take a Unicode string and encode it as a string
-- with the UTF8 method.

36
src/GF/Text/Unicode.hs
View File

@@ -5,31 +5,31 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/02/18 19:21:16 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.11 $
-- > CVS $Date: 2005/04/21 16:23:42 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.12 $
--
-- ad hoc Unicode conversions from different alphabets.
-- AR 12\/4\/2000, 18\/9\/2001, 30\/5\/2002, 26\/1\/2004
-----------------------------------------------------------------------------
module Unicode (mkUnicode, treat) where
module GF.Text.Unicode (mkUnicode, treat) where
import Greek (mkGreek)
import Arabic (mkArabic)
import Hebrew (mkHebrew)
import Russian (mkRussian, mkRusKOI8)
import Ethiopic (mkEthiopic)
import Tamil (mkTamil)
import OCSCyrillic (mkOCSCyrillic)
import LatinASupplement (mkLatinASupplement)
import Devanagari (mkDevanagari)
import Hiragana (mkJapanese)
import ExtendedArabic (mkArabic0600)
import ExtendedArabic (mkExtendedArabic)
import ExtraDiacritics (mkExtraDiacritics)
import GF.Text.Greek (mkGreek)
import GF.Text.Arabic (mkArabic)
import GF.Text.Hebrew (mkHebrew)
import GF.Text.Russian (mkRussian, mkRusKOI8)
import GF.Text.Ethiopic (mkEthiopic)
import GF.Text.Tamil (mkTamil)
import GF.Text.OCSCyrillic (mkOCSCyrillic)
import GF.Text.LatinASupplement (mkLatinASupplement)
import GF.Text.Devanagari (mkDevanagari)
import GF.Text.Hiragana (mkJapanese)
import GF.Text.ExtendedArabic (mkArabic0600)
import GF.Text.ExtendedArabic (mkExtendedArabic)
import GF.Text.ExtraDiacritics (mkExtraDiacritics)
import Char
import Data.Char
mkUnicode :: String -> String
mkUnicode s = case s of