#include <stdio.h>
#include <math.h>
#include <stdint.h>
#include <stdbool.h>
#include <assert.h>
#include "legacy_random.h"

Include dependency graph for legacy_random.c:

Functions
void	clear_checksum ()

int16_t	munge_checksum (long long value_)

double	cunningFee (double value, double precision)

unsigned	Ranrot (void)

unsigned	RanrotWithSeed (RANROTSeed *ioSeed)

RANROTSeed	MakeRanrotSeed (uint32_t seed)

RANROTSeed	RanrotSeedFromRNGSeed (RNG_Seed seed)

RANROTSeed	RanrotSeedFromRandomSeed (Random_Seed seed)

void	ranrot_srand (uint32_t seed)

float	randf (void)

float	randfWithSeed (RANROTSeed *ioSeed)

float	bellf (int n)

RANROTSeed	RANROTGetFullSeed (void)

void	RANROTSetFullSeed (RANROTSeed seed)

void	seed_RNG_only_for_planet_description (Random_Seed s_seed)

void	seed_for_planet_description (Random_Seed s_seed)

RNG_Seed	currentRandomSeed (void)

void	setRandomSeed (RNG_Seed a_seed)

int	gen_rnd_number (void)

uint32_t	OOReallyRandom (void)

void	OOInitReallyRandom (uint64_t seed)

void	OOSetReallyRandomRANROTSeed (void)

void	OOSetReallyRandomRndSeed (void)

void	OOSetReallyRandomRANROTAndRndSeeds (void)

OORandomState	OOSaveRandomState (void)

void	OORestoreRandomState (OORandomState state)

void	make_pseudo_random_seed (Random_Seed *seed_ptr)

void	rotate_seed (Random_Seed *seed_ptr)

Variables
const Random_Seed	kNilRandomSeed = {0}

static RNG_Seed	rnd_seed

static int32_t	checksum

static RANROTSeed	sRANROT

static bool	sReallyRandomInited = false

static RANROTSeed	sReallyRandomSeed

Function Documentation

◆ bellf()

float bellf ( int n )

Definition at line 168 of file legacy_random.c.

{
    int i = n;
    float total = 0;
    
    if (EXPECT_NOT(i <= 0))
    {
        printf("***** ERROR - attempt to generate bellf(%d)\n", n);
        return 0.0f; // catch possible div-by-zero problem
    }
    
    while (i-- > 0)
        total += (Ranrot() & 1023);
    return total / (1024.0f * n);
}

References EXPECT_NOT, and Ranrot().

Here is the call graph for this function:

◆ clear_checksum()

void clear_checksum ( void )

Definition at line 42 of file legacy_random.c.

{
    checksum = 0;
}

References checksum.

◆ cunningFee()

double cunningFee	(	double	value,
		double	precision
	)

Definition at line 62 of file legacy_random.c.

{
    double fee = value;
    double superfee = 100000.0;
    double max = 1 + precision;
    double min = 1 - precision;
    unsigned long long rounded_fee = superfee * floor(0.5 + fee / superfee);
    if (rounded_fee == 0)  rounded_fee = 1;
    double ratio = fee / (double)rounded_fee;
    
    while ((ratio < min || ratio > max) && superfee > 1)
    {
        rounded_fee = superfee * floor(0.5 + fee / superfee);
        if (rounded_fee == 0)  rounded_fee = 1;
        ratio = fee / (double)rounded_fee;
        superfee /= 10.0;
    }
    
    if (ratio > min && ratio < max)
        fee = rounded_fee;
    
    return fee;
}

◆ currentRandomSeed()

RNG_Seed currentRandomSeed ( void )

Definition at line 213 of file legacy_random.c.

{
    return rnd_seed;
}

References rnd_seed.

Referenced by GlobalRandomName(), and OOPlanetEntity::initFromDictionary:withAtmosphere:andSeed:forSystem:.

Here is the caller graph for this function:

◆ gen_rnd_number()

int gen_rnd_number ( void )

Definition at line 225 of file legacy_random.c.

