 @@ -1,1391 +1,1434 @@
-/*	$NetBSD: indent.c,v 1.47 2021/03/13 00:26:56 rillig Exp $	*/
+/*	$NetBSD: indent.c,v 1.48 2021/03/13 09:21:57 rillig Exp $	*/
 /*-
  * SPDX-License-Identifier: BSD-4-Clause
+ *
  * Copyright (c) 1985 Sun Microsystems, Inc.
  * Copyright (c) 1976 Board of Trustees of the University of Illinois.
  * Copyright (c) 1980, 1993
  *	The Regents of the University of California.  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
 #ifndef lint
 static char sccsid[] = "@(#)indent.c	5.17 (Berkeley) 6/7/93";
 #endif /* not lint */
 #endif
 #include <sys/cdefs.h>
 #ifndef lint
 #if defined(__NetBSD__)
-__RCSID("$NetBSD: indent.c,v 1.47 2021/03/13 00:26:56 rillig Exp $");
+__RCSID("$NetBSD: indent.c,v 1.48 2021/03/13 09:21:57 rillig Exp $");
 #elif defined(__FreeBSD__)
 __FBSDID("$FreeBSD: head/usr.bin/indent/indent.c 340138 2018-11-04 19:24:49Z oshogbo $");
 #endif
 #endif
 #include <sys/param.h>
 #if HAVE_CAPSICUM
 #include <sys/capsicum.h>
 #include <capsicum_helpers.h>
 #endif
 #include <err.h>
 #include <errno.h>
 #include <fcntl.h>
 #include <unistd.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <ctype.h>
 #include "indent.h"
 struct options opt;
 struct parser_state ps;
 char       *labbuf;
 char       *s_lab;
 char       *e_lab;
 char       *l_lab;
 char       *codebuf;
 char       *s_code;
 char       *e_code;
 char       *l_code;
 char       *combuf;
 char       *s_com;
 char       *e_com;
 char       *l_com;
 char       *tokenbuf;
 char	   *s_token;
 char       *e_token;
 char	   *l_token;
 char       *in_buffer;
 char	   *in_buffer_limit;
 char       *buf_ptr;
 char       *buf_end;
 char        sc_buf[sc_size];
 char       *save_com;
 char       *sc_end;
 char       *bp_save;
 char       *be_save;
 int         found_err;
 int         n_real_blanklines;
 int         prefix_blankline_requested;
 int         postfix_blankline_requested;
 int         break_comma;
 float       case_ind;
 int         code_lines;
 int         had_eof;
 int         line_no;
 int         inhibit_formatting;
 int         suppress_blanklines;
 int         ifdef_level;
 struct parser_state state_stack[5];
 struct parser_state match_state[5];
 FILE       *input;
 FILE       *output;
 static void bakcopy(void);
 static void indent_declaration(int, int);
 const char *in_name = "Standard Input";	/* will always point to name of input
 					 * file */
 const char *out_name = "Standard Output";	/* will always point to name
 						 * of output file */
 const char *simple_backup_suffix = ".BAK";	/* Suffix to use for backup
 						 * files */
 char        bakfile[MAXPATHLEN] = "";
 static void
 check_size_code(size_t desired_size)
+{
     if (e_code + (desired_size) < l_code)
         return;
     size_t nsize = l_code - s_code + 400 + desired_size;
     size_t code_len = e_code - s_code;
     codebuf = realloc(codebuf, nsize);
     if (codebuf == NULL)
 	err(1, NULL);
     e_code = codebuf + code_len + 1;
     l_code = codebuf + nsize - 5;
     s_code = codebuf + 1;
+}
 static void
 check_size_label(size_t desired_size)
+{
     if (e_lab + (desired_size) < l_lab)
         return;
     size_t nsize = l_lab - s_lab + 400 + desired_size;
     size_t label_len = e_lab - s_lab;
     labbuf = realloc(labbuf, nsize);
     if (labbuf == NULL)
 	err(1, NULL);
     e_lab = labbuf + label_len + 1;
     l_lab = labbuf + nsize - 5;
     s_lab = labbuf + 1;
+}
 #if HAVE_CAPSICUM
 static void
 init_capsicum(void)
+{
     cap_rights_t rights;
     /* Restrict input/output descriptors and enter Capsicum sandbox. */
     cap_rights_init(&rights, CAP_FSTAT, CAP_WRITE);
     if (caph_rights_limit(fileno(output), &rights) < 0)
 	err(EXIT_FAILURE, "unable to limit rights for %s", out_name);
     cap_rights_init(&rights, CAP_FSTAT, CAP_READ);
     if (caph_rights_limit(fileno(input), &rights) < 0)
 	err(EXIT_FAILURE, "unable to limit rights for %s", in_name);
     if (caph_enter() < 0)
 	err(EXIT_FAILURE, "unable to enter capability mode");
+}
 #endif
 static void
 search_brace(token_type *inout_type_code, int *inout_force_nl,
 	     int *inout_comment_buffered, int *inout_last_else)
+{
     while (ps.search_brace) {
 	switch (*inout_type_code) {
 	case newline:
 	    if (sc_end == NULL) {
 		save_com = sc_buf;
 		save_com[0] = save_com[1] = ' ';
 		sc_end = &save_com[2];
+	    }
 	    *sc_end++ = '\n';
 	    /*
 	     * We may have inherited a force_nl == true from the previous
 	     * token (like a semicolon). But once we know that a newline
 	     * has been scanned in this loop, force_nl should be false.
+	     *
 	     * However, the force_nl == true must be preserved if newline
 	     * is never scanned in this loop, so this assignment cannot be
 	     * done earlier.
 	     */
 	    *inout_force_nl = false;
 	case form_feed:
 	    break;
 	case comment:
 	    if (sc_end == NULL) {
 		/*
 		 * Copy everything from the start of the line, because
 		 * pr_comment() will use that to calculate original
 		 * indentation of a boxed comment.
 		 */
 		memcpy(sc_buf, in_buffer, buf_ptr - in_buffer - 4);
 		save_com = sc_buf + (buf_ptr - in_buffer - 4);
 		save_com[0] = save_com[1] = ' ';
 		sc_end = &save_com[2];
+	    }
 	    *inout_comment_buffered = true;
 	    *sc_end++ = '/';	/* copy in start of comment */
 	    *sc_end++ = '*';
 	    for (;;) {		/* loop until the end of the comment */
 		*sc_end = *buf_ptr++;
 		if (buf_ptr >= buf_end)
 		    fill_buffer();
 		if (*sc_end++ == '*' && *buf_ptr == '/')
 		    break;	/* we are at end of comment */
 		if (sc_end >= &save_com[sc_size]) {	/* check for temp buffer
 							 * overflow */
 		    diag(1, "Internal buffer overflow - Move big comment from right after if, while, or whatever");
 		    fflush(output);
 		    exit(1);
+		}
+	    }
 	    *sc_end++ = '/';	/* add ending slash */
 	    if (++buf_ptr >= buf_end)	/* get past / in buffer */
 		fill_buffer();
 	    break;
 	case lbrace:
 	    /*
 	     * Put KNF-style lbraces before the buffered up tokens and
 	     * jump out of this loop in order to avoid copying the token
 	     * again under the default case of the switch below.
 	     */
 	    if (sc_end != NULL && opt.btype_2) {
 		save_com[0] = '{';
 		/*
 		 * Originally the lbrace may have been alone on its own
 		 * line, but it will be moved into "the else's line", so
 		 * if there was a newline resulting from the "{" before,
 		 * it must be scanned now and ignored.
 		 */
 		while (isspace((unsigned char)*buf_ptr)) {
 		    if (++buf_ptr >= buf_end)
 			fill_buffer();
 		    if (*buf_ptr == '\n')
 			break;
+		}
 		goto sw_buffer;
+	    }
 	    /* FALLTHROUGH */
 	default:		/* it is the start of a normal statement */
+	{
 	    int remove_newlines;
 	    remove_newlines =
 		    /* "} else" */
 		    (*inout_type_code == keyword_do_else && *token == 'e' &&
 		     e_code != s_code && e_code[-1] == '}')
 		    /* "else if" */
 		    || (*inout_type_code == keyword_for_if_while &&
 			*token == 'i' && *inout_last_else && opt.else_if);
 	    if (remove_newlines)
 		*inout_force_nl = false;
 	    if (sc_end == NULL) {	/* ignore buffering if
 					 * comment wasn't saved up */
 		ps.search_brace = false;
 		return;
+	    }
 	    while (sc_end > save_com && isblank((unsigned char)sc_end[-1])) {
 		sc_end--;
+	    }
 	    if (opt.swallow_optional_blanklines ||
 		(!*inout_comment_buffered && remove_newlines)) {
 		*inout_force_nl = !remove_newlines;
 		while (sc_end > save_com && sc_end[-1] == '\n') {
 		    sc_end--;
+		}
+	    }
 	    if (*inout_force_nl) {	/* if we should insert a nl here, put
 					 * it into the buffer */
 		*inout_force_nl = false;
 		--line_no;	/* this will be re-increased when the
 				 * newline is read from the buffer */
 		*sc_end++ = '\n';
 		*sc_end++ = ' ';
 		if (opt.verbose) /* print error msg if the line was
 				 * not already broken */
 		    diag(0, "Line broken");
+	    }
 	    for (const char *t_ptr = token; *t_ptr; ++t_ptr)
 		*sc_end++ = *t_ptr;
 	    sw_buffer:
 	    ps.search_brace = false;	/* stop looking for start of stmt */
 	    bp_save = buf_ptr;	/* save current input buffer */
 	    be_save = buf_end;
 	    buf_ptr = save_com;	/* fix so that subsequent calls to
 				 * lexi will take tokens out of save_com */
 	    *sc_end++ = ' ';	/* add trailing blank, just in case */
 	    buf_end = sc_end;
 	    sc_end = NULL;
 	    break;
+	}
 	}			/* end of switch */
 	/*
 	 * We must make this check, just in case there was an unexpected
 	 * EOF.
 	 */
 	if (*inout_type_code != end_of_file) {
 	    /*
 	     * The only intended purpose of calling lexi() below is to
 	     * categorize the next token in order to decide whether to
 	     * continue buffering forthcoming tokens. Once the buffering
 	     * is over, lexi() will be called again elsewhere on all of
 	     * the tokens - this time for normal processing.
+	     *
 	     * Calling it for this purpose is a bug, because lexi() also
 	     * changes the parser state and discards leading whitespace,
 	     * which is needed mostly for comment-related considerations.
+	     *
 	     * Work around the former problem by giving lexi() a copy of
 	     * the current parser state and discard it if the call turned
 	     * out to be just a look ahead.
+	     *
 	     * Work around the latter problem by copying all whitespace
 	     * characters into the buffer so that the later lexi() call
 	     * will read them.
 	     */
 	    if (sc_end != NULL) {
 		while (*buf_ptr == ' ' || *buf_ptr == '\t') {
 		    *sc_end++ = *buf_ptr++;
 		    if (sc_end >= &save_com[sc_size]) {
 			errx(1, "input too long");
+		    }
+		}
 		if (buf_ptr >= buf_end) {
 		    fill_buffer();
+		}
+	    }
 	    struct parser_state transient_state;
 	    transient_state = ps;
 	    *inout_type_code = lexi(&transient_state);	/* read another token */
 	    if (*inout_type_code != newline && *inout_type_code != form_feed &&
 		*inout_type_code != comment && !transient_state.search_brace) {
 		ps = transient_state;
+	    }
+	}
+    }
     *inout_last_else = 0;
+}
 int
 main(int argc, char **argv)
