| /* $Id$ */ |
| /************************************************************************** |
| * rcfile.c * |
| * * |
| * Copyright (C) 1999-2003 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 "config.h" |
| |
| #include <stdlib.h> |
| #include <stdarg.h> |
| #include <string.h> |
| #include <stdio.h> |
| #include <errno.h> |
| #include <unistd.h> |
| #include <sys/types.h> |
| #include <sys/stat.h> |
| #include <fcntl.h> |
| #include <pwd.h> |
| #include <assert.h> |
| #include "proto.h" |
| #include "nano.h" |
| |
| #ifdef ENABLE_NANORC |
| |
| const static rcoption rcopts[] = { |
| #ifndef NANO_SMALL |
| {"autoindent", AUTOINDENT}, |
| {"backup", BACKUP_FILE}, |
| #endif |
| {"const", CONSTUPDATE}, |
| #ifndef NANO_SMALL |
| {"cut", CUT_TO_END}, |
| #endif |
| #ifndef DISABLE_WRAPJUSTIFY |
| {"fill", 0}, |
| #endif |
| {"keypad", ALT_KEYPAD}, |
| #if !defined(DISABLE_MOUSE) && defined(NCURSES_MOUSE_VERSION) |
| {"mouse", USE_MOUSE}, |
| #endif |
| #ifdef ENABLE_MULTIBUFFER |
| {"multibuffer", MULTIBUFFER}, |
| #endif |
| #ifndef NANO_SMALL |
| {"noconvert", NO_CONVERT}, |
| #endif |
| {"nofollow", NOFOLLOW_SYMLINKS}, |
| {"nohelp", NO_HELP}, |
| #ifndef DISABLE_WRAPPING |
| {"nowrap", NO_WRAP}, |
| #endif |
| #ifndef DISABLE_OPERATINGDIR |
| {"operatingdir", 0}, |
| #endif |
| {"preserve", PRESERVE}, |
| #ifndef DISABLE_JUSTIFY |
| {"quotestr", 0}, |
| #endif |
| #ifdef HAVE_REGEX_H |
| {"regexp", USE_REGEXP}, |
| #endif |
| #ifndef NANO_SMALL |
| {"smooth", SMOOTHSCROLL}, |
| #endif |
| #ifndef DISABLE_SPELLER |
| {"speller", 0}, |
| #endif |
| {"suspend", SUSPEND}, |
| {"tabsize", 0}, |
| {"tempfile", TEMP_OPT}, |
| {"view", VIEW_MODE}, |
| {"historylog", HISTORYLOG}, |
| {NULL, 0} |
| }; |
| |
| 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(const char *msg, ...) |
| { |
| va_list ap; |
| |
| fprintf(stderr, "\n"); |
| if (lineno > 0) |
| 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(const 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 != '\t' && *ptr != '\n' && *ptr != '\0') |
| ptr++; |
| |
| if (*ptr == '\0') |
| return NULL; |
| |
| /* Null terminate and advance ptr */ |
| *ptr++ = 0; |
| |
| while (*ptr == ' ' || *ptr == '\t') |
| ptr++; |
| |
| return ptr; |
| } |
| |
| /* The keywords operatingdir, fill, tabsize, speller, and quotestr take |
| * an argument when set. Among these, operatingdir, speller, and |
| * quotestr have to allow tabs and spaces in the argument. Thus, if the |
| * next word starts with a ", we say it ends with the last " of the line. |
| * Otherwise, the word is interpreted as usual. That is so the arguments |
| * can contain "s too. */ |
| char *parse_argument(char *ptr) |
| { |
| const char *ptr_bak = ptr; |
| char *last_quote = NULL; |
| |
| assert(ptr != NULL); |
| |
| if (*ptr != '"') |
| return parse_next_word(ptr); |
| |
| do { |
| ptr++; |
| if (*ptr == '"') |
| last_quote = ptr; |
| } while (*ptr != '\n' && *ptr != '\0'); |
| |
| if (last_quote == NULL) { |
| if (*ptr == '\0') |
| ptr = NULL; |
| else |
| *ptr++ = '\0'; |
| rcfile_error(_("argument %s has unterminated \""), ptr_bak); |
| } else { |
| *last_quote = '\0'; |
| ptr = last_quote + 1; |
| } |
| if (ptr != NULL) |
| while (*ptr == ' ' || *ptr == '\t') |
| ptr++; |
| return ptr; |
| } |
| |
| #ifdef ENABLE_COLOR |
| |
| int colortoint(const char *colorname, int *bright) |
| { |
| int mcolor = 0; |
| |
| if (colorname == NULL) |
| return -1; |
| |
| if (!strncasecmp(colorname, "bright", 6)) { |
| *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; |
| } |
| |
| char *parse_next_regex(char *ptr) |
| { |
| while ((*ptr != '"' || (*(ptr + 1) != ' ' && *(ptr + 1) != '\n')) |
| && *ptr != '\n' && *ptr != '\0') |
| ptr++; |
| |
| if (*ptr == '\0') |
| return NULL; |
| |
| /* Null terminate and advance ptr */ |
| *ptr++ = '\0'; |
| |
| while (*ptr == ' ' || *ptr == '\t') |
| ptr++; |
| |
| return ptr; |
| } |
| |
| void parse_syntax(char *ptr) |
| { |
| syntaxtype *tmpsyntax = NULL; |
| const char *fileregptr = NULL, *nameptr = NULL; |
| exttype *exttmp = NULL; |
| |
| while (*ptr == ' ') |
| ptr++; |
| |
| if (*ptr == '\n' || *ptr == '\0') |
| return; |
| |
| if (*ptr != '"') { |
| rcfile_error(_("regex strings must begin and end with a \" character\n")); |
| return; |
| } |
| ptr++; |
| |
| nameptr = ptr; |
| ptr = parse_next_regex(ptr); |
| |
| if (ptr == NULL) { |
| rcfile_error(_("Missing syntax name")); |
| return; |
| } |
| |
| if (syntaxes == NULL) { |
| syntaxes = (syntaxtype *)nmalloc(sizeof(syntaxtype)); |
| tmpsyntax = syntaxes; |
| SET(COLOR_SYNTAX); |
| } else { |
| for (tmpsyntax = syntaxes; tmpsyntax->next != NULL; |
| tmpsyntax = tmpsyntax->next) |
| ; |
| tmpsyntax->next = (syntaxtype *)nmalloc(sizeof(syntaxtype)); |
| tmpsyntax = tmpsyntax->next; |
| #ifdef DEBUG |
| fprintf(stderr, _("Adding new syntax after 1st\n")); |
| #endif |
| } |
| tmpsyntax->desc = mallocstrcpy(NULL, nameptr); |
| tmpsyntax->color = NULL; |
| tmpsyntax->extensions = NULL; |
| tmpsyntax->next = NULL; |
| #ifdef DEBUG |
| fprintf(stderr, _("Starting a new syntax type\n")); |
| fprintf(stderr, "string val=%s\n", nameptr); |
| #endif |
| |
| /* Now load in the extensions to their part of the struct */ |
| while (*ptr != '\n' && *ptr != '\0') { |
| while (*ptr != '"' && *ptr != '\n' && *ptr != '\0') |
| ptr++; |
| |
| if (*ptr == '\n' || *ptr == '\0') |
| return; |
| ptr++; |
| |
| fileregptr = ptr; |
| ptr = parse_next_regex(ptr); |
| |
| if (tmpsyntax->extensions == NULL) { |
| tmpsyntax->extensions = (exttype *)nmalloc(sizeof(exttype)); |
| exttmp = tmpsyntax->extensions; |
| } else { |
| for (exttmp = tmpsyntax->extensions; exttmp->next != NULL; |
| exttmp = exttmp->next); |
| exttmp->next = (exttype *)nmalloc(sizeof(exttype)); |
| exttmp = exttmp->next; |
| } |
| exttmp->val = mallocstrcpy(NULL, fileregptr); |
| exttmp->next = NULL; |
| } |
| } |
| |
| /* Parse the color stuff into the colorstrings array */ |
| void parse_colors(char *ptr) |
| { |
| int fg, bg, bright = 0; |
| int expectend = 0; /* Do we expect an end= line? */ |
| char *fgstr; |
| colortype *tmpcolor = NULL; |
| syntaxtype *tmpsyntax = NULL; |
| |
| fgstr = ptr; |
| ptr = parse_next_word(ptr); |
| |
| if (ptr == NULL) { |
| rcfile_error(_("Missing color name")); |
| return; |
| } |
| |
| if (strstr(fgstr, ",")) { |
| strtok(fgstr, ","); |
| bg = colortoint(strtok(NULL, ","), &bright); |
| } else |
| bg = -1; |
| |
| fg = colortoint(fgstr, &bright); |
| |
| if (syntaxes == NULL) { |
| rcfile_error(_("Cannot add a color directive without a syntax line")); |
| return; |
| } |
| |
| for (tmpsyntax = syntaxes; tmpsyntax->next != NULL; |
| tmpsyntax = tmpsyntax->next) |
| ; |
| |
| /* Now the fun part, start adding regexps to individual strings |
| in the colorstrings array, woo! */ |
| |
| while (*ptr != '\0') { |
| while (*ptr == ' ') |
| ptr++; |
| |
| if (*ptr == '\n' || *ptr == '\0') |
| break; |
| |
| if (!strncasecmp(ptr, "start=", 6)) { |
| ptr += 6; |
| expectend = 1; |
| } |
| |
| if (*ptr != '"') { |
| rcfile_error(_("regex strings must begin and end with a \" character\n")); |
| ptr = parse_next_regex(ptr); |
| continue; |
| } |
| ptr++; |
| |
| if (tmpsyntax->color == NULL) { |
| tmpsyntax->color = nmalloc(sizeof(colortype)); |
| tmpcolor = tmpsyntax->color; |
| #ifdef DEBUG |
| fprintf(stderr, _("Starting a new colorstring for fg %d bg %d\n"), |
| fg, bg); |
| #endif |
| } else { |
| for (tmpcolor = tmpsyntax->color; |
| tmpcolor->next != NULL; tmpcolor = tmpcolor->next); |
| #ifdef DEBUG |
| fprintf(stderr, _("Adding new entry for fg %d bg %d\n"), fg, bg); |
| #endif |
| tmpcolor->next = nmalloc(sizeof(colortype)); |
| tmpcolor = tmpcolor->next; |
| } |
| tmpcolor->fg = fg; |
| tmpcolor->bg = bg; |
| tmpcolor->bright = bright; |
| tmpcolor->next = NULL; |
| |
| tmpcolor->start = ptr; |
| ptr = parse_next_regex(ptr); |
| tmpcolor->start = mallocstrcpy(NULL, tmpcolor->start); |
| #ifdef DEBUG |
| fprintf(stderr, _("string val=%s\n"), tmpcolor->start); |
| #endif |
| |
| if (!expectend) |
| tmpcolor->end = NULL; |
| else { |
| if (ptr == NULL || strncasecmp(ptr, "end=", 4)) { |
| rcfile_error(_ |
| ("\"start=\" requires a corresponding \"end=\"")); |
| return; |
| } |
| |
| ptr += 4; |
| |
| if (*ptr != '"') { |
| rcfile_error(_ |
| ("regex strings must begin and end with a \" character\n")); |
| continue; |
| } |
| ptr++; |
| |
| tmpcolor->end = ptr; |
| ptr = parse_next_regex(ptr); |
| tmpcolor->end = mallocstrcpy(NULL, tmpcolor->end); |
| #ifdef DEBUG |
| fprintf(stderr, _("For end part, beginning = \"%s\"\n"), |
| tmpcolor->end); |
| #endif |
| } |
| } |
| } |
| |
| #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, j; |
| |
| buf = charalloc(1024); |
| while (fgets(buf, 1023, rcstream) != 0) { |
| lineno++; |
| ptr = buf; |
| while (*ptr == ' ' || *ptr == '\t') |
| 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 == NULL) |
| 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, "syntax")) |
| parse_syntax(ptr); |
| else if (!strcasecmp(keyword, "color")) |
| parse_colors(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; rcopts[i].name != NULL; i++) { |
| if (!strcasecmp(option, rcopts[i].name)) { |
| #ifdef DEBUG |
| fprintf(stderr, _("parse_rcfile: Parsing option %s\n"), |
| rcopts[i].name); |
| #endif |
| if (set == 1) { |
| if (!strcasecmp(rcopts[i].name, "tabsize") |
| #ifndef DISABLE_OPERATINGDIR |
| || !strcasecmp(rcopts[i].name, "operatingdir") |
| #endif |
| #ifndef DISABLE_WRAPJUSTIFY |
| || !strcasecmp(rcopts[i].name, "fill") |
| #endif |
| #ifndef DISABLE_JUSTIFY |
| || !strcasecmp(rcopts[i].name, "quotestr") |
| #endif |
| #ifndef DISABLE_SPELLER |
| || !strcasecmp(rcopts[i].name, "speller") |
| #endif |
| ) { |
| if (*ptr == '\n' || *ptr == '\0') { |
| rcfile_error(_ |
| ("option %s requires an argument"), |
| rcopts[i].name); |
| continue; |
| } |
| option = ptr; |
| if (*option == '"') |
| option++; |
| ptr = parse_argument(ptr); |
| #ifdef DEBUG |
| fprintf(stderr, "option = %s\n", option); |
| #endif |
| #ifndef DISABLE_OPERATINGDIR |
| if (!strcasecmp(rcopts[i].name, "operatingdir")) |
| operating_dir = mallocstrcpy(NULL, option); |
| else |
| #endif |
| #ifndef DISABLE_WRAPJUSTIFY |
| if (!strcasecmp(rcopts[i].name, "fill")) { |
| char *first_error; |
| |
| /* Using strtol() instead of atoi() lets |
| * us accept 0 while checking other |
| * errors. */ |
| j = (int)strtol(option, &first_error, 10); |
| if (errno == ERANGE || *option == '\0' || *first_error != '\0') |
| rcfile_error(_("requested fill size %d invalid"), |
| j); |
| else |
| wrap_at = j; |
| } else |
| #endif |
| #ifndef DISABLE_JUSTIFY |
| if (!strcasecmp(rcopts[i].name, "quotestr")) |
| quotestr = mallocstrcpy(NULL, option); |
| else |
| #endif |
| #ifndef DISABLE_SPELLER |
| if (!strcasecmp(rcopts[i].name, "speller")) |
| alt_speller = mallocstrcpy(NULL, option); |
| else |
| #endif |
| { |
| char *first_error; |
| |
| /* Using strtol instead of atoi lets us |
| * accept 0 while checking other |
| * errors. */ |
| j = (int)strtol(option, &first_error, 10); |
| if (errno == ERANGE || *option == '\0' || *first_error != '\0') |
| rcfile_error(_("requested tab size %d invalid"), |
| j); |
| else |
| tabsize = j; |
| } |
| } 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 |
| } |
| } |
| } |
| } |
| } |
| free(buf); |
| 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) |
| { |
| FILE *rcstream; |
| const struct passwd *userage; |
| uid_t euid = geteuid(); |
| |
| #ifdef SYSCONFDIR |
| assert(sizeof(SYSCONFDIR) == strlen(SYSCONFDIR) + 1); |
| nanorc = charalloc(sizeof(SYSCONFDIR) + 7); |
| sprintf(nanorc, "%s/nanorc", SYSCONFDIR); |
| /* Try to open system nanorc */ |
| if ((rcstream = fopen(nanorc, "r")) != NULL) { |
| /* Parse it! */ |
| parse_rcfile(rcstream); |
| fclose(rcstream); |
| } |
| #endif |
| |
| /* Determine home directory using getpwent(), don't rely on $HOME */ |
| do { |
| userage = getpwent(); |
| } while (userage != NULL && userage->pw_uid != euid); |
| endpwent(); |
| |
| lineno = 0; |
| |
| if (userage == NULL) { |
| rcfile_error(_("I can't find my home directory! Wah!")); |
| SET(NO_RCFILE); |
| } else { |
| nanorc = nrealloc(nanorc, strlen(userage->pw_dir) + 9); |
| sprintf(nanorc, "%s/.nanorc", userage->pw_dir); |
| |
| #if defined(DISABLE_ROOTWRAP) && !defined(DISABLE_WRAPPING) |
| /* If we've already read $SYSCONFDIR/nanorc (if it's there), we're |
| root, and --disable-wrapping-as-root is used, turn wrapping off */ |
| if (euid == 0) |
| SET(NO_WRAP); |
| #endif |
| if ((rcstream = fopen(nanorc, "r")) == NULL) { |
| /* Don't complain about the file not existing */ |
| if (errno != ENOENT) { |
| rcfile_error(_("Unable to open ~/.nanorc file, %s"), |
| strerror(errno)); |
| SET(NO_RCFILE); |
| } |
| } else { |
| parse_rcfile(rcstream); |
| fclose(rcstream); |
| } |
| } |
| |
| free(nanorc); |
| #ifdef ENABLE_COLOR |
| set_colorpairs(); |
| #endif |
| } |
| |
| #endif /* ENABLE_NANORC */ |