/**************************************************************************
 *   rcfile.c  --  This file is part of GNU nano.                         *
 *                                                                        *
 *   Copyright (C) 2001-2011, 2013-2018 Free Software Foundation, Inc.    *
 *   Copyright (C) 2014 Mike Frysinger                                    *
 *   Copyright (C) 2014-2018 Benno Schulenberg                            *
 *                                                                        *
 *   GNU nano 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 3 of the License,    *
 *   or (at your option) any later version.                               *
 *                                                                        *
 *   GNU nano 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, see http://www.gnu.org/licenses/.  *
 *                                                                        *
 **************************************************************************/

#include "proto.h"

#include <ctype.h>
#include <errno.h>
#include <glob.h>
#include <string.h>
#include <unistd.h>

#ifdef ENABLE_NANORC

#ifndef RCFILE_NAME
#define HOME_RC_NAME ".nanorc"
#define RCFILE_NAME "nanorc"
#else
#define HOME_RC_NAME RCFILE_NAME
#endif

static const rcoption rcopts[] = {
	{"boldtext", BOLD_TEXT},
#ifdef ENABLE_JUSTIFY
	{"brackets", 0},
#endif
	{"constantshow", CONSTANT_SHOW},
#ifdef ENABLED_WRAPORJUSTIFY
	{"fill", 0},
#endif
#ifdef ENABLE_HISTORIES
	{"historylog", HISTORYLOG},
#endif
#ifdef ENABLE_LINENUMBERS
	{"linenumbers", LINE_NUMBERS},
#endif
	{"morespace", MORE_SPACE},
#ifdef ENABLE_MOUSE
	{"mouse", USE_MOUSE},
#endif
#ifdef ENABLE_MULTIBUFFER
	{"multibuffer", MULTIBUFFER},
#endif
	{"nohelp", NO_HELP},
	{"nonewlines", NO_NEWLINES},
	{"nopauses", NO_PAUSES},
#ifdef ENABLE_WRAPPING
	{"nowrap", NO_WRAP},
#endif
#ifdef ENABLE_OPERATINGDIR
	{"operatingdir", 0},
#endif
#ifdef ENABLE_HISTORIES
	{"positionlog", POS_HISTORY},
#endif
	{"preserve", PRESERVE},
#ifdef ENABLE_JUSTIFY
	{"punct", 0},
	{"quotestr", 0},
#endif
	{"quickblank", QUICK_BLANK},
	{"rebinddelete", REBIND_DELETE},
	{"rebindkeypad", REBIND_KEYPAD},
	{"regexp", USE_REGEXP},
#ifdef ENABLE_SPELLER
	{"speller", 0},
#endif
	{"suspend", SUSPEND},
	{"tabsize", 0},
	{"tempfile", TEMP_FILE},
	{"view", VIEW_MODE},
#ifndef NANO_TINY
	{"afterends", AFTER_ENDS},
	{"allow_insecure_backup", INSECURE_BACKUP},
	{"atblanks", AT_BLANKS},
	{"autoindent", AUTOINDENT},
	{"backup", BACKUP_FILE},
	{"backupdir", 0},
	{"backwards", BACKWARDS_SEARCH},
	{"casesensitive", CASE_SENSITIVE},
	{"cut", CUT_FROM_CURSOR},  /* deprecated form, remove end of 2018 */
	{"cutfromcursor", CUT_FROM_CURSOR},
	{"justifytrim", TRIM_BLANKS},  /* deprecated form, remove end of 2018 */
	{"locking", LOCKING},
	{"matchbrackets", 0},
	{"noconvert", NO_CONVERT},
	{"quiet", QUIET},
	{"showcursor", SHOW_CURSOR},
	{"smarthome", SMART_HOME},
	{"smooth", SMOOTH_SCROLL},
	{"softwrap", SOFTWRAP},
	{"tabstospaces", TABS_TO_SPACES},
	{"trimblanks", TRIM_BLANKS},
	{"unix", MAKE_IT_UNIX},
	{"whitespace", 0},
	{"wordbounds", WORD_BOUNDS},
	{"wordchars", 0},
#endif
#ifdef ENABLE_COLOR
	{"titlecolor", 0},
	{"numbercolor", 0},
	{"selectedcolor", 0},
	{"statuscolor", 0},
	{"errorcolor", 0},
	{"keycolor", 0},
	{"functioncolor", 0},
#endif
	{NULL, 0}
};

static size_t lineno = 0;
		/* The line number of the last encountered error. */
static char *nanorc = NULL;
		/* The path to the rcfile we're parsing. */
#ifdef ENABLE_COLOR
static bool opensyntax = FALSE;
		/* Whether we're allowed to add to the last syntax.  When a file ends,
		 * or when a new syntax command is seen, this bool becomes FALSE. */
static syntaxtype *live_syntax;
		/* The syntax that is currently being parsed. */
static colortype *lastcolor = NULL;
		/* The end of the color list for the current syntax. */
#endif