+{
     int         dec_ind;	/* current indentation for declarations */
     int         di_stack[20];	/* a stack of structure indentation levels */
     int         force_nl;	/* when true, code must be broken */
     token_type  hd_type = end_of_file; /* used to store type of stmt
 				 * for if (...), for (...), etc */
     int		i;		/* local loop counter */
     int         scase;		/* set to true when we see a case, so we will
 				 * know what to do with the following colon */
     int         sp_sw;		/* when true, we are in the expression of
 				 * if(...), while(...), etc. */
     int         squest;		/* when this is positive, we have seen a ?
 				 * without the matching : in a <c>?<s>:<s>
 				 * construct */
     int		tabs_to_var;	/* true if using tabs to indent to var name */
     token_type	type_code;	/* returned by lexi */
     int         last_else = 0;	/* true iff last keyword was an else */
     const char *profile_name = NULL;
     const char *envval = NULL;
     /*-----------------------------------------------*\
     |		      INITIALIZATION		      |
     \*-----------------------------------------------*/
     found_err = 0;
     ps.p_stack[0] = stmt;	/* this is the parser's stack */
     ps.last_nl = true;		/* this is true if the last thing scanned was
 				 * a newline */
     ps.last_token = semicolon;
     combuf = malloc(bufsize);
     if (combuf == NULL)
 	err(1, NULL);
     labbuf = malloc(bufsize);
     if (labbuf == NULL)
 	err(1, NULL);
     codebuf = malloc(bufsize);
     if (codebuf == NULL)
 	err(1, NULL);
     tokenbuf = malloc(bufsize);
     if (tokenbuf == NULL)
 	err(1, NULL);
     alloc_typenames();
     init_constant_tt();
     l_com = combuf + bufsize - 5;
     l_lab = labbuf + bufsize - 5;
     l_code = codebuf + bufsize - 5;
     l_token = tokenbuf + bufsize - 5;
     combuf[0] = codebuf[0] = labbuf[0] = ' ';	/* set up code, label, and
 						 * comment buffers */
     combuf[1] = codebuf[1] = labbuf[1] = tokenbuf[1] = '\0';
     opt.else_if = 1;		/* Default else-if special processing to on */
     s_lab = e_lab = labbuf + 1;
     s_code = e_code = codebuf + 1;
     s_com = e_com = combuf + 1;
     s_token = e_token = tokenbuf + 1;
     in_buffer = malloc(10);
     if (in_buffer == NULL)
 	err(1, NULL);
     in_buffer_limit = in_buffer + 8;
     buf_ptr = buf_end = in_buffer;
     line_no = 1;
     had_eof = ps.in_decl = ps.decl_on_line = break_comma = false;
     sp_sw = force_nl = false;
     ps.in_or_st = false;
     ps.bl_line = true;
     dec_ind = 0;
     di_stack[ps.dec_nest = 0] = 0;
     ps.want_blank = ps.in_stmt = ps.ind_stmt = false;
     scase = ps.pcase = false;
     squest = 0;
     sc_end = NULL;
     bp_save = NULL;
     be_save = NULL;
     output = NULL;
     tabs_to_var = 0;
     envval = getenv("SIMPLE_BACKUP_SUFFIX");
     if (envval)
         simple_backup_suffix = envval;
     /*--------------------------------------------------*\
     |			COMMAND LINE SCAN		 |
     \*--------------------------------------------------*/
 #ifdef undef
     max_col = 78;		/* -l78 */
     lineup_to_parens = 1;	/* -lp */
     lineup_to_parens_always = 0;	/* -nlpl */
     ps.ljust_decl = 0;		/* -ndj */
     ps.com_ind = 33;		/* -c33 */
     star_comment_cont = 1;	/* -sc */
     ps.ind_size = 8;		/* -i8 */
     verbose = 0;
     ps.decl_indent = 16;	/* -di16 */
     ps.local_decl_indent = -1;	/* if this is not set to some nonnegative value
 				 * by an arg, we will set this equal to
 				 * ps.decl_ind */
     ps.indent_parameters = 1;	/* -ip */
     ps.decl_com_ind = 0;	/* if this is not set to some positive value
 				 * by an arg, we will set this equal to
 				 * ps.com_ind */
     btype_2 = 1;		/* -br */
     cuddle_else = 1;		/* -ce */
     ps.unindent_displace = 0;	/* -d0 */
     ps.case_indent = 0;		/* -cli0 */
     format_block_comments = 1;	/* -fcb */
     format_col1_comments = 1;	/* -fc1 */
     procnames_start_line = 1;	/* -psl */
     proc_calls_space = 0;	/* -npcs */
     comment_delimiter_on_blankline = 1;	/* -cdb */
     ps.leave_comma = 1;		/* -nbc */
 #endif
     for (i = 1; i < argc; ++i)
 	if (strcmp(argv[i], "-npro") == 0)
 	    break;
 	else if (argv[i][0] == '-' && argv[i][1] == 'P' && argv[i][2] != '\0')
 	    profile_name = argv[i];	/* non-empty -P (set profile) */
     set_defaults();
     if (i >= argc)
 	set_profile(profile_name);
     for (i = 1; i < argc; ++i) {
 	/*
 	 * look thru args (if any) for changes to defaults
 	 */
 	if (argv[i][0] != '-') {/* no flag on parameter */
 	    if (input == NULL) {	/* we must have the input file */
 		in_name = argv[i];	/* remember name of input file */
 		input = fopen(in_name, "r");
 		if (input == NULL)	/* check for open error */
 			err(1, "%s", in_name);
 		continue;
 	    } else if (output == NULL) {	/* we have the output file */
 		out_name = argv[i];	/* remember name of output file */
 		if (strcmp(in_name, out_name) == 0) {	/* attempt to overwrite
 							 * the file */
 		    errx(1, "input and output files must be different");
+		}
 		output = fopen(out_name, "w");
 		if (output == NULL)	/* check for create error */
 			err(1, "%s", out_name);
 		continue;
+	    }
 	    errx(1, "unknown parameter: %s", argv[i]);
 	} else
 	    set_option(argv[i]);
     }				/* end of for */
     if (input == NULL)
 	input = stdin;
     if (output == NULL) {
 	if (input == stdin)
 	    output = stdout;
 	else {
 	    out_name = in_name;
 	    bakcopy();
+	}
+    }
 #if HAVE_CAPSICUM
     init_capsicum();
 #endif
     if (opt.com_ind <= 1)
 	opt.com_ind = 2;	/* don't put normal comments before column 2 */
     if (opt.block_comment_max_col <= 0)
 	opt.block_comment_max_col = opt.max_col;
     if (opt.local_decl_indent < 0) /* if not specified by user, set this */
 	opt.local_decl_indent = opt.decl_indent;
     if (opt.decl_com_ind <= 0)	/* if not specified by user, set this */
 	opt.decl_com_ind = opt.ljust_decl ? (opt.com_ind <= 10 ? 2 : opt.com_ind - 8) : opt.com_ind;
     if (opt.continuation_indent == 0)
 	opt.continuation_indent = opt.ind_size;
     fill_buffer();		/* get first batch of stuff into input buffer */
     parse(semicolon);
+    {
 	char *p = buf_ptr;
 	int col = 1;
 	while (1) {
 	    if (*p == ' ')
 		col++;
 	    else if (*p == '\t')
 		col = opt.tabsize * (1 + (col - 1) / opt.tabsize) + 1;
 	    else
 		break;
 	    p++;
+	}
 	if (col > opt.ind_size)
 	    ps.ind_level = ps.i_l_follow = col / opt.ind_size;
+    }
     /*
      * START OF MAIN LOOP
      */
     while (1) {			/* this is the main loop.  it will go until we
 				 * reach eof */
 	int comment_buffered = false;
 	type_code = lexi(&ps);	/* lexi reads one token.  The actual
 				 * characters read are stored in "token". lexi
 				 * returns a code indicating the type of token */
 	/*
 	 * The following code moves newlines and comments following an if (),
 	 * while (), else, etc. up to the start of the following stmt to
 	 * a buffer. This allows proper handling of both kinds of brace
 	 * placement (-br, -bl) and cuddling "else" (-ce).
 	 */
 	search_brace(&type_code, &force_nl, &comment_buffered, &last_else);
 	if (type_code == end_of_file) {	/* we got eof */
 	    if (s_lab != e_lab || s_code != e_code
 		    || s_com != e_com)	/* must dump end of line */
 		dump_line();
 	    if (ps.tos > 1)	/* check for balanced braces */
 		diag(1, "Stuff missing from end of file");
 	    if (opt.verbose) {
 		printf("There were %d output lines and %d comments\n",
 		       ps.out_lines, ps.out_coms);
 		printf("(Lines with comments)/(Lines with code): %6.3f\n",
 		       (1.0 * ps.com_lines) / code_lines);
+	    }
 	    fflush(output);
 	    exit(found_err);
+	}
 	if (
 		(type_code != comment) &&
 		(type_code != newline) &&
 		(type_code != preprocessing) &&
 		(type_code != form_feed)) {
 	    if (force_nl &&
 		    (type_code != semicolon) &&
 		    (type_code != lbrace || !opt.btype_2)) {
 		/* we should force a broken line here */
 		if (opt.verbose)
 		    diag(0, "Line broken");
 		dump_line();
 		ps.want_blank = false;	/* dont insert blank at line start */
 		force_nl = false;
+	    }
 	    ps.in_stmt = true;	/* turn on flag which causes an extra level of
 				 * indentation. this is turned off by a ; or
 				 * '}' */
 	    if (s_com != e_com) {	/* the turkey has embedded a comment
 					 * in a line. fix it */
 		int len = e_com - s_com;
 		check_size_code(len + 3);
 		*e_code++ = ' ';
 		memcpy(e_code, s_com, len);
 		e_code += len;
 		*e_code++ = ' ';
 		*e_code = '\0';	/* null terminate code sect */
 		ps.want_blank = false;
 		e_com = s_com;
+	    }
 	} else if (type_code != comment) /* preserve force_nl thru a comment */
 	    force_nl = false;	/* cancel forced newline after newline, form
 				 * feed, etc */
 	/*-----------------------------------------------------*\
 	|	   do switch on type of token scanned		|
 	\*-----------------------------------------------------*/
 	check_size_code(3);	/* maximum number of increments of e_code
 				 * before the next check_size_code or
 				 * dump_line() is 2. After that there's the
 				 * final increment for the null character. */
 	switch (type_code) {	/* now, decide what to do with the token */
 	case form_feed:		/* found a form feed in line */
 	    ps.use_ff = true;	/* a form feed is treated much like a newline */
 	    dump_line();
 	    ps.want_blank = false;
 	    break;
 	case newline:
 	    if (ps.last_token != comma || ps.p_l_follow > 0
 		    || !opt.leave_comma || ps.block_init || !break_comma || s_com != e_com) {
 		dump_line();
 		ps.want_blank = false;
+	    }
 	    ++line_no;		/* keep track of input line number */
 	    break;
 	case lparen:		/* got a '(' or '[' */
 	    /* count parens to make Healy happy */
 	    if (++ps.p_l_follow == nitems(ps.paren_indents)) {
 		diag(0, "Reached internal limit of %zu unclosed parens",
 		    nitems(ps.paren_indents));
 		ps.p_l_follow--;
+	    }
 	    if (*token == '[')
 		/* not a function pointer declaration or a function call */;
 	    else if (ps.in_decl && !ps.block_init && !ps.dumped_decl_indent &&
 		ps.procname[0] == '\0' && ps.paren_level == 0) {
 		/* function pointer declarations */
 		indent_declaration(dec_ind, tabs_to_var);
 		ps.dumped_decl_indent = true;
 	    } else if (ps.want_blank &&
 		    ((ps.last_token != ident && ps.last_token != funcname) ||
 		    opt.proc_calls_space ||
 		    (ps.keyword == rw_sizeof ? opt.Bill_Shannon :
 		    ps.keyword != rw_0 && ps.keyword != rw_offsetof)))
 		*e_code++ = ' ';
 	    ps.want_blank = false;
 	    *e_code++ = token[0];
 	    ps.paren_indents[ps.p_l_follow - 1] = count_spaces_until(1, s_code, e_code) - 1;
 	    if (sp_sw && ps.p_l_follow == 1 && opt.extra_expression_indent
 		    && ps.paren_indents[0] < 2 * opt.ind_size)
 		ps.paren_indents[0] = 2 * opt.ind_size;
 	    if (ps.in_or_st && *token == '(' && ps.tos <= 2) {
 		/*
 		 * this is a kluge to make sure that declarations will be
 		 * aligned right if proc decl has an explicit type on it, i.e.
 		 * "int a(x) {..."
 		 */
 		parse(semicolon);	/* I said this was a kluge... */
 		ps.in_or_st = false;	/* turn off flag for structure decl or
 					 * initialization */
+	    }
 	    /* parenthesized type following sizeof or offsetof is not a cast */
 	    if (ps.keyword == rw_offsetof || ps.keyword == rw_sizeof)
 		ps.not_cast_mask |= 1 << ps.p_l_follow;
 	    break;
 	case rparen:		/* got a ')' or ']' */
 	    if (ps.cast_mask & (1 << ps.p_l_follow) & ~ps.not_cast_mask) {
 		ps.last_u_d = true;
 		ps.cast_mask &= (1 << ps.p_l_follow) - 1;
 		ps.want_blank = opt.space_after_cast;
 	    } else
 		ps.want_blank = true;
 	    ps.not_cast_mask &= (1 << ps.p_l_follow) - 1;
 	    if (--ps.p_l_follow < 0) {
 		ps.p_l_follow = 0;
 		diag(0, "Extra %c", *token);
+	    }
 	    if (e_code == s_code)	/* if the paren starts the line */
 		ps.paren_level = ps.p_l_follow;	/* then indent it */
 	    *e_code++ = token[0];
 	    if (sp_sw && (ps.p_l_follow == 0)) {	/* check for end of if
 							 * (...), or some such */
 		sp_sw = false;
 		force_nl = true;	/* must force newline after if */
 		ps.last_u_d = true;	/* inform lexi that a following
 					 * operator is unary */
 		ps.in_stmt = false;	/* dont use stmt continuation
 					 * indentation */
 		parse(hd_type);	/* let parser worry about if, or whatever */
+	    }
 	    ps.search_brace = opt.btype_2; /* this should ensure that
 					 * constructs such as main(){...}
 					 * and int[]{...} have their braces
 					 * put in the right place */
 	    break;
 	case unary_op:		/* this could be any unary operation */
 	    if (!ps.dumped_decl_indent && ps.in_decl && !ps.block_init &&
 		ps.procname[0] == '\0' && ps.paren_level == 0) {
 		/* pointer declarations */
 		/*
 		 * if this is a unary op in a declaration, we should indent
 		 * this token
 		 */
 		for (i = 0; token[i]; ++i)
 		    /* find length of token */;
 		indent_declaration(dec_ind - i, tabs_to_var);
 		ps.dumped_decl_indent = true;
 	    } else if (ps.want_blank)
 		*e_code++ = ' ';
+	    {
 		int len = e_token - s_token;
 		check_size_code(len);
 		memcpy(e_code, token, len);
 		e_code += len;
+	    }
 	    ps.want_blank = false;
 	    break;
 	case binary_op:		/* any binary operation */
+	    {
 		int len = e_token - s_token;
 		check_size_code(len + 1);
 		if (ps.want_blank)
 		    *e_code++ = ' ';
 		memcpy(e_code, token, len);
 		e_code += len;
+	    }
 	    ps.want_blank = true;
 	    break;
 	case postfix_op:	/* got a trailing ++ or -- */
 	    *e_code++ = token[0];
 	    *e_code++ = token[1];
 	    ps.want_blank = true;
 	    break;
 	case question:		/* got a ? */
 	    squest++;		/* this will be used when a later colon
 				 * appears so we can distinguish the
 				 * <c>?<n>:<n> construct */
 	    if (ps.want_blank)
 		*e_code++ = ' ';
 	    *e_code++ = '?';
 	    ps.want_blank = true;
 	    break;
 	case case_label:	/* got word 'case' or 'default' */
 	    scase = true;	/* so we can process the later colon properly */
 	    goto copy_id;
 	case colon:		/* got a ':' */
 	    if (squest > 0) {	/* it is part of the <c>?<n>: <n> construct */
 		--squest;
 		if (ps.want_blank)
 		    *e_code++ = ' ';
 		*e_code++ = ':';
 		ps.want_blank = true;
 		break;
+	    }
 	    if (ps.in_or_st) {
 		*e_code++ = ':';
 		ps.want_blank = false;
 		break;
+	    }
 	    ps.in_stmt = false;	/* seeing a label does not imply we are in a
 				 * stmt */
 	    /*
 	     * turn everything so far into a label
 	     */
+	    {
 		int len = e_code - s_code;
 		check_size_label(len + 3);
 		memcpy(e_lab, s_code, len);
 		e_lab += len;
 		*e_lab++ = ':';
 		*e_lab = '\0';
 		e_code = s_code;
+	    }
 	    force_nl = ps.pcase = scase;	/* ps.pcase will be used by
 						 * dump_line to decide how to
 						 * indent the label. force_nl
 						 * will force a case n: to be
 						 * on a line by itself */
 	    scase = false;
 	    ps.want_blank = false;
 	    break;
 	case semicolon:	/* got a ';' */
 	    if (ps.dec_nest == 0)
 		ps.in_or_st = false;	/* we are not in an initialization or
 					 * structure declaration */
 	    scase = false;	/* these will only need resetting in an error */
 	    squest = 0;
 	    if (ps.last_token == rparen)
 		ps.in_parameter_declaration = 0;
 	    ps.cast_mask = 0;
 	    ps.not_cast_mask = 0;
 	    ps.block_init = 0;
 	    ps.block_init_level = 0;
 	    ps.just_saw_decl--;
 	    if (ps.in_decl && s_code == e_code && !ps.block_init &&
 		!ps.dumped_decl_indent && ps.paren_level == 0) {
 		/* indent stray semicolons in declarations */
 		indent_declaration(dec_ind - 1, tabs_to_var);
 		ps.dumped_decl_indent = true;
+	    }
 	    ps.in_decl = (ps.dec_nest > 0);	/* if we were in a first level
 						 * structure declaration, we
 						 * arent any more */
 	    if ((!sp_sw || hd_type != for_exprs) && ps.p_l_follow > 0) {
 		/*
 		 * This should be true iff there were unbalanced parens in the
 		 * stmt.  It is a bit complicated, because the semicolon might
 		 * be in a for stmt
 		 */
 		diag(1, "Unbalanced parens");
 		ps.p_l_follow = 0;
 		if (sp_sw) {	/* this is a check for an if, while, etc. with
 				 * unbalanced parens */
 		    sp_sw = false;
 		    parse(hd_type);	/* dont lose the if, or whatever */
+		}
+	    }
 	    *e_code++ = ';';
 	    ps.want_blank = true;
 	    ps.in_stmt = (ps.p_l_follow > 0);	/* we are no longer in the
 						 * middle of a stmt */
 	    if (!sp_sw) {	/* if not if for (;;) */
 		parse(semicolon);	/* let parser know about end of stmt */
 		force_nl = true;/* force newline after an end of stmt */
+	    }
 	    break;
 	case lbrace:		/* got a '{' */
 	    ps.in_stmt = false;	/* dont indent the {} */
 	    if (!ps.block_init)
 		force_nl = true;/* force other stuff on same line as '{' onto
 				 * new line */
 	    else if (ps.block_init_level <= 0)
 		ps.block_init_level = 1;
 	    else
 		ps.block_init_level++;
 	    if (s_code != e_code && !ps.block_init) {
 		if (!opt.btype_2) {
 		    dump_line();
 		    ps.want_blank = false;
 		} else if (ps.in_parameter_declaration && !ps.in_or_st) {
 		    ps.i_l_follow = 0;
 		    if (opt.function_brace_split) { /* dump the line prior
 				 * to the brace ... */
 			dump_line();
 			ps.want_blank = false;
 		    } else	/* add a space between the decl and brace */
 			ps.want_blank = true;
+		}
+	    }
 	    if (ps.in_parameter_declaration)
 		prefix_blankline_requested = 0;
 	    if (ps.p_l_follow > 0) {	/* check for preceding unbalanced
 					 * parens */
 		diag(1, "Unbalanced parens");
 		ps.p_l_follow = 0;
 		if (sp_sw) {	/* check for unclosed if, for, etc. */
 		    sp_sw = false;
 		    parse(hd_type);
 		    ps.ind_level = ps.i_l_follow;
+		}
+	    }
 	    if (s_code == e_code)
 		ps.ind_stmt = false;	/* dont put extra indentation on line
 					 * with '{' */
 	    if (ps.in_decl && ps.in_or_st) {	/* this is either a structure
 						 * declaration or an init */
 		di_stack[ps.dec_nest] = dec_ind;
 		if (++ps.dec_nest == nitems(di_stack)) {
 		    diag(0, "Reached internal limit of %zu struct levels",
 			nitems(di_stack));
 		    ps.dec_nest--;
+		}
 		/* ?		dec_ind = 0; */
 	    } else {
 		ps.decl_on_line = false;	/* we can't be in the middle of
 						 * a declaration, so don't do
 						 * special indentation of
 						 * comments */
 		if (opt.blanklines_after_declarations_at_proctop
 			&& ps.in_parameter_declaration)
 		    postfix_blankline_requested = 1;
 		ps.in_parameter_declaration = 0;
 		ps.in_decl = false;
+	    }
 	    dec_ind = 0;
 	    parse(lbrace);	/* let parser know about this */
 	    if (ps.want_blank)	/* put a blank before '{' if '{' is not at
 				 * start of line */
 		*e_code++ = ' ';
 	    ps.want_blank = false;
 	    *e_code++ = '{';
 	    ps.just_saw_decl = 0;
 	    break;
 	case rbrace:		/* got a '}' */
 	    if (ps.p_stack[ps.tos] == decl && !ps.block_init)	/* semicolons can be
 								 * omitted in
 								 * declarations */
 		parse(semicolon);
 	    if (ps.p_l_follow) {/* check for unclosed if, for, else. */
 		diag(1, "Unbalanced parens");
 		ps.p_l_follow = 0;
 		sp_sw = false;
+	    }
 	    ps.just_saw_decl = 0;
 	    ps.block_init_level--;
 	    if (s_code != e_code && !ps.block_init) {	/* '}' must be first on
 							 * line */
 		if (opt.verbose)
 		    diag(0, "Line broken");
 		dump_line();
+	    }
 	    *e_code++ = '}';
 	    ps.want_blank = true;
 	    ps.in_stmt = ps.ind_stmt = false;
 	    if (ps.dec_nest > 0) {	/* we are in multi-level structure
 					 * declaration */
 		dec_ind = di_stack[--ps.dec_nest];
 		if (ps.dec_nest == 0 && !ps.in_parameter_declaration)
 		    ps.just_saw_decl = 2;
 		ps.in_decl = true;
+	    }
 	    prefix_blankline_requested = 0;
 	    parse(rbrace);	/* let parser know about this */
 	    ps.search_brace = opt.cuddle_else
 		&& ps.p_stack[ps.tos] == if_expr_stmt
 		&& ps.il[ps.tos] >= ps.ind_level;
 	    if (ps.tos <= 1 && opt.blanklines_after_procs && ps.dec_nest <= 0)
 		postfix_blankline_requested = 1;
 	    break;
 	case switch_expr:	/* got keyword "switch" */
 	    sp_sw = true;
 	    hd_type = switch_expr; /* keep this for when we have seen the
 				 * expression */
 	    goto copy_id;	/* go move the token into buffer */
 	case keyword_for_if_while:
 	    sp_sw = true;	/* the interesting stuff is done after the
 				 * expression is scanned */
 	    hd_type = (*token == 'i' ? if_expr :
 		       (*token == 'w' ? while_expr : for_exprs));
 	    /*
 	     * remember the type of header for later use by parser
 	     */
 	    goto copy_id;	/* copy the token into line */
 	case keyword_do_else:
 	    ps.in_stmt = false;
 	    if (*token == 'e') {
 		if (e_code != s_code && (!opt.cuddle_else || e_code[-1] != '}')) {
 		    if (opt.verbose)
 			diag(0, "Line broken");
 		    dump_line();/* make sure this starts a line */
 		    ps.want_blank = false;
+		}
 		force_nl = true;/* also, following stuff must go onto new line */
 		last_else = 1;
 		parse(keyword_else);
 	    } else {
 		if (e_code != s_code) {	/* make sure this starts a line */
 		    if (opt.verbose)
 			diag(0, "Line broken");
 		    dump_line();
 		    ps.want_blank = false;
+		}
 		force_nl = true;/* also, following stuff must go onto new line */
 		last_else = 0;
 		parse(keyword_do);
+	    }
 	    goto copy_id;	/* move the token into line */
 	case type_def:
 	case storage_class:
 	    prefix_blankline_requested = 0;
 	    goto copy_id;
 	case keyword_struct_union_enum:
 	    if (ps.p_l_follow > 0)
 		goto copy_id;
 	    /* FALLTHROUGH */
 	case decl:		/* we have a declaration type (int, etc.) */
 	    parse(decl);	/* let parser worry about indentation */
 	    if (ps.last_token == rparen && ps.tos <= 1) {
 		if (s_code != e_code) {
 		    dump_line();
 		    ps.want_blank = 0;
+		}
+	    }
 	    if (ps.in_parameter_declaration && opt.indent_parameters && ps.dec_nest == 0) {
 		ps.ind_level = ps.i_l_follow = 1;
 		ps.ind_stmt = 0;
+	    }
 	    ps.in_or_st = true;	/* this might be a structure or initialization
 				 * declaration */
 	    ps.in_decl = ps.decl_on_line = ps.last_token != type_def;
 	    if ( /* !ps.in_or_st && */ ps.dec_nest <= 0)
 		ps.just_saw_decl = 2;
 	    prefix_blankline_requested = 0;
 	    for (i = 0; token[i++];);	/* get length of token */
 	    if (ps.ind_level == 0 || ps.dec_nest > 0) {
 		/* global variable or struct member in local variable */
 		dec_ind = opt.decl_indent > 0 ? opt.decl_indent : i;
 		tabs_to_var = (opt.use_tabs ? opt.decl_indent > 0 : 0);
 	    } else {
 		/* local variable */
 		dec_ind = opt.local_decl_indent > 0 ? opt.local_decl_indent : i;
 		tabs_to_var = (opt.use_tabs ? opt.local_decl_indent > 0 : 0);
+	    }
 	    goto copy_id;
 	case funcname:
 	case ident:		/* got an identifier or constant */
 	    if (ps.in_decl) {
 		if (type_code == funcname) {
 		    ps.in_decl = false;
 		    if (opt.procnames_start_line && s_code != e_code) {
 			*e_code = '\0';
 			dump_line();
 		    } else if (ps.want_blank) {
 			*e_code++ = ' ';
+		    }
 		    ps.want_blank = false;
 		} else if (!ps.block_init && !ps.dumped_decl_indent &&
 		    ps.paren_level == 0) { /* if we are in a declaration, we
 					    * must indent identifier */
 		    indent_declaration(dec_ind, tabs_to_var);
 		    ps.dumped_decl_indent = true;
 		    ps.want_blank = false;
+		}
 	    } else if (sp_sw && ps.p_l_follow == 0) {
 		sp_sw = false;
 		force_nl = true;
 		ps.last_u_d = true;
 		ps.in_stmt = false;
 		parse(hd_type);
+	    }
     copy_id:
+	    {
 		int len = e_token - s_token;
 		check_size_code(len + 1);
 		if (ps.want_blank)
 		    *e_code++ = ' ';
 		memcpy(e_code, s_token, len);
 		e_code += len;
+	    }
 	    if (type_code != funcname)
 		ps.want_blank = true;
 	    break;
 	case string_prefix:
+	    {
 		int len = e_token - s_token;
 		check_size_code(len + 1);
 		if (ps.want_blank)
 		    *e_code++ = ' ';
 		memcpy(e_code, token, len);
 		e_code += len;
+	    }
 	    ps.want_blank = false;
 	    break;
 	case period:		/* treat a period kind of like a binary
 				 * operation */
 	    *e_code++ = '.';	/* move the period into line */
 	    ps.want_blank = false;	/* dont put a blank after a period */
 	    break;
 	case comma:
 	    ps.want_blank = (s_code != e_code);	/* only put blank after comma
 						 * if comma does not start the
 						 * line */
 	    if (ps.in_decl && ps.procname[0] == '\0' && !ps.block_init &&
 		!ps.dumped_decl_indent && ps.paren_level == 0) {
 		/* indent leading commas and not the actual identifiers */
 		indent_declaration(dec_ind - 1, tabs_to_var);
 		ps.dumped_decl_indent = true;
+	    }
 	    *e_code++ = ',';
 	    if (ps.p_l_follow == 0) {
 		if (ps.block_init_level <= 0)
 		    ps.block_init = 0;
 		if (break_comma && (!opt.leave_comma ||
 		    count_spaces_until(compute_code_column(), s_code, e_code) >
 		    opt.max_col - opt.tabsize))
 		    force_nl = true;
+	    }
 	    break;
 	case preprocessing:	/* '#' */
 	    if ((s_com != e_com) ||
 		    (s_lab != e_lab) ||
 		    (s_code != e_code))
 		dump_line();
 	    check_size_label(1);
 	    *e_lab++ = '#';	/* move whole line to 'label' buffer */
+	    {
 		int         in_comment = 0;
 		int         com_start = 0;
 		char        quote = 0;
 		int         com_end = 0;
 		while (*buf_ptr == ' ' || *buf_ptr == '\t') {
 		    buf_ptr++;
 		    if (buf_ptr >= buf_end)
 			fill_buffer();
+		}
 		while (*buf_ptr != '\n' || (in_comment && !had_eof)) {
 		    check_size_label(2);
 		    *e_lab = *buf_ptr++;
 		    if (buf_ptr >= buf_end)
 			fill_buffer();
 		    switch (*e_lab++) {
 		    case '\\':
 			if (!in_comment) {
 			    *e_lab++ = *buf_ptr++;
 			    if (buf_ptr >= buf_end)
 				fill_buffer();
+			}
 			break;
 		    case '/':
 			if (*buf_ptr == '*' && !in_comment && !quote) {
 			    in_comment = 1;
 			    *e_lab++ = *buf_ptr++;
 			    com_start = e_lab - s_lab - 2;
+			}
 			break;
 		    case '"':
 			if (quote == '"')
 			    quote = 0;
 			break;
 		    case '\'':
 			if (quote == '\'')
 			    quote = 0;
 			break;
 		    case '*':
 			if (*buf_ptr == '/' && in_comment) {
 			    in_comment = 0;
 			    *e_lab++ = *buf_ptr++;
 			    com_end = e_lab - s_lab;
+			}
 			break;
+		    }
+		}
 		while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t'))
 		    e_lab--;
 		if (e_lab - s_lab == com_end && bp_save == NULL) {
 		    /* comment on preprocessor line */
 		    if (sc_end == NULL) {	/* if this is the first comment,
 						 * we must set up the buffer */
 			save_com = sc_buf;
 			sc_end = &save_com[0];
 		    } else {
 			*sc_end++ = '\n';	/* add newline between
 						 * comments */
 			*sc_end++ = ' ';
 			--line_no;
+		    }
 		    if (sc_end - save_com + com_end - com_start > sc_size)
 			errx(1, "input too long");
 		    memmove(sc_end, s_lab + com_start, com_end - com_start);
 		    sc_end += com_end - com_start;
 		    e_lab = s_lab + com_start;
 		    while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t'))
 			e_lab--;
 		    bp_save = buf_ptr;	/* save current input buffer */
 		    be_save = buf_end;
 		    buf_ptr = save_com;	/* fix so that subsequent calls to
 					 * lexi will take tokens out of
 					 * save_com */
 		    *sc_end++ = ' ';	/* add trailing blank, just in case */
 		    buf_end = sc_end;
 		    sc_end = NULL;
+		}
 		check_size_label(1);
 		*e_lab = '\0';	/* null terminate line */
 		ps.pcase = false;
+	    }
 	    if (strncmp(s_lab, "#if", 3) == 0) { /* also ifdef, ifndef */
 		if ((size_t)ifdef_level < nitems(state_stack)) {
 		    match_state[ifdef_level].tos = -1;
 		    state_stack[ifdef_level++] = ps;
 		} else
 		    diag(1, "#if stack overflow");
 	    } else if (strncmp(s_lab, "#el", 3) == 0) { /* else, elif */
 		if (ifdef_level <= 0)
 		    diag(1, s_lab[3] == 'i' ? "Unmatched #elif" : "Unmatched #else");
 		else {
 		    match_state[ifdef_level - 1] = ps;
 		    ps = state_stack[ifdef_level - 1];
+		}
 	    } else if (strncmp(s_lab, "#endif", 6) == 0) {
 		if (ifdef_level <= 0)
 		    diag(1, "Unmatched #endif");
 		else
 		    ifdef_level--;
 	    } else {
 		static const struct directives {
 		    int size;
 		    const char *string;
 		} recognized[] = {
 		    {7, "include"},
 		    {6, "define"},
 		    {5, "undef"},
 		    {4, "line"},
 		    {5, "error"},
 		    {6, "pragma"}
 		};
 		int d = nitems(recognized);
 		while (--d >= 0)
 		    if (strncmp(s_lab + 1, recognized[d].string, recognized[d].size) == 0)
 			break;
 		if (d < 0) {
 		    diag(1, "Unrecognized cpp directive");
 		    break;
+		}
+	    }
 	    if (opt.blanklines_around_conditional_compilation) {
 		postfix_blankline_requested++;
 		n_real_blanklines = 0;
 	    } else {
 		postfix_blankline_requested = 0;
 		prefix_blankline_requested = 0;
+	    }
 	    break;		/* subsequent processing of the newline
 				 * character will cause the line to be printed */
 	case comment:		/* we have gotten a / followed by * this is a biggie */
 	    pr_comment();
 	    break;
 	default:
 	    break;
 	}			/* end of big switch stmt */
 	*e_code = '\0';		/* make sure code section is null terminated */
 	if (type_code != comment &&
 	    type_code != newline &&
 	    type_code != preprocessing)
 	    ps.last_token = type_code;
     }				/* end of main while (1) loop */
+}
 /*
  * copy input file to backup file if in_name is /blah/blah/blah/file, then
  * backup file will be ".Bfile" then make the backup file the input and
  * original input file the output
  */
 static void
 bakcopy(void)
