catgirl/config.c

149 lines
3.7 KiB
C

/* Copyright (C) 2019 C. McEnroe <june@causal.agency>
*
* 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 3 of the License, 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, see <https://www.gnu.org/licenses/>.
*
* Additional permission under GNU GPL version 3 section 7:
*
* If you modify this Program, or any covered work, by linking or
* combining it with LibreSSL (or a modified version of that library),
* containing parts covered by the terms of the OpenSSL License and the
* original SSLeay license, the licensors of this Program grant you
* additional permission to convey the resulting work. Corresponding
* Source for a non-source form of such a combination shall include the
* source code for the parts of LibreSSL used as well as that of the
* covered work.
*/
#include <err.h>
#include <errno.h>
#include <getopt.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "chat.h"
#define WS "\t "
static const char *path;
static FILE *file;
static size_t num;
static char *line;
static size_t cap;
static int clean(int opt) {
if (file) fclose(file);
free(line);
line = NULL;
cap = 0;
return opt;
}
int getopt_config(
int argc, char *const *argv,
const char *optstring, const struct option *longopts, int *longindex
) {
static int opt;
if (opt >= 0) {
opt = getopt_long(argc, argv, optstring, longopts, longindex);
}
if (opt >= 0) return opt;
for (;;) {
if (!file) {
if (optind < argc) {
num = 0;
path = argv[optind++];
file = configOpen(path, "r");
if (!file) return clean('?');
} else {
return clean(-1);
}
}
for (;;) {
ssize_t llen = getline(&line, &cap, file);
if (ferror(file)) {
warn("%s", path);
return clean('?');
}
if (llen <= 0) break;
if (line[llen - 1] == '\n') line[llen - 1] = '\0';
num++;
char *name = line + strspn(line, WS);
size_t len = strcspn(name, WS "=");
if (!name[0] || name[0] == '#') continue;
const struct option *option;
for (option = longopts; option->name; ++option) {
if (strlen(option->name) != len) continue;
if (!strncmp(option->name, name, len)) break;
}
if (!option->name) {
warnx(
"%s:%zu: unrecognized option `%.*s'",
path, num, (int)len, name
);
return clean('?');
}
char *equal = &name[len] + strspn(&name[len], WS);
if (*equal && *equal != '=') {
warnx(
"%s:%zu: option `%s' missing equals sign",
path, num, option->name
);
return clean('?');
}
if (option->has_arg == no_argument && *equal) {
warnx(
"%s:%zu: option `%s' doesn't allow an argument",
path, num, option->name
);
return clean('?');
}
if (option->has_arg == required_argument && !*equal) {
warnx(
"%s:%zu: option `%s' requires an argument",
path, num, option->name
);
return clean(':');
}
optarg = NULL;
if (*equal) {
char *arg = &equal[1] + strspn(&equal[1], WS);
optarg = strdup(arg);
if (!optarg) {
warn("getopt_config");
return clean('?');
}
}
if (longindex) *longindex = option - longopts;
if (option->flag) {
*option->flag = option->val;
return 0;
} else {
return option->val;
}
}
fclose(file);
file = NULL;
}
}