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

Haralds (c) started.

Browse Source
This commit is contained in:
aarne
2003-11-14 12:57:36 +00:00
parent 33c6309c43
commit 4d761dce0e
4 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF.hs
View File

@@ -71,8 +71,8 @@ authorMsg = unlines [
"Grammatical Framework, Version 2.0-- (incomplete functionality)", "Grammatical Framework, Version 2.0-- (incomplete functionality)",
--- "Compiled March 26, 2003", --- "Compiled March 26, 2003",
"Compiled " ++ today, "Compiled " ++ today,
"Copyright (c) Markus Forsberg, Thomas Hallgren, Kristofer Johannisson,", "Copyright (c) Markus Forsberg, Thomas Hallgren, Harald Hammarström,",
"Janna Khegai, Peter Ljunglöf, Petri Mäenpää, and Aarne Ranta", "Kristofer Johannisson, Janna Khegai, Peter Ljunglöf, Petri Mäenpää,",
"1998-2003, under GNU General Public License (GPL)", "and Aarne Ranta, 1998-2003, under GNU General Public License (GPL)",
"Bug reports to aarne@cs.chalmers.se" "Bug reports to aarne@cs.chalmers.se"
] ]

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

@@ -1,5 +1,8 @@
module Ethiopic where module Ethiopic where
-- Ascii-Unicode decoding for Ethiopian
-- Copyright (c) Harald Hammarström 2003 under Gnu General Public License
mkEthiopic :: String -> String mkEthiopic :: String -> String
mkEthiopic = digraphWordToUnicode . adHocToDigraphWord mkEthiopic = digraphWordToUnicode . adHocToDigraphWord

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

@@ -14,7 +14,7 @@ import ExtendedArabic (mkExtendedArabic)
-- ad hoc Unicode conversions from different alphabets -- 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 mkUnicode s = case s of
'/':'/':cs -> mkGreek (remClosing cs) '/':'/':cs -> mkGreek (remClosing cs)
@@ -22,13 +22,13 @@ mkUnicode s = case s of
'/':'-':cs -> mkArabic (remClosing cs) '/':'-':cs -> mkArabic (remClosing cs)
'/':'_':cs -> mkRussian (remClosing cs) '/':'_':cs -> mkRussian (remClosing cs)
'/':'*':cs -> mkRusKOI8 (remClosing cs) '/':'*':cs -> mkRusKOI8 (remClosing cs)
'/':'E':cs -> mkEthiopic (remClosing cs) '/':'E':cs -> mkEthiopic (remClosing cs) -- HH
'/':'T':cs -> mkTamil (remClosing cs) '/':'T':cs -> mkTamil (remClosing cs) -- HH
'/':'C':cs -> mkOCSCyrillic (remClosing cs) '/':'C':cs -> mkOCSCyrillic (remClosing cs) -- HH
'/':'&':cs -> mkDevanagari (remClosing cs) '/':'&':cs -> mkDevanagari (remClosing cs) -- HH
'/':'L':cs -> mkLatinASupplement (remClosing cs) '/':'L':cs -> mkLatinASupplement (remClosing cs) -- HH
'/':'J':cs -> mkJapanese (remClosing cs) '/':'J':cs -> mkJapanese (remClosing cs) -- HH
'/':'A':cs -> mkExtendedArabic (remClosing cs) '/':'A':cs -> mkExtendedArabic (remClosing cs) -- HH
_ -> s _ -> s
remClosing cs remClosing cs

2
src/Today.hs
View File

@@ -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"