+{
     int         n,
                 bakchn;
     char        buff[8 * 1024];
     const char *p;
     /* construct file name .Bfile */
     for (p = in_name; *p; p++);	/* skip to end of string */
     while (p > in_name && *p != '/')	/* find last '/' */
 	p--;
     if (*p == '/')
 	p++;
     sprintf(bakfile, "%s%s", p, simple_backup_suffix);
     /* copy in_name to backup file */
     bakchn = creat(bakfile, 0600);
     if (bakchn < 0)
 	err(1, "%s", bakfile);
     while ((n = read(fileno(input), buff, sizeof(buff))) > 0)
 	if (write(bakchn, buff, n) != n)
 	    err(1, "%s", bakfile);
     if (n < 0)
 	err(1, "%s", in_name);
     close(bakchn);
     fclose(input);
     /* re-open backup file as the input file */
     input = fopen(bakfile, "r");
     if (input == NULL)
 	err(1, "%s", bakfile);
     /* now the original input file will be the output */
     output = fopen(in_name, "w");
     if (output == NULL) {
 	unlink(bakfile);
 	err(1, "%s", in_name);
+    }
+}
 static void
 indent_declaration(int cur_dec_ind, int tabs_to_var)
+{
     int pos = e_code - s_code;
     char *startpos = e_code;
     /*
      * get the tab math right for indentations that are not multiples of tabsize
      */
     if ((ps.ind_level * opt.ind_size) % opt.tabsize != 0) {
 	pos += (ps.ind_level * opt.ind_size) % opt.tabsize;
 	cur_dec_ind += (ps.ind_level * opt.ind_size) % opt.tabsize;
+    }
     if (tabs_to_var) {
 	int tpos;
 	check_size_code(cur_dec_ind / opt.tabsize);
 	while ((tpos = opt.tabsize * (1 + pos / opt.tabsize)) <= cur_dec_ind) {
 	    *e_code++ = '\t';
 	    pos = tpos;
+	}
+    }
     check_size_code(cur_dec_ind - pos + 1);
     while (pos < cur_dec_ind) {
 	*e_code++ = ' ';
 	pos++;
+    }
     if (e_code == startpos && ps.want_blank) {
 	*e_code++ = ' ';
 	ps.want_blank = false;
+    }
+}
 #ifdef debug
 void
 debug_printf(const char *fmt, ...)
