#include <tce/syscall.h>
#include <stdlib.h>
#include <tce/Folder.h>
#include <stdio.h>

int threads = 0;

void thread_cascade(void* d) {
	int n = (int)d;

	threads++;

	if (d == 0) {
		//printk("{#} 0 cascade element started => end\n");
		printk("*");
	} else {
		if (n < 0) {
			//printk("{#} - cascade element started\n");
			printk("-");
			n = 0 - n;
		} else {
			//printk("{#} + cascade element started\n");
			printk("+");
		}
		//printk("{#} FORK + ...\n");
		printk(">");
		thread_new(thread_cascade, (void*)(n - 1));
		//printk("{#} FORK - ...\n");
		printk("<");
		thread_new(thread_cascade, (void*)(1 - n));
		//printk("{#} Thread cascade element finished.\n");
		printk(".");
	}

	threads--;
}

void read_dir(Object o, int l) {
	int i = 0, j;
	char name[FILENAME_MAX_LEN];
	while (1) {
		for (j = 0; j < l; j++) printk("   ");
		j = Folder_GetChildNameAt(o, i, name);
		if (j <= 0) {
			printk(" - reached end : ");
			printk_int(j);
			printk("\n");
			break;
		}
		printk(" - '");
		printk(name);

		if (strcmp(name, ".") == 0) {
			printk("', skipping -_-'\n");
		} else {
			Object oo = open_relative(name, o);
			if (oo <= 0) {
				printk("', failed to open, error ");
				printk_int(oo);
				printk("...\n");
			} else {
				printk("', opened as ");
				printk_int(oo);
				printk(", content:\n");
				read_dir(oo, l+1);
			}
		}
		i++;
	}
}


int main() {
	printk("Test starts. ");

	printk("Create thread cascade (2**5 = 32 threads). ");
	thread_new(thread_cascade, (void*)5);

	printk("Main thread waits.\n");
	while (1) {
		thread_sleep(100);
		if (threads == 0) break;
	}
	printk("\nOk, that was fine. Now trying something else...\n");
	Object o = open("/");
	if (o <= 0) {
		printk("Cannot open '/', error ");
		printk_int(o);
		printk("...\n");
	} else {
		printk("Reading '/' (");
		printk_int(o);
		printk(") :\n");
		read_dir(o, 0);
	}

	printk("Ok. Now sleeping, forever and ever.");
	while(1) {
		thread_sleep(1000);
	}
	return 0;
}