/* Report an error in an rcfile, printing it to stderr. */
void rcfile_error(const char *msg, ...)
{
	va_list ap;

	if (rcfile_with_errors == NULL)
		rcfile_with_errors = strdup(nanorc);

	if (lineno > 0)
		fprintf(stderr, _("Error in %s on line %zu: "), nanorc, lineno);

	va_start(ap, msg);
	vfprintf(stderr, _(msg), ap);
	va_end(ap);

	fprintf(stderr, "\n");
}
#endif /* ENABLE_NANORC */

#if defined(ENABLE_NANORC) || defined(ENABLE_HISTORIES)
/* Parse the next word from the string, null-terminate it, and return
 * a pointer to the first character after the null terminator.  The
 * returned pointer will point to '\0' if we hit the end of the line. */
char *parse_next_word(char *ptr)
{
	while (!isblank((unsigned char)*ptr) && *ptr != '\0')
		ptr++;

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

	/* Null-terminate and advance ptr. */
	*ptr++ = '\0';

	while (isblank((unsigned char)*ptr))
		ptr++;

	return ptr;
}
#endif /* ENABLE_NANORC || ENABLE_HISTORIES */

#ifdef ENABLE_NANORC
/* Parse an argument, with optional quotes, after a keyword that takes
 * one.  If the next word starts with a ", we say that it ends with the
 * last " of the line.  Otherwise, we interpret it as usual, so that the
 * arguments can contain "'s too. */
char *parse_argument(char *ptr)
{
	const char *ptr_save = ptr;
	char *last_quote = NULL;

	if (*ptr != '"')
		return parse_next_word(ptr);

	while (*ptr != '\0') {
		if (*++ptr == '"')
			last_quote = ptr;
	}

	if (last_quote == NULL) {
		rcfile_error(N_("Argument '%s' has an unterminated \""), ptr_save);
		return NULL;
	}

	*last_quote = '\0';
	ptr = last_quote + 1;

	while (isblank((unsigned char)*ptr))
		ptr++;

	return ptr;
}

#ifdef ENABLE_COLOR
/* Pass over the current regex string in the line starting at ptr,
 * null-terminate it, and return a pointer to the /next/ word. */
char *parse_next_regex(char *ptr)
{
	/* Continue until the end of line, or until a " followed by a
	 * blank character or the end of line. */
	while (*ptr != '\0' && (*ptr != '"' ||
				(*(ptr + 1) != '\0' && !isblank((unsigned char)ptr[1]))))
		ptr++;

	if (*ptr == '\0') {
		rcfile_error(N_("Regex strings must begin and end with a \" character"));
		return NULL;
	}

	/* Null-terminate and advance ptr. */
	*ptr++ = '\0';

	while (isblank((unsigned char)*ptr))
		ptr++;

	return ptr;
}

/* Compile the regular expression regex to see if it's valid.  Return
 * TRUE if it is, and FALSE otherwise. */
bool nregcomp(const char *regex, int compile_flags)
{
	regex_t preg;
	const char *r = fixbounds(regex);
	int rc = regcomp(&preg, r, compile_flags);

	if (rc != 0) {
		size_t len = regerror(rc, &preg, NULL, 0);
		char *str = charalloc(len);

		regerror(rc, &preg, str, len);
		rcfile_error(N_("Bad regex \"%s\": %s"), r, str);
		free(str);
	}

	regfree(&preg);
	return (rc == 0);
}

/* Parse the next syntax name and its possible extension regexes from the
 * line at ptr, and add it to the global linked list of color syntaxes. */
void parse_syntax(char *ptr)
{
	char *nameptr = ptr;

	opensyntax = FALSE;

	/* Check that the syntax name is not empty. */
	if (*ptr == '\0' || (*ptr == '"' &&
						(*(ptr + 1) == '\0' || *(ptr + 1) == '"'))) {
		rcfile_error(N_("Missing syntax name"));
		return;
	}

	ptr = parse_next_word(ptr);

	/* Check that quotes around the name are either paired or absent. */
	if ((*nameptr == '\x22') ^ (nameptr[strlen(nameptr) - 1] == '\x22')) {
		rcfile_error(N_("Unpaired quote in syntax name"));
		return;
	}

	/* If the name is quoted, strip the quotes. */
	if (*nameptr == '\x22') {
		nameptr++;
		nameptr[strlen(nameptr) - 1] = '\0';
	}

	/* Redefining the "none" syntax is not allowed. */
	if (strcmp(nameptr, "none") == 0) {
		rcfile_error(N_("The \"none\" syntax is reserved"));
		return;
	}

	/* Initialize a new syntax struct. */
	live_syntax = (syntaxtype *)nmalloc(sizeof(syntaxtype));
	live_syntax->name = mallocstrcpy(NULL, nameptr);
	live_syntax->extensions = NULL;
	live_syntax->headers = NULL;
	live_syntax->magics = NULL;
	live_syntax->linter = NULL;
	live_syntax->formatter = NULL;
#ifdef ENABLE_COMMENT
	live_syntax->comment = mallocstrcpy(NULL, GENERAL_COMMENT_CHARACTER);
#endif
	live_syntax->color = NULL;
	lastcolor = NULL;
	live_syntax->nmultis = 0;

	/* Hook the new syntax in at the top of the list. */
	live_syntax->next = syntaxes;
	syntaxes = live_syntax;

	opensyntax = TRUE;

#ifdef DEBUG
	fprintf(stderr, "Starting a new syntax type: \"%s\"\n", nameptr);
#endif

	/* The default syntax should have no associated extensions. */
	if (strcmp(live_syntax->name, "default") == 0 && *ptr != '\0') {
		rcfile_error(N_("The \"default\" syntax does not accept extensions"));
		return;
	}

	/* If there seem to be extension regexes, pick them up. */
	if (*ptr != '\0')
		grab_and_store("extension", ptr, &live_syntax->extensions);
}
#endif /* ENABLE_COLOR */