+{
     FILE *f = output == stdout ? stderr : stdout;
     va_list ap;
     va_start(ap, fmt);
     vfprintf(f, fmt, ap);
     va_end(ap);
+}
 void
 debug_println(const char *fmt, ...)
+{
     FILE *f = output == stdout ? stderr : stdout;
     va_list ap;
     va_start(ap, fmt);
     vfprintf(f, fmt, ap);
     va_end(ap);
     fprintf(f, "\n");
+}
 void
 debug_vis_range(const char *prefix, const char *s, const char *e,
 		const char *suffix)
+{
     debug_printf("%s", prefix);
     for (const char *p = s; p < e; p++) {
 	if (isprint((unsigned char)*p) && *p != '\\' && *p != '"')
 	    debug_printf("%c", *p);
 	else if (*p == '\n')
 	    debug_printf("\\n");
 	else if (*p == '\t')
 	    debug_printf("\\t");
 	else
 	    debug_printf("\\x%02x", *p);
+    }
     debug_printf("%s", suffix);
+}
 #endif

 @@ -1,465 +1,481 @@
-/*	$NetBSD: io.c,v 1.35 2021/03/13 09:06:12 rillig Exp $	*/
+/*	$NetBSD: io.c,v 1.36 2021/03/13 09:21:57 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
 #ifndef lint
 static char sccsid[] = "@(#)io.c	8.1 (Berkeley) 6/6/93";
 #endif /* not lint */
 #endif
 #include <sys/cdefs.h>
 #ifndef lint
 #if defined(__NetBSD__)
