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

#include <unistd.h>
#include "fiad.h"

int generateoldv9t9filenames = 0,
	fixupoldv9t9filenames = 0,
	unknownfileistext = 0,
	repairbadfiles = 0,
	keepfileformat = 1,
	newfileformat = F_TIFILES;

enum
{
	TOLIST_WIDE,
	TOLIST_NORMAL,
	TOLIST_LONG
};
int	tolist = TOLIST_NORMAL;
int	sort_by = FIAD_CATALOG_SORT_BY_DISK;
bool sort_ascending = true;
fiad_catalog cat;

static int	
get_catalog(char *name)
{
	OSError err;

	err = fiad_catalog_read_catalog(&cat, name);
	if (err != OS_NOERR)
	{
		fprintf(stderr, "Could not read catalog for '%s' (%s)\n",
				name, OS_GetErrText(err));
		return 0;
	}
	else
		return 1;
}

static void	
display_header(void)
{
	int	x;

	switch (tolist)
	{
	case TOLIST_WIDE:	break;
	case TOLIST_NORMAL:
//		for (x=0; x<2; x++)
		printf("%-10s  %-4s  %-11s  \t",
			   "Filename","Secs", "Type");
		break;

	case TOLIST_LONG:
		printf("%-10s  %-4s  %-11s  %-8s  %-5s  %s",
				"Filename","Secs","Type",
			   "Bytesize","#recs", "Host name");
		break;
	}
	printf("\n");
}

static void	
display_entry(char *filename, fdrrec *fdr, int index)
{
	int	on_line;
	int sec;

	switch (tolist)
	{
	case TOLIST_WIDE:
		printf("%.10s ",fdr->filenam);
		on_line = 7;
		break;
		
	case TOLIST_NORMAL:
		printf("%.10s  %4d  %-11s  ",
			   fdr->filenam,
			   fdr->secsused,
			   fiad_catalog_get_file_type_string(fdr));
		on_line = 2;
		break;

	case TOLIST_LONG:
		printf("%.10s  %4d  %-11s  ",
			   fdr->filenam,
			   fdr->secsused,
			   fiad_catalog_get_file_type_string(fdr));

		printf("%8ld  ",FDR_FILESIZE(fdr));
		if (!(fdr->flags&(ff_variable|ff_program)))
			printf("%5d  ",fdr->numrecs);
		else
			printf("%5s  ","");

		printf("%s", filename);

/*
        sec = cat->fdrsec[cat->index[index]];
		if (sec)
			printf("%5d",sec);
		else
			printf("%5s","");
*/
		on_line = 1;
		break;
	}

//	if ((index + 1) % on_line == 0)
		printf("\n");
//	else 
//		printf("\t");
}

static int	
display_catalog(void)
{
	int	index;
	int	lines;

//	First, sort the list.

	fiad_catalog_sort_catalog(&cat, sort_by, sort_ascending);

	index = 0;
	while (index < cat.entries)
	{
		display_entry(cat.filenames[cat.index[index]],
					  &cat.fdrs[cat.index[index]], 
					  index);
		index++;
	}
	printf("\n\n");

	return 1;
}

static int	
free_catalog(void)
{
	fiad_catalog_free_catalog(&cat);
	return 1;
}

static void	
help(void)
{
	printf("\n"
		   "TIDIR V9t9 Directory Lister v2.0\n"
		   "\n"
		   "Usage:   TIDIR [options] { <directory> }\n"
//		   "Usage:   TIDIR [options] { <file> | <directory> | <disk image:> }\n"
		   "\n"
		   "TIDIR will print the listing of files in emulated directories.\n"
//		   "or disk images.\n"
		   "\n"
		   "Options:\n"
		   "\t\t/L\t-- long format\n"
		   "\t\t/W\t-- wide format\n"
		   "\t\t/O[-]x\t-- sort by Disk order, Name (default), Size, or Type.\n"
		   "\t\t\t   \"-\" means descending.\n"
		   "\n"
		);
}

static	char	*legalsorts="DNST";

int	main(int argc, char **argv)
{
	char	*whichsort;
	int		sortchar;
	int		opt;
	bool	printed_header;
	int		bad;

	if (argc <= 1)
	{
		help();
		return 0;
	}

	tolist = TOLIST_NORMAL;
	sort_by = FIAD_CATALOG_SORT_BY_NAME;
	sort_ascending = true;

	while ((opt = getopt(argc, argv, "?HhWwLlO:o:")) != -1)
	{
		switch (opt)
		{
		case '?':
		case 'H':
		case 'h':	
			help();
			break;
		case 'W':
		case 'w':
			tolist = TOLIST_WIDE;
			break;
		case 'L':	
		case 'l':
			tolist = TOLIST_LONG;
			break;
		case 'O':
		case 'o':
			if (optarg[0] == '-')
				sortchar = 1;
			else
				sortchar = 0;

			if (optarg[sortchar + 1])
			{
				fprintf(stderr, "Too many letters in /O parameter (%s).\n",
						optarg);
				return 1;
			}
			whichsort = strchr(legalsorts, toupper(optarg[sortchar]));
			if (whichsort == NULL)
			{
				fprintf(stderr, "Unknown sort option in /O parameter (%s).\n", 
					   optarg);
				return 1;
			}
			sort_by = whichsort - legalsorts + FIAD_CATALOG_SORT_BY_DISK;
			sort_ascending = (sortchar != 1);
			break;
		}
	}

	printed_header = false;

	while (argv[optind])
	{
		if (get_catalog(argv[optind]))
		{
			if (!printed_header)
			{
				display_header();
				printed_header = true;
			}

			display_catalog();
			free_catalog();
		}

		optind++;
	}

	return 0;
}