/* Return TRUE when the given function is present in almost all menus. */
bool is_universal(void (*func)(void))
{
	return (func == do_left || func == do_right ||
		func == do_home || func == do_end ||
#ifndef NANO_TINY
		func == do_prev_word_void || func == do_next_word_void ||
#endif
		func == do_delete || func == do_backspace ||
		func == do_cut_text_void || func == do_uncut_text ||
		func == do_tab || func == do_enter || func == do_verbatim_input);
}

/* Bind or unbind a key combo, to or from a function. */
void parse_binding(char *ptr, bool dobind)
{
	char *keyptr = NULL, *keycopy = NULL, *funcptr = NULL, *menuptr = NULL;
	sc *s, *newsc = NULL;
	int menu;

#ifdef DEBUG
	fprintf(stderr, "Starting the rebinding code...\n");
#endif

	if (*ptr == '\0') {
		rcfile_error(N_("Missing key name"));
		return;
	}

	keyptr = ptr;
	ptr = parse_next_word(ptr);
	keycopy = mallocstrcpy(NULL, keyptr);

	if (strlen(keycopy) < 2) {
		rcfile_error(N_("Key name is too short"));
		goto free_things;
	}

	/* Uppercase only the first two or three characters of the key name. */
	keycopy[0] = toupper((unsigned char)keycopy[0]);
	keycopy[1] = toupper((unsigned char)keycopy[1]);
	if (keycopy[0] == 'M' && keycopy[1] == '-') {
		if (strlen(keycopy) > 2)
			keycopy[2] = toupper((unsigned char)keycopy[2]);
		else {
			rcfile_error(N_("Key name is too short"));
			goto free_things;
		}
	}

	/* Allow the codes for Insert and Delete to be rebound, but apart
	 * from those two only Control, Meta and Function sequences. */
	if (!strcasecmp(keycopy, "Ins") || !strcasecmp(keycopy, "Del"))
		keycopy[1] = tolower((unsigned char)keycopy[1]);
	else if (keycopy[0] != '^' && keycopy[0] != 'M' && keycopy[0] != 'F') {
		rcfile_error(N_("Key name must begin with \"^\", \"M\", or \"F\""));
		goto free_things;
	} else if (keycode_from_string(keycopy) < 0) {
		rcfile_error(N_("Key name %s is invalid"), keycopy);
		goto free_things;
	}

	if (dobind) {
		funcptr = ptr;
		ptr = parse_argument(ptr);

		if (funcptr[0] == '\0') {
			rcfile_error(N_("Must specify a function to bind the key to"));
			goto free_things;
		} else if (ptr == NULL)
			goto free_things;
	}

	menuptr = ptr;
	ptr = parse_next_word(ptr);

	if (menuptr[0] == '\0') {
		/* TRANSLATORS: Do not translate the word "all". */
		rcfile_error(N_("Must specify a menu (or \"all\") in which to bind/unbind the key"));
		goto free_things;
	}

	if (dobind) {
		/* If the thing to bind starts with a double quote, it is a string,
		 * otherwise it is the name of a function. */
		if (*funcptr == '"') {
			newsc = nmalloc(sizeof(sc));
			newsc->func = (functionptrtype)implant;
			newsc->expansion = mallocstrcpy(NULL, funcptr + 1);
#ifndef NANO_TINY
			newsc->toggle = 0;
#endif
		} else
		    newsc = strtosc(funcptr);

		if (newsc == NULL) {
			rcfile_error(N_("Cannot map name \"%s\" to a function"), funcptr);
			goto free_things;
		}
	}

	menu = strtomenu(menuptr);
	if (menu < 1) {
		rcfile_error(N_("Cannot map name \"%s\" to a menu"), menuptr);
		goto free_things;
	}

	if (dobind) {
		subnfunc *f;
		int mask = 0;

		/* Tally up the menus where the function exists. */
		for (f = allfuncs; f != NULL; f = f->next)
			if (f->func == newsc->func)
				mask = mask | f->menus;

#ifndef NANO_TINY
		/* Handle the special case of the toggles. */
		if (newsc->func == do_toggle_void)
			mask = MMAIN;
#endif
#ifdef ENABLE_NANORC
		/* Handle the special case of a key defined as a string. */
		if (newsc->func == (functionptrtype)implant)
			mask = MMOST | MHELP;
#endif
		/* Now limit the given menu to those where the function exists. */
		menu = menu & (is_universal(newsc->func) ? MMOST : mask);

		if (!menu) {
			rcfile_error(N_("Function '%s' does not exist in menu '%s'"), funcptr, menuptr);
			goto free_things;
		}

		newsc->menus = menu;
		assign_keyinfo(newsc, keycopy, 0);

		/* Do not allow rebinding a frequent escape-sequence starter: Esc [. */
		if (newsc->meta && newsc->keycode == 91) {
			rcfile_error(N_("Sorry, keystroke \"%s\" may not be rebound"), newsc->keystr);
			goto free_things;
		}
	}

	/* Now find and delete any existing same shortcut in the menu(s). */
	for (s = sclist; s != NULL; s = s->next) {
		if ((s->menus & menu) && !strcmp(s->keystr, keycopy))
			s->menus &= ~menu;
	}

	if (dobind) {
#ifndef NANO_TINY
		/* If this is a toggle, copy its sequence number. */
		if (newsc->func == do_toggle_void) {
			for (s = sclist; s != NULL; s = s->next)
				if (s->func == do_toggle_void && s->toggle == newsc->toggle)
					newsc->ordinal = s->ordinal;
		} else
			newsc->ordinal = 0;
#endif
		/* Add the new shortcut at the start of the list. */
		newsc->next = sclist;
		sclist = newsc;
		return;
	}

  free_things:
	free(newsc);
	free(keycopy);
}

