NetBSD/usr.bin/indent/args.c

/*	$NetBSD: args.c,v 1.72 2021/11/25 21:48:23 rillig Exp $	*/

/*-
 * SPDX-License-Identifier: BSD-4-Clause
 *
 * Copyright (c) 1985 Sun Microsystems, Inc.
 * Copyright (c) 1980, 1993
 *	The Regents of the University of California.  All rights reserved.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#if 0
static char sccsid[] = "@(#)args.c	8.1 (Berkeley) 6/6/93";
#endif

#include <sys/cdefs.h>
#if defined(__NetBSD__)
__RCSID("$NetBSD: args.c,v 1.72 2021/11/25 21:48:23 rillig Exp $");
#elif defined(__FreeBSD__)
__FBSDID("$FreeBSD: head/usr.bin/indent/args.c 336318 2018-07-15 21:04:21Z pstef $");
#endif

/* Read options from profile files and from the command line. */

#include <err.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "indent.h"

#if __STDC_VERSION__ >= 201112L
#define assert_type(expr, type) _Generic((expr), type : (expr))
#else
#define assert_type(expr, type) (expr)
#endif

#define bool_option(name, value, var) \
	{name, true, false, value, 0, 0, assert_type(&(opt.var), bool *)}
#define bool_options(name, var) \
	{name, true, true, false, 0, 0, assert_type(&(opt.var), bool *)}
#define int_option(name, var, min, max) \
	{name, false, false, false, min, max, assert_type(&(opt.var), int *)}

/* See set_special_option for special options. */
static const struct pro {
    const char p_name[5];	/* e.g. "bl", "cli" */
    bool p_is_bool;
    bool p_may_negate;
    bool p_bool_value;		/* only relevant if !p_may_negate */
    short i_min;
    short i_max;
    void *p_var;		/* the associated variable */
} pro[] = {
    bool_options("bacc", blanklines_around_conditional_compilation),
    bool_options("bad", blanklines_after_decl),
    bool_options("badp", blanklines_after_decl_at_top),
    bool_options("bap", blanklines_after_procs),
    bool_options("bbb", blanklines_before_block_comments),
    bool_options("bc", break_after_comma),
    bool_option("bl", false, brace_same_line),
    bool_option("br", true, brace_same_line),
    bool_options("bs", blank_after_sizeof),
    int_option("c", comment_column, 1, 999),
    int_option("cd", decl_comment_column, 1, 999),
    bool_options("cdb", comment_delimiter_on_blankline),
    bool_options("ce", cuddle_else),
    int_option("ci", continuation_indent, 0, 999),
    /* "cli" is special */
    bool_options("cs", space_after_cast),
    int_option("d", unindent_displace, -999, 999),
    int_option("di", decl_indent, 0, 999),
    bool_options("dj", ljust_decl),
    bool_options("eei", extra_expr_indent),
    bool_options("ei", else_if),
    bool_options("fbs", function_brace_split),
    bool_options("fc1", format_col1_comments),
    bool_options("fcb", format_block_comments),
    int_option("i", indent_size, 1, 80),
    bool_options("ip", indent_parameters),
    int_option("l", max_line_length, 1, 999),
    int_option("lc", block_comment_max_line_length, 1, 999),
    int_option("ldi", local_decl_indent, 0, 999),
    bool_options("lp", lineup_to_parens),
    bool_options("lpl", lineup_to_parens_always),
    /* "npro" is special */
    /* "P" is special */
    bool_options("pcs", proc_calls_space),
    bool_options("psl", procnames_start_line),
    bool_options("sc", star_comment_cont),
    bool_options("sob", swallow_optional_blanklines),
    /* "st" is special */
    bool_option("ta", true, auto_typedefs),
    /* "T" is special */
    int_option("ts", tabsize, 1, 80),
    /* "U" is special */
    bool_options("ut", use_tabs),
    bool_options("v", verbose),
};


static void
add_typedefs_from_file(const char *fname)
{
    FILE *file;
    char line[BUFSIZ];

    if ((file = fopen(fname, "r")) == NULL) {
	fprintf(stderr, "indent: cannot open file %s\n", fname);
	exit(1);
    }
    while ((fgets(line, BUFSIZ, file)) != NULL) {
	/* Remove trailing whitespace */
	line[strcspn(line, " \t\n\r")] = '\0';
	register_typename(line);
    }
    (void)fclose(file);
}

