GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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)",
--- "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"
]

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

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

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

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

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"