/* $Id$ */
/**************************************************************************
 *   rcfile.c                                                             *
 *                                                                        *
 *   Copyright (C) 1999-2002 Chris Allegretta                             *
 *   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, 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.            *
 *                                                                        *
 **************************************************************************/

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include "config.h"
#include "proto.h"
#include "nano.h"

#ifdef ENABLE_NANORC

#ifndef NANO_SMALL
#include <libintl.h>
#define _(string) gettext(string)
#else
#define _(string) (string)
#endif

#ifndef DISABLE_WRAPJUSTIFY
    #define NUM_RCOPTS 19
#else
    #define NUM_RCOPTS 18
#endif

/* Static stuff for the nanorc file */
rcoption rcopts[NUM_RCOPTS] = 
{
{"regexp", USE_REGEXP},
{"const", CONSTUPDATE},
{"autoindent", AUTOINDENT},
{"cut", CUT_TO_END},
{"nofollow", FOLLOW_SYMLINKS},
{"mouse", USE_MOUSE},
{"operatingdir", 0},
{"pico", PICO_MODE},
{"tabsize", 0},

#ifndef DISABLE_WRAPJUSTIFY
{"fill", 0},
#endif

{"speller", 0},
{"tempfile", TEMP_OPT},
{"view", VIEW_MODE},
{"nowrap", NO_WRAP}, 
{"nohelp", NO_HELP}, 
{"suspend", SUSPEND},
{"multibuffer", MULTIBUFFER},
{"smooth", SMOOTHSCROLL},
{"keypad", ALT_KEYPAD}};

static int errors = 0;
static int lineno = 0;
static char *nanorc;

/* We have an error in some part of the rcfile; put it on stderr and
  make the user hit return to continue starting up nano */
void rcfile_error(char *msg, ...)
{
    va_list ap;

    fprintf(stderr, "\n");
    fprintf(stderr, _("Error in %s on line %d: "), nanorc, lineno);
    va_start(ap, msg);
    vfprintf(stderr, msg, ap);
    va_end(ap);
    fprintf(stderr, _("\nPress return to continue starting nano\n"));

    while (getchar() != '\n')
	;

}

/* Just print the error (one of many, perhaps) but don't abort, yet */
void rcfile_msg(char *msg, ...)
{
    va_list ap;

    if (!errors) {
	errors = 1;
	fprintf(stderr, "\n");
    }
    va_start(ap, msg);
    vfprintf(stderr, msg, ap);
    va_end(ap);
    fprintf(stderr, "\n");

}

/* Parse the next word from the string.  Returns NULL if we hit EOL */
char *parse_next_word(char *ptr)
{
    char *prev = " ";

    while ((*ptr != ' ' || *prev == '\\')
	   && *ptr != '\t' && *ptr != '\n' && *ptr != '\0') {
	ptr++;
	prev = ptr;
    }

    if (*ptr == '\0')
	return NULL;

    /* Null terminate and advance ptr */
    *ptr++ = 0;

    while ((*ptr == ' ' || *ptr == '\t') && *ptr != '\0')
	ptr++;

    return ptr;
}

int colortoint(char *colorname, int *bright) 
{
    int mcolor = 0;

    if (colorname == NULL)
	return -1;

    if (strcasestr(colorname, "bright")) {
	*bright = 1;
	colorname += 6;
    }
    
    if (!strcasecmp(colorname, "green"))
	mcolor += COLOR_GREEN;
    else if (!strcasecmp(colorname, "red"))
	mcolor += COLOR_RED;
    else if (!strcasecmp(colorname, "blue"))
	mcolor += COLOR_BLUE;
    else if (!strcasecmp(colorname, "white"))
	mcolor += COLOR_WHITE;
    else if (!strcasecmp(colorname, "yellow"))
	mcolor += COLOR_YELLOW;
    else if (!strcasecmp(colorname, "cyan"))
	mcolor += COLOR_CYAN;
    else if (!strcasecmp(colorname, "magenta"))
	mcolor += COLOR_MAGENTA;
    else if (!strcasecmp(colorname, "black"))
	mcolor += COLOR_BLACK;
    else {
        rcfile_error(_("color %s not understood.\n"
		"Valid colors are \"green\", \"red\", \"blue\", \n"
		"\"white\", \"yellow\", \"cyan\", \"magenta\" and \n"
		"\"black\", with the optional prefix \"bright\".\n"));
	exit(1);
    }

    return mcolor;
}


