/*
 * filepanel.cpp - a command line tool to open a BFilePanel and get the result
 * copyright 2003, Francois Revol, revol@free.fr
 * LDFLAGS="-lbe -ltracker" make filepanel
 * return:
 * 0: the user has selected something,
 * 1: the user canceled/closed the panel,
 * 2: an error occured.
 */

//#define USE_FNMATCH

#ifdef USE_FNMATCH
#include <fnmatch.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <strings.h>
#include <Application.h>
#include <Catalog.h>
#include <Locale.h>
#include <Messenger.h>
#include <Window.h>
#include <storage/Entry.h>
#include <storage/FilePanel.h>
#include <storage/Path.h>

#define APP_SIG "application/x-vnd.mmu_man.filepanel"

#undef B_TRANSLATION_CONTEXT
#define B_TRANSLATION_CONTEXT "FilePanelApp"


volatile int return_code = 0;

class FilePanelApp : public BApplication
{
public:
	FilePanelApp();

	virtual void MessageReceived(BMessage *message);
	virtual void RefsReceived(BMessage *message);
};


FilePanelApp::FilePanelApp()
	:BApplication(APP_SIG)
{
}


void
FilePanelApp::MessageReceived(BMessage *message)
{
	entry_ref e;
	const char *name;
	BEntry entry;
	BPath p;

	//message->PrintToStream();
	switch (message->what) {
	case B_SAVE_REQUESTED:
		message->FindRef("directory", &e);
		message->FindString("name", &name);
		entry.SetTo(&e);
		entry.GetPath(&p);
		printf("%s/%s\n", p.Path(), name);
		be_app_messenger.SendMessage(B_QUIT_REQUESTED);
		break;
	case B_CANCEL:
		return_code = 1;
		be_app_messenger.SendMessage(B_QUIT_REQUESTED);
		break;
	default:
		BApplication::MessageReceived(message);
	}
}


void
FilePanelApp::RefsReceived(BMessage *message)
{
	entry_ref e;
	BEntry entry;
	int i;
	BPath p;
//	message->PrintToStream();
	for (i = 0; message->FindRef("refs", i, &e) == B_OK; i++) {
		entry.SetTo(&e);
		entry.GetPath(&p);
		puts(p.Path());
	}
	be_app_messenger.SendMessage(B_QUIT_REQUESTED);
}


int
usage(char *pname, int error)
{
	fprintf(stderr, "%s", B_TRANSLATE("display a load/save file panel\n"));
	fprintf(stderr, B_TRANSLATE("usage: %s [--help] [--directory folder] "
		"[--load|--save] [--title ttl] [--single] [--modal]\n"), pname);
	fprintf(stderr, B_TRANSLATE("usage: %s [-h]     [-d folder]              "
		"[-l|-s]     [-t ttl]      [-1]       [-m]"), pname);
	fprintf(stderr, "%s", B_TRANSLATE("options:\n"));
	fprintf(stderr, "%s", B_TRANSLATE("short\tlong\tdescription\n"));
	fprintf(stderr, "%s", B_TRANSLATE("-h\t--help\tdisplay usage\n"));
	fprintf(stderr, "%s", B_TRANSLATE("-d\t--directory\topen at <folder>\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-l\t--load\tuse a load FilePanel (default)\n"));
	fprintf(stderr, "%s", B_TRANSLATE("-s\t--save\tuse a save FilePanel\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-n\t--name\tset the default name for saving\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-k\t--kind\tkind of entries that can be "
		"opened (flavour): any combination of f, d, s (file (default), "
		"directory, symlink)\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-t\t--title\tset the FilePanel window title\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-1\t--single\tallow only 1 file to be selected\n"));
	fprintf(stderr, "%s",
		B_TRANSLATE("-m\t--modal\tmakes the FilePanel modal\n"));
	return error;
}


int
main(int argc, char **argv)
{
	int i;
	file_panel_mode fpMode = B_OPEN_PANEL;
	uint32 nodeFlavour = 0;
	char *openAt = NULL;
	char *windowTitle = NULL;
	bool allowMultiSelect = true;
	bool makeModal = false;
	const char *defaultName = NULL;

	for (i = 1; i < argc; i++) {
		if (strncmp(argv[i], "--", 2) && ((*(argv[i]) == '-' &&
			strlen(argv[i]) != 2) || *(argv[i]) != '-')) {
			fprintf(stderr, B_TRANSLATE("%s not a valid option\n"), argv[i]);
			return usage(argv[0], 2);
		}
		if (!strcmp(argv[i], "--help") || !strcmp(argv[i], "-h")) {
			return usage(argv[0], 0);
		} else if (!strcmp(argv[i], "--directory") || !strcmp(argv[i], "-d")) {
			if (++i >= argc) {
				fprintf(stderr, B_TRANSLATE("%s: this option requires a "
					"parameter\n"), argv[i-1]);
				return usage(argv[0], 2);
			}
			openAt = argv[i];
		} else if (!strcmp(argv[i], "--load") || !strcmp(argv[i], "-l")) {
			fpMode = B_OPEN_PANEL;
		} else if (!strcmp(argv[i], "--save") || !strcmp(argv[i], "-s")) {
			fpMode = B_SAVE_PANEL;
		} else if (!strcmp(argv[i], "--name") || !strcmp(argv[i], "-n")) {
			if (++i >= argc) {
				fprintf(stderr, B_TRANSLATE("%s: this option requires a "
					"parameter\n"), argv[i-1]);
				return usage(argv[0], 2);
			}
			defaultName = (const char *)argv[i];
		} else if (!strcmp(argv[i], "--kind") || !strcmp(argv[i], "-k")) {
			if (++i >= argc) {
				fprintf(stderr, B_TRANSLATE("%s: this option requires a "
					"parameter\n"), argv[i-1]);
				return usage(argv[0], 2);
			}
			if (strchr(argv[i], 'f')) nodeFlavour |= B_FILE_NODE;
			if (strchr(argv[i], 'd')) nodeFlavour |= B_DIRECTORY_NODE;
			if (strchr(argv[i], 's')) nodeFlavour |= B_SYMLINK_NODE;
		} else if (!strcmp(argv[i], "--title") || !strcmp(argv[i], "-t")) {
			if (++i >= argc) {
				fprintf(stderr, B_TRANSLATE("%s: this option requires a "
					"parameter\n"), argv[i-1]);
				return usage(argv[0], 2);
			}
			windowTitle = argv[i];
		} else if (!strcmp(argv[i], "--single") || !strcmp(argv[i], "-1")) {
			allowMultiSelect = false;
		} else if (!strcmp(argv[i], "--modal") || !strcmp(argv[i], "-m")) {
			makeModal = true;
		} else {
			fprintf(stderr, B_TRANSLATE("%s not a valid option\n"), argv[i]);
			return usage(argv[0], 2);
		}
	}
	new FilePanelApp;
	entry_ref panelDir;
// THIS LINE makes main() return always 0 no matter which value on return of
// exit() ???
	BFilePanel *fPanel = new BFilePanel(fpMode, NULL, NULL, nodeFlavour,
		allowMultiSelect, NULL, NULL, makeModal);
/**/
	if (openAt)
		fPanel->SetPanelDirectory(openAt);
	if (windowTitle)
		fPanel->Window()->SetTitle(windowTitle);
	if (fpMode == B_SAVE_PANEL && defaultName)
		fPanel->SetSaveText(defaultName);

	fPanel->Show();
/**/
	be_app->Run();
	delete be_app;
//	printf("rc = %d\n", return_code);
// WTF ??
//return 2;
//	exit(2);
	exit(return_code);
	return return_code;
}