(************************************************************
   ipv6_wget.ml		Created      : Sat Aug 28 15:03:34 2004
  			Last modified: Sat Aug 28 15:25:36 2004
  Compile: ocamlc -dtypes unix.cma ipv6_wget.ml -o ipv6_wget #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)

open Unix

let _ =
  let s = socket PF_INET6 SOCK_STREAM 0 in
  let request_str = "GET /~tak/ HTTP/1.0\r\n\r\n" in
  let len = String.length request_str in
  let buf = String.make 1024 '\000' in
  begin
    connect s (ADDR_INET(inet6_addr_loopback ,80));
    ignore (Unix.send s request_str 0 len []);
    let rec iter () = 
      let len = Unix.recv s buf 0 1024 [] in
      if len = 0 then
	print_newline ()
      else
	begin
	  print_string (String.sub buf 0 len);
	  iter ()
	end in
    iter ();
    shutdown s SHUTDOWN_ALL
  end
    
(*
 * Local Variables:
 *  namazu-default-dir "/home/tak/.indexes/ocaml"
 * End:
 *)