/*
 * magic.c - PPP Magic Number routines.
 *
 * Copyright (c) 1989 Carnegie Mellon University.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by Carnegie Mellon University.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

char magic_rcsid[] = "$Id: magic.c,v 1.3 1997/05/19 10:16:11 hipp Exp $";

#include <stdio.h>
#include <sys/types.h>
#include <sys/time.h>
#include <unistd.h>

#include <sys/utsname.h>

#include "fsm.h"
#include "ipppd.h"
#include "magic.h"

#if 0
static u_int32_t next;		/* Next value to return */
#endif

extern long mrand48 __P((void));
extern void srand48 __P((long));


/*
 * magic_init - Initialize the magic number generator.
 *
 * Attempts to compute a random number seed which will not repeat.
 * The current method uses the current hostid, current process ID
 * and current time, currently.
 */
void
magic_init()
{
    long seed;
    struct timeval t;
    struct utsname uts;
    unsigned long val=0x12345678;
    int i;

    gettimeofday(&t, NULL);
    if(uname(&uts)==0) {
	unsigned char *p = (unsigned char *) &uts;
	int len = sizeof(struct utsname);
	int step=47;
	if(len % step == 0)	/* unlikely, but ;) */
		step = 43;
	for(i=0;i<len;i++) {
		if(val & 0x80000000)
			val = ( (val<<1) + p[ (i*step)%len ]) + 1;
		else
			val = ( (val<<1) + p[ (i*step)%len ]);
		val &= 0xffffffff;
	}
    }
    else
       val = gethostid();
   
    seed = val ^ t.tv_sec ^ t.tv_usec ^ getpid();
    srand48(seed);
}

/*
 * magic - Returns the next magic number.
 */
u_int32_t
magic(void)
{
    return (u_int32_t) mrand48();
}

#ifdef NO_DRAND48
/*
 * Substitute procedures for those systems which don't have
 * drand48 et al.
 */

double
drand48()
{
    return (double)random() / (double)0x7fffffffL; /* 2**31-1 */
}

long
mrand48()
{
    return random();
}

void
srand48(seedval)
long seedval;
{
    srandom((int)seedval);
}

#endif