{
    int a,x;
    
    x = (rnd_seed.a * 2) & 0xFF;
    a = x + rnd_seed.c;
    if (rnd_seed.a > 127)
        a++;
    rnd_seed.a = a & 0xFF;
    rnd_seed.c = x;
    
    a = a / 256;    /* a = any carry left from above */
    x = rnd_seed.b;
    a = (a + x + rnd_seed.d) & 0xFF;
    rnd_seed.b = a;
    rnd_seed.d = x;
    return a;
}

References RNG_Seed::a, RNG_Seed::b, RNG_Seed::c, RNG_Seed::d, rnd_seed, and x.

Referenced by make_pseudo_random_seed(), OldRandomDigrams(), and OOPlanetEntity::RandomHSBColor(void).

Here is the caller graph for this function:

◆ make_pseudo_random_seed()

void make_pseudo_random_seed ( Random_Seed * seed_ptr )

Definition at line 309 of file legacy_random.c.

{
    seed_ptr->a = gen_rnd_number();
    seed_ptr->b = gen_rnd_number();
    seed_ptr->c = gen_rnd_number();
    seed_ptr->d = gen_rnd_number();
    seed_ptr->e = gen_rnd_number();
    seed_ptr->f = gen_rnd_number();
}

References Random_Seed::a, Random_Seed::b, Random_Seed::c, Random_Seed::d, Random_Seed::e, Random_Seed::f, and gen_rnd_number().

Referenced by GlobalRandomInhabitantsDescription().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ MakeRanrotSeed()

RANROTSeed MakeRanrotSeed ( uint32_t seed )

Definition at line 113 of file legacy_random.c.

{
    RANROTSeed result =
    {
        .low = seed,
        .high = ~seed
    };
    
    // Mix it up a bit.
    RanrotWithSeed(&result);
    RanrotWithSeed(&result);
    RanrotWithSeed(&result);
 
    return result;
}

References RANROTSeed::low, and RanrotWithSeed().

Referenced by ranrot_srand(), and RanrotSeedFromRNGSeed().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ munge_checksum()

int16_t munge_checksum ( long long value_ )

Definition at line 48 of file legacy_random.c.

{
    uint32_t value = (uint32_t)value_;
    int32_t mult1 = (value & 15) + 8;
    checksum += value;
    checksum *= mult1;
    checksum += mult1;
    checksum &= 0xffff;
    return checksum;
}

References checksum.

◆ OOInitReallyRandom()

void OOInitReallyRandom ( uint64_t seed )

Definition at line 256 of file legacy_random.c.

{
    assert(!sReallyRandomInited);
    seed ^= 0xA471D52AEF3B6322ULL;
    sReallyRandomSeed.high = (seed >> 32) & 0xFFFFFFFF;
    sReallyRandomSeed.low = seed  & 0xFFFFFFFF;
    sReallyRandomInited = true;
    OOReallyRandom();
}

References RANROTSeed::high, RANROTSeed::low, OOReallyRandom(), sReallyRandomInited, and sReallyRandomSeed.

Here is the call graph for this function:

◆ OOReallyRandom()

uint32_t OOReallyRandom ( void )

Definition at line 249 of file legacy_random.c.

{
    assert(sReallyRandomInited);
    return RanrotWithSeed(&sReallyRandomSeed);
}

References RanrotWithSeed(), sReallyRandomInited, and sReallyRandomSeed.

Referenced by OOInitReallyRandom(), OOSetReallyRandomRANROTSeed(), and OOSetReallyRandomRndSeed().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ OORestoreRandomState()

void OORestoreRandomState ( OORandomState state )

Definition at line 302 of file legacy_random.c.

{
    sRANROT = state.ranrot;
    rnd_seed = state.rnd;
}

References OORandomState::ranrot, OORandomState::rnd, rnd_seed, and sRANROT.

Referenced by OOExpandDescriptionString().

Here is the caller graph for this function:

◆ OOSaveRandomState()

OORandomState OOSaveRandomState ( void )

