common/lib/libc/net/htonl.c

   1 /*      $NetBSD: htonl.c,v 1.1 2005/12/20 19:28:51 christos Exp $       */
   2
   3 /*
   4  * Written by J.T. Conklin <jtc@NetBSD.org>.
   5  * Public domain.
   6  */
   7
   8 #include <sys/cdefs.h>
   9 #if defined(LIBC_SCCS) && !defined(lint)
  10 __RCSID("$NetBSD: htonl.c,v 1.1 2005/12/20 19:28:51 christos Exp $");
  11 #endif
  12
  13 #include <sys/types.h>
  14
  15 #undef htonl
  16
  17 uint32_t
  18 htonl(x)
  19         uint32_t x;
  20 {
  21 #if BYTE_ORDER == LITTLE_ENDIAN
  22         u_char *s = (u_char *)&x;
  23         return (uint32_t)(s[0] << 24 | s[1] << 16 | s[2] << 8 | s[3]);
  24 #else
  25         return x;
  26 #endif
  27 }