/*
 * Copyright 2008, Haiku.
 * Distributed under the terms of the MIT License.
 *
 * Authors:
 *		Fredrik Modeen
 *
 */
#include "JoystickTweaker.h"

#include <new>
#include <stdio.h>
#include <stdlib.h>

#include <Debug.h>
#include <Directory.h>
#include <Joystick.h>
#include <Path.h>
#include <String.h>
#include <UTF8.h>


#define STACK_STRING_BUFFER_SIZE	64


#if DEBUG
inline void
LOG(const char *fmt, ...)
{
	char buf[1024];
	va_list ap;
	va_start(ap, fmt);
	vsprintf(buf, fmt, ap);
	va_end(ap);

	fputs(buf, _BJoystickTweaker::sLogFile);
	fflush(_BJoystickTweaker::sLogFile);
}
#	define LOG_ERR(text...) LOG(text)
FILE *_BJoystickTweaker::sLogFile = NULL;
#else
#	define LOG(text...)
#	define LOG_ERR(text...) fprintf(stderr, text)
#endif

#define CALLED() LOG("%s\n", __PRETTY_FUNCTION__)


_BJoystickTweaker::_BJoystickTweaker()
{
#if DEBUG
	sLogFile = fopen("/var/log/joystick.log", "a");
#endif
	CALLED();
}


_BJoystickTweaker::_BJoystickTweaker(BJoystick &stick)
{
#if DEBUG
	sLogFile = fopen("/var/log/joystick.log", "a");
#endif
	CALLED();

	fJoystick = &stick;
}


_BJoystickTweaker::~_BJoystickTweaker()
{
}


status_t
_BJoystickTweaker::save_config(const entry_ref *ref)
{
	CALLED();
	return B_ERROR;
}


status_t
_BJoystickTweaker::_ScanIncludingDisabled(const char *rootPath, BList *list,
	BEntry *rootEntry)
{
	BDirectory root;

	if (rootEntry != NULL)
		root.SetTo(rootEntry);
	else if (rootPath != NULL)
		root.SetTo(rootPath);
	else
		return B_ERROR;

	BEntry entry;

	ASSERT(list != NULL);
	while (root.GetNextEntry(&entry) == B_OK) {
		if (entry.IsDirectory()) {
			status_t result = _ScanIncludingDisabled(rootPath, list, &entry);
			if (result != B_OK)
				return result;

			continue;
		}

		BPath path;
		status_t result = entry.GetPath(&path);
		if (result != B_OK)
			return result;

		BString *deviceName = new(std::nothrow) BString(path.Path());
		if (deviceName == NULL)
			return B_NO_MEMORY;

		deviceName->RemoveFirst(rootPath);
		if (!list->AddItem(deviceName)) {
			delete deviceName;
			return B_ERROR;
		}
	}

	return B_OK;
}


void
_BJoystickTweaker::scan_including_disabled()
{
	CALLED();
	_EmpyList(fJoystick->fDevices);
	_ScanIncludingDisabled(DEVICE_BASE_PATH, fJoystick->fDevices);
}


void
_BJoystickTweaker::_EmpyList(BList *list)
{
	for (int32 i = 0; i < list->CountItems(); i++)
		delete (BString *)list->ItemAt(i);

	list->MakeEmpty();
}


status_t
_BJoystickTweaker::get_info()
{
	CALLED();
	return B_ERROR;
}


status_t
_BJoystickTweaker::GetInfo(_joystick_info *info, const char *ref)
{
	CALLED();
	BString configFilePath(JOYSTICK_CONFIG_BASE_PATH);
	configFilePath.Append(ref);

	FILE *file = fopen(configFilePath.String(), "r");
	if (file == NULL)
		return B_ERROR;

	char line[STACK_STRING_BUFFER_SIZE];
	while (fgets(line, sizeof(line), file) != NULL) {
		int length = strlen(line);
		if (length > 0 && line[length - 1] == '\n')
			line[length - 1] = '\0';

		_BuildFromJoystickDesc(line, info);
	}

	fclose(file);
	return B_OK;
}


void
_BJoystickTweaker::_BuildFromJoystickDesc(char *string, _joystick_info *info)
{
	BString str(string);
	str.RemoveAll("\"");

	if (str.IFindFirst("module") != -1) {
		str.RemoveFirst("module = ");
		strlcpy(info->module_info.module_name, str.String(),
			STACK_STRING_BUFFER_SIZE);
	} else if (str.IFindFirst("gadget") != -1) {
		str.RemoveFirst("gadget = ");
		strlcpy(info->module_info.device_name, str.String(),
			STACK_STRING_BUFFER_SIZE);
	} else if (str.IFindFirst("num_axes") != -1) {
		str.RemoveFirst("num_axes = ");
		info->module_info.num_axes = atoi(str.String());
	} else if (str.IFindFirst("num_hats") != -1) {
		str.RemoveFirst("num_hats = ");
		info->module_info.num_hats = atoi(str.String());
	} else if (str.IFindFirst("num_buttons") != -1) {
		str.RemoveFirst("num_buttons = ");
		info->module_info.num_buttons = atoi(str.String());
	} else if (str.IFindFirst("num_sticks") != -1) {
		str.RemoveFirst("num_sticks = ");
		info->module_info.num_sticks = atoi(str.String());
	} else {
		LOG("Path = %s\n", str.String());
	}
}


status_t
_BJoystickTweaker::SendIOCT(uint32 op)
{
	switch (op) {
		case B_JOYSTICK_SET_DEVICE_MODULE:
				break;

		case B_JOYSTICK_GET_DEVICE_MODULE:
				break;

		case B_JOYSTICK_GET_SPEED_COMPENSATION:
		case B_JOYSTICK_SET_SPEED_COMPENSATION:
		case B_JOYSTICK_GET_MAX_LATENCY:
		case B_JOYSTICK_SET_MAX_LATENCY:
		case B_JOYSTICK_SET_RAW_MODE:
		default:
				break;
	}

	return B_ERROR;
}