#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <dirent.h>
#include "get_stat.h"
#include "make_path.h"

unsigned int h_flag;
unsigned int s_flag;
unsigned int b_flag;
unsigned int m_flag;

void print(double size, const char *filename) {
	char c = 0;

	if (h_flag) {
		if (size < 1048576 && !m_flag) {
			size = size / 1024;
			c = 'K';
		}

		else if (size < 1073741824) {
			size = size / 1048576;
			c = 'M';
		}

		else if (size < 1099511627776) {
			size = size / 1073741824;
			c = 'G';
		}
	}

	/* Kb */
	else if (!b_flag)
		size = size / 1024;

	/* Mb */
	else if (m_flag)
		size = size / 1048576;

	printf("%.1f%c %s\n", size, c, filename);
}

double du(const char *path, int recurs_flag) {
	double sum = 0;

	struct stat sb;
	if (mu_get_lstat("du", path, &sb))
		return 0;

	if (S_ISDIR(sb.st_mode)) {
		DIR *dp = opendir(path);
		if (!dp) {
			fprintf(stderr, "du: %s\n", strerror(errno));
			return 0;
		}

		struct dirent *ep;
		while ((ep = readdir(dp)) != NULL) {
			if (!strcmp(ep->d_name, ".") || !strcmp(ep->d_name, ".."))
				continue;

			char *new_path = mu_make_path("du", path, ep->d_name);
			if (new_path == NULL)
				return 0;

			sum += du(new_path, 1);

			free(new_path);
		}

		closedir(dp);

		if (!s_flag && recurs_flag) {
			print(sum, path);
			return sum;
		}

		/* Silent mode */
		else if (!recurs_flag)
			print(sum, path);
	}

	else {
		sum = sb.st_size;
		if (!recurs_flag)
			print(sum, path);
	}

	return sum;
}

int main(int argc, char **argv) {

	int opt;
	while ((opt = getopt(argc, argv, "hsbm")) != -1) {
		switch (opt) {
			case 'h':
				h_flag = 1;
				break;

			case 's':
				s_flag = 1;
				break;

			case 'b':
				b_flag = 1;
				break;

			case 'm':
				b_flag = 1;
				m_flag = 1;
				break;


			default:
				printf("du [file1 file2...]\n\t[-h Sizes in human readable format]\n\t[-s Display only a total for each argument]\n\t[-b Apparent size] [-m Size in megabyte]\n");
				return 0;
		}
	}

	if (argv[optind] == NULL)
		du(".", 0);

	else {
		argv += optind;
		argc -= optind;
		for (int i = 0; i < argc; i++)
			du(argv[i], 0);

	}

	return 0;
}