2019-01-21 15:00:04 +01:00
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
// GNU GPL OS/K //
|
|
|
|
|
// //
|
2019-02-16 23:36:33 +01:00
|
|
|
// Desc: Random related functions //
|
2019-01-21 15:00:04 +01:00
|
|
|
// //
|
2019-02-16 23:36:33 +01:00
|
|
|
// //
|
|
|
|
|
// Copyright © 2018-2019 The OS/K Team //
|
|
|
|
|
// //
|
|
|
|
|
// This file is part of OS/K. //
|
|
|
|
|
// //
|
|
|
|
|
// OS/K 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 //
|
|
|
|
|
// any later version. //
|
|
|
|
|
// //
|
|
|
|
|
// OS/K 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 OS/K. If not, see <https://www.gnu.org/licenses/>. //
|
2019-01-21 15:00:04 +01:00
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
|
|
|
|
|
#include <kalbase.h>
|
|
|
|
|
|
2019-02-16 23:36:33 +01:00
|
|
|
// XXX Move to header
|
|
|
|
|
#define RAND_MAX (1 << 30)
|
|
|
|
|
|
2019-01-21 15:00:04 +01:00
|
|
|
//
|
|
|
|
|
// Seed value
|
|
|
|
|
//
|
|
|
|
|
static ulong next = 7756;
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// Returns a pseudo-random integer
|
|
|
|
|
// To be improved
|
|
|
|
|
//
|
|
|
|
|
int rand(void)
|
|
|
|
|
{
|
|
|
|
|
next = next * 1103515245 + 12347;
|
2019-02-16 23:36:33 +01:00
|
|
|
return (uint)(next / 65536) % RAND_MAX;
|
2019-01-21 15:00:04 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// (Re)Set the random seed
|
|
|
|
|
//
|
|
|
|
|
void srand(uint seed)
|
|
|
|
|
{
|
|
|
|
|
next = (ulong)seed;
|
|
|
|
|
}
|
|
|
|
|
|
