"Committed_by_peb"

2005-02-18 18:21:06 +00:00
parent 1c4f025320
commit 9568d7a844
149 changed files with 1518 additions and 1160 deletions
--- a/src/GF/Text/Arabic.hs
+++ b/src/GF/Text/Arabic.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Arabic
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:13 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.5 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Devanagari.hs
+++ b/src/GF/Text/Devanagari.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Devanagari
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Ethiopic.hs
+++ b/src/GF/Text/Ethiopic.hs
@@ -1,22 +1,20 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
-- Maintainer  : (Maintainer)
+-- Module      : Ethiopic
+-- Maintainer  : HH
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.5 $
 --
-- (Description of the module)
+-- Ascii-Unicode decoding for Ethiopian.
+-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
 -----------------------------------------------------------------------------

 module Ethiopic (mkEthiopic) where

-- Ascii-Unicode decoding for Ethiopian
-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
-
 mkEthiopic :: String -> String
 mkEthiopic = digraphWordToUnicode . adHocToDigraphWord

--- a/src/GF/Text/ExtendedArabic.hs
+++ b/src/GF/Text/ExtendedArabic.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : ExtendedArabic
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.5 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/ExtraDiacritics.hs
+++ b/src/GF/Text/ExtraDiacritics.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : ExtraDiacritics
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Greek.hs
+++ b/src/GF/Text/Greek.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Greek
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Hebrew.hs
+++ b/src/GF/Text/Hebrew.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Hebrew
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.7 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Hiragana.hs
+++ b/src/GF/Text/Hiragana.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Hiragana
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/LatinASupplement.hs
+++ b/src/GF/Text/LatinASupplement.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : LatinASupplement
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/OCSCyrillic.hs
+++ b/src/GF/Text/OCSCyrillic.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : OSCyrillic
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:15 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Russian.hs
+++ b/src/GF/Text/Russian.hs
@@ -1,24 +1,24 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Russian
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:15 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------

 module Russian (mkRussian, mkRusKOI8) where

-- an ad hoc ASCII encoding. Delimiters: /_ _/
+-- | an ad hoc ASCII encoding. Delimiters: @\/_ _\/@
 mkRussian :: String -> String
 mkRussian = unwords . (map mkRussianWord) . words

-- the KOI8 encoding, incomplete. Delimiters: /* */
+-- | the KOI8 encoding, incomplete. Delimiters: @\/* *\/@
 mkRusKOI8 :: String -> String
 mkRusKOI8 = unwords . (map mkRussianKOI8) . words

--- a/src/GF/Text/Tamil.hs
+++ b/src/GF/Text/Tamil.hs
@@ -1,13 +1,13 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
+-- Module      : Tamil
 -- Maintainer  : (Maintainer)
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:16 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
--- a/src/GF/Text/Text.hs
+++ b/src/GF/Text/Text.hs
@@ -1,28 +1,37 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
-- Maintainer  : (Maintainer)
+-- Module      : Text
+-- Maintainer  : AR
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:16 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.6 $
 --
-- (Description of the module)
+-- elementary text postprocessing. AR 21\/11\/2001.
+--
+-- This is very primitive indeed. The functions should work on
+-- token lists and not on strings. AR 5\/12\/2002
+--
+-- XML hack 14\/8\/2004; not in use yet
 -----------------------------------------------------------------------------

-module Text where
+module Text (untokWithXML,
+	     exceptXML,
+	     formatAsTextLit,
+	     formatAsCodeLit,
+	     formatAsText,
+	     formatAsCode,
+	     performBinds,
+	     unStringLit,
+	     concatRemSpace
+	    ) where

 import Operations
 import Char

-- elementary text postprocessing. AR 21/11/2001
-- This is very primitive indeed. The functions should work on
-- token lists and not on strings. AR 5/12/2002
-- XML hack 14/8/2004; not in use yet
-
-- does not apply untokenizer within XML tags --- heuristic "< "
+-- | does not apply untokenizer within XML tags --- heuristic "< "
 -- this function is applied from top level...
 untokWithXML :: (String -> String) -> String -> String
 untokWithXML unt s = case s of
@@ -35,7 +44,7 @@ untokWithXML unt s = case s of
 where
   unto = untokWithXML unt

-- ... whereas this one is embedded on a branch
+-- | ... whereas this one is embedded on a branch
 exceptXML :: (String -> String) -> String -> String
 exceptXML unt s = '<':beg ++ ">" ++ unt (drop 1 rest) where 
  (beg,rest) = span (/='>') s
@@ -103,4 +112,4 @@ concatRemSpace s = case s of
  c : cs | isSpace c -> concatRemSpace cs
  c :cs -> c : concatRemSpace cs
  _ -> s
-}
+-}
--- a/src/GF/Text/UTF8.hs
+++ b/src/GF/Text/UTF8.hs
@@ -1,23 +1,21 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
-- Maintainer  : (Maintainer)
+-- Module      : UTF8
+-- Maintainer  : AR
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:16 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.4 $
 --
-- (Description of the module)
+-- From the Char module supplied with HBC.
+-- code by Thomas Hallgren (Jul 10 1999)
 -----------------------------------------------------------------------------

 module UTF8 (decodeUTF8, encodeUTF8) where

-- From the Char module supplied with HBC.
-- code by Thomas Hallgren (Jul 10 1999)
-
-- Take a Unicode string and encode it as a string
+-- | Take a Unicode string and encode it as a string
 -- with the UTF8 method.
 decodeUTF8 :: String -> String
 decodeUTF8 "" = ""
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -1,16 +1,16 @@
 ----------------------------------------------------------------------
 -- |
-- Module      : (Module)
-- Maintainer  : (Maintainer)
+-- Module      : Unicode
+-- Maintainer  : AR
 -- Stability   : (stable)
 -- Portability : (portable)
 --
-- > CVS $Date $ 
-- > CVS $Author $
-- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:16 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.11 $
 --
-- ad hoc Unicode conversions from different alphabets
-- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004
+-- 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