path: root/src/arpa/inet/htonl.c

/**
 * slibc — Yet another C library
 * Copyright © 2015  Mattias Andrée (maandree@member.fsf.org)
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
#include <arpa/inet.h>
#include <bits/intconf.h>



/**
 * Convert a 32-bit quantity from host byte order
 * (little endian) to network byte order.
 * 
 * @etymology  (H)ost byte order (to) (n)etwork byte order, (l)ong.
 * 
 * @param   value  A 32-bit quantity to convert.
 * @return         The value in network byte order.
 * 
 * @since  Always.
 */
uint32_t _htonl(uint32_t value)
{
#if __INT32_BYTEORDER == 0x01020304L
  return value;
#elif __INT32_BYTEORDER == 0x04030201L
  return (value >> 24) | ((value & 0xFF0000) >> 8) | ((value & 0x00FF00) << 8) | (value << 24);
#elif __INT32_BYTEORDER == 0x02010403L
  return (value & 0xFF00FF00) >> 8) | ((value & 0x00FF00FF) << 8);
#else
  char rc[4];
  rc[0] = (value >> 24) & 255;
  rc[1] = (value >> 16) & 255;
  rc[2] = (value >>  8) & 255;
  rc[3] = (value >>  0) & 255;
  return *(uint32_t*)rc;
#endif
}