-__RCSID("$NetBSD: io.c,v 1.35 2021/03/13 09:06:12 rillig Exp $");
+__RCSID("$NetBSD: io.c,v 1.36 2021/03/13 09:21:57 rillig Exp $");
 #elif defined(__FreeBSD__)
 __FBSDID("$FreeBSD: head/usr.bin/indent/io.c 334927 2018-06-10 16:44:18Z pstef $");
 #endif
 #endif
 #include <ctype.h>
 #include <err.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <stdarg.h>
 #include "indent.h"
 int         comment_open;
 static int  paren_indent;
 static void
 output_char(char ch)
+{
     fputc(ch, output);
     debug_vis_range("output_char '", &ch, &ch + 1, "'\n");
+}
 static void
 output_range(const char *s, const char *e)
+{
     fwrite(s, 1, (size_t)(e - s), output);
     debug_vis_range("output_range \"", s, e, "\"\n");
+}
 static inline void
 output_string(const char *s)
+{
     output_range(s, s + strlen(s));
+}
 static int
 output_indent(int old_ind, int new_ind)
+{
     int ind = old_ind;
     if (opt.use_tabs) {
 	int tabsize = opt.tabsize;
 	int n = new_ind / tabsize - ind / tabsize;
 	if (n > 0)
 	    ind -= ind % tabsize;
 	for (int i = 0; i < n; i++) {
-	    output_char('\t');
+	    fputc('\t', output);
 	    ind += tabsize;
+	}
+    }
     for (; ind < new_ind; ind++)
-        output_char(' ');
+        fputc(' ', output);
     debug_println("output_indent %d", ind);
     return ind;
+}
 /*
  * dump_line is the routine that actually effects the printing of the new
  * source. It prints the label section, followed by the code section with
  * the appropriate nesting level, followed by any comments.
  */
 void
 dump_line(void)