/* Verify that the given file exists, is not a folder nor a device. */
bool is_good_file(char *file)
{
	struct stat rcinfo;

	/* First check that the file exists and is readable. */
	if (access(file, R_OK) != 0)
		return FALSE;

	/* If the thing exists, it may be neither a directory nor a device. */
	if (stat(file, &rcinfo) != -1 && (S_ISDIR(rcinfo.st_mode) ||
				S_ISCHR(rcinfo.st_mode) || S_ISBLK(rcinfo.st_mode))) {
		rcfile_error(S_ISDIR(rcinfo.st_mode) ? _("\"%s\" is a directory") :
										_("\"%s\" is a device file"), file);
		return FALSE;
	} else
		return TRUE;
}

#ifdef ENABLE_COLOR
/* Read and parse one included syntax file. */
static void parse_one_include(char *file)
{
	FILE *rcstream;

	/* Don't open directories, character files, or block files. */
	if (!is_good_file(file))
		return;

	/* Open the included syntax file. */
	rcstream = fopen(file, "rb");

	if (rcstream == NULL) {
		rcfile_error(_("Error reading %s: %s"), file, strerror(errno));
		return;
	}

	/* Use the name and line number position of the included syntax file
	 * while parsing it, so we can know where any errors in it are. */
	nanorc = file;
	lineno = 0;

#ifdef DEBUG
	fprintf(stderr, "Parsing file \"%s\"\n", file);
#endif

	parse_rcfile(rcstream, TRUE);
}

/* Expand globs in the passed name, and parse the resultant files. */
void parse_includes(char *ptr)
{
	char *option, *nanorc_save = nanorc, *expanded;
	size_t lineno_save = lineno, i;
	glob_t files;

	option = ptr;
	if (*option == '"')
		option++;
	ptr = parse_argument(ptr);

	/* Expand tildes first, then the globs. */
	expanded = real_dir_from_tilde(option);

	if (glob(expanded, GLOB_ERR|GLOB_NOSORT, NULL, &files) == 0) {
		for (i = 0; i < files.gl_pathc; ++i)
			parse_one_include(files.gl_pathv[i]);
	} else
		rcfile_error(_("Error expanding %s: %s"), option, strerror(errno));

	globfree(&files);
	free(expanded);

	/* We're done with the included file(s).  Restore the original
	 * filename and line number position. */
	nanorc = nanorc_save;
	lineno = lineno_save;
}

/* Return the short value corresponding to the color named in colorname,
 * and set bright to TRUE if that color is bright. */
short color_to_short(const char *colorname, bool *bright)
{
	if (strncasecmp(colorname, "bright", 6) == 0) {
		*bright = TRUE;
		colorname += 6;
	} else
		*bright = FALSE;

	if (strcasecmp(colorname, "green") == 0)
		return COLOR_GREEN;
	else if (strcasecmp(colorname, "red") == 0)
		return COLOR_RED;
	else if (strcasecmp(colorname, "blue") == 0)
		return COLOR_BLUE;
	else if (strcasecmp(colorname, "white") == 0)
		return COLOR_WHITE;
	else if (strcasecmp(colorname, "yellow") == 0)
		return COLOR_YELLOW;
	else if (strcasecmp(colorname, "cyan") == 0)
		return COLOR_CYAN;
	else if (strcasecmp(colorname, "magenta") == 0)
		return COLOR_MAGENTA;
	else if (strcasecmp(colorname, "black") == 0)
		return COLOR_BLACK;
	else if (strcasecmp(colorname, "normal") == 0)
		return USE_THE_DEFAULT;

	rcfile_error(N_("Color \"%s\" not understood"), colorname);
	return BAD_COLOR;
}

