sgetl.c

操作系统SunOS 4.1.3版本的源码

/*	@(#)sgetl.c 1.1 92/07/30 SMI	*/
/*
 * Provide machine independent transfer of longs.
 */

/*
 * The intent here is to provide a means to make the value of
 * bytes in an io-buffer correspond to the value of a long
 * in the memory while doing the io a `long' at a time.
 * Files written and read in this way are machine-independent.
 *
 */
#include <values.h>

long  sgetl(buffer)
register char *buffer;
{
	 register long l = 0;
	 register int i = BITSPERBYTE * sizeof(long);

	 while ((i -= BITSPERBYTE) >= 0)
			 l |= (short) ((unsigned char) *buffer++) << i;
	 return  l;
 }