-- |
-- Module      : Unicode.Char
-- Copyright   : (c) 2020 Composewell Technologies and Contributors
-- License     : Apache-2.0
-- Maintainer  : streamly@composewell.com
-- Stability   : experimental
--
-- This module provides APIs to access the Unicode character database (UCD)
-- corresponding to [Unicode Standard version
-- 15.0.0](https://www.unicode.org/versions/Unicode15.0.0/).
--
-- This module re-exports several sub-modules under it.  The sub-module
-- structure under `Unicode.Char` is largely based on the
-- ["Property Index by Scope of Use" in Unicode® Standard Annex #44](https://www.unicode.org/reports/tr44/#Property_Index_Table).
--
-- The @Unicode.Char.*@ modules in turn depend on @Unicode.Internal.Char.*@
-- modules which are programmatically generated from the Unicode standard's
-- Unicode character database files. The module structure under
-- @Unicode.Internal.Char@ is largely based on the UCD text file names from
-- which the properties are generated.
--
-- For the original UCD files used in this code please refer to the @UCD@
-- section on the Unicode standard page.  See
-- https://www.unicode.org/reports/tr44/ to understand the contents and the
-- format of the unicode database files.
--

module Unicode.Char
    ( unicodeVersion
    , module Unicode.Char.General
    , module Unicode.Char.General.Compat
    , module Unicode.Char.Case
    , module Unicode.Char.Case.Compat
    , module Unicode.Char.Numeric
    , module Unicode.Char.Normalization
    , module Unicode.Char.Identifiers

      -- * Utils
    , showCodePoint

      -- * Re-export from @base@
    , ord
    , chr
    )
where

import Data.Char (chr, ord)
import Unicode.Char.Case hiding (Unfold(..), Step(..))
import Unicode.Char.Case.Compat
import Unicode.Char.General hiding (isAlphaNum)
import Unicode.Char.General.Compat
import Unicode.Char.Identifiers
import Unicode.Char.Numeric
import Unicode.Char.Normalization
import Unicode.Internal.Char.Version (unicodeVersion)

-- [NOTE] Code inspired from 'showIntAtBase'
-- | Show the code point of a character using the Unicode Standard convention:
-- hexadecimal codepoint padded with zeros if inferior to 4 characters.
--
-- >>> showCodePoint '\xf' ""
-- "000F"
-- >>> showCodePoint '\x1ffff' ""
-- "1FFFF"
--
-- @since 0.6.0
showCodePoint :: Char -> ShowS
showCodePoint :: Char -> ShowS
showCodePoint Char
c = ShowS
pad ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Int, Int) -> ShowS
showIt (Int -> Int -> (Int, Int)
forall a. Integral a => a -> a -> (a, a)
quotRem Int
cp Int
16)
    where
    cp :: Int
cp = Char -> Int
ord Char
c
    pad :: ShowS
pad | Int
cp Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
<= Int
0x00f = \[Char]
s -> Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
: Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
: Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
: [Char]
s
        | Int
cp Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
<= Int
0x0ff = \[Char]
s -> Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
: Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
: [Char]
s
        | Int
cp Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
<= Int
0xfff = (Char
'0' Char -> ShowS
forall a. a -> [a] -> [a]
:)
        | Bool
otherwise   = ShowS
forall a. a -> a
id
    showIt :: (Int, Int) -> ShowS
showIt (Int
n, Int
d) [Char]
r = case Int -> Char
intToDigiT Int
d of
        !Char
c' -> case Int
n of
            Int
0 -> Char
c' Char -> ShowS
forall a. a -> [a] -> [a]
: [Char]
r
            Int
_ -> (Int, Int) -> ShowS
showIt (Int -> Int -> (Int, Int)
forall a. Integral a => a -> a -> (a, a)
quotRem Int
n Int
16) (Char
c' Char -> ShowS
forall a. a -> [a] -> [a]
: [Char]
r)