1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{-# LANGUAGE CPP, MagicHash, TypeSynonymInstances, FlexibleInstances #-}
{- |
Module : Codec.Binary.UTF8.Light.Helper
Copyright : (c) Francesco Ariis 2022
License : BSD3
Maintainer : Francesco Ariis <fa-ml@ariis.it>
Stability : provisional
Portability : portable
Lightweight UTF8 handling, helper functions.
-}
module Codec.Binary.UTF8.Light.Helper (
c2w, w2c, i2w, w2i, cwrd, wh, toW8
) where
import Data.Word
(Word,Word8,Word16,Word32)
import Data.Int(Int32)
fi :: (Num b, Integral a) => a -> b
fi = fromIntegral
{-# INLINE w2c #-}
w2c :: Word32 -> Char
w2c = unsafeChr . fromIntegral
{-# INLINE c2w #-}
c2w :: Char -> Word32
c2w = fi . ord
{-# INLINE i2w #-}
i2w :: Int -> Word32
i2w = fi
{-# INLINE w2i #-}
w2i :: Word32 -> Int
w2i = fi
{-# INLINE wh #-}
wh w = W8# w
{-# INLINE toW8 #-}
toW8 w = W8# w
{-# INLINE cwrd #-}
cwrd :: Word# -> Word#
cwrd w = w
|