#ifdef ENABLE_COLOR
/* Parse the color stuff into the colorstrings array */
void parse_colors(FILE *rcstream, char *buf, char *ptr)
{
    int i = 0, fg, bg, bright = 0, loopdone = 0;
    int expectend = 0;			/* Do we expect an end= line? */
    char prev = '\\';
    char *tmp = NULL, *beginning, *fgstr, *bgstr;
    colortype *tmpcolor = NULL;

    fgstr = ptr;
    ptr = parse_next_word(ptr);

    if (ptr == NULL) {
	rcfile_error(_("Missing color name"));
	exit(1);
    }

    if (strstr(fgstr, ",")) {
	strtok(fgstr, ",");
	bgstr = strtok(NULL, ",");
    } else
	bgstr = NULL;

    fg = colortoint(fgstr, &bright);
    bg = colortoint(bgstr, &bright);

    /* Now the fun part, start adding regexps to individual strings
	in the colorstrings array, woo! */

    if (!strncasecmp(ptr, "start=", 6)) {
	ptr += 6;
	expectend = 1;
    }

    i = 0;
    beginning = ptr;
    while (*ptr != '\0' && !loopdone) {
	switch (*ptr) {
	case '\n':
	    *ptr = ' ';
	case ' ':
	    if (prev != '\\') {
		/* This is the end of the regex, uh I guess.
		   Add it to the colorstrings array for this color */	

		if (i == 0) {
		    rcfile_error(_("regex length must be > 0"));
		    continue;
		}
		
 		tmp = NULL;
		tmp = charalloc(i + 1);
		strncpy(tmp, beginning, i);
		tmp[i] = '\0';

		/* Get rid of the leading space */
		ptr = parse_next_word(ptr);
		if (ptr == NULL)
		    return;

		if (colorstrings == NULL) {
		    colorstrings = nmalloc(sizeof(colortype));
		    colorstrings->fg = fg;
		    colorstrings->bg = bg;
		    colorstrings->bright = bright;
		    colorstrings->start = tmp;
		    colorstrings->next = NULL;
		    tmpcolor = colorstrings;

#ifdef DEBUG
		    fprintf(stderr, "Starting a new colorstring for fg %d bg %d\n", fg, bg);
		    fprintf(stderr, "string val=%s\n", tmp);
#endif

		} else {
		    for (tmpcolor = colorstrings; tmpcolor->next != NULL;
			  tmpcolor = tmpcolor->next)
			;
#ifdef DEBUG
		    fprintf(stderr, "Adding new entry for fg %d bg %d\n", fg, bg);
		    fprintf(stderr, "string val=%s\n", tmp);
#endif

		    tmpcolor->next = nmalloc(sizeof(colortype));
		    tmpcolor->next->fg = fg;
		    tmpcolor->next->bg = bg;
		    tmpcolor->next->bright = bright;
		    tmpcolor->next->start = tmp;
		    tmpcolor->next->next = NULL;
		    tmpcolor = tmpcolor->next;
		}

		i = 0;
		beginning = ptr;

		if (expectend)
		    loopdone = 1;

		break;
	    }
	    /* Else drop through to the default case */		
	default:
	    i++;
	    prev = *ptr;
	    ptr++;
	    break;
	}
    }

    if (expectend) {
	if (ptr == NULL || strncasecmp(ptr, "end=", 4)) {
	    rcfile_error(
		_("\n\t\"start=\" requires a corresponding \"end=\""));
	    return;
	}

	ptr += 4;
	beginning = ptr;
	ptr = parse_next_word(ptr);
#ifdef DEBUG
	fprintf(stderr, "For end part, beginning = \"%s\"\n", beginning);
#endif
	tmp = NULL;
	tmp = mallocstrcpy(tmp, beginning);
	tmpcolor->end = tmp;

    }


}
#endif /* ENABLE_COLOR */

