/////////////////////////////////////////////////////////////////////////////
//
//  This file is Copyright 1992,1993 by Warwick W. Allison.
//  This file is part of the gem++ library.
//  You are free to copy and modify these sources, provided you acknowledge
//  the origin by retaining this notice, and adhere to the conditions
//  described in the file COPYING.LIB.
//
/////////////////////////////////////////////////////////////////////////////

#include "gemfs.h"
#include <osbind.h>
#include <aesbind.h>
#include <string.h>


static const PATHLEN=128;
static const FILELEN=32;

GEMfileselector::GEMfileselector(int maxlen=PATHLEN) :
	filename(new char[maxlen]),
	filespec(new char[maxlen]),
	file(new char[FILELEN]),
	len(maxlen)
{
	CWD();
}


GEMfileselector::GEMfileselector(char* fname) :
	filename(fname),
	filespec(new char[PATHLEN]),
	file(new char[FILELEN]),
	len(0)
{
	if (fname[0]) Filename(fname);
	else CWD();
}


GEMfileselector::~GEMfileselector()
{
	if (len) delete filename;
	delete filespec;
	delete file;
}


const char* GEMfileselector::CWD()
{
	int drive=Dgetdrv();
	filespec[0]=drive+'A';
	filespec[1]=':';
	Dgetpath(&filespec[2],drive+1); // +1 since drv0 = current drive!
	strcat(filespec,"\\*.*");
	strcpy(file,"");
	Merge();

	return filename;
}


// Returns result both ways.  NULL if cancelled.
const char* GEMfileselector::Get(const char* prompt=0, char* into=0)
{
	int okay;

	if (prompt)
		fsel_exinput(filespec,file,&okay,(char*)prompt);
	else
		fsel_input(filespec,file,&okay);

	Merge();

	if (okay) {
		if (into) strcpy(into,filename);
		return filename;
	} else {
		return 0;
	}
}

void GEMfileselector::Merge()
{
	strcpy(filename,filespec);
	for (int i=0; filename[i]; i++);
	while (i && filename[i]!='\\') i--;
	if (filename[i]=='\\') strcpy(&filename[i+1],file);
	else strcpy(filename,file);
}

void GEMfileselector::Path(const char* path)
{
	// Find '\'
	for (int i=0; path[i]; i++);
	int to=i-1;
	for (; i && path[i]!='\\'; i--);

	if (path[i]=='\\') {
		while (to && path[to]=='\\') to--; // ignore trailing '\'

		for (int j=0; filespec[j]; j++);
		while (j && filespec[j]!='\\') j--;
		if (j) {
			strcpy(&filespec[to+2],&filespec[j+1]);
			strncpy(filespec,path,to+1);
			filespec[to+1]='\\';
		} else {
			strncpy(filespec,path,to+1);
			strcpy(filespec+to+1,"\\*.*");
		}
	} else {
		strncpy(filespec,path,to+1);
		strcpy(filespec+to+1,"\\*.*");
	}

	Merge();
}

const char* GEMfileselector::File(const char* f=0)
// eg. File("foo.bar"); oldgot=File();
{
	if (f) {
		strcpy(file,f);
		Merge();
	}
	return file;
}

const char* GEMfileselector::Filespec(const char* fspec=0)
// eg. Filespec("*.bar"); Filespec("E:\foo\*.bar"); oldspec=Filespec();
{
	if (fspec) {
		for (int i=0; fspec[i]; i++);
		while (i && fspec[i]!='\\') i--;

		if (fspec[i]=='\\') {
			strcpy(filespec,fspec);
		} else {
			for (int j=0; filespec[j]; j++);
			while (j && filespec[j]!='\\') j--;
			if (filespec[j]=='\\') {
				strcpy(&filespec[j+1],fspec);
			} else {
				strcpy(filespec,fspec);
			}
		}
	}
	return filespec;
}

const char* GEMfileselector::Filename(const char* fname=0)
// eg. Filename("foo.bar"); Filename("E:\foo\foo.bar"); oldgot=Filename();
{
	for (int i=0; fname[i]; i++);
	while (i && fname[i]!='\\') i--;

	if (fname[i]!='\\') {
		File(fname);
	} else {
		File(&fname[i+1]);
		strcpy(filename,fname);
		filename[i]=0;
		Path(filename);
		Merge();
	}

	return filename;
}