anchor.diff:  make_version(_) ->
       <<"HTTP/1.1 ">>.
   
  -
  -
  -
  -
  -read_iodevice(IoDevice) ->
  -    case file:position(IoDevice, eof) of
  -        {ok, 0} ->
  -            {ok, <<>>};
  -        {ok, Size} ->
  -            {ok, Data} = file:pread(IoDevice, 0, Size),
  -            {ok, Data}
  -    end.
  +iodevice_stream(IoDevice) ->
  +    case file:read(IoDevice, ?READ_SIZE) of
  +        eof ->
  +            ok;
  +        {ok, Data} ->
  +            ok = send(Data),
  +            iodevice_stream(IoDevice)
  +    end.
  +
   
   parts_to_body([{Start, End, Body}], ContentType, Size) ->
       %% return body for a range reponse with a single body
  
positive.code: -include_lib("kernel/include/file.hrl").
  
  -define(QUIP, "Any of you quaids got a smint?").
  
  -export([get_header_value/1, get_primary_header_value/1, get/1, dump/0]).
  -export([send/1, recv/1, recv/2, recv_body/0, recv_body/1]).
  -export([start_response/1, start_raw_response/1, respond/1, ok/1]).
  -export([not_found/0]).
  -export([parse_post/0, parse_qs/0]).
  -export([should_close/0, cleanup/0]).
  
negative.code: 		 end,
      start_response({Code, HResponse1});
  respond({Code, ResponseHeaders, Body}) ->
      Response = start_response_length({Code, ResponseHeaders, iolist_size(Body)}),
      case Method of
  	'HEAD' ->
  	    ok;
  