module Network.HPACK.Table.Entry (
Size
, Entry(..)
, Header
, HeaderName
, HeaderValue
, Index
, toEntry
, toEntryToken
, fromEntry
, entrySize
, entryHeader
, entryHeaderName
, entryHeaderValue
, dummyEntry
, maxNumbers
) where
import qualified Data.ByteString as BS
import Network.HPACK.Table.Token
import Network.HPACK.Types
type Size = Int
data Entry = Entry Size Token Header deriving Show
headerSizeMagicNumber :: Size
headerSizeMagicNumber = 32
headerSize :: Header -> Size
headerSize (k,v) = BS.length k
+ BS.length v
+ headerSizeMagicNumber
toEntry :: Header -> Entry
toEntry kv = Entry siz TOTHER kv
where
!siz = headerSize kv
toEntryToken :: Header -> Entry
toEntryToken kv@(k,_) = Entry siz t kv
where
!siz = headerSize kv
!t = toToken k
fromEntry :: Entry -> Header
fromEntry (Entry _ _ kv) = kv
entrySize :: Entry -> Size
entrySize (Entry siz _ _) = siz
entryHeader :: Entry -> Header
entryHeader (Entry _ _ kv) = kv
entryHeaderName :: Entry -> HeaderName
entryHeaderName (Entry _ _ (k,_)) = k
entryHeaderValue :: Entry -> HeaderValue
entryHeaderValue (Entry _ _ (_,v)) = v
dummyEntry :: Entry
dummyEntry = Entry 0 TOTHER ("dummy","dummy")
maxNumbers :: Size -> Int
maxNumbers siz = siz `div` headerSizeMagicNumber