119 lines
15 KiB
HTML
119 lines
15 KiB
HTML
<?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>dist/build/System/Posix/Directory/Foreign.hs</title>
|
|
<link type='text/css' rel='stylesheet' href='hscolour.css' />
|
|
</head>
|
|
<body>
|
|
<pre><a name="line-1"></a><span class='hs-comment'>{-# LINE 1 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-2"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Posix</span><span class='hs-varop'>.</span><span class='hs-conid'>Directory</span><span class='hs-varop'>.</span><span class='hs-conid'>Foreign</span> <span class='hs-keyword'>where</span>
|
|
<a name="line-3"></a><span class='hs-comment'>{-# LINE 2 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-4"></a>
|
|
<a name="line-5"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Bits</span>
|
|
<a name="line-6"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <span class='hs-layout'>(</span><span class='hs-varid'>foldl'</span><span class='hs-layout'>)</span>
|
|
<a name="line-7"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>C</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
|
|
<a name="line-8"></a>
|
|
<a name="line-9"></a>
|
|
<a name="line-10"></a><span class='hs-comment'>{-# LINE 8 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-11"></a>
|
|
<a name="line-12"></a><span class='hs-comment'>{-# LINE 9 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-13"></a>
|
|
<a name="line-14"></a><span class='hs-comment'>{-# LINE 10 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-15"></a>
|
|
<a name="line-16"></a><span class='hs-comment'>{-# LINE 11 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-17"></a>
|
|
<a name="line-18"></a><span class='hs-comment'>{-# LINE 12 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-19"></a>
|
|
<a name="line-20"></a><span class='hs-comment'>{-# LINE 13 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-21"></a>
|
|
<a name="line-22"></a><a name="DirType"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>DirType</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-conid'>Int</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>)</span>
|
|
<a name="line-23"></a><a name="Flags"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Flags</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnsupportedFlag</span> <span class='hs-conid'>String</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>)</span>
|
|
<a name="line-24"></a>
|
|
<a name="line-25"></a><a name="unFlags"></a><span class='hs-definition'>unFlags</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
|
|
<a name="line-26"></a><span class='hs-definition'>unFlags</span> <span class='hs-layout'>(</span><span class='hs-conid'>Flags</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>i</span>
|
|
<a name="line-27"></a><span class='hs-definition'>unFlags</span> <span class='hs-layout'>(</span><span class='hs-conid'>UnsupportedFlag</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-varid'>name</span> <span class='hs-varop'>++</span> <span class='hs-str'>" is not supported on this platform"</span><span class='hs-layout'>)</span>
|
|
<a name="line-28"></a>
|
|
<a name="line-29"></a><a name="isSupported"></a><span class='hs-comment'>-- |Returns @True@ if posix-paths was compiled with support for the provided</span>
|
|
<a name="line-30"></a><span class='hs-comment'>-- flag. (As of this writing, the only flag for which this check may be</span>
|
|
<a name="line-31"></a><span class='hs-comment'>-- necessary is 'oCloexec'; all other flags will always yield @True@.)</span>
|
|
<a name="line-32"></a><span class='hs-definition'>isSupported</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span>
|
|
<a name="line-33"></a><span class='hs-definition'>isSupported</span> <span class='hs-layout'>(</span><span class='hs-conid'>Flags</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
|
|
<a name="line-34"></a><span class='hs-definition'>isSupported</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
|
|
<a name="line-35"></a>
|
|
<a name="line-36"></a><a name="oCloexec"></a><span class='hs-comment'>-- |@O_CLOEXEC@ is not supported on every POSIX platform. Use</span>
|
|
<a name="line-37"></a><span class='hs-comment'>-- @'isSupported' oCloexec@ to determine if support for @O_CLOEXEC@ was</span>
|
|
<a name="line-38"></a><span class='hs-comment'>-- compiled into your version of posix-paths. (If not, using @oCloexec@ will</span>
|
|
<a name="line-39"></a><span class='hs-comment'>-- throw an exception.)</span>
|
|
<a name="line-40"></a><span class='hs-definition'>oCloexec</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-41"></a>
|
|
<a name="line-42"></a><span class='hs-comment'>{-# LINE 34 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-43"></a><span class='hs-definition'>oCloexec</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>524288</span>
|
|
<a name="line-44"></a><span class='hs-comment'>{-# LINE 35 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-45"></a>
|
|
<a name="line-46"></a><span class='hs-comment'>{-# LINE 40 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-47"></a>
|
|
<a name="line-48"></a>
|
|
<a name="line-49"></a>
|
|
<a name="line-50"></a><span class='hs-comment'>-- If these enum declarations occur earlier in the file, haddock</span>
|
|
<a name="line-51"></a><span class='hs-comment'>-- gets royally confused about the above doc comments.</span>
|
|
<a name="line-52"></a><span class='hs-comment'>-- Probably <a href="http://trac.haskell.org/haddock/ticket/138">http://trac.haskell.org/haddock/ticket/138</a></span>
|
|
<a name="line-53"></a>
|
|
<a name="line-54"></a><a name="dtBlk"></a><span class='hs-definition'>dtBlk</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-55"></a><span class='hs-definition'>dtBlk</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>6</span>
|
|
<a name="line-56"></a><a name="dtChr"></a><span class='hs-definition'>dtChr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-57"></a><span class='hs-definition'>dtChr</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>2</span>
|
|
<a name="line-58"></a><a name="dtDir"></a><span class='hs-definition'>dtDir</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-59"></a><span class='hs-definition'>dtDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>4</span>
|
|
<a name="line-60"></a><a name="dtFifo"></a><span class='hs-definition'>dtFifo</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-61"></a><span class='hs-definition'>dtFifo</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>1</span>
|
|
<a name="line-62"></a><a name="dtLnk"></a><span class='hs-definition'>dtLnk</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-63"></a><span class='hs-definition'>dtLnk</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>10</span>
|
|
<a name="line-64"></a><a name="dtReg"></a><span class='hs-definition'>dtReg</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-65"></a><span class='hs-definition'>dtReg</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>8</span>
|
|
<a name="line-66"></a><a name="dtSock"></a><span class='hs-definition'>dtSock</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-67"></a><span class='hs-definition'>dtSock</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>12</span>
|
|
<a name="line-68"></a><a name="dtUnknown"></a><span class='hs-definition'>dtUnknown</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DirType</span>
|
|
<a name="line-69"></a><span class='hs-definition'>dtUnknown</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DirType</span> <span class='hs-num'>0</span>
|
|
<a name="line-70"></a>
|
|
<a name="line-71"></a><span class='hs-comment'>{-# LINE 48 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-72"></a>
|
|
<a name="line-73"></a><a name="oAppend"></a><span class='hs-definition'>oAppend</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-74"></a><span class='hs-definition'>oAppend</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>1024</span>
|
|
<a name="line-75"></a><a name="oAsync"></a><span class='hs-definition'>oAsync</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-76"></a><span class='hs-definition'>oAsync</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>8192</span>
|
|
<a name="line-77"></a><a name="oCreat"></a><span class='hs-definition'>oCreat</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-78"></a><span class='hs-definition'>oCreat</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>64</span>
|
|
<a name="line-79"></a><a name="oDirectory"></a><span class='hs-definition'>oDirectory</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-80"></a><span class='hs-definition'>oDirectory</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>65536</span>
|
|
<a name="line-81"></a><a name="oExcl"></a><span class='hs-definition'>oExcl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-82"></a><span class='hs-definition'>oExcl</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>128</span>
|
|
<a name="line-83"></a><a name="oNoctty"></a><span class='hs-definition'>oNoctty</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-84"></a><span class='hs-definition'>oNoctty</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>256</span>
|
|
<a name="line-85"></a><a name="oNofollow"></a><span class='hs-definition'>oNofollow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-86"></a><span class='hs-definition'>oNofollow</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>131072</span>
|
|
<a name="line-87"></a><a name="oNonblock"></a><span class='hs-definition'>oNonblock</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-88"></a><span class='hs-definition'>oNonblock</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>2048</span>
|
|
<a name="line-89"></a><a name="oRdonly"></a><span class='hs-definition'>oRdonly</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-90"></a><span class='hs-definition'>oRdonly</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>0</span>
|
|
<a name="line-91"></a><a name="oWronly"></a><span class='hs-definition'>oWronly</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-92"></a><span class='hs-definition'>oWronly</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>1</span>
|
|
<a name="line-93"></a><a name="oRdwr"></a><span class='hs-definition'>oRdwr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-94"></a><span class='hs-definition'>oRdwr</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>2</span>
|
|
<a name="line-95"></a><a name="oSync"></a><span class='hs-definition'>oSync</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-96"></a><span class='hs-definition'>oSync</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>1052672</span>
|
|
<a name="line-97"></a><a name="oTrunc"></a><span class='hs-definition'>oTrunc</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flags</span>
|
|
<a name="line-98"></a><span class='hs-definition'>oTrunc</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Flags</span> <span class='hs-num'>512</span>
|
|
<a name="line-99"></a>
|
|
<a name="line-100"></a><span class='hs-comment'>{-# LINE 50 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-101"></a>
|
|
<a name="line-102"></a><a name="pathMax"></a><span class='hs-definition'>pathMax</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
|
|
<a name="line-103"></a><span class='hs-definition'>pathMax</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>4096</span>
|
|
<a name="line-104"></a><span class='hs-comment'>{-# LINE 53 "src/System/Posix/Directory/Foreign.hsc" #-}</span>
|
|
<a name="line-105"></a>
|
|
<a name="line-106"></a><a name="unionFlags"></a><span class='hs-definition'>unionFlags</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Flags</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span>
|
|
<a name="line-107"></a><span class='hs-definition'>unionFlags</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>foldl'</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'>.</span> <span class='hs-varid'>unFlags</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-layout'>(</span><span class='hs-varop'>.|.</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-num'>0</span>
|
|
</pre></body>
|
|
</html>
|