+{
     int cur_col, target_col;
     static int  not_first_line;
     if (ps.procname[0]) {
 	ps.ind_level = 0;
 	ps.procname[0] = 0;
+    }
     if (s_code == e_code && s_lab == e_lab && s_com == e_com) {
 	if (suppress_blanklines > 0)
 	    suppress_blanklines--;
 	else {
 	    ps.bl_line = true;
 	    n_real_blanklines++;
+	}
     } else if (!inhibit_formatting) {
 	suppress_blanklines = 0;
 	ps.bl_line = false;
 	if (prefix_blankline_requested && not_first_line) {
 	    if (opt.swallow_optional_blanklines) {
 		if (n_real_blanklines == 1)
 		    n_real_blanklines = 0;
 	    } else {
 		if (n_real_blanklines == 0)
 		    n_real_blanklines = 1;
+	    }
+	}
 	while (--n_real_blanklines >= 0)
 	    output_char('\n');
 	n_real_blanklines = 0;
 	if (ps.ind_level == 0)
 	    ps.ind_stmt = 0;	/* this is a class A kludge. dont do
 				 * additional statement indentation if we are
 				 * at bracket level 0 */
 	if (e_lab != s_lab || e_code != s_code)
 	    ++code_lines;	/* keep count of lines with code */
 	if (e_lab != s_lab) {	/* print lab, if any */
 	    if (comment_open) {
 		comment_open = 0;
 		output_string(".*/\n");
+	    }
 	    while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t'))
 		e_lab--;
 	    *e_lab = '\0';
 	    cur_col = 1 + output_indent(0, compute_label_column() - 1);
 	    if (s_lab[0] == '#' && (strncmp(s_lab, "#else", 5) == 0
 				    || strncmp(s_lab, "#endif", 6) == 0)) {
 		char *s = s_lab;
 		if (e_lab[-1] == '\n') e_lab--;
 		do {
 		    output_char(*s++);
 		} while (s < e_lab && 'a' <= *s && *s <= 'z');
 		while ((*s == ' ' || *s == '\t') && s < e_lab)
 		    s++;
 		if (s < e_lab) {
 		    if (s[0] == '/' && s[1] == '*') {
 			output_char('\t');
 			output_range(s, e_lab);
 		    } else {
 		        output_string("\t/* ");
 			output_range(s, e_lab);
 			output_string(" */");
+		    }
+		}
 	    } else
 	        output_range(s_lab, e_lab);
 	    cur_col = count_spaces(cur_col, s_lab);
 	} else
 	    cur_col = 1;	/* there is no label section */
 	ps.pcase = false;
 	if (s_code != e_code) {	/* print code section, if any */
 	    if (comment_open) {
 		comment_open = 0;
 		output_string(".*/\n");
+	    }
 	    target_col = compute_code_column();
+	    {
 		int i;
-		for (i = 0; i < ps.p_l_follow; i++)
+		for (i = 0; i < ps.p_l_follow; i++) {
-		    if (ps.paren_indents[i] >= 0)
+		    if (ps.paren_indents[i] >= 0) {
-			ps.paren_indents[i] = -(ps.paren_indents[i] + target_col);
+			int ind = ps.paren_indents[i];
 			/*
 			 * XXX: this mix of 'indent' and 'column' smells like
 			 * an off-by-one error.
 			 */
 			ps.paren_indents[i] = -(ind + target_col);
 			debug_println(
 			    "setting pi[%d] from %d to %d for column %d",
 			    i, ind, ps.paren_indents[i], target_col);
+		    }
+		}
+	    }
 	    cur_col = 1 + output_indent(cur_col - 1, target_col - 1);
 	    output_range(s_code, e_code);
 	    cur_col = count_spaces(cur_col, s_code);
+	}
 	if (s_com != e_com) {		/* print comment, if any */
 	    int target = ps.com_col;
 	    char *com_st = s_com;
 	    target += ps.comment_delta;
 	    while (*com_st == '\t')	/* consider original indentation in
 				     * case this is a box comment */
 		com_st++, target += opt.tabsize;
 	    while (target <= 0)
 		if (*com_st == ' ')
 		    target++, com_st++;
 		else if (*com_st == '\t') {
 		    target = opt.tabsize * (1 + (target - 1) / opt.tabsize) + 1;
 		    com_st++;
 		} else
 		    target = 1;
 	    if (cur_col > target) {	/* if comment can't fit on this line,
 				     * put it on next line */
 		output_char('\n');
 		cur_col = 1;
 		++ps.out_lines;
+	    }
 	    while (e_com > com_st && isspace((unsigned char)e_com[-1]))
 		e_com--;
 	    (void)output_indent(cur_col - 1, target - 1);
 	    output_range(com_st, e_com);
 	    ps.comment_delta = ps.n_comment_delta;
 	    ++ps.com_lines;	/* count lines with comments */
+	}
 	if (ps.use_ff)
 	    output_char('\014');
 	else
 	    output_char('\n');
 	++ps.out_lines;
 	if (ps.just_saw_decl == 1 && opt.blanklines_after_declarations) {
 	    prefix_blankline_requested = 1;
 	    ps.just_saw_decl = 0;
 	} else
 	    prefix_blankline_requested = postfix_blankline_requested;
 	postfix_blankline_requested = 0;
+    }
     /* keep blank lines after '//' comments */
     if (e_com - s_com > 1 && s_com[1] == '/')
 	output_range(s_token, e_token);
     ps.decl_on_line = ps.in_decl;	/* if we are in the middle of a
 					 * declaration, remember that fact for
 					 * proper comment indentation */
     ps.ind_stmt = ps.in_stmt & ~ps.in_decl;	/* next line should be
 						 * indented if we have not
 						 * completed this stmt and if
 						 * we are not in the middle of
 						 * a declaration */
     ps.use_ff = false;
     ps.dumped_decl_indent = 0;
     *(e_lab = s_lab) = '\0';	/* reset buffers */
     *(e_code = s_code) = '\0';
     *(e_com = s_com = combuf + 1) = '\0';
     ps.ind_level = ps.i_l_follow;
     ps.paren_level = ps.p_l_follow;
-    if (ps.paren_level > 0)
+    if (ps.paren_level > 0) {
         /* TODO: explain what negative indentation means */
 	paren_indent = -ps.paren_indents[ps.paren_level - 1];
 	debug_println("paren_indent is now %d", paren_indent);
+    }
     not_first_line = 1;
+}
 int
 compute_code_column(void)
+{
     int target_col = opt.ind_size * ps.ind_level + 1;
     if (ps.paren_level) {
 	if (!opt.lineup_to_parens)
 	    target_col += opt.continuation_indent *
 		(2 * opt.continuation_indent == opt.ind_size ? 1 : ps.paren_level);
 	else if (opt.lineup_to_parens_always)
 	    target_col = paren_indent;
 	else {
 	    int w;
 	    int t = paren_indent;
 	    if ((w = count_spaces(t, s_code) - opt.max_col) > 0
 		    && count_spaces(target_col, s_code) <= opt.max_col) {
 		t -= w + 1;
 		if (t > target_col)
 		    target_col = t;
 	    } else
 		target_col = t;
+	}
     } else if (ps.ind_stmt)
 	target_col += opt.continuation_indent;
     return target_col;
+}
 int
 compute_label_column(void)
+{
     return
 	ps.pcase ? (int) (case_ind * opt.ind_size) + 1
 	: *s_lab == '#' ? 1
 	: opt.ind_size * (ps.ind_level - label_offset) + 1;
+}
 /*
  * Copyright (C) 1976 by the Board of Trustees of the University of Illinois
+ *
  * All rights reserved
+ *
  * FUNCTION: Reads one block of input into the input buffer
  */
 void
 fill_buffer(void)
 {				/* this routine reads stuff from the input */
     char *p;
     int i;
     FILE *f = input;
     if (bp_save != NULL) {	/* there is a partly filled input buffer left */
 	buf_ptr = bp_save;	/* do not read anything, just switch buffers */
 	buf_end = be_save;
 	bp_save = be_save = NULL;
 	if (buf_ptr < buf_end)
 	    return;		/* only return if there is really something in
 				 * this buffer */
+    }
     for (p = in_buffer;;) {
 	if (p >= in_buffer_limit) {
 	    int size = (in_buffer_limit - in_buffer) * 2 + 10;
 	    int offset = p - in_buffer;
 	    in_buffer = realloc(in_buffer, size);
 	    if (in_buffer == NULL)
 		errx(1, "input line too long");
 	    p = in_buffer + offset;
 	    in_buffer_limit = in_buffer + size - 2;
+	}
 	if ((i = getc(f)) == EOF) {
 		*p++ = ' ';
 		*p++ = '\n';
 		had_eof = true;
 		break;
+	}
 	if (i != '\0')
 	    *p++ = i;
 	if (i == '\n')
 		break;
+    }
     buf_ptr = in_buffer;
     buf_end = p;
     if (p - in_buffer > 2 && p[-2] == '/' && p[-3] == '*') {
 	if (in_buffer[3] == 'I' && strncmp(in_buffer, "/**INDENT**", 11) == 0)
 	    fill_buffer();	/* flush indent error message */
 	else {
 	    int         com = 0;
 	    p = in_buffer;
 	    while (*p == ' ' || *p == '\t')
 		p++;
 	    if (*p == '/' && p[1] == '*') {
 		p += 2;
 		while (*p == ' ' || *p == '\t')
 		    p++;
 		if (p[0] == 'I' && p[1] == 'N' && p[2] == 'D' && p[3] == 'E'
 			&& p[4] == 'N' && p[5] == 'T') {
 		    p += 6;
 		    while (*p == ' ' || *p == '\t')
 			p++;
 		    if (*p == '*')
 			com = 1;
 		    else if (*p == 'O') {
 			if (*++p == 'N')
 			    p++, com = 1;
 			else if (*p == 'F' && *++p == 'F')
 			    p++, com = 2;
+		    }
 		    while (*p == ' ' || *p == '\t')
 			p++;
 		    if (p[0] == '*' && p[1] == '/' && p[2] == '\n' && com) {
 			if (s_com != e_com || s_lab != e_lab || s_code != e_code)
 			    dump_line();
 			if (!(inhibit_formatting = com - 1)) {
 			    n_real_blanklines = 0;
 			    postfix_blankline_requested = 0;
 			    prefix_blankline_requested = 0;
 			    suppress_blanklines = 1;
+			}
+		    }
+		}
+	    }
+	}
+    }
     if (inhibit_formatting) {
 	p = in_buffer;
 	do {
 	    output_char(*p);
 	} while (*p++ != '\n');
+    }
+}
 /*
  * Copyright (C) 1976 by the Board of Trustees of the University of Illinois
+ *
  * All rights reserved
  */
 int
 count_spaces_until(int col, const char *buffer, const char *end)
+{
     for (const char *p = buffer; *p != '\0' && p != end; ++p) {
 	switch (*p) {
 	case '\n':
 	case 014:		/* form feed */
 	    col = 1;
 	    break;
 	case '\t':
 	    col = 1 + opt.tabsize * ((col - 1) / opt.tabsize + 1);
 	    break;
 	case 010:		/* backspace */
 	    --col;
 	    break;
 	default:
 	    ++col;
 	    break;
 	}			/* end of switch */
     }				/* end of for loop */
     return col;
+}
 int
 count_spaces(int col, const char *buffer)
+{
     return count_spaces_until(col, buffer, NULL);
+}
 void
 diag(int level, const char *msg, ...)
+{
     va_list ap;
     const char *s, *e;
     if (level)
 	found_err = 1;
     if (output == stdout) {
 	s = "/**INDENT** ";
 	e = " */";
     } else {
 	s = e = "";
+    }
     va_start(ap, msg);
     fprintf(stderr, "%s%s@%d: ", s, level == 0 ? "Warning" : "Error", line_no);
     vfprintf(stderr, msg, ap);
     fprintf(stderr, "%s\n", e);
     va_end(ap);
+}

 @@ -1,730 +1,720 @@
-/*	$NetBSD: lexi.c,v 1.38 2021/03/12 23:10:18 rillig Exp $	*/
+/*	$NetBSD: lexi.c,v 1.39 2021/03/13 09:21:57 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
 #ifndef lint
 static char sccsid[] = "@(#)lexi.c	8.1 (Berkeley) 6/6/93";
 #endif /* not lint */
 #endif
 #include <sys/cdefs.h>
 #ifndef lint
 #if defined(__NetBSD__)
-__RCSID("$NetBSD: lexi.c,v 1.38 2021/03/12 23:10:18 rillig Exp $");
+__RCSID("$NetBSD: lexi.c,v 1.39 2021/03/13 09:21:57 rillig Exp $");
 #elif defined(__FreeBSD__)
 __FBSDID("$FreeBSD: head/usr.bin/indent/lexi.c 337862 2018-08-15 18:19:45Z pstef $");
 #endif
 #endif
 /*
  * Here we have the token scanner for indent.  It scans off one token and puts
  * it in the global variable "token".  It returns a code, indicating the type
  * of token scanned.
  */
 #include <assert.h>
 #include <err.h>
 #include <stdio.h>
 #include <ctype.h>
 #include <stdlib.h>
 #include <string.h>
 #include <sys/param.h>
 #include "indent.h"
 struct templ {
     const char *rwd;
     enum rwcode rwcode;
 };
 /*
  * This table has to be sorted alphabetically, because it'll be used in binary
  * search.
  */
 const struct templ specials[] =
