<commit_before>{-# OPTIONS -fglasgow-exts -cpp #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  System.Sendfile
-- Copyright   :  (c) <NAME> 2003
-- License     :  BSD-style (see the file libraries/core/LICENSE)
-- 
-- Maintainer  :  <EMAIL>
-- Stability   :  provisional
-- Portability :  provides fallback
--
-- 'System.Sendfile.sendfile' is a low-level method for efficently passing
-- data from one file descriptor to another.
-- The intended audience includes for example web server authors. Please
-- note that this function is highly platform dependent.
--
-----------------------------------------------------------------------------

module System.Sendfile (
  -- * Haskell wrappers
  sendfile,
  sendfileByName,
  -- * Fallback implementation
  squirt

) where

#include "config.h"
#include "HsUnix.h"

import Foreign
import Foreign.C
import System.IO
import System.Posix.IO
import System.Posix.Types	( Fd, COff )
import Control.Exception	( bracket )
import Control.Monad		( unless)<commit_msg>[project @ 2003-05-18 06:47:42 by stolz] - My fault, so take ownership - Strip unnecessary #include while here<commit_after>{-# OPTIONS -fglasgow-exts -cpp #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  System.Sendfile
-- Copyright   :  (c) <NAME> 2003 <<EMAIL>>
-- License     :  BSD-style (see the file libraries/core/LICENSE)
-- 
-- Maintainer  :  <EMAIL>
-- Stability   :  provisional
-- Portability :  provides fallback
--
-- 'System.Sendfile.sendfile' is a low-level method for efficently passing
-- data from one file descriptor to another.
-- The intended audience includes for example web server authors. Please
-- note that this function is highly platform dependent.
--
-----------------------------------------------------------------------------

module System.Sendfile (
  -- * Haskell wrappers
  sendfile,
  sendfileByName,
  -- * Fallback implementation
  squirt

) where

#include "HsUnix.h"

import Foreign
import Foreign.C
import System.IO
import System.Posix.IO
import System.Posix.Types	( Fd, COff )
import Control.Exception	( bracket )
import Control.Monad		( unless)
{'fraction_non_alphanumeric': 0.23606705935659267, 'fraction_numerical': 0.009968282736746714, 'mean_word_length': 1.9052631578947368, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5243590', 'n_tokens_mistral': 627, 'n_tokens_neox': 597, 'n_words': 188}