anchor.diff:  		 end,
       start_response({Code, HResponse1});
   respond({Code, ResponseHeaders, Body}) ->
  -    Length = iolist_size(Body),
  -    HResponse = mochiweb_headers:make(ResponseHeaders),
  -    HResponse1 = mochiweb_headers:enter("Content-Length", Length, HResponse),
  -    Response = start_response({Code, HResponse1}),
  +    Response = start_response_length({Code, ResponseHeaders, iolist_size(Body)}),
       case Method of
   	'HEAD' ->
   	    ok;
  
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: -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_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]).
  