+{
     {"_Bool", rw_type},
     {"_Complex", rw_type},
     {"_Imaginary", rw_type},
     {"auto", rw_storage_class},
     {"bool", rw_type},
     {"break", rw_jump},
     {"case", rw_case_or_default},
     {"char", rw_type},
     {"complex", rw_type},
     {"const", rw_type},
     {"continue", rw_jump},
     {"default", rw_case_or_default},
     {"do", rw_do_or_else},
     {"double", rw_type},
     {"else", rw_do_or_else},
     {"enum", rw_struct_or_union_or_enum},
     {"extern", rw_storage_class},
     {"float", rw_type},
     {"for", rw_for_or_if_or_while},
     {"global", rw_type},
     {"goto", rw_jump},
     {"if", rw_for_or_if_or_while},
     {"imaginary", rw_type},
     {"inline", rw_inline_or_restrict},
     {"int", rw_type},
     {"long", rw_type},
     {"offsetof", rw_offsetof},
     {"register", rw_storage_class},
     {"restrict", rw_inline_or_restrict},
     {"return", rw_jump},
     {"short", rw_type},
     {"signed", rw_type},
     {"sizeof", rw_sizeof},
     {"static", rw_storage_class},
     {"struct", rw_struct_or_union_or_enum},
     {"switch", rw_switch},
     {"typedef", rw_typedef},
     {"union", rw_struct_or_union_or_enum},
     {"unsigned", rw_type},
     {"void", rw_type},
     {"volatile", rw_type},
     {"while", rw_for_or_if_or_while}
 };
 const char **typenames;
 int         typename_count;
 int         typename_top = -1;
 /*
  * The transition table below was rewritten by hand from lx's output, given
  * the following definitions. lx is Katherine Flavel's lexer generator.
+ *
  * O  = /[0-7]/;        D  = /[0-9]/;          NZ = /[1-9]/;
  * H  = /[a-f0-9]/i;    B  = /[0-1]/;          HP = /0x/i;
  * BP = /0b/i;          E  = /e[+\-]?/i D+;    P  = /p[+\-]?/i D+;
  * FS = /[fl]/i;        IS = /u/i /(l|L|ll|LL)/? | /(l|L|ll|LL)/ /u/i?;
+ *
  * D+           E  FS? -> $float;
  * D*    "." D+ E? FS? -> $float;
  * D+    "."    E? FS? -> $float;    HP H+           IS? -> $int;
  * HP H+        P  FS? -> $float;    NZ D*           IS? -> $int;
  * HP H* "." H+ P  FS? -> $float;    "0" O*          IS? -> $int;
  * HP H+ "."    P  FS  -> $float;    BP B+           IS? -> $int;
  */
 static char const *table[] = {
     /*                examples:
              s                      0xx
              t                    00xaa
              a     11       101100xxa..
              r   11ee0001101lbuuxx.a.pp
              t.01.e+008bLuxll0Ll.aa.p+0
     states:  ABCDEFGHIJKLMNOPQRSTUVWXYZ */
     ['0'] = "CEIDEHHHIJQ  U  Q  VUVVZZZ",
     ['1'] = "DEIDEHHHIJQ  U  Q  VUVVZZZ",
     ['7'] = "DEIDEHHHIJ   U     VUVVZZZ",
     ['9'] = "DEJDEHHHJJ   U     VUVVZZZ",
     ['a'] = "             U     VUVV   ",
     ['b'] = "  K          U     VUVV   ",
     ['e'] = "  FFF   FF   U     VUVV   ",
     ['f'] = "    f  f     U     VUVV  f",
     ['u'] = "  MM    M  i  iiM   M     ",
     ['x'] = "  N                       ",
     ['p'] = "                    FFX   ",
     ['L'] = "  LLf  fL  PR   Li  L    f",
     ['l'] = "  OOf  fO   S P O i O    f",
     ['+'] = "     G                 Y  ",
     ['.'] = "B EE    EE   T      W     ",
     /*       ABCDEFGHIJKLMNOPQRSTUVWXYZ */
     [0]   = "uuiifuufiuuiiuiiiiiuiuuuuu",
 };
 /* Initialize constant transition table */
 void
 init_constant_tt(void)
+{
     table['-'] = table['+'];
     table['8'] = table['9'];
     table['2'] = table['3'] = table['4'] = table['5'] = table['6'] = table['7'];
     table['A'] = table['C'] = table['D'] = table['c'] = table['d'] = table['a'];
     table['B'] = table['b'];
     table['E'] = table['e'];
     table['U'] = table['u'];
     table['X'] = table['x'];
     table['P'] = table['p'];
     table['F'] = table['f'];
+}
 static char
 inbuf_peek(void)
+{
     return *buf_ptr;
+}
 static void
 inbuf_skip(void)
+{
     buf_ptr++;
     if (buf_ptr >= buf_end)
 	fill_buffer();
+}
 static char
 inbuf_next(void)
+{
     char ch = inbuf_peek();
     inbuf_skip();
     return ch;
+}
 static void
 check_size_token(size_t desired_size)
+{
     if (e_token + (desired_size) < l_token)
         return;
     size_t nsize = l_token - s_token + 400 + desired_size;
     size_t token_len = e_token - s_token;
     tokenbuf = realloc(tokenbuf, nsize);
     if (tokenbuf == NULL)
 	err(1, NULL);
     e_token = tokenbuf + token_len + 1;
     l_token = tokenbuf + nsize - 5;
     s_token = tokenbuf + 1;
+}
 static int
 compare_templ_array(const void *key, const void *elem)
+{
     return strcmp(key, ((const struct templ *)elem)->rwd);
+}
 static int
 compare_string_array(const void *key, const void *elem)
+{
     return strcmp(key, *((const char *const *)elem));
+}
 #ifdef debug
 const char *
 token_type_name(token_type tk)
+{
     static const char *const name[] = {
 	"end_of_file", "newline", "lparen", "rparen", "unary_op",
 	"binary_op", "postfix_op", "question", "case_label", "colon",
 	"semicolon", "lbrace", "rbrace", "ident", "comma",
 	"comment", "switch_expr", "preprocessing", "form_feed", "decl",
 	"keyword_for_if_while", "keyword_do_else",
 	"if_expr", "while_expr", "for_exprs",
 	"stmt", "stmt_list", "keyword_else", "keyword_do", "do_stmt",
 	"if_expr_stmt", "if_expr_stmt_else", "period", "string_prefix",
 	"storage_class", "funcname", "type_def", "keyword_struct_union_enum"
     };
     assert(0 <= tk && tk < sizeof name / sizeof name[0]);
     return name[tk];
+}
 static void
 print_buf(const char *name, const char *s, const char *e)
