279 lines
7.0 KiB
C
279 lines
7.0 KiB
C
/* $Id$ */
|
|
/**************************************************************************
|
|
* rcfile.c *
|
|
* *
|
|
* Copyright (C) 1999 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 18
|
|
#else
|
|
#define NUM_RCOPTS 17
|
|
#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}};
|
|
|
|
/* 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");
|
|
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(int *errors, 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)
|
|
{
|
|
while (*ptr != ' ' && *ptr != '\n' && ptr != '\0')
|
|
ptr++;
|
|
|
|
if (*ptr == '\0')
|
|
return NULL;
|
|
|
|
/* Null terminate and advance ptr */
|
|
*ptr++ = 0;
|
|
|
|
return ptr;
|
|
}
|
|
|
|
/* Parse the RC file, once it has been opened successfully */
|
|
void parse_rcfile(FILE *rcstream, char *filename)
|
|
{
|
|
char *buf, *ptr, *keyword, *option;
|
|
int set = 0, lineno = 0, i;
|
|
int errors = 0;
|
|
|
|
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;
|
|
else {
|
|
rcfile_msg(&errors, _("Error in %s on line %d: command %s not understood"),
|
|
filename, lineno, 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_msg(&errors, _("Error in %s on line %d: option %s requires an argument"),
|
|
filename, lineno, 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_msg(&errors,
|
|
_("Error in %s on line %d: requested fill size %d too small"),
|
|
filename, lineno, i);
|
|
}
|
|
else
|
|
fill = i;
|
|
#endif
|
|
} else if (!strcasecmp(rcopts[i].name, "tabsize")) {
|
|
if ((i = atoi(option)) <= 0) {
|
|
rcfile_msg(&errors,
|
|
_("Error in %s on line %d: requested tab size %d too small"),
|
|
filename, lineno, 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 *nanorc;
|
|
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, nanorc);
|
|
fclose(rcstream);
|
|
|
|
}
|
|
|
|
|
|
#endif /* ENABLE_NANORC */
|
|
|