diff options
| author | aarne <unknown> | 2003-11-14 12:57:36 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-14 12:57:36 +0000 |
| commit | 4d761dce0e675d30f8b8f48d4fb07afa654dc5db (patch) | |
| tree | 4c4610dbe6f3e15be95fa0c07484c18956d47db8 /src | |
| parent | 33c6309c43734f112e1bda2a960d3263fd3dfa40 (diff) | |
Haralds (c) started.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF.hs | 6 | ||||
| -rw-r--r-- | src/GF/Text/Ethiopic.hs | 3 | ||||
| -rw-r--r-- | src/GF/Text/Unicode.hs | 16 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
4 files changed, 15 insertions, 12 deletions
@@ -71,8 +71,8 @@ authorMsg = unlines [ "Grammatical Framework, Version 2.0-- (incomplete functionality)", --- "Compiled March 26, 2003", "Compiled " ++ today, - "Copyright (c) Markus Forsberg, Thomas Hallgren, Kristofer Johannisson,", - "Janna Khegai, Peter Ljunglöf, Petri Mäenpää, and Aarne Ranta", - "1998-2003, under GNU General Public License (GPL)", + "Copyright (c) Markus Forsberg, Thomas Hallgren, Harald Hammarström,", + "Kristofer Johannisson, Janna Khegai, Peter Ljunglöf, Petri Mäenpää,", + "and Aarne Ranta, 1998-2003, under GNU General Public License (GPL)", "Bug reports to aarne@cs.chalmers.se" ] diff --git a/src/GF/Text/Ethiopic.hs b/src/GF/Text/Ethiopic.hs index 32d420fd4..67ac43f58 100644 --- a/src/GF/Text/Ethiopic.hs +++ b/src/GF/Text/Ethiopic.hs @@ -1,5 +1,8 @@ module Ethiopic where +-- Ascii-Unicode decoding for Ethiopian +-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License + mkEthiopic :: String -> String mkEthiopic = digraphWordToUnicode . adHocToDigraphWord diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs index 734879e70..3c1b68c3f 100644 --- a/src/GF/Text/Unicode.hs +++ b/src/GF/Text/Unicode.hs @@ -14,7 +14,7 @@ import ExtendedArabic (mkExtendedArabic) -- ad hoc Unicode conversions from different alphabets --- AR 12/4/2000, 18/9/2001, 30/5/2002 +-- AR 12/4/2000, 18/9/2001, 30/5/2002, HH 14/11/2003 mkUnicode s = case s of '/':'/':cs -> mkGreek (remClosing cs) @@ -22,13 +22,13 @@ mkUnicode s = case s of '/':'-':cs -> mkArabic (remClosing cs) '/':'_':cs -> mkRussian (remClosing cs) '/':'*':cs -> mkRusKOI8 (remClosing cs) - '/':'E':cs -> mkEthiopic (remClosing cs) - '/':'T':cs -> mkTamil (remClosing cs) - '/':'C':cs -> mkOCSCyrillic (remClosing cs) - '/':'&':cs -> mkDevanagari (remClosing cs) - '/':'L':cs -> mkLatinASupplement (remClosing cs) - '/':'J':cs -> mkJapanese (remClosing cs) - '/':'A':cs -> mkExtendedArabic (remClosing cs) + '/':'E':cs -> mkEthiopic (remClosing cs) -- HH + '/':'T':cs -> mkTamil (remClosing cs) -- HH + '/':'C':cs -> mkOCSCyrillic (remClosing cs) -- HH + '/':'&':cs -> mkDevanagari (remClosing cs) -- HH + '/':'L':cs -> mkLatinASupplement (remClosing cs) -- HH + '/':'J':cs -> mkJapanese (remClosing cs) -- HH + '/':'A':cs -> mkExtendedArabic (remClosing cs) -- HH _ -> s remClosing cs diff --git a/src/Today.hs b/src/Today.hs index d403f7c4d..4c966d529 100644 --- a/src/Today.hs +++ b/src/Today.hs @@ -1 +1 @@ -module Today where today = "Fri Nov 14 14:23:19 CET 2003" +module Today where today = "Fri Nov 14 14:45:24 CET 2003" |