/* Parse the color name (or pair of color names) in the given string.
 * Return FALSE when any color name is invalid; otherwise return TRUE. */
bool parse_color_names(char *combostr, short *fg, short *bg, bool *bright)
{
	char *comma = strchr(combostr, ',');

	if (comma != NULL) {
		*bg = color_to_short(comma + 1, bright);
		if (*bright) {
			rcfile_error(N_("A background color cannot be bright"));
			return FALSE;
		}
		if (*bg == BAD_COLOR)
			return FALSE;
		*comma = '\0';
	} else
		*bg = USE_THE_DEFAULT;

	if (comma != combostr) {
		*fg = color_to_short(combostr, bright);
		if (*fg == BAD_COLOR)
			return FALSE;
	} else
		*fg = USE_THE_DEFAULT;

	return TRUE;
}

/* Parse the color string in the line at ptr, and add it to the current
 * file's associated colors.  rex_flags are the regex compilation flags
 * to use, excluding or including REG_ICASE for case (in)sensitivity. */
void parse_colors(char *ptr, int rex_flags)
{
	short fg, bg;
	bool bright;
	char *item;

	if (!opensyntax) {
		rcfile_error(N_("A '%s' command requires a preceding 'syntax' command"),
						"color");
		return;
	}

	if (*ptr == '\0') {
		rcfile_error(N_("Missing color name"));
		return;
	}

	item = ptr;
	ptr = parse_next_word(ptr);
	if (!parse_color_names(item, &fg, &bg, &bright))
		return;

	if (*ptr == '\0') {
		rcfile_error(N_("Missing regex string after '%s' command"), "color");
		return;
	}

	/* Now for the fun part.  Start adding regexes to individual strings
	 * in the colorstrings array, woo! */
	while (ptr != NULL && *ptr != '\0') {
		colortype *newcolor = NULL;
			/* The container for a color plus its regexes. */
		bool goodstart;
			/* Whether the start expression was valid. */
		bool expectend = FALSE;
			/* Whether to expect an end= line. */

		if (strncasecmp(ptr, "start=", 6) == 0) {
			ptr += 6;
			expectend = TRUE;
		}

		if (*ptr != '"') {
			rcfile_error(N_("Regex strings must begin and end with a \" character"));
			ptr = parse_next_regex(ptr);
			continue;
		}

		item = ++ptr;
		ptr = parse_next_regex(ptr);
		if (ptr == NULL)
			break;

		if (*item == '\0') {
			rcfile_error(N_("Empty regex string"));
			goodstart = FALSE;
		} else
			goodstart = nregcomp(item, rex_flags);

		/* If the starting regex is valid, initialize a new color struct,
		 * and hook it in at the tail of the linked list. */
		if (goodstart) {
			newcolor = (colortype *)nmalloc(sizeof(colortype));

			newcolor->fg = fg;
			newcolor->bg = bg;
			newcolor->bright = bright;
			newcolor->rex_flags = rex_flags;

			newcolor->start_regex = mallocstrcpy(NULL, item);
			newcolor->start = NULL;

			newcolor->end_regex = NULL;
			newcolor->end = NULL;

			newcolor->next = NULL;

			if (lastcolor == NULL)
				live_syntax->color = newcolor;
			else
				lastcolor->next = newcolor;

			lastcolor = newcolor;
		}

		if (!expectend)
			continue;

		if (ptr == NULL || strncasecmp(ptr, "end=", 4) != 0) {
			rcfile_error(N_("\"start=\" requires a corresponding \"end=\""));
			return;
		}

		ptr += 4;
		if (*ptr != '"') {
			rcfile_error(N_("Regex strings must begin and end with a \" character"));
			continue;
		}

		item = ++ptr;
		ptr = parse_next_regex(ptr);
		if (ptr == NULL)
			break;

		if (*item == '\0') {
			rcfile_error(N_("Empty regex string"));
			continue;
		}

		/* If the start regex was invalid, skip past the end regex
		 * to stay in sync. */
		if (!goodstart)
			continue;

		/* If it's valid, save the ending regex string. */
		if (nregcomp(item, rex_flags))
			newcolor->end_regex = mallocstrcpy(NULL, item);

		/* Lame way to skip another static counter. */
		newcolor->id = live_syntax->nmultis;
		live_syntax->nmultis++;
	}
}

/* Parse the argument of an interface color option. */
colortype *parse_interface_color(char *combostr)
{
	colortype *trio = nmalloc(sizeof(colortype));

	if (parse_color_names(combostr, &trio->fg, &trio->bg, &trio->bright)) {
		free(combostr);
		return trio;
	} else {
		free(combostr);
		free(trio);
		return NULL;
	}
}

/* Read regex strings enclosed in double quotes from the line pointed at
 * by ptr, and store them quoteless in the passed storage place. */