Definition at line 292 of file legacy_random.c.

{
    return (OORandomState)
    {
        .ranrot = sRANROT,
        .rnd = rnd_seed
    };
}

References OORandomState::ranrot, rnd_seed, and sRANROT.

Referenced by OOExpandDescriptionString().

Here is the caller graph for this function:

◆ OOSetReallyRandomRANROTAndRndSeeds()

void OOSetReallyRandomRANROTAndRndSeeds ( void )

Definition at line 285 of file legacy_random.c.

{
    OOSetReallyRandomRANROTSeed();
    OOSetReallyRandomRndSeed();
}

References OOSetReallyRandomRANROTSeed(), and OOSetReallyRandomRndSeed().

Referenced by OOExpandDescriptionString().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ OOSetReallyRandomRANROTSeed()

void OOSetReallyRandomRANROTSeed ( void )

Definition at line 267 of file legacy_random.c.

{
    assert(sReallyRandomInited);
    sRANROT = sReallyRandomSeed;
    OOReallyRandom();   // Don't go reusing it.
}

References OOReallyRandom(), sRANROT, sReallyRandomInited, and sReallyRandomSeed.

Referenced by OOSetReallyRandomRANROTAndRndSeeds().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ OOSetReallyRandomRndSeed()

void OOSetReallyRandomRndSeed ( void )

Definition at line 275 of file legacy_random.c.

{
    uint32_t val = OOReallyRandom();
    rnd_seed.a = (val >> 24) & 0xFF;
    rnd_seed.b = (val >> 16) & 0xFF;
    rnd_seed.c = (val >> 8) & 0xFF;
    rnd_seed.d = val & 0xFF;
}

References RNG_Seed::a, RNG_Seed::b, RNG_Seed::c, RNG_Seed::d, OOReallyRandom(), and rnd_seed.

Referenced by OOSetReallyRandomRANROTAndRndSeeds().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ randf()

float randf ( void )

Definition at line 156 of file legacy_random.c.

{
    return (Ranrot() & 0xffff) * (1.0f / 65536.0f);
}

References Ranrot().

Referenced by WormholeEntity::DrawWormholeCorona, fillRanNoiseBuffer(), OOFuzzyBooleanFromObject(), OOHPRandomPositionInBoundingBox(), OOHPVectorRandomRadial(), OOHPVectorRandomSpatial(), OORandomPositionInBoundingBox(), OORandomPositionInCylinder(), OORandomUnitHPVector(), OORandomUnitVector(), OOVectorRandomRadial(), and OOVectorRandomSpatial().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ randfWithSeed()

float randfWithSeed ( RANROTSeed * ioSeed )

Definition at line 162 of file legacy_random.c.

{
    return (RanrotWithSeed(ioSeed) & 0xffff) * (1.0f / 65536.0f);
}

References RanrotWithSeed().

Here is the call graph for this function:

◆ Ranrot()

unsigned Ranrot ( void )

Definition at line 93 of file legacy_random.c.

{
    sRANROT.high = (sRANROT.high << 16) + (sRANROT.high >> 16);
    sRANROT.high += sRANROT.low;
    sRANROT.low += sRANROT.high;
    return sRANROT.high & 0x7FFFFFFF;
}

References RANROTSeed::high, RANROTSeed::low, and sRANROT.

Referenced by bellf(), GlobalRandomName(), quaternion_set_random(), randf(), Octree::randomFullNodeFrom, StationAddShipToShipyard(), and SVGDumpBeginPrimitive().

Here is the caller graph for this function:

◆ ranrot_srand()

void ranrot_srand ( uint32_t seed )

Definition at line 150 of file legacy_random.c.

{
    sRANROT = MakeRanrotSeed(seed);
}

References MakeRanrotSeed(), and sRANROT.

Here is the call graph for this function:

◆ RANROTGetFullSeed()

RANROTSeed RANROTGetFullSeed ( void )

Definition at line 185 of file legacy_random.c.

{
    return sRANROT;
}

References sRANROT.

