lib/rdconfig.c

/*****************************************************************************
 * Copyright (C) 2008-2014
 *   
 * Michiel Broek <mbroek at mbse dot eu>
 *
 * This file is part of the mbsePi-apps
 *
 * This 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, or (at your option) any
 * later version.
 *
 * mbsePi-apps 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 EC-65K; see the file COPYING.  If not, write to the Free
 * Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
 *****************************************************************************/

#include "../config.h"
#include "mbselib.h"

// #define	DEBUG_CONFIG	1


extern int	DebugEmu;
extern char	*Private_Path;

static char	*mypath;
static char	*k, *v;
static int	linecnt = 0;

extern int	MustSave;


sys_config	Config;			/* System configuration		*/


static int getstr(char **);
static int getint(char **);
//static int getbyt(char **);
//static int gethex(char **);


/*
 * System configuration table
 */
key_list keytab[] = {
    {(char *)"name",		getstr,		&Config.name},
    {(char *)"mosq_server",	getstr,		&Config.mosq_server},
    {(char *)"mosq_port",	getint,		(char **)&Config.mosq_port},
    {NULL,			NULL,		NULL}
};


void killconfig(void)
{
    if (Config.name)
	free(Config.name);
    Config.name = NULL;

}


int wrconfig(char *machine)
{
    FILE	*fp;

    /*
     * Get config from the system path
     */
    mypath = xstrcpy(Private_Path);
    mypath = xstrcat(mypath, (char *)"/data/machines/");
    mypath = xstrcat(mypath, machine);
    mypath = xstrcat(mypath, (char *)".conf");

    if ((fp = fopen(mypath, "w")) == NULL) {
//	Log_Msg("[rdconfig] could not rewrite %s", mypath);
	return 1;
    }

    fprintf(fp, "# Configuration file for EC65K %s\n", VERSION);
    fprintf(fp, "# Machine: `%s'\n", machine);
    fprintf(fp, "#\n");
//    fprintf(fp, "description        %s\n", Config.description);
//    fprintf(fp, "\n");
//    fprintf(fp, "# 65(C)02 CPU\n");
//    fprintf(fp, "#\n");

    fprintf(fp, "# End of generated configuration\n");
    fclose(fp);
    free(mypath);
    mypath = NULL;
    MustSave = FALSE;

    return 0;
}


int rdconfig(char *machine) 
{
    char	buf[256], *p;
    FILE	*fp;
    int		i, rc = 0;

    killconfig();

    /*
     * Get config from the system path
     */
    mypath = xstrcpy(Private_Path);
    mypath = xstrcat(mypath, (char *)"/data/machines/");
    mypath = xstrcat(mypath, machine);
    mypath = xstrcat(mypath, (char *)".conf");

    if ((fp = fopen(mypath, "r")) == NULL) {
//	Log_Msg("[rdconfig] could not open %s", mypath);
	return 1;
    }

    linecnt = 0;
    while (fgets(buf, sizeof(buf) -1, fp)) {
	linecnt++;
	if (*(p = buf + strlen(buf) -1) != '\n') {
//	    Log_Msg("[rdconfig] %s(%d): \"%s\" - line too long", mypath, linecnt, buf);
	    rc = 1;
	    break;
	}
	*p-- = '\0';
	while ((p >= buf) && isspace(*p))
	    *p-- = '\0';
	k = buf;
	while (*k && isspace(*k))
	    k++;
	p = k;
	while (*p && !isspace(*p))
	    p++;
	*p++='\0';
	v = p;
	while (*v && isspace(*v)) 
	    v++;

	if ((*k == '\0') || (*k == '#')) {
	    continue;
	}

	for (i = 0; keytab[i].key; i++)
	    if (strcasecmp(k,keytab[i].key) == 0)
		break;

	if (keytab[i].key == NULL) {
//	    Log_Msg("[rdconfig] %s(%d): %s %s - unknown keyword", mypath, linecnt, S(k), S(v));
	    rc = 1;
	    break;
	} else if ((keytab[i].prc(keytab[i].dest))) {
	    rc = 1;
	    break;
	}

    }
    fclose(fp);

    free(mypath);
    mypath = NULL;
    MustSave = FALSE;

    return rc;
}


static int getstr(char **dest)
{
//    Log_Msg("[rdconfig] getstr: %s(%d): %s %s", mypath, linecnt, S(k), S(v));
    *dest = xstrcpy(v);
    return 0;
}


static int getint(char **dest)
{
//    Log_Msg("[rdconfig] getint: %s(%d): %s %s", mypath, linecnt, k, v);
//    if (strspn(v,"0123456789") != strlen(v)) 
//	Log_Msg("[rdconfig] %s(%d): %s %s - bad numeric", mypath, linecnt, S(k), S(v));
//    else 
	*((int*)dest)=atoi(v);
    return 0;
}


/*
static int getbyt(char **dest)
{
    Log_Msg("[rdconfig] getbyt: %s(%d): %s %s", mypath, linecnt, k, v);
    if (strspn(v,"0123456789") != strlen(v))
	Log_Msg("[rdconfig] %s(%d): %s %s - bad numeric", mypath, linecnt, S(k), S(v));
    else
	*((Uint8*)dest)=atoi(v);
    return 0;
}
*/


/*
static int gethex(char **dest)
{
    unsigned int    val = 0;
    int		    rc;

    Log_Msg("[rdconfig] gethex: %s(%d): %s %s", mypath, linecnt, k, v);
    rc = sscanf(v, "%08x", &val);
    if (rc != 1) {
	Log_Msg("[rdconfig] %s(%d): %s %s - bad hex value", mypath, linecnt, S(k), S(v));
	return 1;
    }
    *((int*)dest) = val;

    return 0;
}
*/