/*
 * Copyright 2009, Axel Dörfler, axeld@pinc-software.de.
 * Distributed under the terms of the MIT License.
 */


//!	Test application that reproduces bug #4778.


#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <OS.h>

#include <syscalls.h>


status_t
memory_eater(void*)
{
	size_t total = 0;

	while (true) {
		size_t size = rand() % 16384 + 8;
		if (malloc(size) == NULL) {
			printf("out of memory after having allocated %ld bytes\n", total);
			break;
		} else
			total += size;

		putchar('.');
	}

	return B_OK;
}


status_t
area_creator(void*)
{
	while (true) {
		status_t status = B_ERROR;
		uint32 addressSpec = B_ANY_ADDRESS;
		void* base;
		bool readOnly = false;//(rand() % 256) > 127;
		if (!readOnly) {
			// reserve 128 MB of space for the area
			base = (void*)0x60000000;
			status = _kern_reserve_address_range((addr_t*)&base, B_BASE_ADDRESS,
				128 * 1024 * 1024);
			addressSpec = status == B_OK ? B_EXACT_ADDRESS : B_BASE_ADDRESS;
			printf("\naddress spec = %lx, base %p (status %s)\n", addressSpec,
				base, strerror(status));
		}

		area_id area = create_area(readOnly ? "read-only memory" : "r/w memory",
			&base, addressSpec, B_PAGE_SIZE * 4, B_NO_LOCK,
			B_READ_AREA | (readOnly ? 0 : B_WRITE_AREA));
		if (area >= 0) {
			printf("new %s area %ld at %p\n", readOnly ? "read-only" : "r/w",
				area, base);
		} else
			break;

		snooze(10000);
	}

	return B_OK;
}


int
main(int argc, char** argv)
{
	thread_id eater = spawn_thread(&memory_eater, "memory eater",
		B_NORMAL_PRIORITY, NULL);
	resume_thread(eater);

	thread_id creator = spawn_thread(&area_creator, "area creator",
		B_NORMAL_PRIORITY, NULL);
	resume_thread(creator);

	object_wait_info waitInfos[2] = {
		{ eater, B_OBJECT_TYPE_THREAD, 0 },
		{ creator, B_OBJECT_TYPE_THREAD, 0 }
	};
	ssize_t which = wait_for_objects(waitInfos, 2);
	printf("wait for objects: %ld\n", which);

	debugger("Welcome to the land of tomorrow");
	return 0;
}