Referenced by fillRanNoiseBuffer(), and OOPlanetEntity::initFromDictionary:withAtmosphere:andSeed:forSystem:.

Here is the caller graph for this function:

◆ RanrotSeedFromRandomSeed()

RANROTSeed RanrotSeedFromRandomSeed ( Random_Seed seed )

Definition at line 136 of file legacy_random.c.

{
    // Same pattern as seed_for_planet_description().
    RNG_Seed s =
    {
        .a = seed.c,
        .b = seed.d,
        .c = seed.e,
        .d = seed.f
    };
    return RanrotSeedFromRNGSeed(s);
}

References RNG_Seed::a, Random_Seed::c, Random_Seed::d, Random_Seed::e, Random_Seed::f, and RanrotSeedFromRNGSeed().

Here is the call graph for this function:

◆ RanrotSeedFromRNGSeed()

RANROTSeed RanrotSeedFromRNGSeed ( RNG_Seed seed )

Definition at line 130 of file legacy_random.c.

{
    return MakeRanrotSeed(seed.a * 0x1000000 + seed.b * 0x10000 + seed.c * 0x100 + seed.d);
}

References RNG_Seed::a, RNG_Seed::b, RNG_Seed::c, RNG_Seed::d, and MakeRanrotSeed().

Referenced by RanrotSeedFromRandomSeed(), and seed_for_planet_description().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ RANROTSetFullSeed()

void RANROTSetFullSeed ( RANROTSeed seed )

Definition at line 191 of file legacy_random.c.

{
    sRANROT = seed;
}

References sRANROT.

Referenced by OOPlanetEntity::initFromDictionary:withAtmosphere:andSeed:forSystem:.

Here is the caller graph for this function:

◆ RanrotWithSeed()

unsigned RanrotWithSeed ( RANROTSeed * ioSeed )

Definition at line 102 of file legacy_random.c.

{
    assert(ioSeed != NULL);
    
    ioSeed->high = (ioSeed->high << 16) + (ioSeed->high >> 16);
    ioSeed->high += ioSeed->low;
    ioSeed->low += ioSeed->high;
    return ioSeed->high & 0x7FFFFFFF;
}

References RANROTSeed::high, and RANROTSeed::low.

Referenced by MakeRanrotSeed(), OOReallyRandom(), and randfWithSeed().

Here is the caller graph for this function:

◆ rotate_seed()

void rotate_seed ( Random_Seed * seed_ptr )

Definition at line 320 of file legacy_random.c.

{
    uint_fast16_t x;
    uint_fast16_t y;
    
    /*  Note: this is equivalent to adding three (little-endian) 16-bit values
        together, rotating the three numbers and replacing one of them with
        the sum. The byte-oriented approach is presumably because it was
        reverse-engineered from eight-bit machine code. Switching to a plain
        sixteen-bit representation is more trouble than it's worth since so
        much code uses byte values from the seed struct directly.
    */
    x = seed_ptr->a + seed_ptr->c + seed_ptr->e;
    y = seed_ptr->b + seed_ptr->d + seed_ptr->f;
    
    seed_ptr->a = seed_ptr->c;
    seed_ptr->b = seed_ptr->d;
    
    seed_ptr->c = seed_ptr->e;
    seed_ptr->d = seed_ptr->f;
    
    seed_ptr->e = x;
    seed_ptr->f = y + (x >> 8);
}

References Random_Seed::a, Random_Seed::b, Random_Seed::c, Random_Seed::d, Random_Seed::e, Random_Seed::f, x, and y.

◆ seed_for_planet_description()

void seed_for_planet_description ( Random_Seed s_seed )

Definition at line 206 of file legacy_random.c.

{
    seed_RNG_only_for_planet_description(s_seed);
    sRANROT = RanrotSeedFromRNGSeed(rnd_seed);
}

References RanrotSeedFromRNGSeed(), rnd_seed, seed_RNG_only_for_planet_description(), and sRANROT.

