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

Harald's new codings.

Browse Source
This commit is contained in:
aarne
2003-11-14 12:37:54 +00:00
parent 5a7d6e542d
commit 33c6309c43
7 changed files with 431 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
src/GF/Text/LatinASupplement.hs Normal file
View File

@@ -0,0 +1,55 @@
module LatinASupplement where
mkLatinASupplement :: String -> String
mkLatinASupplement = mkLatinASupplementWord
mkLatinASupplementWord :: String -> String
mkLatinASupplementWord str = case str of
[] -> []
'<' : cs -> '<' : spoolMarkup cs
-- Romanian & partly Turkish
's' : ',' : cs -> toEnum 0x015f : mkLatinASupplementWord cs
'a' : '%' : cs -> toEnum 0x0103 : mkLatinASupplementWord cs
-- Slavic and more
'c' : '^' : cs -> toEnum 0x010d : mkLatinASupplementWord cs
's' : '^' : cs -> toEnum 0x0161 : mkLatinASupplementWord cs
'c' : '\'' : cs -> toEnum 0x0107 : mkLatinASupplementWord cs
'z' : '^' : cs -> toEnum 0x017e : mkLatinASupplementWord cs
-- Turkish
'g' : '%' : cs -> toEnum 0x011f : mkLatinASupplementWord cs
'I' : cs -> toEnum 0x0131 : mkLatinASupplementWord cs
'c' : ',' : cs -> 'ç' : mkLatinASupplementWord cs
-- Polish
'e' : ',' : cs -> toEnum 0x0119 : mkLatinASupplementWord cs
'a' : ',' : cs -> toEnum 0x0105 : mkLatinASupplementWord cs
'l' : '/' : cs -> toEnum 0x0142 : mkLatinASupplementWord cs
'z' : '.' : cs -> toEnum 0x017c : mkLatinASupplementWord cs
'n' : '\'' : cs -> toEnum 0x0144 : mkLatinASupplementWord cs
's' : '\'' : cs -> toEnum 0x015b : mkLatinASupplementWord cs
-- 'c' : '\'' : cs -> toEnum 0x0107 : mkLatinASupplementWord cs
-- Hungarian
'o' : '%' : cs -> toEnum 0x0151 : mkLatinASupplementWord cs
'u' : '%' : cs -> toEnum 0x0171 : mkLatinASupplementWord cs
-- Mongolian
'j' : '^' : cs -> toEnum 0x0135 : mkLatinASupplementWord cs
-- Khowar (actually in Combining diacritical marks not Latin-A Suppl.)
'o' : '.' : cs -> 'o' : (toEnum 0x0323 : mkLatinASupplementWord cs)
-- Length bars over vowels e.g korean
'a' : ':' : cs -> toEnum 0x0101 : mkLatinASupplementWord cs
'e' : ':' : cs -> toEnum 0x0113 : mkLatinASupplementWord cs
'i' : ':' : cs -> toEnum 0x012b : mkLatinASupplementWord cs
'o' : ':' : cs -> toEnum 0x014d : mkLatinASupplementWord cs
'u' : ':' : cs -> toEnum 0x016b : mkLatinASupplementWord cs
-- Default
c : cs -> c : mkLatinASupplementWord cs
spoolMarkup :: String -> String
spoolMarkup s = case s of
[] -> [] -- Shouldn't happen
'>' : cs -> '>' : mkLatinASupplementWord cs
c1 : cs -> c1 : spoolMarkup cs