+{
-    if (s == e)
+    if (s < e) {
-	return;
+	debug_printf(" %s ", name);
 	debug_vis_range("\"", s, e, "\"");
     printf(" %s \"", name);
     for (const char *p = s; p < e; p++) {
 	if (isprint((unsigned char)*p) && *p != '\\' && *p != '"')
 	    printf("%c", *p);
 	else if (*p == '\n')
 	    printf("\\n");
 	else if (*p == '\t')
 	    printf("\\t");
 	else
 	    printf("\\x%02x", *p);
+    }
     printf("\"");
+}
 static token_type
 lexi_end(token_type code)
+{
-    printf("in line %d, lexi returns '%s'", line_no, token_type_name(code));
+    debug_printf("in line %d, lexi returns '%s'",
 	line_no, token_type_name(code));
     print_buf("token", s_token, e_token);
     print_buf("label", s_lab, e_lab);
     print_buf("code", s_code, e_code);
     print_buf("comment", s_com, e_com);
-    printf("\n");
+    debug_printf("\n");
     return code;
+}
 #else
 #  define lexi_end(tk) (tk)
 #endif
 token_type
 lexi(struct parser_state *state)
+{
     int         unary_delim;	/* this is set to 1 if the current token
 				 * forces a following operator to be unary */
     token_type  code;		/* internal code to be returned */
     char        qchar;		/* the delimiter character for a string */
     e_token = s_token;		/* point to start of place to save token */
     unary_delim = false;
     state->col_1 = state->last_nl;	/* tell world that this token started
 					 * in column 1 iff the last thing
 					 * scanned was a newline */
     state->last_nl = false;
     while (*buf_ptr == ' ' || *buf_ptr == '\t') {	/* get rid of blanks */
 	state->col_1 = false;	/* leading blanks imply token is not in column
 				 * 1 */
 	inbuf_skip();
+    }
     /* Scan an alphanumeric token */
     if (isalnum((unsigned char)*buf_ptr) ||
 	*buf_ptr == '_' || *buf_ptr == '$' ||
 	(buf_ptr[0] == '.' && isdigit((unsigned char)buf_ptr[1]))) {
 	/*
 	 * we have a character or number
 	 */
 	struct templ *p;
 	if (isdigit((unsigned char)*buf_ptr) ||
 	    (buf_ptr[0] == '.' && isdigit((unsigned char)buf_ptr[1]))) {
 	    char s;
 	    unsigned char i;
 	    for (s = 'A'; s != 'f' && s != 'i' && s != 'u'; ) {
 		i = (unsigned char)*buf_ptr;
 		if (i >= nitems(table) || table[i] == NULL ||
 		    table[i][s - 'A'] == ' ') {
 		    s = table[0][s - 'A'];
 		    break;
+		}
 		s = table[i][s - 'A'];
 		check_size_token(1);
 		*e_token++ = inbuf_next();
+	    }
 	    /* s now indicates the type: f(loating), i(integer), u(nknown) */
 	} else {
 	    while (isalnum((unsigned char)*buf_ptr) ||
 		   *buf_ptr == '\\' ||
 		   *buf_ptr == '_' || *buf_ptr == '$') {
 		/* fill_buffer() terminates buffer with newline */
 		if (*buf_ptr == '\\') {
 		    if (buf_ptr[1] == '\n') {
 			buf_ptr += 2;
 			if (buf_ptr >= buf_end)
 			    fill_buffer();
 		    } else
 			break;
+		}
 		check_size_token(1);
 		*e_token++ = inbuf_next();
+	    }
+	}
 	*e_token = '\0';
 	if (s_token[0] == 'L' && s_token[1] == '\0' &&
 	      (*buf_ptr == '"' || *buf_ptr == '\''))
 	    return lexi_end(string_prefix);
 	while (*buf_ptr == ' ' || *buf_ptr == '\t')	/* get rid of blanks */
 	    inbuf_next();
 	state->keyword = rw_0;
 	if (state->last_token == keyword_struct_union_enum &&
 	    !state->p_l_follow) {
 	    /* if last token was 'struct' and we're not in parentheses, then
 	     * this token should be treated as a declaration */
 	    state->last_u_d = true;
 	    return lexi_end(decl);
+	}
 	/*
 	 * Operator after identifier is binary unless last token was 'struct'
 	 */
 	state->last_u_d = (state->last_token == keyword_struct_union_enum);
 	p = bsearch(s_token, specials, sizeof specials / sizeof specials[0],
 	    sizeof specials[0], compare_templ_array);
 	if (p == NULL) {	/* not a special keyword... */
 	    char *u;
 	    /* ... so maybe a type_t or a typedef */
 	    if ((opt.auto_typedefs && ((u = strrchr(s_token, '_')) != NULL) &&
 	        strcmp(u, "_t") == 0) || (typename_top >= 0 &&
 		  bsearch(s_token, typenames, typename_top + 1,
 		    sizeof typenames[0], compare_string_array))) {
 		state->keyword = rw_type;
 		state->last_u_d = true;
 	        goto found_typename;
+	    }
 	} else {			/* we have a keyword */
 	    state->keyword = p->rwcode;
 	    state->last_u_d = true;
 	    switch (p->rwcode) {
 	    case rw_switch:
 		return lexi_end(switch_expr);
 	    case rw_case_or_default:
 		return lexi_end(case_label);
 	    case rw_struct_or_union_or_enum:
 	    case rw_type:
 	    found_typename:
 		if (state->p_l_follow) {
 		    /* inside parens: cast, param list, offsetof or sizeof */
 		    state->cast_mask |= (1 << state->p_l_follow) & ~state->not_cast_mask;
+		}
 		if (state->last_token == period || state->last_token == unary_op) {
 		    state->keyword = rw_0;
 		    break;
+		}
 		if (p != NULL && p->rwcode == rw_struct_or_union_or_enum)
 		    return lexi_end(keyword_struct_union_enum);
 		if (state->p_l_follow)
 		    break;
 		return lexi_end(decl);
 	    case rw_for_or_if_or_while:
 		return lexi_end(keyword_for_if_while);
 	    case rw_do_or_else:
 		return lexi_end(keyword_do_else);
 	    case rw_storage_class:
 		return lexi_end(storage_class);
 	    case rw_typedef:
 		return lexi_end(type_def);
 	    default:		/* all others are treated like any other
 				 * identifier */
 		return lexi_end(ident);
 	    }			/* end of switch */
 	}			/* end of if (found_it) */
 	if (*buf_ptr == '(' && state->tos <= 1 && state->ind_level == 0 &&
 	    state->in_parameter_declaration == 0 && state->block_init == 0) {
 	    char *tp = buf_ptr;
 	    while (tp < buf_end)
 		if (*tp++ == ')' && (*tp == ';' || *tp == ','))
 		    goto not_proc;
 	    strncpy(state->procname, token, sizeof state->procname - 1);
 	    if (state->in_decl)
 		state->in_parameter_declaration = 1;
 	    return lexi_end(funcname);
     not_proc:;
+	}
 	/*
 	 * The following hack attempts to guess whether or not the current
 	 * token is in fact a declaration keyword -- one that has been
 	 * typedefd
 	 */
 	else if (!state->p_l_follow && !state->block_init &&
 	    !state->in_stmt &&
 	    ((*buf_ptr == '*' && buf_ptr[1] != '=') ||
 		isalpha((unsigned char)*buf_ptr)) &&
 	    (state->last_token == semicolon || state->last_token == lbrace ||
 		state->last_token == rbrace)) {
 	    state->keyword = rw_type;
 	    state->last_u_d = true;
 	    return lexi_end(decl);
+	}
 	if (state->last_token == decl)	/* if this is a declared variable,
 					 * then following sign is unary */
 	    state->last_u_d = true;	/* will make "int a -1" work */
 	return lexi_end(ident);		/* the ident is not in the list */
     }				/* end of procesing for alpanum character */
     /* Scan a non-alphanumeric token */
     check_size_token(3);	/* things like "<<=" */
     *e_token++ = inbuf_next();	/* if it is only a one-character token, it is
 				 * moved here */
     *e_token = '\0';
     switch (*token) {
     case '\n':
 	unary_delim = state->last_u_d;
 	state->last_nl = true;	/* remember that we just had a newline */
 	code = (had_eof ? end_of_file : newline);
 	/*
 	 * if data has been exhausted, the newline is a dummy, and we should
 	 * return code to stop
 	 */
 	break;
     case '\'':			/* start of quoted character */
     case '"':			/* start of string */
 	qchar = *token;
 	do {			/* copy the string */
 	    while (1) {		/* move one character or [/<char>]<char> */
 		if (*buf_ptr == '\n') {
 		    diag(1, "Unterminated literal");
 		    goto stop_lit;
+		}
 		check_size_token(2);
 		*e_token = inbuf_next();
 		if (*e_token == '\\') {		/* if escape, copy extra char */
 		    if (*buf_ptr == '\n')	/* check for escaped newline */
 			++line_no;
 		    *++e_token = inbuf_next();
 		    ++e_token;	/* we must increment this again because we
 				 * copied two chars */
 		} else
 		    break;	/* we copied one character */
 	    }			/* end of while (1) */
 	} while (*e_token++ != qchar);
 stop_lit:
 	code = ident;
 	break;
     case ('('):
     case ('['):
 	unary_delim = true;
 	code = lparen;
 	break;
     case (')'):
     case (']'):
 	code = rparen;
 	break;
     case '#':
 	unary_delim = state->last_u_d;
 	code = preprocessing;
 	break;
     case '?':
 	unary_delim = true;
 	code = question;
 	break;
     case (':'):
 	code = colon;
 	unary_delim = true;
 	break;
     case (';'):
 	unary_delim = true;
 	code = semicolon;
 	break;
     case ('{'):
 	unary_delim = true;
 	/*
 	 * if (state->in_or_st) state->block_init = 1;
 	 */
 	/* ?	code = state->block_init ? lparen : lbrace; */
 	code = lbrace;
 	break;
     case ('}'):
 	unary_delim = true;
 	/* ?	code = state->block_init ? rparen : rbrace; */
 	code = rbrace;
 	break;
     case 014:			/* a form feed */
 	unary_delim = state->last_u_d;
 	state->last_nl = true;	/* remember this so we can set 'state->col_1'
 				 * right */
 	code = form_feed;
 	break;
     case (','):
 	unary_delim = true;
 	code = comma;
 	break;
     case '.':
 	unary_delim = false;
 	code = period;
 	break;
     case '-':
     case '+':			/* check for -, +, --, ++ */
 	code = (state->last_u_d ? unary_op : binary_op);
 	unary_delim = true;
 	if (*buf_ptr == token[0]) {
 	    /* check for doubled character */
 	    *e_token++ = *buf_ptr++;
 	    /* buffer overflow will be checked at end of loop */
 	    if (state->last_token == ident || state->last_token == rparen) {
 		code = (state->last_u_d ? unary_op : postfix_op);
 		/* check for following ++ or -- */
 		unary_delim = false;
+	    }
 	} else if (*buf_ptr == '=')
 	    /* check for operator += */
 	    *e_token++ = *buf_ptr++;
 	else if (*buf_ptr == '>') {
 	    /* check for operator -> */
 	    *e_token++ = *buf_ptr++;
 	    unary_delim = false;
 	    code = unary_op;
 	    state->want_blank = false;
+	}
 	break;			/* buffer overflow will be checked at end of
 				 * switch */
     case '=':
 	if (state->in_or_st)
 	    state->block_init = 1;
 	if (*buf_ptr == '=') {	/* == */
 	    *e_token++ = '=';	/* Flip =+ to += */
 	    buf_ptr++;
 	    *e_token = 0;
+	}
 	code = binary_op;
 	unary_delim = true;
 	break;
 	/* can drop thru!!! */
     case '>':
     case '<':
     case '!':			/* ops like <, <<, <=, !=, etc */
 	if (*buf_ptr == '>' || *buf_ptr == '<' || *buf_ptr == '=')
 	    *e_token++ = inbuf_next();
 	if (*buf_ptr == '=')
 	    *e_token++ = *buf_ptr++;
 	code = (state->last_u_d ? unary_op : binary_op);
 	unary_delim = true;
 	break;
     case '*':
 	unary_delim = true;
 	if (!state->last_u_d) {
 	    if (*buf_ptr == '=')
 		*e_token++ = *buf_ptr++;
 	    code = binary_op;
 	    break;
+	}
 	while (*buf_ptr == '*' || isspace((unsigned char)*buf_ptr)) {
 	    if (*buf_ptr == '*') {
 		check_size_token(1);
 		*e_token++ = *buf_ptr;
+	    }
 	    inbuf_skip();
+	}
 	if (ps.in_decl) {
 	    char *tp = buf_ptr;
 	    while (isalpha((unsigned char)*tp) ||
 		   isspace((unsigned char)*tp)) {
 		if (++tp >= buf_end)
 		    fill_buffer();
+	    }
 	    if (*tp == '(')
 		ps.procname[0] = ' ';
+	}
 	code = unary_op;
 	break;
     default:
 	if (token[0] == '/' && (*buf_ptr == '*' || *buf_ptr == '/')) {
 	    /* it is start of comment */
 	    *e_token++ = inbuf_next();
 	    code = comment;
 	    unary_delim = state->last_u_d;
 	    break;
+	}
 	while (e_token[-1] == *buf_ptr || *buf_ptr == '=') {
 	    /*
 	     * handle ||, &&, etc, and also things as in int *****i
 	     */
 	    check_size_token(1);
 	    *e_token++ = inbuf_next();
+	}
 	code = (state->last_u_d ? unary_op : binary_op);
 	unary_delim = true;
     }				/* end of switch */
     if (buf_ptr >= buf_end)	/* check for input buffer empty */
 	fill_buffer();
     state->last_u_d = unary_delim;
     check_size_token(1);
     *e_token = '\0';		/* null terminate the token */
     return lexi_end(code);
+}
 void
 alloc_typenames(void)
+{
     typenames = malloc(sizeof(typenames[0]) * (typename_count = 16));
     if (typenames == NULL)
 	err(1, NULL);
+}
 void
 add_typename(const char *key)
+{
     int comparison;
     const char *copy;
     if (typename_top + 1 >= typename_count) {
 	typenames = realloc((void *)typenames,
 	    sizeof(typenames[0]) * (typename_count *= 2));
 	if (typenames == NULL)
 	    err(1, NULL);
+    }
     if (typename_top == -1)
 	typenames[++typename_top] = copy = strdup(key);
     else if ((comparison = strcmp(key, typenames[typename_top])) >= 0) {
 	/* take advantage of sorted input */
 	if (comparison == 0)	/* remove duplicates */
 	    return;
 	typenames[++typename_top] = copy = strdup(key);
     } else {
 	int p;
 	for (p = 0; (comparison = strcmp(key, typenames[p])) > 0; p++)
 	    /* find place for the new key */;
 	if (comparison == 0)	/* remove duplicates */
 	    return;
 	memmove(&typenames[p + 1], &typenames[p],
 	    sizeof(typenames[0]) * (++typename_top - p));
 	typenames[p] = copy = strdup(key);
+    }
     if (copy == NULL)
 	err(1, NULL);
+}