{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}

module Test.ENIG.Config where

import Test.Framework
import Test.Framework.Providers.HUnit
import Test.Framework.TH
import Test.HUnit.Base

import Data.Char
import qualified Data.Text as T
import Data.Text.Normalize
import qualified Data.Vector.Unboxed as V

import Data.Text.ENIG.Data
import Data.Text.ENIG.Detect


lastConsonantCodeList = [4520..4607]
lastConsonantList = map chr lastConsonantCodeList

vowelCodeList = [4449..4519]
vowelList = map chr vowelCodeList

hangulComponentCodeList = [4352..4607]
hangulComponentList = map chr hangulComponentCodeList


-- Not good generation code. Need to be refactored.
pppidVector = V.fromList
  [(fromEnum Eun,fromEnum Neun)
  ,(fromEnum Eul,fromEnum Leul)
  ,(fromEnum I,fromEnum Ga)
  ,(fromEnum Gwa,fromEnum Wa)
  ,(fromEnum Ix,fromEnum X)
  ,(fromEnum Eux,fromEnum X)
  ]