/* prim_test.c
 * vi:ts=4 sw=4
 *
 * (c) Copyright 2012 Hewlett-Packard Development Company, L.P.
 * Licensed under the Apache License, Version 2.0 (the "License"); you may
 * not use this file except in compliance with the License. You may obtain
 * a copy of the License at http://www.apache.org/licenses/LICENSE-2.0.
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * permissions and limitations under the License.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "prim_test.h"

#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>

#include <winpr/sysinfo.h>
#include <winpr/platform.h>

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

BOOL g_TestPrimitivesPerformance = FALSE;
int test_sizes[] = { 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096 };

/* ------------------------------------------------------------------------- */
static void get_random_data_lrand(void *buffer, size_t size)
{
	static int seeded = 0;
	long int *ptr = (long int *) buffer;
	unsigned char *cptr;

	if (!seeded)
	{
		seeded = 1;
		srand48(time(NULL));
	}
	/* This isn't the perfect random number generator, but that's okay. */
	while (size >= sizeof(long int))
	{
		*ptr++ = lrand48();
		size -= sizeof(long int);
	}
	cptr = (unsigned char *) ptr;
	while (size > 0)
	{
		*cptr++ = lrand48() & 0xff;
		--size;
	}
}

/* ------------------------------------------------------------------------- */
void get_random_data(void *buffer, size_t size)
{
#ifdef __linux__
	size_t offset = 0;
	int fd = open("/dev/urandom", O_RDONLY);
	if (fd < 0)
	{
		get_random_data_lrand(buffer, size);
		return;
	}

	while (size > 0)
	{
		ssize_t count = read(fd, buffer+offset, size);
		size -= count;
		offset += count;
	}
	close(fd);
#else
	get_random_data_lrand(buffer, size);
#endif
}

/* ------------------------------------------------------------------------- */
float _delta_time(const struct timespec *t0, const struct timespec *t1)
{
	INT64 secs = (INT64) (t1->tv_sec) - (INT64) (t0->tv_sec);
	long nsecs = t1->tv_nsec - t0->tv_nsec;
	double retval;

	if (nsecs < 0)
	{
		--secs;
		nsecs += 1000000000;
	}

	retval = (double) secs + (double) nsecs / (double) 1000000000.0;
	return (retval < 0.0) ? 0.0 : (float) retval;
}

/* ------------------------------------------------------------------------- */
void _floatprint(float t, char *output)
{
	/* I don't want to link against -lm, so avoid log,exp,... */
	float f = 10.0;
	int i;
	while (t > f) f *= 10.0;
	f /= 1000.0;
	i = ((int) (t/f+0.5)) * (int) f;
	if (t < 0.0) sprintf(output, "%f", t);
	else if (i == 0) sprintf(output, "%d", (int) (t+0.5));
	else if (t < 1e+3) sprintf(output, "%3d", i);
	else if (t < 1e+6) sprintf(output, "%3d,%03d",
			i/1000, i % 1000);
	else if (t < 1e+9) sprintf(output, "%3d,%03d,000",
			i/1000000, (i % 1000000) / 1000);
	else if (t < 1e+12) sprintf(output, "%3d,%03d,000,000",
			i/1000000000, (i % 1000000000) / 1000000);
	else sprintf(output, "%f", t);
}