Referenced by OOPlanetEntity::initFromDictionary:withAtmosphere:andSeed:forSystem:.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ seed_RNG_only_for_planet_description()

void seed_RNG_only_for_planet_description ( Random_Seed s_seed )

Definition at line 197 of file legacy_random.c.

{
    rnd_seed.a = s_seed.c;
    rnd_seed.b = s_seed.d;
    rnd_seed.c = s_seed.e;
    rnd_seed.d = s_seed.f;
}

References RNG_Seed::a, RNG_Seed::b, Random_Seed::c, RNG_Seed::c, Random_Seed::d, RNG_Seed::d, Random_Seed::e, Random_Seed::f, and rnd_seed.

Referenced by OOGenerateSystemDescription(), and seed_for_planet_description().

Here is the caller graph for this function:

◆ setRandomSeed()

void setRandomSeed ( RNG_Seed a_seed )

Definition at line 219 of file legacy_random.c.

{
    rnd_seed = a_seed;
}

References rnd_seed.

Referenced by GlobalRandomName(), and OOPlanetEntity::initFromDictionary:withAtmosphere:andSeed:forSystem:.

Here is the caller graph for this function:

Variable Documentation

◆ checksum

int32_t checksum

static

Definition at line 41 of file legacy_random.c.

Referenced by clear_checksum(), and munge_checksum().

◆ kNilRandomSeed

const Random_Seed kNilRandomSeed = {0}

Definition at line 34 of file legacy_random.c.

34{0};

Referenced by GlobalExpandDescription(), GlobalExpandMissionText(), is_nil_seed(), and RandomSeedFromString().

◆ rnd_seed

RNG_Seed rnd_seed

static

Definition at line 37 of file legacy_random.c.

Referenced by currentRandomSeed(), gen_rnd_number(), OORestoreRandomState(), OOSaveRandomState(), OOSetReallyRandomRndSeed(), seed_for_planet_description(), seed_RNG_only_for_planet_description(), and setRandomSeed().

◆ sRANROT

RANROTSeed sRANROT

static

Definition at line 90 of file legacy_random.c.

Referenced by OORestoreRandomState(), OOSaveRandomState(), OOSetReallyRandomRANROTSeed(), Ranrot(), ranrot_srand(), RANROTGetFullSeed(), RANROTSetFullSeed(), and seed_for_planet_description().

◆ sReallyRandomInited

bool sReallyRandomInited = false

static

Definition at line 245 of file legacy_random.c.

Referenced by OOInitReallyRandom(), OOReallyRandom(), and OOSetReallyRandomRANROTSeed().

◆ sReallyRandomSeed

RANROTSeed sReallyRandomSeed

static

Definition at line 246 of file legacy_random.c.

Referenced by OOInitReallyRandom(), OOReallyRandom(), and OOSetReallyRandomRANROTSeed().

Functions

Variables

Function Documentation

◆ bellf()

◆ clear_checksum()

◆ cunningFee()

◆ currentRandomSeed()

◆ gen_rnd_number()

◆ make_pseudo_random_seed()

◆ MakeRanrotSeed()

◆ munge_checksum()

◆ OOInitReallyRandom()

◆ OOReallyRandom()

◆ OORestoreRandomState()

◆ OOSaveRandomState()

◆ OOSetReallyRandomRANROTAndRndSeeds()

◆ OOSetReallyRandomRANROTSeed()

◆ OOSetReallyRandomRndSeed()

◆ randf()

◆ randfWithSeed()

◆ Ranrot()

◆ ranrot_srand()

◆ RANROTGetFullSeed()

◆ RanrotSeedFromRandomSeed()

◆ RanrotSeedFromRNGSeed()

◆ RANROTSetFullSeed()

◆ RanrotWithSeed()

◆ rotate_seed()

◆ seed_for_planet_description()

◆ seed_RNG_only_for_planet_description()

◆ setRandomSeed()

Variable Documentation

◆ checksum

◆ kNilRandomSeed

◆ rnd_seed

◆ sRANROT

◆ sReallyRandomInited

◆ sReallyRandomSeed