static bool
set_special_option(const char *arg, const char *option_source)
{
    const char *arg_end;

    if (strcmp(arg, "-version") == 0) {
	printf("NetBSD indent 2.1\n");
	exit(0);
    }

    if (arg[0] == 'P' || strcmp(arg, "npro") == 0)
	return true;

    if (strncmp(arg, "cli", 3) == 0) {
	arg_end = arg + 3;
	if (arg_end[0] == '\0')
	    goto need_arg;
	char *end;
	opt.case_indent = (float)strtod(arg_end, &end);
	if (*end != '\0')
	    errx(1, "%s: argument \"%s\" to option \"-%.*s\" must be numeric",
		option_source, arg_end, (int)(arg_end - arg), arg);
	return true;
    }

    if (strcmp(arg, "st") == 0) {
	if (input == NULL)
	    input = stdin;
	if (output == NULL)
	    output = stdout;
	return true;
    }

    if (arg[0] == 'T') {
	arg_end = arg + 1;
	if (arg_end[0] == '\0')
	    goto need_arg;
	register_typename(arg_end);
	return true;
    }

    if (arg[0] == 'U') {
	arg_end = arg + 1;
	if (arg_end[0] == '\0')
	    goto need_arg;
	add_typedefs_from_file(arg_end);
	return true;
    }

    return false;

need_arg:
    errx(1, "%s: ``-%.*s'' requires an argument",
	option_source, (int)(arg_end - arg), arg);
    /* NOTREACHED */
}

static const char *
skip_over(const char *s, bool may_negate, const char *prefix)
{
    if (may_negate && s[0] == 'n')
	s++;
    while (*prefix != '\0') {
	if (*prefix++ != *s++)
	    return NULL;
    }
    return s;
}

void
set_option(const char *arg, const char *option_source)
{
    const struct pro *p;
    const char *arg_arg;

    arg++;			/* skip leading '-' */
    if (set_special_option(arg, option_source))
	return;

    for (p = pro + array_length(pro); p-- != pro;)
	if ((arg_arg = skip_over(arg, p->p_may_negate, p->p_name)) != NULL)
	    goto found;
    errx(1, "%s: unknown option \"-%s\"", option_source, arg);
found:

    if (p->p_is_bool) {
	if (arg_arg[0] != '\0')
	    errx(1, "%s: unknown option \"-%s\"", option_source, arg);

	*(bool *)p->p_var = p->p_may_negate ? arg[0] != 'n' : p->p_bool_value;
	return;
    }

    char *end;
    long num = strtol(arg_arg, &end, 10);
    if (*end != '\0')
	errx(1, "%s: argument \"%s\" to option \"-%s\" must be an integer",
	    option_source, arg_arg, p->p_name);

    if (!(ch_isdigit(*arg_arg) && p->i_min <= num && num <= p->i_max))
	errx(1,
	    "%s: argument \"%s\" to option \"-%s\" must be between %d and %d",
	    option_source, arg_arg, p->p_name, p->i_min, p->i_max);

    *(int *)p->p_var = (int)num;
}

static void
load_profile(const char *fname, bool must_exist)
{
    FILE *f;

    if ((f = fopen(fname, "r")) == NULL) {
	if (must_exist)
	    err(EXIT_FAILURE, "profile %s", fname);
	return;
    }

    for (;;) {
	char buf[BUFSIZ];
	size_t n = 0;
	int ch, comment_ch = -1;

	while ((ch = getc(f)) != EOF) {
	    if (ch == '*' && comment_ch == -1 && n > 0 && buf[n - 1] == '/') {
		n--;
		comment_ch = '*';
	    } else if (comment_ch != -1) {
		comment_ch = ch == '/' && comment_ch == '*' ? -1 : ch;
	    } else if (ch_isspace((char)ch)) {
		break;
	    } else if (n >= array_length(buf) - 5) {
		errx(1, "buffer overflow in %s, starting with '%.10s'",
		    fname, buf);
	    } else
		buf[n++] = (char)ch;
	}

	if (n > 0) {
	    buf[n] = '\0';
	    if (opt.verbose)
		printf("profile: %s\n", buf);
	    set_option(buf, fname);
	} else if (ch == EOF)
	    break;
    }
    (void)fclose(f);
}

void
load_profiles(const char *profile_name)
{
    char fname[PATH_MAX];

    if (profile_name != NULL)
	load_profile(profile_name, true);
    else {
	snprintf(fname, sizeof(fname), "%s/.indent.pro", getenv("HOME"));
	load_profile(fname, false);
    }
    load_profile(".indent.pro", false);
}