void grab_and_store(const char *kind, char *ptr, regexlisttype **storage)
{
	regexlisttype *lastthing;

	if (!opensyntax) {
		rcfile_error(
				N_("A '%s' command requires a preceding 'syntax' command"), kind);
		return;
	}

	/* The default syntax doesn't take any file matching stuff. */
	if (strcmp(live_syntax->name, "default") == 0 && *ptr != '\0') {
		rcfile_error(
				N_("The \"default\" syntax does not accept '%s' regexes"), kind);
		return;
	}

	if (*ptr == '\0') {
		rcfile_error(N_("Missing regex string after '%s' command"), kind);
		return;
	}

	lastthing = *storage;

	/* If there was an earlier command, go to the last of those regexes. */
	while (lastthing != NULL && lastthing->next != NULL)
		lastthing = lastthing->next;

	/* Now gather any valid regexes and add them to the linked list. */
	while (*ptr != '\0') {
		const char *regexstring;
		regexlisttype *newthing;

		if (*ptr != '"') {
			rcfile_error(N_("Regex strings must begin and end with a \" character"));
			return;
		}

		regexstring = ++ptr;
		ptr = parse_next_regex(ptr);
		if (ptr == NULL)
			return;

		/* If the regex string is malformed, skip it. */
		if (!nregcomp(regexstring, NANO_REG_EXTENDED | REG_NOSUB))
			continue;

		/* Copy the regex into a struct, and hook this in at the end. */
		newthing = (regexlisttype *)nmalloc(sizeof(regexlisttype));
		newthing->full_regex = mallocstrcpy(NULL, regexstring);
		newthing->next = NULL;

		if (lastthing == NULL)
			*storage = newthing;
		else
			lastthing->next = newthing;

		lastthing = newthing;
	}
}

/* Gather and store the string after a comment/linter/formatter command. */
void pick_up_name(const char *kind, char *ptr, char **storage)
{
	if (!opensyntax) {
		rcfile_error(
				N_("A '%s' command requires a preceding 'syntax' command"), kind);
		return;
	}

	if (*ptr == '\0') {
		rcfile_error(N_("Missing argument after '%s'"), kind);
		return;
	}

	/* If the argument starts with a quote, find the terminating quote. */
	if (*ptr == '"') {
		char *look = ptr + strlen(ptr);

		while (*look != '"') {
			if (--look == ptr) {
				rcfile_error(N_("Argument of '%s' lacks closing \""), kind);
				return;
			}
		}

		*look = '\0';
		ptr++;
	}

	*storage = mallocstrcpy(*storage, ptr);
}
#endif /* ENABLE_COLOR */

/* Verify that the user has not unmapped every shortcut for a
 * function that we consider 'vital' (such as "Exit"). */
static void check_vitals_mapped(void)
{
	subnfunc *f;
	int v;
#define VITALS 5
	void (*vitals[VITALS])(void) = { do_exit, do_exit, do_cancel, do_cancel, do_cancel };
	int inmenus[VITALS] = { MMAIN, MHELP, MWHEREIS, MREPLACE, MGOTOLINE };

	for  (v = 0; v < VITALS; v++) {
		for (f = allfuncs; f != NULL; f = f->next) {
			if (f->func == vitals[v] && f->menus & inmenus[v]) {
				const sc *s = first_sc_for(inmenus[v], f->func);
				if (!s) {
					fprintf(stderr, _("Fatal error: no keys mapped for function "
										"\"%s\".  Exiting.\n"), f->desc);
					fprintf(stderr, _("If needed, use nano with the -I option "
										"to adjust your nanorc settings.\n"));
					exit(1);
				}
				break;
			}
		}
	}
}

/* Parse the rcfile, once it has been opened successfully at rcstream,
 * and close it afterwards.  If syntax_only is TRUE, allow the file to
 * to contain only color syntax commands. */
