NetBSD/lib/libc/stdlib/nrand48.c

/*	$NetBSD: nrand48.c,v 1.9 2005/06/12 05:21:28 lukem Exp $	*/

/*
 * Copyright (c) 1993 Martin Birgmeier
 * All rights reserved.
 *
 * You may redistribute unmodified or modified versions of this source
 * code provided that the above copyright notice and this and the
 * following conditions are retained.
 *
 * This software is provided ``as is'', and comes with no warranties
 * of any kind. I shall in no event be liable for anything that happens
 * to anyone/anything when using this software.
 */

#include <sys/cdefs.h>
#if defined(LIBC_SCCS) && !defined(lint)
__RCSID("$NetBSD: nrand48.c,v 1.9 2005/06/12 05:21:28 lukem Exp $");
#endif /* LIBC_SCCS and not lint */

#include "namespace.h"

#include <assert.h>

#include "rand48.h"

#ifdef __weak_alias
__weak_alias(nrand48,_nrand48)
#endif

long
nrand48(unsigned short xseed[3])
{
	_DIAGASSERT(xseed != NULL);

	__dorand48(xseed);
	return (long)((unsigned long) xseed[2] << 15) +
	    ((unsigned long) xseed[1] >> 1);
}
Add missing __RCSID() 2005-06-12 09:21:25 +04:00			`/* $NetBSD: nrand48.c,v 1.9 2005/06/12 05:21:28 lukem Exp $ */`
RCS Id Police. 1998-01-09 06:15:09 +03:00
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier) 1993-10-07 22:53:35 +03:00			`/*`
			`* Copyright (c) 1993 Martin Birgmeier`
			`* All rights reserved.`
			`*`
			`* You may redistribute unmodified or modified versions of this source`
			`* code provided that the above copyright notice and this and the`
			`* following conditions are retained.`
			`*`
			* This software is provided ``as is'', and comes with no warranties
			`* of any kind. I shall in no event be liable for anything that happens`
			`* to anyone/anything when using this software.`
			`*/`

Add missing __RCSID() 2005-06-12 09:21:25 +04:00			`#include <sys/cdefs.h>`
			`#if defined(LIBC_SCCS) && !defined(lint)`
			`__RCSID("$NetBSD: nrand48.c,v 1.9 2005/06/12 05:21:28 lukem Exp $");`
			`#endif /* LIBC_SCCS and not lint */`

If port provides __weak_alias(), provide an Standard C and POSIX pure identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>. 1997-07-21 18:06:24 +04:00			`#include "namespace.h"`
* use _DIAGASSERT() to check pointer arguments against NULL and file descriptors against -1 (as appropriate). * add actual checks which to detect stuff that would trigger_DIAGASSERT(), and attempt to return a sane error condition. * knf some code * remove some `register' decls. the first two items result in the addition of code similar to the following in various functions: _DIAGASSERT(path != NULL) #ifdef _DIAGNOSTIC if (path == NULL) { errno = EFAULT; return (-1); } #endif 1999-09-16 15:44:54 +04:00
			`#include <assert.h>`

Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier) 1993-10-07 22:53:35 +03:00			`#include "rand48.h"`

If port provides __weak_alias(), provide an Standard C and POSIX pure identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>. 1997-07-21 18:06:24 +04:00			`#ifdef __weak_alias`
Delint. Remove trailing ; from uses of __weak_alias(). The macro inserts this if needed. 2000-01-23 01:19:07 +03:00			`__weak_alias(nrand48,_nrand48)`
If port provides __weak_alias(), provide an Standard C and POSIX pure identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>. 1997-07-21 18:06:24 +04:00			`#endif`

Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier) 1993-10-07 22:53:35 +03:00			`long`
			`nrand48(unsigned short xseed[3])`
			`{`
* use _DIAGASSERT() to check pointer arguments against NULL and file descriptors against -1 (as appropriate). * add actual checks which to detect stuff that would trigger_DIAGASSERT(), and attempt to return a sane error condition. * knf some code * remove some `register' decls. the first two items result in the addition of code similar to the following in various functions: _DIAGASSERT(path != NULL) #ifdef _DIAGNOSTIC if (path == NULL) { errno = EFAULT; return (-1); } #endif 1999-09-16 15:44:54 +04:00			`_DIAGASSERT(xseed != NULL);`

Change _dorand48 to __dorand48, as _dorand48 is in the user's namespace. 1993-10-14 00:55:04 +03:00			`__dorand48(xseed);`
delint 1998-11-15 20:13:51 +03:00			`return (long)((unsigned long) xseed[2] << 15) +`
			`((unsigned long) xseed[1] >> 1);`
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier) 1993-10-07 22:53:35 +03:00			`}`