/usr/share/doc/libghc-blaze-builder-doc/html/src/Blaze-ByteString-Builder-HTTP.html is in libghc-blaze-builder-doc 0.4.0.1-3build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 | <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>Blaze/ByteString/Builder/HTTP.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE BangPatterns, CPP, MagicHash, OverloadedStrings, MonoPatBinds #-}</span>
<a name="line-2"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-3"></a><span class='hs-comment'>-- |</span>
<a name="line-4"></a><span class='hs-comment'>-- Module: Blaze.ByteString.Builder.HTTP</span>
<a name="line-5"></a><span class='hs-comment'>-- Copyright: (c) 2013 Simon Meier</span>
<a name="line-6"></a><span class='hs-comment'>-- License: BSD3</span>
<a name="line-7"></a><span class='hs-comment'>-- Maintainer: Leon P Smith <leon@melding-monads.com></span>
<a name="line-8"></a><span class='hs-comment'>-- Stability: experimental</span>
<a name="line-9"></a><span class='hs-comment'>--</span>
<a name="line-10"></a><span class='hs-comment'>-- Support for HTTP response encoding.</span>
<a name="line-11"></a><span class='hs-comment'>--</span>
<a name="line-12"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-13"></a>
<a name="line-14"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span><span class='hs-varop'>.</span><span class='hs-conid'>HTTP</span> <span class='hs-layout'>(</span>
<a name="line-15"></a> <span class='hs-comment'>-- * Chunked HTTP transfer encoding</span>
<a name="line-16"></a> <span class='hs-varid'>chunkedTransferEncoding</span>
<a name="line-17"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>chunkedTransferTerminator</span>
<a name="line-18"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-19"></a>
<a name="line-20"></a><span class='hs-cpp'>#if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)</span>
<a name="line-21"></a><span class='hs-cpp'>#include "MachDeps.h"</span>
<a name="line-22"></a><span class='hs-cpp'>#endif</span>
<a name="line-23"></a>
<a name="line-24"></a><span class='hs-cpp'>#if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)</span>
<a name="line-25"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Base</span>
<a name="line-26"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Word</span> <span class='hs-layout'>(</span><span class='hs-conid'>Word32</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-27"></a><span class='hs-cpp'>#else</span>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Word</span>
<a name="line-29"></a><span class='hs-cpp'>#endif</span>
<a name="line-30"></a>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span>
<a name="line-32"></a>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Monoid</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>S</span>
<a name="line-35"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Char8</span> <span class='hs-conid'>()</span>
<a name="line-36"></a>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Write</span>
<a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span>
<a name="line-39"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span>
<a name="line-40"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>copyByteString</span><span class='hs-layout'>)</span>
<a name="line-41"></a>
<a name="line-42"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Builder</span><span class='hs-varop'>.</span><span class='hs-conid'>Char8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Char8</span>
<a name="line-43"></a>
<a name="line-44"></a>
<a name="line-45"></a><a name="shiftr_w32"></a><span class='hs-comment'>{-# INLINE shiftr_w32 #-}</span>
<a name="line-46"></a><span class='hs-definition'>shiftr_w32</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word32</span>
<a name="line-47"></a>
<a name="line-48"></a><span class='hs-cpp'>#if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)</span>
<a name="line-49"></a><span class='hs-definition'>shiftr_w32</span> <span class='hs-layout'>(</span><span class='hs-conid'>W32</span><span class='hs-cpp'>#</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>I</span><span class='hs-cpp'>#</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>W32</span><span class='hs-cpp'>#</span> <span class='hs-layout'>(</span><span class='hs-varid'>w</span> <span class='hs-varop'>`</span><span class='hs-varid'>uncheckedShiftRL</span><span class='hs-cpp'>#</span><span class='hs-varop'>`</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span>
<a name="line-50"></a><span class='hs-cpp'>#else</span>
<a name="line-51"></a><span class='hs-definition'>shiftr_w32</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shiftR</span>
<a name="line-52"></a><span class='hs-cpp'>#endif</span>
<a name="line-53"></a>
<a name="line-54"></a>
<a name="line-55"></a><a name="writeCRLF"></a><span class='hs-comment'>-- | Write a CRLF sequence.</span>
<a name="line-56"></a><span class='hs-definition'>writeCRLF</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Write</span>
<a name="line-57"></a><span class='hs-definition'>writeCRLF</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Char8</span><span class='hs-varop'>.</span><span class='hs-varid'>writeChar</span> <span class='hs-chr'>'\r'</span> <span class='hs-varop'>`mappend`</span> <span class='hs-conid'>Char8</span><span class='hs-varop'>.</span><span class='hs-varid'>writeChar</span> <span class='hs-chr'>'\n'</span>
<a name="line-58"></a><span class='hs-comment'>{-# INLINE writeCRLF #-}</span>
<a name="line-59"></a>
<a name="line-60"></a><a name="execWrite"></a><span class='hs-comment'>-- | Execute a write</span>
<a name="line-61"></a><span class='hs-comment'>{-# INLINE execWrite #-}</span>
<a name="line-62"></a><span class='hs-definition'>execWrite</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Write</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-63"></a><span class='hs-definition'>execWrite</span> <span class='hs-varid'>w</span> <span class='hs-varid'>op</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-64"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>runPoke</span> <span class='hs-layout'>(</span><span class='hs-varid'>getPoke</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-varid'>op</span>
<a name="line-65"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-66"></a>
<a name="line-67"></a>
<a name="line-68"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-69"></a><span class='hs-comment'>-- Hex Encoding Infrastructure</span>
<a name="line-70"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-71"></a>
<a name="line-72"></a><a name="pokeWord32HexN"></a><span class='hs-definition'>pokeWord32HexN</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-73"></a><span class='hs-definition'>pokeWord32HexN</span> <span class='hs-varid'>n0</span> <span class='hs-varid'>w0</span> <span class='hs-varid'>op0</span> <span class='hs-keyglyph'>=</span>
<a name="line-74"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>w0</span> <span class='hs-layout'>(</span><span class='hs-varid'>op0</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>n0</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-75"></a> <span class='hs-keyword'>where</span>
<a name="line-76"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-varid'>w</span> <span class='hs-varop'>!</span><span class='hs-varid'>op</span>
<a name="line-77"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>op</span> <span class='hs-varop'><</span> <span class='hs-varid'>op0</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-78"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-79"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>nibble</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word8</span>
<a name="line-80"></a> <span class='hs-varid'>nibble</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>w</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0xF</span>
<a name="line-81"></a> <span class='hs-varid'>hex</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>nibble</span> <span class='hs-varop'><</span> <span class='hs-num'>10</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>48</span> <span class='hs-varop'>+</span> <span class='hs-varid'>nibble</span>
<a name="line-82"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>55</span> <span class='hs-varop'>+</span> <span class='hs-varid'>nibble</span>
<a name="line-83"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>op</span> <span class='hs-varid'>hex</span>
<a name="line-84"></a> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-varid'>w</span> <span class='hs-varop'>`shiftr_w32`</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>op</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>1</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-85"></a><span class='hs-comment'>{-# INLINE pokeWord32HexN #-}</span>
<a name="line-86"></a>
<a name="line-87"></a><a name="iterationsUntilZero"></a><span class='hs-definition'>iterationsUntilZero</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
<a name="line-88"></a><span class='hs-definition'>iterationsUntilZero</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-num'>0</span>
<a name="line-89"></a> <span class='hs-keyword'>where</span>
<a name="line-90"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-varid'>count</span> <span class='hs-num'>0</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>count</span>
<a name="line-91"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-varid'>count</span> <span class='hs-varop'>!</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-varid'>count</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span>
<a name="line-92"></a><span class='hs-comment'>{-# INLINE iterationsUntilZero #-}</span>
<a name="line-93"></a>
<a name="line-94"></a><a name="word32HexLength"></a><span class='hs-comment'>-- | Length of the hex-string required to encode the given 'Word32'.</span>
<a name="line-95"></a><span class='hs-definition'>word32HexLength</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
<a name="line-96"></a><span class='hs-definition'>word32HexLength</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>max</span> <span class='hs-num'>1</span> <span class='hs-varop'>.</span> <span class='hs-varid'>iterationsUntilZero</span> <span class='hs-layout'>(</span><span class='hs-varop'>`shiftr_w32`</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span>
<a name="line-97"></a><span class='hs-comment'>{-# INLINE word32HexLength #-}</span>
<a name="line-98"></a>
<a name="line-99"></a><a name="writeWord32Hex"></a><span class='hs-definition'>writeWord32Hex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Write</span>
<a name="line-100"></a><span class='hs-definition'>writeWord32Hex</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=</span>
<a name="line-101"></a> <span class='hs-varid'>boundedWrite</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span> <span class='hs-varop'>*</span> <span class='hs-varid'>sizeOf</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>pokeN</span> <span class='hs-varid'>len</span> <span class='hs-varop'>$</span> <span class='hs-varid'>pokeWord32HexN</span> <span class='hs-varid'>len</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span>
<a name="line-102"></a> <span class='hs-keyword'>where</span>
<a name="line-103"></a> <span class='hs-varid'>len</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>word32HexLength</span> <span class='hs-varid'>w</span>
<a name="line-104"></a><span class='hs-comment'>{-# INLINE writeWord32Hex #-}</span>
<a name="line-105"></a>
<a name="line-106"></a>
<a name="line-107"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-108"></a><span class='hs-comment'>-- Chunked transfer encoding</span>
<a name="line-109"></a><span class='hs-comment'>------------------------------------------------------------------------------</span>
<a name="line-110"></a>
<a name="line-111"></a><a name="chunkedTransferEncoding"></a><span class='hs-comment'>-- | Transform a builder such that it uses chunked HTTP transfer encoding.</span>
<a name="line-112"></a><span class='hs-definition'>chunkedTransferEncoding</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Builder</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Builder</span>
<a name="line-113"></a><span class='hs-definition'>chunkedTransferEncoding</span> <span class='hs-varid'>innerBuilder</span> <span class='hs-keyglyph'>=</span>
<a name="line-114"></a> <span class='hs-varid'>builder</span> <span class='hs-varid'>transferEncodingStep</span>
<a name="line-115"></a> <span class='hs-keyword'>where</span>
<a name="line-116"></a> <span class='hs-varid'>transferEncodingStep</span> <span class='hs-varid'>k</span> <span class='hs-keyglyph'>=</span>
<a name="line-117"></a> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-varid'>runBuilder</span> <span class='hs-varid'>innerBuilder</span><span class='hs-layout'>)</span>
<a name="line-118"></a> <span class='hs-keyword'>where</span>
<a name="line-119"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>innerStep</span> <span class='hs-varop'>!</span><span class='hs-layout'>(</span><span class='hs-conid'>BufferRange</span> <span class='hs-varid'>op</span> <span class='hs-varid'>ope</span><span class='hs-layout'>)</span>
<a name="line-120"></a> <span class='hs-comment'>-- FIXME: Assert that outRemaining < maxBound :: Word32</span>
<a name="line-121"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>outRemaining</span> <span class='hs-varop'><</span> <span class='hs-varid'>minimalBufferSize</span> <span class='hs-keyglyph'>=</span>
<a name="line-122"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>bufferFull</span> <span class='hs-varid'>minimalBufferSize</span> <span class='hs-varid'>op</span> <span class='hs-layout'>(</span><span class='hs-varid'>go</span> <span class='hs-varid'>innerStep</span><span class='hs-layout'>)</span>
<a name="line-123"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-124"></a> <span class='hs-keyword'>let</span> <span class='hs-varop'>!</span><span class='hs-varid'>brInner</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>BufferRange</span> <span class='hs-varid'>opInner</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>BufferRange</span>
<a name="line-125"></a> <span class='hs-layout'>(</span><span class='hs-varid'>op</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-varid'>chunkSizeLength</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- leave space for chunk header</span>
<a name="line-126"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ope</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-varid'>maxAfterBufferOverhead</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- leave space at end of data</span>
<a name="line-127"></a>
<a name="line-128"></a> <span class='hs-comment'>-- wraps the chunk, if it is non-empty, and returns the</span>
<a name="line-129"></a> <span class='hs-comment'>-- signal constructed with the correct end-of-data pointer</span>
<a name="line-130"></a> <span class='hs-comment'>{-# INLINE wrapChunk #-}</span>
<a name="line-131"></a> <span class='hs-varid'>wrapChunk</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Word8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>BuildSignal</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-132"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>BuildSignal</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-133"></a> <span class='hs-varid'>wrapChunk</span> <span class='hs-varop'>!</span><span class='hs-varid'>opInner'</span> <span class='hs-varid'>mkSignal</span>
<a name="line-134"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>==</span> <span class='hs-varid'>opInner</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mkSignal</span> <span class='hs-varid'>op</span>
<a name="line-135"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-136"></a> <span class='hs-varid'>pokeWord32HexN</span> <span class='hs-varid'>chunkSizeLength</span>
<a name="line-137"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>`minusPtr`</span> <span class='hs-varid'>opInner</span><span class='hs-layout'>)</span>
<a name="line-138"></a> <span class='hs-varid'>op</span>
<a name="line-139"></a> <span class='hs-varid'>execWrite</span> <span class='hs-varid'>writeCRLF</span> <span class='hs-layout'>(</span><span class='hs-varid'>opInner</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>2</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-140"></a> <span class='hs-varid'>execWrite</span> <span class='hs-varid'>writeCRLF</span> <span class='hs-varid'>opInner'</span>
<a name="line-141"></a> <span class='hs-varid'>mkSignal</span> <span class='hs-layout'>(</span><span class='hs-varid'>opInner'</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span>
<a name="line-142"></a>
<a name="line-143"></a> <span class='hs-comment'>-- prepare handlers</span>
<a name="line-144"></a> <span class='hs-varid'>doneH</span> <span class='hs-varid'>opInner'</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wrapChunk</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>op'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-145"></a> <span class='hs-keyword'>let</span> <span class='hs-varop'>!</span><span class='hs-varid'>br'</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>BufferRange</span> <span class='hs-varid'>op'</span> <span class='hs-varid'>ope</span>
<a name="line-146"></a> <span class='hs-varid'>k</span> <span class='hs-varid'>br'</span>
<a name="line-147"></a>
<a name="line-148"></a> <span class='hs-varid'>fullH</span> <span class='hs-varid'>opInner'</span> <span class='hs-varid'>minRequiredSize</span> <span class='hs-varid'>nextInnerStep</span> <span class='hs-keyglyph'>=</span>
<a name="line-149"></a> <span class='hs-varid'>wrapChunk</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>op'</span> <span class='hs-keyglyph'>-></span>
<a name="line-150"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$!</span> <span class='hs-varid'>bufferFull</span>
<a name="line-151"></a> <span class='hs-layout'>(</span><span class='hs-varid'>minRequiredSize</span> <span class='hs-varop'>+</span> <span class='hs-varid'>maxEncodingOverhead</span><span class='hs-layout'>)</span>
<a name="line-152"></a> <span class='hs-varid'>op'</span>
<a name="line-153"></a> <span class='hs-layout'>(</span><span class='hs-varid'>go</span> <span class='hs-varid'>nextInnerStep</span><span class='hs-layout'>)</span>
<a name="line-154"></a>
<a name="line-155"></a> <span class='hs-varid'>insertChunkH</span> <span class='hs-varid'>opInner'</span> <span class='hs-varid'>bs</span> <span class='hs-varid'>nextInnerStep</span>
<a name="line-156"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-varid'>bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- flush</span>
<a name="line-157"></a> <span class='hs-varid'>wrapChunk</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>op'</span> <span class='hs-keyglyph'>-></span>
<a name="line-158"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$!</span> <span class='hs-varid'>insertChunk</span> <span class='hs-varid'>op'</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-layout'>(</span><span class='hs-varid'>go</span> <span class='hs-varid'>nextInnerStep</span><span class='hs-layout'>)</span>
<a name="line-159"></a>
<a name="line-160"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- insert non-empty bytestring</span>
<a name="line-161"></a> <span class='hs-varid'>wrapChunk</span> <span class='hs-varid'>opInner'</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>op'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-162"></a> <span class='hs-comment'>-- add header for inserted bytestring</span>
<a name="line-163"></a> <span class='hs-comment'>-- FIXME: assert(S.length bs < maxBound :: Word32)</span>
<a name="line-164"></a> <span class='hs-varop'>!</span><span class='hs-varid'>op''</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-varop'>`runPoke`</span> <span class='hs-varid'>op'</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getPoke</span> <span class='hs-varop'>$</span>
<a name="line-165"></a> <span class='hs-varid'>writeWord32Hex</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>bs</span><span class='hs-layout'>)</span>
<a name="line-166"></a> <span class='hs-varop'>`mappend`</span> <span class='hs-varid'>writeCRLF</span>
<a name="line-167"></a>
<a name="line-168"></a> <span class='hs-comment'>-- insert bytestring and write CRLF in next buildstep</span>
<a name="line-169"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$!</span> <span class='hs-varid'>insertChunk</span>
<a name="line-170"></a> <span class='hs-varid'>op''</span> <span class='hs-varid'>bs</span>
<a name="line-171"></a> <span class='hs-layout'>(</span><span class='hs-varid'>runBuilderWith</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromWrite</span> <span class='hs-varid'>writeCRLF</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>go</span> <span class='hs-varid'>nextInnerStep</span><span class='hs-layout'>)</span>
<a name="line-172"></a>
<a name="line-173"></a> <span class='hs-comment'>-- execute inner builder with reduced boundaries</span>
<a name="line-174"></a> <span class='hs-varid'>fillWithBuildStep</span> <span class='hs-varid'>innerStep</span> <span class='hs-varid'>doneH</span> <span class='hs-varid'>fullH</span> <span class='hs-varid'>insertChunkH</span> <span class='hs-varid'>brInner</span>
<a name="line-175"></a> <span class='hs-keyword'>where</span>
<a name="line-176"></a> <span class='hs-comment'>-- minimal size guaranteed for actual data no need to require more</span>
<a name="line-177"></a> <span class='hs-comment'>-- than 1 byte to guarantee progress the larger sizes will be</span>
<a name="line-178"></a> <span class='hs-comment'>-- hopefully provided by the driver or requested by the wrapped</span>
<a name="line-179"></a> <span class='hs-comment'>-- builders.</span>
<a name="line-180"></a> <span class='hs-varid'>minimalChunkSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span>
<a name="line-181"></a>
<a name="line-182"></a> <span class='hs-comment'>-- overhead computation</span>
<a name="line-183"></a> <span class='hs-varid'>maxBeforeBufferOverhead</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>sizeOf</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- max chunk size and CRLF after header</span>
<a name="line-184"></a> <span class='hs-varid'>maxAfterBufferOverhead</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-comment'>-- CRLF after data</span>
<a name="line-185"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- max bytestring size, CRLF after header</span>
<a name="line-186"></a>
<a name="line-187"></a> <span class='hs-varid'>maxEncodingOverhead</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maxBeforeBufferOverhead</span> <span class='hs-varop'>+</span> <span class='hs-varid'>maxAfterBufferOverhead</span>
<a name="line-188"></a>
<a name="line-189"></a> <span class='hs-varid'>minimalBufferSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>minimalChunkSize</span> <span class='hs-varop'>+</span> <span class='hs-varid'>maxEncodingOverhead</span>
<a name="line-190"></a>
<a name="line-191"></a> <span class='hs-comment'>-- remaining and required space computation</span>
<a name="line-192"></a> <span class='hs-varid'>outRemaining</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-193"></a> <span class='hs-varid'>outRemaining</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ope</span> <span class='hs-varop'>`minusPtr`</span> <span class='hs-varid'>op</span>
<a name="line-194"></a> <span class='hs-varid'>chunkSizeLength</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>word32HexLength</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>outRemaining</span>
<a name="line-195"></a>
<a name="line-196"></a>
<a name="line-197"></a><a name="chunkedTransferTerminator"></a><span class='hs-comment'>-- | The zero-length chunk '0\r\n\r\n' signaling the termination of the data transfer.</span>
<a name="line-198"></a><span class='hs-definition'>chunkedTransferTerminator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Builder</span>
<a name="line-199"></a><span class='hs-definition'>chunkedTransferTerminator</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copyByteString</span> <span class='hs-str'>"0\r\n\r\n"</span>
</pre></body>
</html>
|