void parse_rcfile(FILE *rcstream, bool syntax_only)
{
	char *buf = NULL;
	ssize_t len;
	size_t n = 0;

	while ((len = getline(&buf, &n, rcstream)) > 0) {
		char *ptr, *keyword, *option;
		int set = 0;
		size_t i;

		/* Ignore the newline. */
		if (buf[len - 1] == '\n')
			buf[len - 1] = '\0';

		lineno++;
		ptr = buf;
		while (isblank((unsigned char)*ptr))
			ptr++;

		/* If we have a blank line or a comment, skip to the next
		 * line. */
		if (*ptr == '\0' || *ptr == '#')
			continue;

		/* Otherwise, skip to the next space. */
		keyword = ptr;
		ptr = parse_next_word(ptr);

#ifdef ENABLE_COLOR
		/* Handle extending first... */
		if (strcasecmp(keyword, "extendsyntax") == 0) {
			syntaxtype *sint;
			char *syntaxname = ptr;

			ptr = parse_next_word(ptr);

			for (sint = syntaxes; sint != NULL; sint = sint->next)
				if (!strcmp(sint->name, syntaxname))
					break;

			if (sint == NULL) {
				rcfile_error(N_("Could not find syntax \"%s\" to extend"),
								syntaxname);
				opensyntax = FALSE;
				continue;
			}

			live_syntax = sint;
			opensyntax = TRUE;

			/* Refind the tail of the color list for this syntax. */
			lastcolor = sint->color;
			if (lastcolor != NULL)
				while (lastcolor->next != NULL)
					lastcolor = lastcolor->next;

			keyword = ptr;
			ptr = parse_next_word(ptr);
		}

		/* Try to parse the keyword. */
		if (strcasecmp(keyword, "syntax") == 0) {
			if (opensyntax && lastcolor == NULL)
				rcfile_error(N_("Syntax \"%s\" has no color commands"),
								live_syntax->name);
			parse_syntax(ptr);
		}
		else if (strcasecmp(keyword, "header") == 0)
			grab_and_store("header", ptr, &live_syntax->headers);
		else if (strcasecmp(keyword, "magic") == 0)
#ifdef HAVE_LIBMAGIC
			grab_and_store("magic", ptr, &live_syntax->magics);
#else
			;
#endif
		else if (strcasecmp(keyword, "comment") == 0)
#ifdef ENABLE_COMMENT
			pick_up_name("comment", ptr, &live_syntax->comment);
#else
			;
#endif
		else if (strcasecmp(keyword, "color") == 0)
			parse_colors(ptr, NANO_REG_EXTENDED);
		else if (strcasecmp(keyword, "icolor") == 0)
			parse_colors(ptr, NANO_REG_EXTENDED | REG_ICASE);
		else if (strcasecmp(keyword, "linter") == 0)
			pick_up_name("linter", ptr, &live_syntax->linter);
		else if (strcasecmp(keyword, "formatter") == 0)
#ifdef ENABLE_SPELLER
			pick_up_name("formatter", ptr, &live_syntax->formatter);
#else
			;
#endif
		else if (syntax_only)
			rcfile_error(N_("Command \"%s\" not allowed in included file"),
										keyword);
		else if (strcasecmp(keyword, "include") == 0)
			parse_includes(ptr);
		else
#endif /* ENABLE_COLOR */
		if (strcasecmp(keyword, "set") == 0)
			set = 1;
		else if (strcasecmp(keyword, "unset") == 0)
			set = -1;
		else if (strcasecmp(keyword, "bind") == 0)
			parse_binding(ptr, TRUE);
		else if (strcasecmp(keyword, "unbind") == 0)
			parse_binding(ptr, FALSE);
		else
			rcfile_error(N_("Command \"%s\" not understood"), keyword);

#ifdef ENABLE_COLOR
		/* If a syntax was extended, it stops at the end of the command. */
		if (live_syntax != syntaxes)
			opensyntax = FALSE;
#endif

		if (set == 0)
			continue;

		if (*ptr == '\0') {
			rcfile_error(N_("Missing option"));
			continue;
		}

		option = ptr;
		ptr = parse_next_word(ptr);

		/* Find the just read name among the existing options. */
		for (i = 0; rcopts[i].name != NULL; i++) {
			if (strcasecmp(option, rcopts[i].name) == 0)
				break;
		}

		if (rcopts[i].name == NULL) {
			rcfile_error(N_("Unknown option \"%s\""), option);
			continue;
		}

#ifdef DEBUG
		fprintf(stderr, "    Option name = \"%s\"\n", rcopts[i].name);
		fprintf(stderr, "    Flag = %ld\n", rcopts[i].flag);
#endif
		/* First handle unsetting. */
		if (set == -1) {
			if (rcopts[i].flag != 0)
				UNSET(rcopts[i].flag);
			else
				rcfile_error(N_("Cannot unset option \"%s\""), rcopts[i].name);
			continue;
		}

		/* If the option has a flag, it doesn't take an argument. */
		if (rcopts[i].flag != 0) {
			SET(rcopts[i].flag);
			continue;
		}

		/* The option doesn't have a flag, so it takes an argument. */
		if (*ptr == '\0') {
			rcfile_error(N_("Option \"%s\" requires an argument"),
								rcopts[i].name);
			continue;
		}

		option = ptr;
		if (*option == '"')
			option++;
		ptr = parse_argument(ptr);

		option = mallocstrcpy(NULL, option);
#ifdef DEBUG
		fprintf(stderr, "    Option argument = \"%s\"\n", option);
#endif
		/* Make sure the option argument is a valid multibyte string. */
		if (!is_valid_mbstring(option)) {
			rcfile_error(N_("Argument is not a valid multibyte string"));
			continue;
		}

#ifdef ENABLE_COLOR
		if (strcasecmp(rcopts[i].name, "titlecolor") == 0)
			color_combo[TITLE_BAR] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "numbercolor") == 0)
			color_combo[LINE_NUMBER] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "selectedcolor") == 0)
			color_combo[SELECTED_TEXT] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "statuscolor") == 0)
			color_combo[STATUS_BAR] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "errorcolor") == 0)
			color_combo[ERROR_MESSAGE] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "keycolor") == 0)
			color_combo[KEY_COMBO] = parse_interface_color(option);
		else if (strcasecmp(rcopts[i].name, "functioncolor") == 0)
			color_combo[FUNCTION_TAG] = parse_interface_color(option);
		else
#endif
#ifdef ENABLE_OPERATINGDIR
		if (strcasecmp(rcopts[i].name, "operatingdir") == 0)
			operating_dir = option;
		else
