/* Programa: Simulacao do algoritmo VCube
    Autor: Eduardo Trevisan
    Data da ultima modificacao: 15/11/2021
*/

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

#define POW_2(num) (1<<(num))
#define VALID_J(j, s) ((POW_2(s-1)) >= j)

/* |-- node_set.h */
//typedef struct node_set {
//	int* nodes;
//	ssize_t size;
//	ssize_t offset;
//} node_set;

static node_set*
set_new(ssize_t size)
{
	node_set* new;

	new = (node_set*)malloc(sizeof(node_set));
	new->nodes = (int*)malloc(sizeof(int)*size);
	new->size = size;
	new->offset = 0;
	return new;
}

static void
set_insert(node_set* nodes, int node)
{
	if (nodes == NULL) return;
	nodes->nodes[nodes->offset++] = node;
}

static void
set_merge(node_set* dest, node_set* source)
{
	if (dest == NULL || source == NULL) return;
	memcpy(&(dest->nodes[dest->offset]), source->nodes, sizeof(int)*source->size);
	dest->offset += source->size;
}

void
set_free(node_set* nodes)
{
	free(nodes->nodes);
	free(nodes);
}
/* node_set.h --| */

node_set*
cis(int i, int s)
{
	node_set* nodes, *other_nodes;
	int xor = i ^ POW_2(s-1);
	int j;

	/* starting node list */
	nodes = set_new(POW_2(s-1));

	/* inserting the first value (i XOR 2^^(s-1)) */
	set_insert(nodes, xor);

	/* recursion */
	for (j=1; j<=s-1; j++) {
		other_nodes = cis(xor, j);
		set_merge(nodes, other_nodes);
		set_free(other_nodes);
	}
	return nodes;
}

void
printCis(int i, int s)
{
	node_set* nodes;

	/* calculating cis */
	nodes = cis(i, s);

	for (i=0; i < nodes->size; i++)
		printf("%i ", nodes->nodes[i]);
	puts("");

	set_free(nodes);
}

//int
//main(int argc, char** argv)
//{
//	int i, s, j = -1;
//	node_set* nodes;
//
//	if (argc < 3) {
//		printf(" Usage: %s i s [j]\n", argv[0]);
//		return 1;
//	}
//
//	/* required params */
//	i = atoi(argv[1]);
//	s = atoi(argv[2]);
//
//	/* have we the third parameter? */
//	if (argc > 3) {
//		j = atoi(argv[3]);
//		if (!VALID_J(j, s)) {
//			printf("%d is not a valid node for a cluster size %d.\n", j, s);
//			return 1;
//		}
//	}
//	/* calculating cis */
//	nodes = cis(i, s);
//
//	/* print all nodes or just one? */
//	if (j != -1)
//		printf("%i\n", nodes->nodes[j-1]);
//	else {
//		for (i=0; i < nodes->size; i++)
//			printf("%i ", nodes->nodes[i]);
//		puts("");
//	}
//	set_free(nodes);
//	return 0;
//}