/usr/share/doc/libghc-text-doc/html/src/Data-Text-Internal-Lazy-Fusion.html is in libghc-text-doc 1.2.2.2-1.
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 | <?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>Data/Text/Internal/Lazy/Fusion.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 #-}</span>
<a name="line-2"></a><span class='hs-comment'>-- |</span>
<a name="line-3"></a><span class='hs-comment'>-- Module : Data.Text.Lazy.Fusion</span>
<a name="line-4"></a><span class='hs-comment'>-- Copyright : (c) 2009, 2010 Bryan O'Sullivan</span>
<a name="line-5"></a><span class='hs-comment'>--</span>
<a name="line-6"></a><span class='hs-comment'>-- License : BSD-style</span>
<a name="line-7"></a><span class='hs-comment'>-- Maintainer : bos@serpentine.com</span>
<a name="line-8"></a><span class='hs-comment'>-- Stability : experimental</span>
<a name="line-9"></a><span class='hs-comment'>-- Portability : GHC</span>
<a name="line-10"></a><span class='hs-comment'>--</span>
<a name="line-11"></a><span class='hs-comment'>-- /Warning/: this is an internal module, and does not have a stable</span>
<a name="line-12"></a><span class='hs-comment'>-- API or name. Functions in this module may not check or enforce</span>
<a name="line-13"></a><span class='hs-comment'>-- preconditions expected by public modules. Use at your own risk!</span>
<a name="line-14"></a><span class='hs-comment'>--</span>
<a name="line-15"></a><span class='hs-comment'>-- Core stream fusion functionality for text.</span>
<a name="line-16"></a>
<a name="line-17"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</span><span class='hs-varop'>.</span><span class='hs-conid'>Fusion</span>
<a name="line-18"></a> <span class='hs-layout'>(</span>
<a name="line-19"></a> <span class='hs-varid'>stream</span>
<a name="line-20"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unstream</span>
<a name="line-21"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unstreamChunks</span>
<a name="line-22"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>length</span>
<a name="line-23"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unfoldrN</span>
<a name="line-24"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>index</span>
<a name="line-25"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>countChar</span>
<a name="line-26"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-27"></a>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>length</span><span class='hs-layout'>)</span>
<a name="line-29"></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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Fusion</span><span class='hs-varop'>.</span><span class='hs-conid'>Common</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>S</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span><span class='hs-varop'>.</span><span class='hs-conid'>ST</span> <span class='hs-layout'>(</span><span class='hs-varid'>runST</span><span class='hs-layout'>)</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Fusion</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Fusion</span><span class='hs-varop'>.</span><span class='hs-conid'>Size</span> <span class='hs-layout'>(</span><span class='hs-varid'>isEmpty</span><span class='hs-layout'>,</span> <span class='hs-varid'>unknownSize</span><span class='hs-layout'>)</span>
<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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>I</span>
<a name="line-35"></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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Array</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>A</span>
<a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Unsafe</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeWrite</span><span class='hs-layout'>)</span>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Unsafe</span><span class='hs-varop'>.</span><span class='hs-conid'>Shift</span> <span class='hs-layout'>(</span><span class='hs-varid'>shiftL</span><span class='hs-layout'>)</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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Unsafe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Iter</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>iter</span><span class='hs-layout'>)</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'>Int</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int64</span><span class='hs-layout'>)</span>
<a name="line-40"></a>
<a name="line-41"></a><span class='hs-keyword'>default</span><span class='hs-layout'>(</span><span class='hs-conid'>Int64</span><span class='hs-layout'>)</span>
<a name="line-42"></a>
<a name="line-43"></a><a name="stream"></a><span class='hs-comment'>-- | /O(n)/ Convert a 'Text' into a 'Stream Char'.</span>
<a name="line-44"></a><span class='hs-definition'>stream</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Text</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span>
<a name="line-45"></a><span class='hs-definition'>stream</span> <span class='hs-varid'>text</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Stream</span> <span class='hs-varid'>next</span> <span class='hs-layout'>(</span><span class='hs-varid'>text</span> <span class='hs-conop'>:*:</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>unknownSize</span>
<a name="line-46"></a> <span class='hs-keyword'>where</span>
<a name="line-47"></a> <span class='hs-varid'>next</span> <span class='hs-layout'>(</span><span class='hs-conid'>Empty</span> <span class='hs-conop'>:*:</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Done</span>
<a name="line-48"></a> <span class='hs-varid'>next</span> <span class='hs-layout'>(</span><span class='hs-varid'>txt</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>Chunk</span> <span class='hs-varid'>t</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>I</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>len</span><span class='hs-layout'>)</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-conop'>:*:</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span>
<a name="line-49"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>i</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>len</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>next</span> <span class='hs-layout'>(</span><span class='hs-varid'>ts</span> <span class='hs-conop'>:*:</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-50"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Yield</span> <span class='hs-varid'>c</span> <span class='hs-layout'>(</span><span class='hs-varid'>txt</span> <span class='hs-conop'>:*:</span> <span class='hs-varid'>i</span><span class='hs-varop'>+</span><span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-51"></a> <span class='hs-keyword'>where</span> <span class='hs-conid'>Iter</span> <span class='hs-varid'>c</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>iter</span> <span class='hs-varid'>t</span> <span class='hs-varid'>i</span>
<a name="line-52"></a><span class='hs-comment'>{-# INLINE [0] stream #-}</span>
<a name="line-53"></a>
<a name="line-54"></a><a name="unstreamChunks"></a><span class='hs-comment'>-- | /O(n)/ Convert a 'Stream Char' into a 'Text', using the given</span>
<a name="line-55"></a><span class='hs-comment'>-- chunk size.</span>
<a name="line-56"></a><span class='hs-definition'>unstreamChunks</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Text</span>
<a name="line-57"></a><a name="!"></a><span class='hs-definition'>unstreamChunks</span> <span class='hs-varop'>!</span><span class='hs-varid'>chunkSize</span> <span class='hs-layout'>(</span><span class='hs-conid'>Stream</span> <span class='hs-varid'>next</span> <span class='hs-varid'>s0</span> <span class='hs-varid'>len0</span><span class='hs-layout'>)</span>
<a name="line-58"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isEmpty</span> <span class='hs-varid'>len0</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Empty</span>
<a name="line-59"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>outer</span> <span class='hs-varid'>s0</span>
<a name="line-60"></a> <span class='hs-keyword'>where</span>
<a name="line-61"></a> <span class='hs-varid'>outer</span> <span class='hs-varid'>so</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>{-# SCC "unstreamChunks/outer" #-}</span>
<a name="line-62"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>next</span> <span class='hs-varid'>so</span> <span class='hs-keyword'>of</span>
<a name="line-63"></a> <span class='hs-conid'>Done</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Empty</span>
<a name="line-64"></a> <span class='hs-conid'>Skip</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>outer</span> <span class='hs-varid'>s'</span>
<a name="line-65"></a> <span class='hs-conid'>Yield</span> <span class='hs-varid'>x</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>runST</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-66"></a> <span class='hs-varid'>a</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>new</span> <span class='hs-varid'>unknownLength</span>
<a name="line-67"></a> <span class='hs-varid'>unsafeWrite</span> <span class='hs-varid'>a</span> <span class='hs-num'>0</span> <span class='hs-varid'>x</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>inner</span> <span class='hs-varid'>a</span> <span class='hs-varid'>unknownLength</span> <span class='hs-varid'>s'</span>
<a name="line-68"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>unknownLength</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>4</span>
<a name="line-69"></a> <span class='hs-keyword'>where</span>
<a name="line-70"></a> <span class='hs-varid'>inner</span> <span class='hs-varid'>marr</span> <span class='hs-varop'>!</span><span class='hs-varid'>len</span> <span class='hs-varid'>s</span> <span class='hs-varop'>!</span><span class='hs-varid'>i</span>
<a name="line-71"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>i</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>chunkSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>finish</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>i</span> <span class='hs-varid'>s</span>
<a name="line-72"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>i</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>len</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>{-# SCC "unstreamChunks/resize" #-}</span> <span class='hs-keyword'>do</span>
<a name="line-73"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>newLen</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>min</span> <span class='hs-layout'>(</span><span class='hs-varid'>len</span> <span class='hs-varop'>`shiftL`</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>chunkSize</span>
<a name="line-74"></a> <span class='hs-varid'>marr'</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>new</span> <span class='hs-varid'>newLen</span>
<a name="line-75"></a> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>copyM</span> <span class='hs-varid'>marr'</span> <span class='hs-num'>0</span> <span class='hs-varid'>marr</span> <span class='hs-num'>0</span> <span class='hs-varid'>len</span>
<a name="line-76"></a> <span class='hs-varid'>inner</span> <span class='hs-varid'>marr'</span> <span class='hs-varid'>newLen</span> <span class='hs-varid'>s</span> <span class='hs-varid'>i</span>
<a name="line-77"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span>
<a name="line-78"></a> <span class='hs-comment'>{-# SCC "unstreamChunks/inner" #-}</span>
<a name="line-79"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>next</span> <span class='hs-varid'>s</span> <span class='hs-keyword'>of</span>
<a name="line-80"></a> <span class='hs-conid'>Done</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>finish</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>i</span> <span class='hs-varid'>s</span>
<a name="line-81"></a> <span class='hs-conid'>Skip</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>inner</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>len</span> <span class='hs-varid'>s'</span> <span class='hs-varid'>i</span>
<a name="line-82"></a> <span class='hs-conid'>Yield</span> <span class='hs-varid'>x</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>unsafeWrite</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>i</span> <span class='hs-varid'>x</span>
<a name="line-83"></a> <span class='hs-varid'>inner</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>len</span> <span class='hs-varid'>s'</span> <span class='hs-layout'>(</span><span class='hs-varid'>i</span><span class='hs-varop'>+</span><span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-84"></a> <span class='hs-varid'>finish</span> <span class='hs-varid'>marr</span> <span class='hs-varid'>len</span> <span class='hs-varid'>s'</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-85"></a> <span class='hs-varid'>arr</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>unsafeFreeze</span> <span class='hs-varid'>marr</span>
<a name="line-86"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>I</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-varid'>arr</span> <span class='hs-num'>0</span> <span class='hs-varid'>len</span> <span class='hs-varop'>`Chunk`</span> <span class='hs-varid'>outer</span> <span class='hs-varid'>s'</span><span class='hs-layout'>)</span>
<a name="line-87"></a><span class='hs-comment'>{-# INLINE [0] unstreamChunks #-}</span>
<a name="line-88"></a>
<a name="line-89"></a><a name="unstream"></a><span class='hs-comment'>-- | /O(n)/ Convert a 'Stream Char' into a 'Text', using</span>
<a name="line-90"></a><span class='hs-comment'>-- 'defaultChunkSize'.</span>
<a name="line-91"></a><span class='hs-definition'>unstream</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Text</span>
<a name="line-92"></a><span class='hs-definition'>unstream</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unstreamChunks</span> <span class='hs-varid'>defaultChunkSize</span>
<a name="line-93"></a><span class='hs-comment'>{-# INLINE [0] unstream #-}</span>
<a name="line-94"></a>
<a name="line-95"></a><a name="length"></a><span class='hs-comment'>-- | /O(n)/ Returns the number of characters in a text.</span>
<a name="line-96"></a><span class='hs-definition'>length</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int64</span>
<a name="line-97"></a><span class='hs-definition'>length</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>lengthI</span>
<a name="line-98"></a><span class='hs-comment'>{-# INLINE[0] length #-}</span>
<a name="line-99"></a>
<a name="line-100"></a><span class='hs-comment'>{-# RULES "LAZY STREAM stream/unstream fusion" forall s.
<a name="line-101"></a> stream (unstream s) = s #-}</span>
<a name="line-102"></a>
<a name="line-103"></a><a name="unfoldrN"></a><span class='hs-comment'>-- | /O(n)/ Like 'unfoldr', 'unfoldrN' builds a stream from a seed</span>
<a name="line-104"></a><span class='hs-comment'>-- value. However, the length of the result is limited by the</span>
<a name="line-105"></a><span class='hs-comment'>-- first argument to 'unfoldrN'. This function is more efficient than</span>
<a name="line-106"></a><span class='hs-comment'>-- 'unfoldr' when the length of the result is known.</span>
<a name="line-107"></a><span class='hs-definition'>unfoldrN</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int64</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-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Char</span><span class='hs-layout'>,</span><span class='hs-varid'>a</span><span class='hs-layout'>)</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'>Stream</span> <span class='hs-conid'>Char</span>
<a name="line-108"></a><span class='hs-definition'>unfoldrN</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>unfoldrNI</span> <span class='hs-varid'>n</span>
<a name="line-109"></a><span class='hs-comment'>{-# INLINE [0] unfoldrN #-}</span>
<a name="line-110"></a>
<a name="line-111"></a><a name="index"></a><span class='hs-comment'>-- | /O(n)/ stream index (subscript) operator, starting from 0.</span>
<a name="line-112"></a><span class='hs-definition'>index</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int64</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Char</span>
<a name="line-113"></a><span class='hs-definition'>index</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>indexI</span>
<a name="line-114"></a><span class='hs-comment'>{-# INLINE [0] index #-}</span>
<a name="line-115"></a>
<a name="line-116"></a><a name="countChar"></a><span class='hs-comment'>-- | /O(n)/ The 'count' function returns the number of times the query</span>
<a name="line-117"></a><span class='hs-comment'>-- element appears in the given stream.</span>
<a name="line-118"></a><span class='hs-definition'>countChar</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stream</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int64</span>
<a name="line-119"></a><span class='hs-definition'>countChar</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>countCharI</span>
<a name="line-120"></a><span class='hs-comment'>{-# INLINE [0] countChar #-}</span>
</pre></body>
</html>
|