#endif
#ifdef ENABLED_WRAPORJUSTIFY
		if (strcasecmp(rcopts[i].name, "fill") == 0) {
			if (!parse_num(option, &wrap_at)) {
				rcfile_error(N_("Requested fill size \"%s\" is invalid"),
								option);
				wrap_at = -CHARS_FROM_EOL;
			} else
				UNSET(NO_WRAP);
			free(option);
		} else
#endif
#ifndef NANO_TINY
		if (strcasecmp(rcopts[i].name, "matchbrackets") == 0) {
			matchbrackets = option;
			if (has_blank_mbchars(matchbrackets)) {
				rcfile_error(N_("Non-blank characters required"));
				free(matchbrackets);
				matchbrackets = NULL;
			}
		} else if (strcasecmp(rcopts[i].name, "whitespace") == 0) {
			whitespace = option;
			if (mbstrlen(whitespace) != 2 || strlenpt(whitespace) != 2) {
				rcfile_error(N_("Two single-column characters required"));
				free(whitespace);
				whitespace = NULL;
			} else {
				whitespace_len[0] = parse_mbchar(whitespace, NULL, NULL);
				whitespace_len[1] = parse_mbchar(whitespace +
										whitespace_len[0], NULL, NULL);
			}
		} else
#endif
#ifdef ENABLE_JUSTIFY
		if (strcasecmp(rcopts[i].name, "punct") == 0) {
			if (has_blank_mbchars(option)) {
				rcfile_error(N_("Non-blank characters required"));
				free(option);
			} else
				punct = option;
		} else if (strcasecmp(rcopts[i].name, "brackets") == 0) {
			if (has_blank_mbchars(option)) {
				rcfile_error(N_("Non-blank characters required"));
				free(option);
			} else
				brackets = option;
		} else if (strcasecmp(rcopts[i].name, "quotestr") == 0)
			quotestr = option;
		else
#endif
#ifndef NANO_TINY
		if (strcasecmp(rcopts[i].name, "backupdir") == 0)
			backup_dir = option;
		else
		if (strcasecmp(rcopts[i].name, "wordchars") == 0)
			word_chars = option;
		else
#endif
#ifdef ENABLE_SPELLER
		if (strcasecmp(rcopts[i].name, "speller") == 0)
			alt_speller = option;
		else
#endif
		if (strcasecmp(rcopts[i].name, "tabsize") == 0) {
			if (!parse_num(option, &tabsize) || tabsize <= 0) {
				rcfile_error(N_("Requested tab size \"%s\" is invalid"),
								option);
				tabsize = -1;
			}
			free(option);
		}
	}

#ifdef ENABLE_COLOR
	if (opensyntax && lastcolor == NULL)
		rcfile_error(N_("Syntax \"%s\" has no color commands"),
						live_syntax->name);

	opensyntax = FALSE;
#endif

	free(buf);
	fclose(rcstream);
	lineno = 0;

	return;
}

/* Read and interpret one of the two nanorc files. */
void parse_one_nanorc(void)
{
	FILE *rcstream;

	/* Don't try to open directories nor devices. */
	if (!is_good_file(nanorc))
		return;

#ifdef DEBUG
	fprintf(stderr, "Going to parse file \"%s\"\n", nanorc);
#endif
	rcstream = fopen(nanorc, "rb");

	/* If opening the file succeeded, parse it.  Otherwise, only
	 * complain if the file actually exists. */
	if (rcstream != NULL)
		parse_rcfile(rcstream, FALSE);
	else if (errno != ENOENT)
		rcfile_error(N_("Error reading %s: %s"), nanorc, strerror(errno));
}

bool have_nanorc(const char *path, char *name)
{
	if (path == NULL)
		return FALSE;

	free(nanorc);
	nanorc = concatenate(path, name);

	return is_good_file(nanorc);
}

/* First read the system-wide rcfile, then the user's rcfile. */
void do_rcfiles(void)
{
	const char *xdgconfdir;

	nanorc = mallocstrcpy(nanorc, SYSCONFDIR "/nanorc");

	/* Process the system-wide nanorc. */
	parse_one_nanorc();

	/* When configured with --disable-wrapping-as-root, turn wrapping off
	 * for root, so that only root's .nanorc or --fill can turn it on. */
#ifdef DISABLE_ROOTWRAPPING
	if (geteuid() == NANO_ROOT_UID)
		SET(NO_WRAP);
#endif

	get_homedir();
	xdgconfdir = getenv("XDG_CONFIG_HOME");

	/* Now try the to find a nanorc file in the user's home directory
	 * or in the XDG configuration directories. */
	if (have_nanorc(homedir, "/" HOME_RC_NAME))
		parse_one_nanorc();
	else if (have_nanorc(xdgconfdir, "/nano/" RCFILE_NAME))
		parse_one_nanorc();
	else if (have_nanorc(homedir, "/.config/nano/" RCFILE_NAME))
		parse_one_nanorc();
	else if (homedir == NULL && xdgconfdir == NULL)
		rcfile_error(N_("I can't find my home directory!  Wah!"));

	check_vitals_mapped();

	free(nanorc);
}

#endif /* ENABLE_NANORC */
