/* Preferences.c
 *
 * Copyright (C) 1996-2007 Paul Boersma
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

/*
 * pb 2002/03/07 GPL
 * pb 2002/11/24 Melder_double
 * pb 2003/12/09 guard against Preference file that has been copied from one platform to another
 * pb 2005/03/04 guard against hand-edited Preference files that contain strings longer than (Resources_STRING_BUFFER_SIZE - 1) bytes
 * pb 2007/08/12 wchar_t
 */

#include "Preferences.h"
#include "Collection.h"

/*
 * Though Resource inherits from Data,
 * we will use SimpleString routines with it.
 */

#define Resource_members Data_members \
	wchar_t *string; \
	int type; \
	void *value;
#define Resource_methods Data_methods
class_create (Resource, Data);

/* Warning: copy methods etc. not implemented. */

static void destroy (I) {
	iam (Resource);
	Melder_free (my string);
	inherited (Resource) destroy (me);
}

class_methods (Resource, Data)
	class_method (destroy)
class_methods_end

static SortedSetOfString theResources;

static void Resources_add (const wchar_t *string, int type, void *value) {
	Resource me = new (Resource);
	my string = Melder_wcsdup (string);
	my type = type;
	my value = value;
	if (! theResources) theResources = SortedSetOfString_create ();
	Collection_addItem (theResources, me);
}

void Resources_addByte (const wchar_t *string, signed char *value)
	{ Resources_add (string, bytewa, value); }

void Resources_addShort (const wchar_t *string, short *value)
	{ Resources_add (string, shortwa, value); }

void Resources_addInt (const wchar_t *string, int *value)
	{ Resources_add (string, intwa, value); }

void Resources_addLong (const wchar_t *string, long *value)
	{ Resources_add (string, longwa, value); }

void Resources_addUbyte (const wchar_t *string, unsigned char *value)
	{ Resources_add (string, ubytewa, value); }

void Resources_addUshort (const wchar_t *string, unsigned short *value)
	{ Resources_add (string, ushortwa, value); }

void Resources_addUint (const wchar_t *string, unsigned int *value)
	{ Resources_add (string, uintwa, value); }

void Resources_addUlong (const wchar_t *string, unsigned long *value)
	{ Resources_add (string, ulongwa, value); }

void Resources_addChar (const wchar_t *string, wchar_t *value)
	{ Resources_add (string, charwa, value); }

void Resources_addFloat (const wchar_t *string, float *value)
	{ Resources_add (string, floatwa, value); }

void Resources_addDouble (const wchar_t *string, double *value)
	{ Resources_add (string, doublewa, value); }

void Resources_addString (const wchar_t *string, wchar_t *value)
	{ Resources_add (string, stringwwa, value); }

void Resources_read (MelderFile file) {
	/*
	 * It is possible (see praat.c) that this routine is called
	 * before any resources have been registered.
	 * In that case, do nothing.
	 */
	if (! theResources) return;
	wchar_t *string = MelderFile_readText (file); cherror
	MelderReadString buffer = { string, string };
	for (;;) {
		wchar_t *line = MelderReadString_readLine (& buffer), *value;
		long iresource;
		Resource resource;
		if (! line) goto end;
		if ((value = wcsstr (line, L": ")) == NULL) goto end;
		*value = '\0', value += 2;
		iresource = SortedSetOfString_lookUp (theResources, line);
		if (! iresource) continue;   /* Ignore unrecognized resources. */
		resource = theResources -> item [iresource];
		switch (resource -> type) {
			case bytewa: * (signed char *) resource -> value = wcstol (value, NULL, 10); break;
			case shortwa: * (short *) resource -> value = wcstol (value, NULL, 10); break;
			case intwa: * (int *) resource -> value = wcstol (value, NULL, 10); break;
			case longwa: * (long *) resource -> value = wcstol (value, NULL, 10); break;
			case ubytewa: * (unsigned char *) resource -> value = wcstoul (value, NULL, 10); break;
			case ushortwa: * (unsigned short *) resource -> value = wcstoul (value, NULL, 10); break;
			case uintwa: * (unsigned int *) resource -> value = wcstoul (value, NULL, 10); break;
			case ulongwa: * (unsigned long *) resource -> value = wcstoul (value, NULL, 10); break;
			case charwa: * (wchar_t *) resource -> value = value [0]; break;
			case floatwa: * (float *) resource -> value = wcstod (value, NULL); break;
			case doublewa: * (double *) resource -> value = wcstod (value, NULL); break;
			case stringwwa: swprintf ((wchar_t *) resource -> value, Resources_STRING_BUFFER_SIZE, L"%ls", value); ((wchar_t *) resource -> value) [Resources_STRING_BUFFER_SIZE - 1] = '\0'; break;
		}
	}
end:
	Melder_clearError ();
}

void Resources_write (MelderFile file) {
	if (! theResources || theResources -> size == 0) return;
	static MelderStringW buffer = { 0 };
	for (long iresource = 1; iresource <= theResources -> size; iresource ++) {
		Resource resource = theResources -> item [iresource];
		MelderStringW_append2 (& buffer, resource -> string, L": ");
		switch (resource -> type) {
			case bytewa: MelderStringW_append1 (& buffer, Melder_integer (* (signed char *) resource -> value)); break;
			case shortwa: MelderStringW_append1 (& buffer, Melder_integer (* (short *) resource -> value)); break;
			case intwa: MelderStringW_append1 (& buffer, Melder_integer (* (int *) resource -> value)); break;
			case longwa: MelderStringW_append1 (& buffer, Melder_integer (* (long *) resource -> value)); break;
			case ubytewa: MelderStringW_append1 (& buffer, Melder_integer (* (unsigned char *) resource -> value)); break;
			case ushortwa: MelderStringW_append1 (& buffer, Melder_integer (* (unsigned short *) resource -> value)); break;
			case uintwa: MelderStringW_append1 (& buffer, Melder_integer (* (unsigned int *) resource -> value)); break;
			case ulongwa: MelderStringW_append1 (& buffer, Melder_integer (* (unsigned long *) resource -> value)); break;
			case charwa: MelderStringW_appendCharacter (& buffer, * (char *) resource -> value); break;
			case floatwa: MelderStringW_append1 (& buffer, Melder_single (* (float *) resource -> value)); break;
			case doublewa: MelderStringW_append1 (& buffer, Melder_double (* (double *) resource -> value)); break;
			case stringwwa: MelderStringW_append1 (& buffer, resource -> value); break;
		}
		MelderStringW_appendCharacter (& buffer, '\n');
	}
	MelderFile_writeText (file, buffer.string);
	Melder_clearError ();
}

/* End of file Preferences.c */
