/*
 * LPC 2000 Loader, http://www.pjrc.com/arm/lpc2k_pgm
 * Copyright (c) 2004, PJRC.COM, LLC, <paul@pjrc.com>
 *
 * 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; version 2 of the License.
 *
 * 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.,
 * 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

/* If this code fails to build, please provide at least the following
 * information when requesting (free) technical support.
 *
 * 1: Complete copy of all messages during the build.
 * 2: Output of "gtk-config --version"
 * 3: Output of "gtk-config --libs"
 * 4: Output of "gtk-config --cflags"
 * 5: Output of "uname -a"
 * 6: Version of GTK installed... eg, type: ls -l /lib/libgtk*
 * 7: Other info... which linux distribution, version, other software
 */


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

#include "settings.h"

#define DEFAULT_FILE ""
#define DEFAULT_PORT "/dev/ttyS0"
#define DEFAULT_BAUD "115200"
#define DEFAULT_CRYSTAL "16"

char *baud_list[] = {"115200", "57600", "38400",
                     "19200", "9600", "4800", "2400", "1200", "300", NULL
                    };

static char file[128] = {DEFAULT_FILE};
static char port[64] = {DEFAULT_PORT};
static char baud[64] = {DEFAULT_BAUD};
static char crystal[64] = {DEFAULT_CRYSTAL};

static char settings_file[256] = {'\0'};


void init_settings(void)
{
    const char *home_dir;
    char buf[1024];

    home_dir = getenv("HOME");

    if (home_dir && *home_dir) {
        snprintf(settings_file, sizeof(settings_file),
                 "%s/.lpc2k_pgm", home_dir);
        FILE *fp = fopen(settings_file, "r");

        if (fp == NULL) {
            return;
        }

        while (!feof(fp)) {
            char *p, *q;
            buf[0] = '\0';
            fgets(buf, sizeof(buf), fp);

            if (strncmp(buf, "file:", 5) == 0) {
                for (p = buf + 5; isspace(*p); p++);
                q = rindex(p, '\n');
                if (q) {
                    *q = '\0';
                }
                q = rindex(p, '\r');
                if (q) {
                    *q = '\0';
                }
                snprintf(file, sizeof(file), "%s", p);
            }

            if (strncmp(buf, "port:", 5) == 0) {
                for (p = buf + 5; isspace(*p); p++);
                q = rindex(p, '\n');
                if (q) {
                    *q = '\0';
                }
                q = rindex(p, '\r');
                if (q) {
                    *q = '\0';
                }
                snprintf(port, sizeof(port), "%s", p);
            }

            if (strncmp(buf, "baud:", 5) == 0) {
                for (p = buf + 5; isspace(*p); p++);
                q = rindex(p, '\n');
                if (q) {
                    *q = '\0';
                }
                q = rindex(p, '\r');
                if (q) {
                    *q = '\0';
                }
                snprintf(baud, sizeof(baud), "%s", p);
            }

            if (strncmp(buf, "xtal:", 5) == 0) {
                for (p = buf + 5; isspace(*p); p++) ;
                q = rindex(p, '\n');
                if (q) {
                    *q = '\0';
                }
                q = rindex(p, '\r');
                if (q) {
                    *q = '\0';
                }
                snprintf(crystal, sizeof(crystal), "%s", p);
            }
        }

        fclose(fp);
    }
}

void write_settings_file(void)
{
    FILE *fp;

    if (settings_file[0] == '\0') {
        return;
    }

    fp = fopen(settings_file, "w");

    if (fp == NULL) {
        return;
    }

    fprintf(fp, "file: %s\n", file);
    fprintf(fp, "port: %s\n", port);
    fprintf(fp, "baud: %s\n", baud);
    fprintf(fp, "xtal: %s\n", crystal);
    fflush(fp);
    fclose(fp);
}

const char *file_setting(void)
{
    return file;
}

const char *port_setting(void)
{
    return port;
}

const char *baud_setting(void)
{
    return baud;
}

const char *crystal_setting(void)
{
    return crystal;
}

void new_file_setting(const char *new_file)
{
    if (strcmp(file, new_file)) {
        snprintf(file, sizeof(file), "%s", new_file);
        write_settings_file();
    }
}

void new_port_setting(const char *new_port)
{
    if (strcmp(port, new_port)) {
        snprintf(port, sizeof(port), "%s", new_port);
        write_settings_file();
    }
}

void new_baud_setting(const char *new_baud)
{
    if (strcmp(baud, new_baud)) {
        snprintf(baud, sizeof(baud), "%s", new_baud);
        write_settings_file();
    }
}

void new_crystal_setting(const char *new_xtal)
{
    if (strcmp(crystal, new_xtal)) {
        snprintf(crystal, sizeof(crystal), "%s", new_xtal);
        write_settings_file();
    }
}