Re: [Caml-list] Solved! (was Re: Mac OSX getsocketpair/getsockname and IPv6)

[Paul Snively <psnively@mac.com>]

So: if a Mac OS X O'Caml user wanted to solve this, what is the  
actual solution? Surely it's not:

case AF_UNSPEC:
case AF_UNIX:

in socketaddr.c?

Many thanks and best regards,
Paul

On May 5, 2007, at 8:16 AM, Joel Reymont wrote:

> The culprit is in alloc_sockaddr [1].
>
> adr->s_gen.sa_family is 0 which stands for AF_UNSPEC in my /usr/ 
> include/sys/socket.h.
>
> alloc_sockaddr does not handle this family type and throws  
> EAFNOSUPPORT.
>
> I'm inclined to think that ocamlnet should be fixed and not the  
> OCaml library, although it would be helpful if an error different  
> from EAFNOSUPPORT was used.
>
> I would have been most helpful to have a stack trace on exception  
> as this would have allowed me to narrow down the source of the  
> problem in no time rather than going spelunking through ocamlnet  
> and OCaml networking libraries.
>
> 	Thanks, Joel
>
> [1] otherlibs/unix/socketaddr.c
>
> value alloc_sockaddr(union sock_addr_union * adr /*in*/,
>                      socklen_param_type adr_len, int close_on_error)
> {
>   value res;
>   switch(adr->s_gen.sa_family) {
> #ifndef _WIN32
>   case AF_UNIX:
>     { value n = copy_string(adr->s_unix.sun_path);
>       Begin_root (n);
>         res = alloc_small(1, 0);
>         Field(res,0) = n;
>       End_roots();
>       break;
>     }
> #endif
>   case AF_INET:
>     { value a = alloc_inet_addr(&adr->s_inet.sin_addr);
>       Begin_root (a);
>         res = alloc_small(2, 1);
>         Field(res,0) = a;
>         Field(res,1) = Val_int(ntohs(adr->s_inet.sin_port));
>       End_roots();
>       break;
>     }
> #ifdef HAS_IPV6
>   case AF_INET6:
>     { value a = alloc_inet6_addr(&adr->s_inet6.sin6_addr);
>       Begin_root (a);
>         res = alloc_small(2, 1);
>         Field(res,0) = a;
>         Field(res,1) = Val_int(ntohs(adr->s_inet6.sin6_port));
>       End_roots();
>       break;
>     }
> #endif
>   default:
>     if (close_on_error != -1) close (close_on_error);
>     unix_error(EAFNOSUPPORT, "", Nothing);
>   }
>   return res;
> }
>
> --
> http://wagerlabs.com/
>
>
>
>
>
> _______________________________________________
> Caml-list mailing list. Subscription management:
> http://yquem.inria.fr/cgi-bin/mailman/listinfo/caml-list
> Archives: http://caml.inria.fr
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs