anchor.diff:  -include_lib("kernel/include/file.hrl").
   
   -define(QUIP, "Any of you quaids got a smint?").
  +-define(READ_SIZE, 8192).
   
   -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([start_response/1, start_response_length/1, start_raw_response/1]).
  +-export([respond/1, ok/1]).
   -export([not_found/0]).
   -export([parse_post/0, parse_qs/0]).
   -export([should_close/0, cleanup/0]).
  
positive.code: 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.
  
  parts_to_body([{Start, End, Body}], ContentType, Size) ->
      %% return body for a range reponse with a single body
  
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;
  