/* Parse the RC file, once it has been opened successfully */
void parse_rcfile(FILE *rcstream)
{
    char *buf, *ptr, *keyword, *option;
    int set = 0, i;

    buf = charalloc(1024);
    while (fgets(buf, 1023, rcstream) > 0) {
	lineno++;
	ptr = buf;
	while ((*ptr == ' ' || *ptr == '\t') && 
		(*ptr != '\n' && *ptr != '\0'))
	    ptr++;

	if (*ptr == '\n' || *ptr == '\0')
	    continue;

	if (*ptr == '#') {
#ifdef DEBUG
	    fprintf(stderr, _("parse_rcfile: Read a comment\n"));
#endif
	    continue;	/* Skip past commented lines */
	}

	/* Else skip to the next space */
	keyword = ptr;
	ptr = parse_next_word(ptr);
	if (!ptr)
	    continue;

	/* Else try to parse the keyword */
	if (!strcasecmp(keyword, "set"))
	    set = 1;
	else if (!strcasecmp(keyword, "unset"))
	    set = -1;
#ifdef ENABLE_COLOR
	else if (!strcasecmp(keyword, "color"))
	    parse_colors(rcstream, buf, ptr);
#endif /* ENABLE_COLOR */
	else {
	    rcfile_msg(_("command %s not understood"), keyword);
	    continue;
	}

	option = ptr;
	ptr = parse_next_word(ptr);
	/* We don't care if ptr == NULL, as it should if using proper syntax */

	if (set != 0) {
	    for (i = 0; i <= NUM_RCOPTS - 1; i++) {
	        if (!strcasecmp(option, rcopts[i].name)) {
#ifdef DEBUG
		    fprintf(stderr, _("parse_rcfile: Parsing option %s\n"), 
				rcopts[i].name);
#endif
		    if (set == 1 || rcopts[i].flag == FOLLOW_SYMLINKS) {
			if (
			    !strcasecmp(rcopts[i].name, "operatingdir") ||
			    !strcasecmp(rcopts[i].name, "tabsize") ||
#ifndef DISABLE_WRAPJUSTIFY
			    !strcasecmp(rcopts[i].name, "fill") || 
#endif
#ifndef DISABLE_SPELLER
			    !strcasecmp(rcopts[i].name, "speller")
#else
				0
#endif
			   ) {

			    if (*ptr == '\n' || *ptr == '\0') {
	    			rcfile_error(_("option %s requires an argument"),
						rcopts[i].name);
				continue;
			    }
			    option = ptr;
			    ptr = parse_next_word(ptr);
			    if (!strcasecmp(rcopts[i].name, "fill")) {
#ifndef DISABLE_WRAPJUSTIFY

				if ((i = atoi(option)) < MIN_FILL_LENGTH) {
	    		 	    rcfile_error(
		_("requested fill size %d too small"), i);
				}
				else
				     fill = i;
#endif
			    } else if (!strcasecmp(rcopts[i].name, "tabsize")) {
			    	if ((i = atoi(option)) <= 0) {
			    		rcfile_error(
			    		_("requested tab size %d too small"), i);
			    	} else {
			    		tabsize = i;
			    	}
			    } else {
#ifndef DISABLE_SPELLER
				alt_speller = charalloc(strlen(option) + 1);
            			strcpy(alt_speller, option);
#endif
			    }
			} else 
			    SET(rcopts[i].flag);
#ifdef DEBUG
			fprintf(stderr, _("set flag %d!\n"), rcopts[i].flag);
#endif
		    } else {
			UNSET(rcopts[i].flag);
#ifdef DEBUG
			fprintf(stderr, _("unset flag %d!\n"), rcopts[i].flag);
#endif
		   }			
		}
	    }
	}

    }
    if (errors)
	rcfile_error(_("Errors found in .nanorc file"));

    return;
}

/* The main rc file function, tries to open the rc file */
void do_rcfile(void)
{
    char *unable = _("Unable to open ~/.nanorc file, %s");
    struct stat fileinfo;
    FILE *rcstream;


    if (getenv("HOME") == NULL)
	return;

    nanorc = charalloc(strlen(getenv("HOME")) + 10);
    sprintf(nanorc, "%s/.nanorc", getenv("HOME"));

    if (stat(nanorc, &fileinfo) == -1) {

	/* Abort if the file doesn't exist and there's some other kind
	   of error stat()ing it */
	if (errno != ENOENT)
	    rcfile_error(unable, errno);
	return;
   }

    if ((rcstream = fopen(nanorc, "r")) == NULL) {
	rcfile_error(unable, strerror(errno));
	return;
    }

    parse_rcfile(rcstream);
    fclose(rcstream);

}


#endif /* ENABLE_NANORC */