19b50d902SRodney W. Grimes /* 29b50d902SRodney W. Grimes * Copyright (c) 1985 Sun Microsystems, Inc. 39b50d902SRodney W. Grimes * Copyright (c) 1976 Board of Trustees of the University of Illinois. 49b50d902SRodney W. Grimes * Copyright (c) 1980, 1993 59b50d902SRodney W. Grimes * The Regents of the University of California. All rights reserved. 69b50d902SRodney W. Grimes * 79b50d902SRodney W. Grimes * Redistribution and use in source and binary forms, with or without 89b50d902SRodney W. Grimes * modification, are permitted provided that the following conditions 99b50d902SRodney W. Grimes * are met: 109b50d902SRodney W. Grimes * 1. Redistributions of source code must retain the above copyright 119b50d902SRodney W. Grimes * notice, this list of conditions and the following disclaimer. 129b50d902SRodney W. Grimes * 2. Redistributions in binary form must reproduce the above copyright 139b50d902SRodney W. Grimes * notice, this list of conditions and the following disclaimer in the 149b50d902SRodney W. Grimes * documentation and/or other materials provided with the distribution. 159b50d902SRodney W. Grimes * 3. All advertising materials mentioning features or use of this software 169b50d902SRodney W. Grimes * must display the following acknowledgement: 179b50d902SRodney W. Grimes * This product includes software developed by the University of 189b50d902SRodney W. Grimes * California, Berkeley and its contributors. 199b50d902SRodney W. Grimes * 4. Neither the name of the University nor the names of its contributors 209b50d902SRodney W. Grimes * may be used to endorse or promote products derived from this software 219b50d902SRodney W. Grimes * without specific prior written permission. 229b50d902SRodney W. Grimes * 239b50d902SRodney W. Grimes * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 249b50d902SRodney W. Grimes * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 259b50d902SRodney W. Grimes * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 269b50d902SRodney W. Grimes * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 279b50d902SRodney W. Grimes * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 289b50d902SRodney W. Grimes * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 299b50d902SRodney W. Grimes * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 309b50d902SRodney W. Grimes * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 319b50d902SRodney W. Grimes * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 329b50d902SRodney W. Grimes * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 339b50d902SRodney W. Grimes * SUCH DAMAGE. 349b50d902SRodney W. Grimes */ 359b50d902SRodney W. Grimes 369b50d902SRodney W. Grimes #ifndef lint 37958d7c9fSPhilippe Charnier static const char copyright[] = 389b50d902SRodney W. Grimes "@(#) Copyright (c) 1985 Sun Microsystems, Inc.\n\ 399b50d902SRodney W. Grimes @(#) Copyright (c) 1976 Board of Trustees of the University of Illinois.\n\ 409b50d902SRodney W. Grimes @(#) Copyright (c) 1980, 1993\n\ 419b50d902SRodney W. Grimes The Regents of the University of California. All rights reserved.\n"; 429b50d902SRodney W. Grimes #endif /* not lint */ 439b50d902SRodney W. Grimes 449b50d902SRodney W. Grimes #ifndef lint 45958d7c9fSPhilippe Charnier #if 0 469b50d902SRodney W. Grimes static char sccsid[] = "@(#)indent.c 5.17 (Berkeley) 6/7/93"; 47958d7c9fSPhilippe Charnier #endif 48958d7c9fSPhilippe Charnier static const char rcsid[] = 499ef5c48bSBill Fumerola "$Id: indent.c,v 1.3 1998/10/18 04:46:24 thepish Exp $"; 509b50d902SRodney W. Grimes #endif /* not lint */ 519b50d902SRodney W. Grimes 529b50d902SRodney W. Grimes #include <sys/param.h> 53958d7c9fSPhilippe Charnier #include <err.h> 549b50d902SRodney W. Grimes #include <fcntl.h> 559b50d902SRodney W. Grimes #include <unistd.h> 569b50d902SRodney W. Grimes #include <stdio.h> 579b50d902SRodney W. Grimes #include <stdlib.h> 589b50d902SRodney W. Grimes #include <string.h> 599b50d902SRodney W. Grimes #include "indent_globs.h" 609b50d902SRodney W. Grimes #include "indent_codes.h" 619b50d902SRodney W. Grimes #include <ctype.h> 629b50d902SRodney W. Grimes 639b50d902SRodney W. Grimes char *in_name = "Standard Input"; /* will always point to name of input 649b50d902SRodney W. Grimes * file */ 659b50d902SRodney W. Grimes char *out_name = "Standard Output"; /* will always point to name 669b50d902SRodney W. Grimes * of output file */ 679b50d902SRodney W. Grimes char bakfile[MAXPATHLEN] = ""; 689b50d902SRodney W. Grimes 69958d7c9fSPhilippe Charnier static void usage __P((void)); 70958d7c9fSPhilippe Charnier 719b50d902SRodney W. Grimes main(argc, argv) 729b50d902SRodney W. Grimes int argc; 739b50d902SRodney W. Grimes char **argv; 749b50d902SRodney W. Grimes { 759b50d902SRodney W. Grimes 769b50d902SRodney W. Grimes extern int found_err; /* flag set in diag() on error */ 779b50d902SRodney W. Grimes int dec_ind; /* current indentation for declarations */ 789b50d902SRodney W. Grimes int di_stack[20]; /* a stack of structure indentation levels */ 799b50d902SRodney W. Grimes int flushed_nl; /* used when buffering up comments to remember 809b50d902SRodney W. Grimes * that a newline was passed over */ 819b50d902SRodney W. Grimes int force_nl; /* when true, code must be broken */ 829b50d902SRodney W. Grimes int hd_type; /* used to store type of stmt for if (...), 839b50d902SRodney W. Grimes * for (...), etc */ 849b50d902SRodney W. Grimes register int i; /* local loop counter */ 859b50d902SRodney W. Grimes int scase; /* set to true when we see a case, so we will 869b50d902SRodney W. Grimes * know what to do with the following colon */ 879b50d902SRodney W. Grimes int sp_sw; /* when true, we are in the expressin of 889b50d902SRodney W. Grimes * if(...), while(...), etc. */ 899b50d902SRodney W. Grimes int squest; /* when this is positive, we have seen a ? 909b50d902SRodney W. Grimes * without the matching : in a <c>?<s>:<s> 919b50d902SRodney W. Grimes * construct */ 929b50d902SRodney W. Grimes register char *t_ptr; /* used for copying tokens */ 939b50d902SRodney W. Grimes int type_code; /* the type of token, returned by lexi */ 949b50d902SRodney W. Grimes 959b50d902SRodney W. Grimes int last_else = 0; /* true iff last keyword was an else */ 969b50d902SRodney W. Grimes 979b50d902SRodney W. Grimes 989b50d902SRodney W. Grimes /*-----------------------------------------------*\ 999b50d902SRodney W. Grimes | INITIALIZATION | 1009b50d902SRodney W. Grimes \*-----------------------------------------------*/ 1019b50d902SRodney W. Grimes 1029b50d902SRodney W. Grimes 1039b50d902SRodney W. Grimes ps.p_stack[0] = stmt; /* this is the parser's stack */ 1049b50d902SRodney W. Grimes ps.last_nl = true; /* this is true if the last thing scanned was 1059b50d902SRodney W. Grimes * a newline */ 1069b50d902SRodney W. Grimes ps.last_token = semicolon; 1079b50d902SRodney W. Grimes combuf = (char *) malloc(bufsize); 1089b50d902SRodney W. Grimes labbuf = (char *) malloc(bufsize); 1099b50d902SRodney W. Grimes codebuf = (char *) malloc(bufsize); 1109b50d902SRodney W. Grimes tokenbuf = (char *) malloc(bufsize); 1119b50d902SRodney W. Grimes l_com = combuf + bufsize - 5; 1129b50d902SRodney W. Grimes l_lab = labbuf + bufsize - 5; 1139b50d902SRodney W. Grimes l_code = codebuf + bufsize - 5; 1149b50d902SRodney W. Grimes l_token = tokenbuf + bufsize - 5; 1159b50d902SRodney W. Grimes combuf[0] = codebuf[0] = labbuf[0] = ' '; /* set up code, label, and 1169b50d902SRodney W. Grimes * comment buffers */ 1179b50d902SRodney W. Grimes combuf[1] = codebuf[1] = labbuf[1] = '\0'; 1189b50d902SRodney W. Grimes ps.else_if = 1; /* Default else-if special processing to on */ 1199b50d902SRodney W. Grimes s_lab = e_lab = labbuf + 1; 1209b50d902SRodney W. Grimes s_code = e_code = codebuf + 1; 1219b50d902SRodney W. Grimes s_com = e_com = combuf + 1; 1229b50d902SRodney W. Grimes s_token = e_token = tokenbuf + 1; 1239b50d902SRodney W. Grimes 1249b50d902SRodney W. Grimes in_buffer = (char *) malloc(10); 1259b50d902SRodney W. Grimes in_buffer_limit = in_buffer + 8; 1269b50d902SRodney W. Grimes buf_ptr = buf_end = in_buffer; 1279b50d902SRodney W. Grimes line_no = 1; 1289b50d902SRodney W. Grimes had_eof = ps.in_decl = ps.decl_on_line = break_comma = false; 1299b50d902SRodney W. Grimes sp_sw = force_nl = false; 1309b50d902SRodney W. Grimes ps.in_or_st = false; 1319b50d902SRodney W. Grimes ps.bl_line = true; 1329b50d902SRodney W. Grimes dec_ind = 0; 1339b50d902SRodney W. Grimes di_stack[ps.dec_nest = 0] = 0; 1349b50d902SRodney W. Grimes ps.want_blank = ps.in_stmt = ps.ind_stmt = false; 1359b50d902SRodney W. Grimes 1369b50d902SRodney W. Grimes 1379b50d902SRodney W. Grimes scase = ps.pcase = false; 1389b50d902SRodney W. Grimes squest = 0; 1399b50d902SRodney W. Grimes sc_end = 0; 1409b50d902SRodney W. Grimes bp_save = 0; 1419b50d902SRodney W. Grimes be_save = 0; 1429b50d902SRodney W. Grimes 1439b50d902SRodney W. Grimes output = 0; 1449b50d902SRodney W. Grimes 1459b50d902SRodney W. Grimes 1469b50d902SRodney W. Grimes 1479b50d902SRodney W. Grimes /*--------------------------------------------------*\ 1489b50d902SRodney W. Grimes | COMMAND LINE SCAN | 1499b50d902SRodney W. Grimes \*--------------------------------------------------*/ 1509b50d902SRodney W. Grimes 1519b50d902SRodney W. Grimes #ifdef undef 1529b50d902SRodney W. Grimes max_col = 78; /* -l78 */ 1539b50d902SRodney W. Grimes lineup_to_parens = 1; /* -lp */ 1549b50d902SRodney W. Grimes ps.ljust_decl = 0; /* -ndj */ 1559b50d902SRodney W. Grimes ps.com_ind = 33; /* -c33 */ 1569b50d902SRodney W. Grimes star_comment_cont = 1; /* -sc */ 1579b50d902SRodney W. Grimes ps.ind_size = 8; /* -i8 */ 1589b50d902SRodney W. Grimes verbose = 0; 1599b50d902SRodney W. Grimes ps.decl_indent = 16; /* -di16 */ 1609b50d902SRodney W. Grimes ps.indent_parameters = 1; /* -ip */ 1619b50d902SRodney W. Grimes ps.decl_com_ind = 0; /* if this is not set to some positive value 1629b50d902SRodney W. Grimes * by an arg, we will set this equal to 1639b50d902SRodney W. Grimes * ps.com_ind */ 1649b50d902SRodney W. Grimes btype_2 = 1; /* -br */ 1659b50d902SRodney W. Grimes cuddle_else = 1; /* -ce */ 1669b50d902SRodney W. Grimes ps.unindent_displace = 0; /* -d0 */ 1679b50d902SRodney W. Grimes ps.case_indent = 0; /* -cli0 */ 1689b50d902SRodney W. Grimes format_col1_comments = 1; /* -fc1 */ 1699b50d902SRodney W. Grimes procnames_start_line = 1; /* -psl */ 1709b50d902SRodney W. Grimes proc_calls_space = 0; /* -npcs */ 1719b50d902SRodney W. Grimes comment_delimiter_on_blankline = 1; /* -cdb */ 1729b50d902SRodney W. Grimes ps.leave_comma = 1; /* -nbc */ 1739b50d902SRodney W. Grimes #endif 1749b50d902SRodney W. Grimes 1759b50d902SRodney W. Grimes for (i = 1; i < argc; ++i) 1769b50d902SRodney W. Grimes if (strcmp(argv[i], "-npro") == 0) 1779b50d902SRodney W. Grimes break; 1789b50d902SRodney W. Grimes set_defaults(); 1799b50d902SRodney W. Grimes if (i >= argc) 1809b50d902SRodney W. Grimes set_profile(); 1819b50d902SRodney W. Grimes 1829b50d902SRodney W. Grimes for (i = 1; i < argc; ++i) { 1839b50d902SRodney W. Grimes 1849b50d902SRodney W. Grimes /* 1859b50d902SRodney W. Grimes * look thru args (if any) for changes to defaults 1869b50d902SRodney W. Grimes */ 1879b50d902SRodney W. Grimes if (argv[i][0] != '-') {/* no flag on parameter */ 1889b50d902SRodney W. Grimes if (input == 0) { /* we must have the input file */ 1899b50d902SRodney W. Grimes in_name = argv[i]; /* remember name of input file */ 1909b50d902SRodney W. Grimes input = fopen(in_name, "r"); 1919b50d902SRodney W. Grimes if (input == 0) /* check for open error */ 192958d7c9fSPhilippe Charnier err(1, in_name); 1939b50d902SRodney W. Grimes continue; 1949b50d902SRodney W. Grimes } 1959b50d902SRodney W. Grimes else if (output == 0) { /* we have the output file */ 1969b50d902SRodney W. Grimes out_name = argv[i]; /* remember name of output file */ 1979b50d902SRodney W. Grimes if (strcmp(in_name, out_name) == 0) { /* attempt to overwrite 1989b50d902SRodney W. Grimes * the file */ 199958d7c9fSPhilippe Charnier errx(1, "input and output files must be different"); 2009b50d902SRodney W. Grimes } 2019b50d902SRodney W. Grimes output = fopen(out_name, "w"); 2029b50d902SRodney W. Grimes if (output == 0) /* check for create error */ 203958d7c9fSPhilippe Charnier err(1, out_name); 2049b50d902SRodney W. Grimes continue; 2059b50d902SRodney W. Grimes } 206958d7c9fSPhilippe Charnier errx(1, "unknown parameter: %s", argv[i]); 2079b50d902SRodney W. Grimes } 2089b50d902SRodney W. Grimes else 2099b50d902SRodney W. Grimes set_option(argv[i]); 2109b50d902SRodney W. Grimes } /* end of for */ 2119ef5c48bSBill Fumerola if (input == 0) 21218251d71SPeter Hawkins input = stdin; 2139ef5c48bSBill Fumerola if (output == 0) { 21418251d71SPeter Hawkins if (troff || input == stdin) 2159b50d902SRodney W. Grimes output = stdout; 2169b50d902SRodney W. Grimes else { 2179b50d902SRodney W. Grimes out_name = in_name; 2189b50d902SRodney W. Grimes bakcopy(); 2199b50d902SRodney W. Grimes } 2209ef5c48bSBill Fumerola } 2219b50d902SRodney W. Grimes if (ps.com_ind <= 1) 2229b50d902SRodney W. Grimes ps.com_ind = 2; /* dont put normal comments before column 2 */ 2239b50d902SRodney W. Grimes if (troff) { 2249b50d902SRodney W. Grimes if (bodyf.font[0] == 0) 2259b50d902SRodney W. Grimes parsefont(&bodyf, "R"); 2269b50d902SRodney W. Grimes if (scomf.font[0] == 0) 2279b50d902SRodney W. Grimes parsefont(&scomf, "I"); 2289b50d902SRodney W. Grimes if (blkcomf.font[0] == 0) 2299b50d902SRodney W. Grimes blkcomf = scomf, blkcomf.size += 2; 2309b50d902SRodney W. Grimes if (boxcomf.font[0] == 0) 2319b50d902SRodney W. Grimes boxcomf = blkcomf; 2329b50d902SRodney W. Grimes if (stringf.font[0] == 0) 2339b50d902SRodney W. Grimes parsefont(&stringf, "L"); 2349b50d902SRodney W. Grimes if (keywordf.font[0] == 0) 2359b50d902SRodney W. Grimes parsefont(&keywordf, "B"); 2369b50d902SRodney W. Grimes writefdef(&bodyf, 'B'); 2379b50d902SRodney W. Grimes writefdef(&scomf, 'C'); 2389b50d902SRodney W. Grimes writefdef(&blkcomf, 'L'); 2399b50d902SRodney W. Grimes writefdef(&boxcomf, 'X'); 2409b50d902SRodney W. Grimes writefdef(&stringf, 'S'); 2419b50d902SRodney W. Grimes writefdef(&keywordf, 'K'); 2429b50d902SRodney W. Grimes } 2439b50d902SRodney W. Grimes if (block_comment_max_col <= 0) 2449b50d902SRodney W. Grimes block_comment_max_col = max_col; 2459b50d902SRodney W. Grimes if (ps.decl_com_ind <= 0) /* if not specified by user, set this */ 2469b50d902SRodney W. Grimes ps.decl_com_ind = ps.ljust_decl ? (ps.com_ind <= 10 ? 2 : ps.com_ind - 8) : ps.com_ind; 2479b50d902SRodney W. Grimes if (continuation_indent == 0) 2489b50d902SRodney W. Grimes continuation_indent = ps.ind_size; 2499b50d902SRodney W. Grimes fill_buffer(); /* get first batch of stuff into input buffer */ 2509b50d902SRodney W. Grimes 2519b50d902SRodney W. Grimes parse(semicolon); 2529b50d902SRodney W. Grimes { 2539b50d902SRodney W. Grimes register char *p = buf_ptr; 2549b50d902SRodney W. Grimes register col = 1; 2559b50d902SRodney W. Grimes 2569b50d902SRodney W. Grimes while (1) { 2579b50d902SRodney W. Grimes if (*p == ' ') 2589b50d902SRodney W. Grimes col++; 2599b50d902SRodney W. Grimes else if (*p == '\t') 2609b50d902SRodney W. Grimes col = ((col - 1) & ~7) + 9; 2619b50d902SRodney W. Grimes else 2629b50d902SRodney W. Grimes break; 2639b50d902SRodney W. Grimes p++; 2649b50d902SRodney W. Grimes } 2659b50d902SRodney W. Grimes if (col > ps.ind_size) 2669b50d902SRodney W. Grimes ps.ind_level = ps.i_l_follow = col / ps.ind_size; 2679b50d902SRodney W. Grimes } 2689b50d902SRodney W. Grimes if (troff) { 2699b50d902SRodney W. Grimes register char *p = in_name, 2709b50d902SRodney W. Grimes *beg = in_name; 2719b50d902SRodney W. Grimes 2729b50d902SRodney W. Grimes while (*p) 2739b50d902SRodney W. Grimes if (*p++ == '/') 2749b50d902SRodney W. Grimes beg = p; 2759b50d902SRodney W. Grimes fprintf(output, ".Fn \"%s\"\n", beg); 2769b50d902SRodney W. Grimes } 2779b50d902SRodney W. Grimes /* 2789b50d902SRodney W. Grimes * START OF MAIN LOOP 2799b50d902SRodney W. Grimes */ 2809b50d902SRodney W. Grimes 2819b50d902SRodney W. Grimes while (1) { /* this is the main loop. it will go until we 2829b50d902SRodney W. Grimes * reach eof */ 2839b50d902SRodney W. Grimes int is_procname; 2849b50d902SRodney W. Grimes 2859b50d902SRodney W. Grimes type_code = lexi(); /* lexi reads one token. The actual 2869b50d902SRodney W. Grimes * characters read are stored in "token". lexi 2879b50d902SRodney W. Grimes * returns a code indicating the type of token */ 2889b50d902SRodney W. Grimes is_procname = ps.procname[0]; 2899b50d902SRodney W. Grimes 2909b50d902SRodney W. Grimes /* 2919b50d902SRodney W. Grimes * The following code moves everything following an if (), while (), 2929b50d902SRodney W. Grimes * else, etc. up to the start of the following stmt to a buffer. This 2939b50d902SRodney W. Grimes * allows proper handling of both kinds of brace placement. 2949b50d902SRodney W. Grimes */ 2959b50d902SRodney W. Grimes 2969b50d902SRodney W. Grimes flushed_nl = false; 2979b50d902SRodney W. Grimes while (ps.search_brace) { /* if we scanned an if(), while(), 2989b50d902SRodney W. Grimes * etc., we might need to copy stuff 2999b50d902SRodney W. Grimes * into a buffer we must loop, copying 3009b50d902SRodney W. Grimes * stuff into save_com, until we find 3019b50d902SRodney W. Grimes * the start of the stmt which follows 3029b50d902SRodney W. Grimes * the if, or whatever */ 3039b50d902SRodney W. Grimes switch (type_code) { 3049b50d902SRodney W. Grimes case newline: 3059b50d902SRodney W. Grimes ++line_no; 3069b50d902SRodney W. Grimes flushed_nl = true; 3079b50d902SRodney W. Grimes case form_feed: 3089b50d902SRodney W. Grimes break; /* form feeds and newlines found here will be 3099b50d902SRodney W. Grimes * ignored */ 3109b50d902SRodney W. Grimes 3119b50d902SRodney W. Grimes case lbrace: /* this is a brace that starts the compound 3129b50d902SRodney W. Grimes * stmt */ 3139b50d902SRodney W. Grimes if (sc_end == 0) { /* ignore buffering if a comment wasnt 3149b50d902SRodney W. Grimes * stored up */ 3159b50d902SRodney W. Grimes ps.search_brace = false; 3169b50d902SRodney W. Grimes goto check_type; 3179b50d902SRodney W. Grimes } 3189b50d902SRodney W. Grimes if (btype_2) { 3199b50d902SRodney W. Grimes save_com[0] = '{'; /* we either want to put the brace 3209b50d902SRodney W. Grimes * right after the if */ 3219b50d902SRodney W. Grimes goto sw_buffer; /* go to common code to get out of 3229b50d902SRodney W. Grimes * this loop */ 3239b50d902SRodney W. Grimes } 3249b50d902SRodney W. Grimes case comment: /* we have a comment, so we must copy it into 3259b50d902SRodney W. Grimes * the buffer */ 3269b50d902SRodney W. Grimes if (!flushed_nl || sc_end != 0) { 3279b50d902SRodney W. Grimes if (sc_end == 0) { /* if this is the first comment, we 3289b50d902SRodney W. Grimes * must set up the buffer */ 3299b50d902SRodney W. Grimes save_com[0] = save_com[1] = ' '; 3309b50d902SRodney W. Grimes sc_end = &(save_com[2]); 3319b50d902SRodney W. Grimes } 3329b50d902SRodney W. Grimes else { 3339b50d902SRodney W. Grimes *sc_end++ = '\n'; /* add newline between 3349b50d902SRodney W. Grimes * comments */ 3359b50d902SRodney W. Grimes *sc_end++ = ' '; 3369b50d902SRodney W. Grimes --line_no; 3379b50d902SRodney W. Grimes } 3389b50d902SRodney W. Grimes *sc_end++ = '/'; /* copy in start of comment */ 3399b50d902SRodney W. Grimes *sc_end++ = '*'; 3409b50d902SRodney W. Grimes 3419b50d902SRodney W. Grimes for (;;) { /* loop until we get to the end of the comment */ 3429b50d902SRodney W. Grimes *sc_end = *buf_ptr++; 3439b50d902SRodney W. Grimes if (buf_ptr >= buf_end) 3449b50d902SRodney W. Grimes fill_buffer(); 3459b50d902SRodney W. Grimes 3469b50d902SRodney W. Grimes if (*sc_end++ == '*' && *buf_ptr == '/') 3479b50d902SRodney W. Grimes break; /* we are at end of comment */ 3489b50d902SRodney W. Grimes 3499b50d902SRodney W. Grimes if (sc_end >= &(save_com[sc_size])) { /* check for temp buffer 3509b50d902SRodney W. Grimes * overflow */ 3519b50d902SRodney W. Grimes diag(1, "Internal buffer overflow - Move big comment from right after if, while, or whatever."); 3529b50d902SRodney W. Grimes fflush(output); 3539b50d902SRodney W. Grimes exit(1); 3549b50d902SRodney W. Grimes } 3559b50d902SRodney W. Grimes } 3569b50d902SRodney W. Grimes *sc_end++ = '/'; /* add ending slash */ 3579b50d902SRodney W. Grimes if (++buf_ptr >= buf_end) /* get past / in buffer */ 3589b50d902SRodney W. Grimes fill_buffer(); 3599b50d902SRodney W. Grimes break; 3609b50d902SRodney W. Grimes } 3619b50d902SRodney W. Grimes default: /* it is the start of a normal statment */ 3629b50d902SRodney W. Grimes if (flushed_nl) /* if we flushed a newline, make sure it is 3639b50d902SRodney W. Grimes * put back */ 3649b50d902SRodney W. Grimes force_nl = true; 3659b50d902SRodney W. Grimes if (type_code == sp_paren && *token == 'i' 3669b50d902SRodney W. Grimes && last_else && ps.else_if 3679b50d902SRodney W. Grimes || type_code == sp_nparen && *token == 'e' 3689b50d902SRodney W. Grimes && e_code != s_code && e_code[-1] == '}') 3699b50d902SRodney W. Grimes force_nl = false; 3709b50d902SRodney W. Grimes 3719b50d902SRodney W. Grimes if (sc_end == 0) { /* ignore buffering if comment wasnt 3729b50d902SRodney W. Grimes * saved up */ 3739b50d902SRodney W. Grimes ps.search_brace = false; 3749b50d902SRodney W. Grimes goto check_type; 3759b50d902SRodney W. Grimes } 3769b50d902SRodney W. Grimes if (force_nl) { /* if we should insert a nl here, put it into 3779b50d902SRodney W. Grimes * the buffer */ 3789b50d902SRodney W. Grimes force_nl = false; 3799b50d902SRodney W. Grimes --line_no; /* this will be re-increased when the nl is 3809b50d902SRodney W. Grimes * read from the buffer */ 3819b50d902SRodney W. Grimes *sc_end++ = '\n'; 3829b50d902SRodney W. Grimes *sc_end++ = ' '; 3839b50d902SRodney W. Grimes if (verbose && !flushed_nl) /* print error msg if the line 3849b50d902SRodney W. Grimes * was not already broken */ 3859b50d902SRodney W. Grimes diag(0, "Line broken"); 3869b50d902SRodney W. Grimes flushed_nl = false; 3879b50d902SRodney W. Grimes } 3889b50d902SRodney W. Grimes for (t_ptr = token; *t_ptr; ++t_ptr) 3899b50d902SRodney W. Grimes *sc_end++ = *t_ptr; /* copy token into temp buffer */ 3909b50d902SRodney W. Grimes ps.procname[0] = 0; 3919b50d902SRodney W. Grimes 3929b50d902SRodney W. Grimes sw_buffer: 3939b50d902SRodney W. Grimes ps.search_brace = false; /* stop looking for start of 3949b50d902SRodney W. Grimes * stmt */ 3959b50d902SRodney W. Grimes bp_save = buf_ptr; /* save current input buffer */ 3969b50d902SRodney W. Grimes be_save = buf_end; 3979b50d902SRodney W. Grimes buf_ptr = save_com; /* fix so that subsequent calls to 3989b50d902SRodney W. Grimes * lexi will take tokens out of 3999b50d902SRodney W. Grimes * save_com */ 4009b50d902SRodney W. Grimes *sc_end++ = ' ';/* add trailing blank, just in case */ 4019b50d902SRodney W. Grimes buf_end = sc_end; 4029b50d902SRodney W. Grimes sc_end = 0; 4039b50d902SRodney W. Grimes break; 4049b50d902SRodney W. Grimes } /* end of switch */ 4059b50d902SRodney W. Grimes if (type_code != 0) /* we must make this check, just in case there 4069b50d902SRodney W. Grimes * was an unexpected EOF */ 4079b50d902SRodney W. Grimes type_code = lexi(); /* read another token */ 4089b50d902SRodney W. Grimes /* if (ps.search_brace) ps.procname[0] = 0; */ 4099b50d902SRodney W. Grimes if ((is_procname = ps.procname[0]) && flushed_nl 4109b50d902SRodney W. Grimes && !procnames_start_line && ps.in_decl 4119b50d902SRodney W. Grimes && type_code == ident) 4129b50d902SRodney W. Grimes flushed_nl = 0; 4139b50d902SRodney W. Grimes } /* end of while (search_brace) */ 4149b50d902SRodney W. Grimes last_else = 0; 4159b50d902SRodney W. Grimes check_type: 4169b50d902SRodney W. Grimes if (type_code == 0) { /* we got eof */ 4179b50d902SRodney W. Grimes if (s_lab != e_lab || s_code != e_code 4189b50d902SRodney W. Grimes || s_com != e_com) /* must dump end of line */ 4199b50d902SRodney W. Grimes dump_line(); 4209b50d902SRodney W. Grimes if (ps.tos > 1) /* check for balanced braces */ 4219b50d902SRodney W. Grimes diag(1, "Stuff missing from end of file."); 4229b50d902SRodney W. Grimes 4239b50d902SRodney W. Grimes if (verbose) { 4249b50d902SRodney W. Grimes printf("There were %d output lines and %d comments\n", 4259b50d902SRodney W. Grimes ps.out_lines, ps.out_coms); 4269b50d902SRodney W. Grimes printf("(Lines with comments)/(Lines with code): %6.3f\n", 4279b50d902SRodney W. Grimes (1.0 * ps.com_lines) / code_lines); 4289b50d902SRodney W. Grimes } 4299b50d902SRodney W. Grimes fflush(output); 4309b50d902SRodney W. Grimes exit(found_err); 4319b50d902SRodney W. Grimes } 4329b50d902SRodney W. Grimes if ( 4339b50d902SRodney W. Grimes (type_code != comment) && 4349b50d902SRodney W. Grimes (type_code != newline) && 4359b50d902SRodney W. Grimes (type_code != preesc) && 4369b50d902SRodney W. Grimes (type_code != form_feed)) { 4379b50d902SRodney W. Grimes if (force_nl && 4389b50d902SRodney W. Grimes (type_code != semicolon) && 4399b50d902SRodney W. Grimes (type_code != lbrace || !btype_2)) { 4409b50d902SRodney W. Grimes /* we should force a broken line here */ 4419b50d902SRodney W. Grimes if (verbose && !flushed_nl) 4429b50d902SRodney W. Grimes diag(0, "Line broken"); 4439b50d902SRodney W. Grimes flushed_nl = false; 4449b50d902SRodney W. Grimes dump_line(); 4459b50d902SRodney W. Grimes ps.want_blank = false; /* dont insert blank at line start */ 4469b50d902SRodney W. Grimes force_nl = false; 4479b50d902SRodney W. Grimes } 4489b50d902SRodney W. Grimes ps.in_stmt = true; /* turn on flag which causes an extra level of 4499b50d902SRodney W. Grimes * indentation. this is turned off by a ; or 4509b50d902SRodney W. Grimes * '}' */ 4519b50d902SRodney W. Grimes if (s_com != e_com) { /* the turkey has embedded a comment 4529b50d902SRodney W. Grimes * in a line. fix it */ 4539b50d902SRodney W. Grimes *e_code++ = ' '; 4549b50d902SRodney W. Grimes for (t_ptr = s_com; *t_ptr; ++t_ptr) { 4559b50d902SRodney W. Grimes CHECK_SIZE_CODE; 4569b50d902SRodney W. Grimes *e_code++ = *t_ptr; 4579b50d902SRodney W. Grimes } 4589b50d902SRodney W. Grimes *e_code++ = ' '; 4599b50d902SRodney W. Grimes *e_code = '\0'; /* null terminate code sect */ 4609b50d902SRodney W. Grimes ps.want_blank = false; 4619b50d902SRodney W. Grimes e_com = s_com; 4629b50d902SRodney W. Grimes } 4639b50d902SRodney W. Grimes } 4649b50d902SRodney W. Grimes else if (type_code != comment) /* preserve force_nl thru a comment */ 4659b50d902SRodney W. Grimes force_nl = false; /* cancel forced newline after newline, form 4669b50d902SRodney W. Grimes * feed, etc */ 4679b50d902SRodney W. Grimes 4689b50d902SRodney W. Grimes 4699b50d902SRodney W. Grimes 4709b50d902SRodney W. Grimes /*-----------------------------------------------------*\ 4719b50d902SRodney W. Grimes | do switch on type of token scanned | 4729b50d902SRodney W. Grimes \*-----------------------------------------------------*/ 4739b50d902SRodney W. Grimes CHECK_SIZE_CODE; 4749b50d902SRodney W. Grimes switch (type_code) { /* now, decide what to do with the token */ 4759b50d902SRodney W. Grimes 4769b50d902SRodney W. Grimes case form_feed: /* found a form feed in line */ 4779b50d902SRodney W. Grimes ps.use_ff = true; /* a form feed is treated much like a newline */ 4789b50d902SRodney W. Grimes dump_line(); 4799b50d902SRodney W. Grimes ps.want_blank = false; 4809b50d902SRodney W. Grimes break; 4819b50d902SRodney W. Grimes 4829b50d902SRodney W. Grimes case newline: 4839b50d902SRodney W. Grimes if (ps.last_token != comma || ps.p_l_follow > 0 4849b50d902SRodney W. Grimes || !ps.leave_comma || ps.block_init || !break_comma || s_com != e_com) { 4859b50d902SRodney W. Grimes dump_line(); 4869b50d902SRodney W. Grimes ps.want_blank = false; 4879b50d902SRodney W. Grimes } 4889b50d902SRodney W. Grimes ++line_no; /* keep track of input line number */ 4899b50d902SRodney W. Grimes break; 4909b50d902SRodney W. Grimes 4919b50d902SRodney W. Grimes case lparen: /* got a '(' or '[' */ 4929b50d902SRodney W. Grimes ++ps.p_l_follow; /* count parens to make Healy happy */ 4939b50d902SRodney W. Grimes if (ps.want_blank && *token != '[' && 4949b50d902SRodney W. Grimes (ps.last_token != ident || proc_calls_space 4959b50d902SRodney W. Grimes || (ps.its_a_keyword && (!ps.sizeof_keyword || Bill_Shannon)))) 4969b50d902SRodney W. Grimes *e_code++ = ' '; 4979b50d902SRodney W. Grimes if (ps.in_decl && !ps.block_init) 4989b50d902SRodney W. Grimes if (troff && !ps.dumped_decl_indent && !is_procname && ps.last_token == decl) { 4999b50d902SRodney W. Grimes ps.dumped_decl_indent = 1; 5009b50d902SRodney W. Grimes sprintf(e_code, "\n.Du %dp+\200p \"%s\"\n", dec_ind * 7, token); 5019b50d902SRodney W. Grimes e_code += strlen(e_code); 5029b50d902SRodney W. Grimes } 5039b50d902SRodney W. Grimes else { 5049b50d902SRodney W. Grimes while ((e_code - s_code) < dec_ind) { 5059b50d902SRodney W. Grimes CHECK_SIZE_CODE; 5069b50d902SRodney W. Grimes *e_code++ = ' '; 5079b50d902SRodney W. Grimes } 5089b50d902SRodney W. Grimes *e_code++ = token[0]; 5099b50d902SRodney W. Grimes } 5109b50d902SRodney W. Grimes else 5119b50d902SRodney W. Grimes *e_code++ = token[0]; 5129b50d902SRodney W. Grimes ps.paren_indents[ps.p_l_follow - 1] = e_code - s_code; 5139b50d902SRodney W. Grimes if (sp_sw && ps.p_l_follow == 1 && extra_expression_indent 5149b50d902SRodney W. Grimes && ps.paren_indents[0] < 2 * ps.ind_size) 5159b50d902SRodney W. Grimes ps.paren_indents[0] = 2 * ps.ind_size; 5169b50d902SRodney W. Grimes ps.want_blank = false; 5179b50d902SRodney W. Grimes if (ps.in_or_st && *token == '(' && ps.tos <= 2) { 5189b50d902SRodney W. Grimes /* 5199b50d902SRodney W. Grimes * this is a kluge to make sure that declarations will be 5209b50d902SRodney W. Grimes * aligned right if proc decl has an explicit type on it, i.e. 5219b50d902SRodney W. Grimes * "int a(x) {..." 5229b50d902SRodney W. Grimes */ 5239b50d902SRodney W. Grimes parse(semicolon); /* I said this was a kluge... */ 5249b50d902SRodney W. Grimes ps.in_or_st = false; /* turn off flag for structure decl or 5259b50d902SRodney W. Grimes * initialization */ 5269b50d902SRodney W. Grimes } 5279b50d902SRodney W. Grimes if (ps.sizeof_keyword) 5289b50d902SRodney W. Grimes ps.sizeof_mask |= 1 << ps.p_l_follow; 5299b50d902SRodney W. Grimes break; 5309b50d902SRodney W. Grimes 5319b50d902SRodney W. Grimes case rparen: /* got a ')' or ']' */ 5329b50d902SRodney W. Grimes rparen_count--; 5339b50d902SRodney W. Grimes if (ps.cast_mask & (1 << ps.p_l_follow) & ~ps.sizeof_mask) { 5349b50d902SRodney W. Grimes ps.last_u_d = true; 5359b50d902SRodney W. Grimes ps.cast_mask &= (1 << ps.p_l_follow) - 1; 5369b50d902SRodney W. Grimes } 5379b50d902SRodney W. Grimes ps.sizeof_mask &= (1 << ps.p_l_follow) - 1; 5389b50d902SRodney W. Grimes if (--ps.p_l_follow < 0) { 5399b50d902SRodney W. Grimes ps.p_l_follow = 0; 5409b50d902SRodney W. Grimes diag(0, "Extra %c", *token); 5419b50d902SRodney W. Grimes } 5429b50d902SRodney W. Grimes if (e_code == s_code) /* if the paren starts the line */ 5439b50d902SRodney W. Grimes ps.paren_level = ps.p_l_follow; /* then indent it */ 5449b50d902SRodney W. Grimes 5459b50d902SRodney W. Grimes *e_code++ = token[0]; 5469b50d902SRodney W. Grimes ps.want_blank = true; 5479b50d902SRodney W. Grimes 5489b50d902SRodney W. Grimes if (sp_sw && (ps.p_l_follow == 0)) { /* check for end of if 5499b50d902SRodney W. Grimes * (...), or some such */ 5509b50d902SRodney W. Grimes sp_sw = false; 5519b50d902SRodney W. Grimes force_nl = true;/* must force newline after if */ 5529b50d902SRodney W. Grimes ps.last_u_d = true; /* inform lexi that a following 5539b50d902SRodney W. Grimes * operator is unary */ 5549b50d902SRodney W. Grimes ps.in_stmt = false; /* dont use stmt continuation 5559b50d902SRodney W. Grimes * indentation */ 5569b50d902SRodney W. Grimes 5579b50d902SRodney W. Grimes parse(hd_type); /* let parser worry about if, or whatever */ 5589b50d902SRodney W. Grimes } 5599b50d902SRodney W. Grimes ps.search_brace = btype_2; /* this should insure that constructs 5609b50d902SRodney W. Grimes * such as main(){...} and int[]{...} 5619b50d902SRodney W. Grimes * have their braces put in the right 5629b50d902SRodney W. Grimes * place */ 5639b50d902SRodney W. Grimes break; 5649b50d902SRodney W. Grimes 5659b50d902SRodney W. Grimes case unary_op: /* this could be any unary operation */ 5669b50d902SRodney W. Grimes if (ps.want_blank) 5679b50d902SRodney W. Grimes *e_code++ = ' '; 5689b50d902SRodney W. Grimes 5699b50d902SRodney W. Grimes if (troff && !ps.dumped_decl_indent && ps.in_decl && !is_procname) { 5709b50d902SRodney W. Grimes sprintf(e_code, "\n.Du %dp+\200p \"%s\"\n", dec_ind * 7, token); 5719b50d902SRodney W. Grimes ps.dumped_decl_indent = 1; 5729b50d902SRodney W. Grimes e_code += strlen(e_code); 5739b50d902SRodney W. Grimes } 5749b50d902SRodney W. Grimes else { 5759b50d902SRodney W. Grimes char *res = token; 5769b50d902SRodney W. Grimes 5779b50d902SRodney W. Grimes if (ps.in_decl && !ps.block_init) { /* if this is a unary op 5789b50d902SRodney W. Grimes * in a declaration, we 5799b50d902SRodney W. Grimes * should indent this 5809b50d902SRodney W. Grimes * token */ 5819b50d902SRodney W. Grimes for (i = 0; token[i]; ++i); /* find length of token */ 5829b50d902SRodney W. Grimes while ((e_code - s_code) < (dec_ind - i)) { 5839b50d902SRodney W. Grimes CHECK_SIZE_CODE; 5849b50d902SRodney W. Grimes *e_code++ = ' '; /* pad it */ 5859b50d902SRodney W. Grimes } 5869b50d902SRodney W. Grimes } 5879b50d902SRodney W. Grimes if (troff && token[0] == '-' && token[1] == '>') 5889b50d902SRodney W. Grimes res = "\\(->"; 5899b50d902SRodney W. Grimes for (t_ptr = res; *t_ptr; ++t_ptr) { 5909b50d902SRodney W. Grimes CHECK_SIZE_CODE; 5919b50d902SRodney W. Grimes *e_code++ = *t_ptr; 5929b50d902SRodney W. Grimes } 5939b50d902SRodney W. Grimes } 5949b50d902SRodney W. Grimes ps.want_blank = false; 5959b50d902SRodney W. Grimes break; 5969b50d902SRodney W. Grimes 5979b50d902SRodney W. Grimes case binary_op: /* any binary operation */ 5989b50d902SRodney W. Grimes if (ps.want_blank) 5999b50d902SRodney W. Grimes *e_code++ = ' '; 6009b50d902SRodney W. Grimes { 6019b50d902SRodney W. Grimes char *res = token; 6029b50d902SRodney W. Grimes 6039b50d902SRodney W. Grimes if (troff) 6049b50d902SRodney W. Grimes switch (token[0]) { 6059b50d902SRodney W. Grimes case '<': 6069b50d902SRodney W. Grimes if (token[1] == '=') 6079b50d902SRodney W. Grimes res = "\\(<="; 6089b50d902SRodney W. Grimes break; 6099b50d902SRodney W. Grimes case '>': 6109b50d902SRodney W. Grimes if (token[1] == '=') 6119b50d902SRodney W. Grimes res = "\\(>="; 6129b50d902SRodney W. Grimes break; 6139b50d902SRodney W. Grimes case '!': 6149b50d902SRodney W. Grimes if (token[1] == '=') 6159b50d902SRodney W. Grimes res = "\\(!="; 6169b50d902SRodney W. Grimes break; 6179b50d902SRodney W. Grimes case '|': 6189b50d902SRodney W. Grimes if (token[1] == '|') 6199b50d902SRodney W. Grimes res = "\\(br\\(br"; 6209b50d902SRodney W. Grimes else if (token[1] == 0) 6219b50d902SRodney W. Grimes res = "\\(br"; 6229b50d902SRodney W. Grimes break; 6239b50d902SRodney W. Grimes } 6249b50d902SRodney W. Grimes for (t_ptr = res; *t_ptr; ++t_ptr) { 6259b50d902SRodney W. Grimes CHECK_SIZE_CODE; 6269b50d902SRodney W. Grimes *e_code++ = *t_ptr; /* move the operator */ 6279b50d902SRodney W. Grimes } 6289b50d902SRodney W. Grimes } 6299b50d902SRodney W. Grimes ps.want_blank = true; 6309b50d902SRodney W. Grimes break; 6319b50d902SRodney W. Grimes 6329b50d902SRodney W. Grimes case postop: /* got a trailing ++ or -- */ 6339b50d902SRodney W. Grimes *e_code++ = token[0]; 6349b50d902SRodney W. Grimes *e_code++ = token[1]; 6359b50d902SRodney W. Grimes ps.want_blank = true; 6369b50d902SRodney W. Grimes break; 6379b50d902SRodney W. Grimes 6389b50d902SRodney W. Grimes case question: /* got a ? */ 6399b50d902SRodney W. Grimes squest++; /* this will be used when a later colon 6409b50d902SRodney W. Grimes * appears so we can distinguish the 6419b50d902SRodney W. Grimes * <c>?<n>:<n> construct */ 6429b50d902SRodney W. Grimes if (ps.want_blank) 6439b50d902SRodney W. Grimes *e_code++ = ' '; 6449b50d902SRodney W. Grimes *e_code++ = '?'; 6459b50d902SRodney W. Grimes ps.want_blank = true; 6469b50d902SRodney W. Grimes break; 6479b50d902SRodney W. Grimes 6489b50d902SRodney W. Grimes case casestmt: /* got word 'case' or 'default' */ 6499b50d902SRodney W. Grimes scase = true; /* so we can process the later colon properly */ 6509b50d902SRodney W. Grimes goto copy_id; 6519b50d902SRodney W. Grimes 6529b50d902SRodney W. Grimes case colon: /* got a ':' */ 6539b50d902SRodney W. Grimes if (squest > 0) { /* it is part of the <c>?<n>: <n> construct */ 6549b50d902SRodney W. Grimes --squest; 6559b50d902SRodney W. Grimes if (ps.want_blank) 6569b50d902SRodney W. Grimes *e_code++ = ' '; 6579b50d902SRodney W. Grimes *e_code++ = ':'; 6589b50d902SRodney W. Grimes ps.want_blank = true; 6599b50d902SRodney W. Grimes break; 6609b50d902SRodney W. Grimes } 6619b50d902SRodney W. Grimes if (ps.in_decl) { 6629b50d902SRodney W. Grimes *e_code++ = ':'; 6639b50d902SRodney W. Grimes ps.want_blank = false; 6649b50d902SRodney W. Grimes break; 6659b50d902SRodney W. Grimes } 6669b50d902SRodney W. Grimes ps.in_stmt = false; /* seeing a label does not imply we are in a 6679b50d902SRodney W. Grimes * stmt */ 6689b50d902SRodney W. Grimes for (t_ptr = s_code; *t_ptr; ++t_ptr) 6699b50d902SRodney W. Grimes *e_lab++ = *t_ptr; /* turn everything so far into a label */ 6709b50d902SRodney W. Grimes e_code = s_code; 6719b50d902SRodney W. Grimes *e_lab++ = ':'; 6729b50d902SRodney W. Grimes *e_lab++ = ' '; 6739b50d902SRodney W. Grimes *e_lab = '\0'; 6749b50d902SRodney W. Grimes 6759b50d902SRodney W. Grimes force_nl = ps.pcase = scase; /* ps.pcase will be used by 6769b50d902SRodney W. Grimes * dump_line to decide how to 6779b50d902SRodney W. Grimes * indent the label. force_nl 6789b50d902SRodney W. Grimes * will force a case n: to be 6799b50d902SRodney W. Grimes * on a line by itself */ 6809b50d902SRodney W. Grimes scase = false; 6819b50d902SRodney W. Grimes ps.want_blank = false; 6829b50d902SRodney W. Grimes break; 6839b50d902SRodney W. Grimes 6849b50d902SRodney W. Grimes case semicolon: /* got a ';' */ 6859b50d902SRodney W. Grimes ps.in_or_st = false;/* we are not in an initialization or 6869b50d902SRodney W. Grimes * structure declaration */ 6879b50d902SRodney W. Grimes scase = false; /* these will only need resetting in a error */ 6889b50d902SRodney W. Grimes squest = 0; 6899b50d902SRodney W. Grimes if (ps.last_token == rparen && rparen_count == 0) 6909b50d902SRodney W. Grimes ps.in_parameter_declaration = 0; 6919b50d902SRodney W. Grimes ps.cast_mask = 0; 6929b50d902SRodney W. Grimes ps.sizeof_mask = 0; 6939b50d902SRodney W. Grimes ps.block_init = 0; 6949b50d902SRodney W. Grimes ps.block_init_level = 0; 6959b50d902SRodney W. Grimes ps.just_saw_decl--; 6969b50d902SRodney W. Grimes 6979b50d902SRodney W. Grimes if (ps.in_decl && s_code == e_code && !ps.block_init) 6989b50d902SRodney W. Grimes while ((e_code - s_code) < (dec_ind - 1)) { 6999b50d902SRodney W. Grimes CHECK_SIZE_CODE; 7009b50d902SRodney W. Grimes *e_code++ = ' '; 7019b50d902SRodney W. Grimes } 7029b50d902SRodney W. Grimes 7039b50d902SRodney W. Grimes ps.in_decl = (ps.dec_nest > 0); /* if we were in a first level 7049b50d902SRodney W. Grimes * structure declaration, we 7059b50d902SRodney W. Grimes * arent any more */ 7069b50d902SRodney W. Grimes 7079b50d902SRodney W. Grimes if ((!sp_sw || hd_type != forstmt) && ps.p_l_follow > 0) { 7089b50d902SRodney W. Grimes 7099b50d902SRodney W. Grimes /* 7109b50d902SRodney W. Grimes * This should be true iff there were unbalanced parens in the 7119b50d902SRodney W. Grimes * stmt. It is a bit complicated, because the semicolon might 7129b50d902SRodney W. Grimes * be in a for stmt 7139b50d902SRodney W. Grimes */ 7149b50d902SRodney W. Grimes diag(1, "Unbalanced parens"); 7159b50d902SRodney W. Grimes ps.p_l_follow = 0; 7169b50d902SRodney W. Grimes if (sp_sw) { /* this is a check for a if, while, etc. with 7179b50d902SRodney W. Grimes * unbalanced parens */ 7189b50d902SRodney W. Grimes sp_sw = false; 7199b50d902SRodney W. Grimes parse(hd_type); /* dont lose the if, or whatever */ 7209b50d902SRodney W. Grimes } 7219b50d902SRodney W. Grimes } 7229b50d902SRodney W. Grimes *e_code++ = ';'; 7239b50d902SRodney W. Grimes ps.want_blank = true; 7249b50d902SRodney W. Grimes ps.in_stmt = (ps.p_l_follow > 0); /* we are no longer in the 7259b50d902SRodney W. Grimes * middle of a stmt */ 7269b50d902SRodney W. Grimes 7279b50d902SRodney W. Grimes if (!sp_sw) { /* if not if for (;;) */ 7289b50d902SRodney W. Grimes parse(semicolon); /* let parser know about end of stmt */ 7299b50d902SRodney W. Grimes force_nl = true;/* force newline after a end of stmt */ 7309b50d902SRodney W. Grimes } 7319b50d902SRodney W. Grimes break; 7329b50d902SRodney W. Grimes 7339b50d902SRodney W. Grimes case lbrace: /* got a '{' */ 7349b50d902SRodney W. Grimes ps.in_stmt = false; /* dont indent the {} */ 7359b50d902SRodney W. Grimes if (!ps.block_init) 7369b50d902SRodney W. Grimes force_nl = true;/* force other stuff on same line as '{' onto 7379b50d902SRodney W. Grimes * new line */ 7389b50d902SRodney W. Grimes else if (ps.block_init_level <= 0) 7399b50d902SRodney W. Grimes ps.block_init_level = 1; 7409b50d902SRodney W. Grimes else 7419b50d902SRodney W. Grimes ps.block_init_level++; 7429b50d902SRodney W. Grimes 7439b50d902SRodney W. Grimes if (s_code != e_code && !ps.block_init) { 7449b50d902SRodney W. Grimes if (!btype_2) { 7459b50d902SRodney W. Grimes dump_line(); 7469b50d902SRodney W. Grimes ps.want_blank = false; 7479b50d902SRodney W. Grimes } 7489b50d902SRodney W. Grimes else if (ps.in_parameter_declaration && !ps.in_or_st) { 7499b50d902SRodney W. Grimes ps.i_l_follow = 0; 7509b50d902SRodney W. Grimes dump_line(); 7519b50d902SRodney W. Grimes ps.want_blank = false; 7529b50d902SRodney W. Grimes } 7539b50d902SRodney W. Grimes } 7549b50d902SRodney W. Grimes if (ps.in_parameter_declaration) 7559b50d902SRodney W. Grimes prefix_blankline_requested = 0; 7569b50d902SRodney W. Grimes 7579b50d902SRodney W. Grimes if (ps.p_l_follow > 0) { /* check for preceeding unbalanced 7589b50d902SRodney W. Grimes * parens */ 7599b50d902SRodney W. Grimes diag(1, "Unbalanced parens"); 7609b50d902SRodney W. Grimes ps.p_l_follow = 0; 7619b50d902SRodney W. Grimes if (sp_sw) { /* check for unclosed if, for, etc. */ 7629b50d902SRodney W. Grimes sp_sw = false; 7639b50d902SRodney W. Grimes parse(hd_type); 7649b50d902SRodney W. Grimes ps.ind_level = ps.i_l_follow; 7659b50d902SRodney W. Grimes } 7669b50d902SRodney W. Grimes } 7679b50d902SRodney W. Grimes if (s_code == e_code) 7689b50d902SRodney W. Grimes ps.ind_stmt = false; /* dont put extra indentation on line 7699b50d902SRodney W. Grimes * with '{' */ 7709b50d902SRodney W. Grimes if (ps.in_decl && ps.in_or_st) { /* this is either a structure 7719b50d902SRodney W. Grimes * declaration or an init */ 7729b50d902SRodney W. Grimes di_stack[ps.dec_nest++] = dec_ind; 7739b50d902SRodney W. Grimes /* ? dec_ind = 0; */ 7749b50d902SRodney W. Grimes } 7759b50d902SRodney W. Grimes else { 7769b50d902SRodney W. Grimes ps.decl_on_line = false; /* we cant be in the middle of 7779b50d902SRodney W. Grimes * a declaration, so dont do 7789b50d902SRodney W. Grimes * special indentation of 7799b50d902SRodney W. Grimes * comments */ 7809b50d902SRodney W. Grimes if (blanklines_after_declarations_at_proctop 7819b50d902SRodney W. Grimes && ps.in_parameter_declaration) 7829b50d902SRodney W. Grimes postfix_blankline_requested = 1; 7839b50d902SRodney W. Grimes ps.in_parameter_declaration = 0; 7849b50d902SRodney W. Grimes } 7859b50d902SRodney W. Grimes dec_ind = 0; 7869b50d902SRodney W. Grimes parse(lbrace); /* let parser know about this */ 7879b50d902SRodney W. Grimes if (ps.want_blank) /* put a blank before '{' if '{' is not at 7889b50d902SRodney W. Grimes * start of line */ 7899b50d902SRodney W. Grimes *e_code++ = ' '; 7909b50d902SRodney W. Grimes ps.want_blank = false; 7919b50d902SRodney W. Grimes *e_code++ = '{'; 7929b50d902SRodney W. Grimes ps.just_saw_decl = 0; 7939b50d902SRodney W. Grimes break; 7949b50d902SRodney W. Grimes 7959b50d902SRodney W. Grimes case rbrace: /* got a '}' */ 7969b50d902SRodney W. Grimes if (ps.p_stack[ps.tos] == decl && !ps.block_init) /* semicolons can be 7979b50d902SRodney W. Grimes * omitted in 7989b50d902SRodney W. Grimes * declarations */ 7999b50d902SRodney W. Grimes parse(semicolon); 8009b50d902SRodney W. Grimes if (ps.p_l_follow) {/* check for unclosed if, for, else. */ 8019b50d902SRodney W. Grimes diag(1, "Unbalanced parens"); 8029b50d902SRodney W. Grimes ps.p_l_follow = 0; 8039b50d902SRodney W. Grimes sp_sw = false; 8049b50d902SRodney W. Grimes } 8059b50d902SRodney W. Grimes ps.just_saw_decl = 0; 8069b50d902SRodney W. Grimes ps.block_init_level--; 8079b50d902SRodney W. Grimes if (s_code != e_code && !ps.block_init) { /* '}' must be first on 8089b50d902SRodney W. Grimes * line */ 8099b50d902SRodney W. Grimes if (verbose) 8109b50d902SRodney W. Grimes diag(0, "Line broken"); 8119b50d902SRodney W. Grimes dump_line(); 8129b50d902SRodney W. Grimes } 8139b50d902SRodney W. Grimes *e_code++ = '}'; 8149b50d902SRodney W. Grimes ps.want_blank = true; 8159b50d902SRodney W. Grimes ps.in_stmt = ps.ind_stmt = false; 8169b50d902SRodney W. Grimes if (ps.dec_nest > 0) { /* we are in multi-level structure 8179b50d902SRodney W. Grimes * declaration */ 8189b50d902SRodney W. Grimes dec_ind = di_stack[--ps.dec_nest]; 8199b50d902SRodney W. Grimes if (ps.dec_nest == 0 && !ps.in_parameter_declaration) 8209b50d902SRodney W. Grimes ps.just_saw_decl = 2; 8219b50d902SRodney W. Grimes ps.in_decl = true; 8229b50d902SRodney W. Grimes } 8239b50d902SRodney W. Grimes prefix_blankline_requested = 0; 8249b50d902SRodney W. Grimes parse(rbrace); /* let parser know about this */ 8259b50d902SRodney W. Grimes ps.search_brace = cuddle_else && ps.p_stack[ps.tos] == ifhead 8269b50d902SRodney W. Grimes && ps.il[ps.tos] >= ps.ind_level; 8279b50d902SRodney W. Grimes if (ps.tos <= 1 && blanklines_after_procs && ps.dec_nest <= 0) 8289b50d902SRodney W. Grimes postfix_blankline_requested = 1; 8299b50d902SRodney W. Grimes break; 8309b50d902SRodney W. Grimes 8319b50d902SRodney W. Grimes case swstmt: /* got keyword "switch" */ 8329b50d902SRodney W. Grimes sp_sw = true; 8339b50d902SRodney W. Grimes hd_type = swstmt; /* keep this for when we have seen the 8349b50d902SRodney W. Grimes * expression */ 8359b50d902SRodney W. Grimes goto copy_id; /* go move the token into buffer */ 8369b50d902SRodney W. Grimes 8379b50d902SRodney W. Grimes case sp_paren: /* token is if, while, for */ 8389b50d902SRodney W. Grimes sp_sw = true; /* the interesting stuff is done after the 8399b50d902SRodney W. Grimes * expression is scanned */ 8409b50d902SRodney W. Grimes hd_type = (*token == 'i' ? ifstmt : 8419b50d902SRodney W. Grimes (*token == 'w' ? whilestmt : forstmt)); 8429b50d902SRodney W. Grimes 8439b50d902SRodney W. Grimes /* 8449b50d902SRodney W. Grimes * remember the type of header for later use by parser 8459b50d902SRodney W. Grimes */ 8469b50d902SRodney W. Grimes goto copy_id; /* copy the token into line */ 8479b50d902SRodney W. Grimes 8489b50d902SRodney W. Grimes case sp_nparen: /* got else, do */ 8499b50d902SRodney W. Grimes ps.in_stmt = false; 8509b50d902SRodney W. Grimes if (*token == 'e') { 8519b50d902SRodney W. Grimes if (e_code != s_code && (!cuddle_else || e_code[-1] != '}')) { 8529b50d902SRodney W. Grimes if (verbose) 8539b50d902SRodney W. Grimes diag(0, "Line broken"); 8549b50d902SRodney W. Grimes dump_line();/* make sure this starts a line */ 8559b50d902SRodney W. Grimes ps.want_blank = false; 8569b50d902SRodney W. Grimes } 8579b50d902SRodney W. Grimes force_nl = true;/* also, following stuff must go onto new line */ 8589b50d902SRodney W. Grimes last_else = 1; 8599b50d902SRodney W. Grimes parse(elselit); 8609b50d902SRodney W. Grimes } 8619b50d902SRodney W. Grimes else { 8629b50d902SRodney W. Grimes if (e_code != s_code) { /* make sure this starts a line */ 8639b50d902SRodney W. Grimes if (verbose) 8649b50d902SRodney W. Grimes diag(0, "Line broken"); 8659b50d902SRodney W. Grimes dump_line(); 8669b50d902SRodney W. Grimes ps.want_blank = false; 8679b50d902SRodney W. Grimes } 8689b50d902SRodney W. Grimes force_nl = true;/* also, following stuff must go onto new line */ 8699b50d902SRodney W. Grimes last_else = 0; 8709b50d902SRodney W. Grimes parse(dolit); 8719b50d902SRodney W. Grimes } 8729b50d902SRodney W. Grimes goto copy_id; /* move the token into line */ 8739b50d902SRodney W. Grimes 8749b50d902SRodney W. Grimes case decl: /* we have a declaration type (int, register, 8759b50d902SRodney W. Grimes * etc.) */ 8769b50d902SRodney W. Grimes parse(decl); /* let parser worry about indentation */ 8779b50d902SRodney W. Grimes if (ps.last_token == rparen && ps.tos <= 1) { 8789b50d902SRodney W. Grimes ps.in_parameter_declaration = 1; 8799b50d902SRodney W. Grimes if (s_code != e_code) { 8809b50d902SRodney W. Grimes dump_line(); 8819b50d902SRodney W. Grimes ps.want_blank = 0; 8829b50d902SRodney W. Grimes } 8839b50d902SRodney W. Grimes } 8849b50d902SRodney W. Grimes if (ps.in_parameter_declaration && ps.indent_parameters && ps.dec_nest == 0) { 8859b50d902SRodney W. Grimes ps.ind_level = ps.i_l_follow = 1; 8869b50d902SRodney W. Grimes ps.ind_stmt = 0; 8879b50d902SRodney W. Grimes } 8889b50d902SRodney W. Grimes ps.in_or_st = true; /* this might be a structure or initialization 8899b50d902SRodney W. Grimes * declaration */ 8909b50d902SRodney W. Grimes ps.in_decl = ps.decl_on_line = true; 8919b50d902SRodney W. Grimes if ( /* !ps.in_or_st && */ ps.dec_nest <= 0) 8929b50d902SRodney W. Grimes ps.just_saw_decl = 2; 8939b50d902SRodney W. Grimes prefix_blankline_requested = 0; 8949b50d902SRodney W. Grimes for (i = 0; token[i++];); /* get length of token */ 8959b50d902SRodney W. Grimes 8969b50d902SRodney W. Grimes /* 8979b50d902SRodney W. Grimes * dec_ind = e_code - s_code + (ps.decl_indent>i ? ps.decl_indent 8989b50d902SRodney W. Grimes * : i); 8999b50d902SRodney W. Grimes */ 9009b50d902SRodney W. Grimes dec_ind = ps.decl_indent > 0 ? ps.decl_indent : i; 9019b50d902SRodney W. Grimes goto copy_id; 9029b50d902SRodney W. Grimes 9039b50d902SRodney W. Grimes case ident: /* got an identifier or constant */ 9049b50d902SRodney W. Grimes if (ps.in_decl) { /* if we are in a declaration, we must indent 9059b50d902SRodney W. Grimes * identifier */ 9069b50d902SRodney W. Grimes if (ps.want_blank) 9079b50d902SRodney W. Grimes *e_code++ = ' '; 9089b50d902SRodney W. Grimes ps.want_blank = false; 9099b50d902SRodney W. Grimes if (is_procname == 0 || !procnames_start_line) { 9109b50d902SRodney W. Grimes if (!ps.block_init) 9119b50d902SRodney W. Grimes if (troff && !ps.dumped_decl_indent) { 9129b50d902SRodney W. Grimes sprintf(e_code, "\n.De %dp+\200p\n", dec_ind * 7); 9139b50d902SRodney W. Grimes ps.dumped_decl_indent = 1; 9149b50d902SRodney W. Grimes e_code += strlen(e_code); 9159b50d902SRodney W. Grimes } 9169b50d902SRodney W. Grimes else 9179b50d902SRodney W. Grimes while ((e_code - s_code) < dec_ind) { 9189b50d902SRodney W. Grimes CHECK_SIZE_CODE; 9199b50d902SRodney W. Grimes *e_code++ = ' '; 9209b50d902SRodney W. Grimes } 9219b50d902SRodney W. Grimes } 9229b50d902SRodney W. Grimes else { 9239b50d902SRodney W. Grimes if (dec_ind && s_code != e_code) 9249b50d902SRodney W. Grimes dump_line(); 9259b50d902SRodney W. Grimes dec_ind = 0; 9269b50d902SRodney W. Grimes ps.want_blank = false; 9279b50d902SRodney W. Grimes } 9289b50d902SRodney W. Grimes } 9299b50d902SRodney W. Grimes else if (sp_sw && ps.p_l_follow == 0) { 9309b50d902SRodney W. Grimes sp_sw = false; 9319b50d902SRodney W. Grimes force_nl = true; 9329b50d902SRodney W. Grimes ps.last_u_d = true; 9339b50d902SRodney W. Grimes ps.in_stmt = false; 9349b50d902SRodney W. Grimes parse(hd_type); 9359b50d902SRodney W. Grimes } 9369b50d902SRodney W. Grimes copy_id: 9379b50d902SRodney W. Grimes if (ps.want_blank) 9389b50d902SRodney W. Grimes *e_code++ = ' '; 9399b50d902SRodney W. Grimes if (troff && ps.its_a_keyword) { 9409b50d902SRodney W. Grimes e_code = chfont(&bodyf, &keywordf, e_code); 9419b50d902SRodney W. Grimes for (t_ptr = token; *t_ptr; ++t_ptr) { 9429b50d902SRodney W. Grimes CHECK_SIZE_CODE; 9439b50d902SRodney W. Grimes *e_code++ = keywordf.allcaps && islower(*t_ptr) 9449b50d902SRodney W. Grimes ? toupper(*t_ptr) : *t_ptr; 9459b50d902SRodney W. Grimes } 9469b50d902SRodney W. Grimes e_code = chfont(&keywordf, &bodyf, e_code); 9479b50d902SRodney W. Grimes } 9489b50d902SRodney W. Grimes else 9499b50d902SRodney W. Grimes for (t_ptr = token; *t_ptr; ++t_ptr) { 9509b50d902SRodney W. Grimes CHECK_SIZE_CODE; 9519b50d902SRodney W. Grimes *e_code++ = *t_ptr; 9529b50d902SRodney W. Grimes } 9539b50d902SRodney W. Grimes ps.want_blank = true; 9549b50d902SRodney W. Grimes break; 9559b50d902SRodney W. Grimes 9569b50d902SRodney W. Grimes case period: /* treat a period kind of like a binary 9579b50d902SRodney W. Grimes * operation */ 9589b50d902SRodney W. Grimes *e_code++ = '.'; /* move the period into line */ 9599b50d902SRodney W. Grimes ps.want_blank = false; /* dont put a blank after a period */ 9609b50d902SRodney W. Grimes break; 9619b50d902SRodney W. Grimes 9629b50d902SRodney W. Grimes case comma: 9639b50d902SRodney W. Grimes ps.want_blank = (s_code != e_code); /* only put blank after comma 9649b50d902SRodney W. Grimes * if comma does not start the 9659b50d902SRodney W. Grimes * line */ 9669b50d902SRodney W. Grimes if (ps.in_decl && is_procname == 0 && !ps.block_init) 9679b50d902SRodney W. Grimes while ((e_code - s_code) < (dec_ind - 1)) { 9689b50d902SRodney W. Grimes CHECK_SIZE_CODE; 9699b50d902SRodney W. Grimes *e_code++ = ' '; 9709b50d902SRodney W. Grimes } 9719b50d902SRodney W. Grimes 9729b50d902SRodney W. Grimes *e_code++ = ','; 9739b50d902SRodney W. Grimes if (ps.p_l_follow == 0) { 9749b50d902SRodney W. Grimes if (ps.block_init_level <= 0) 9759b50d902SRodney W. Grimes ps.block_init = 0; 9769b50d902SRodney W. Grimes if (break_comma && (!ps.leave_comma || compute_code_target() + (e_code - s_code) > max_col - 8)) 9779b50d902SRodney W. Grimes force_nl = true; 9789b50d902SRodney W. Grimes } 9799b50d902SRodney W. Grimes break; 9809b50d902SRodney W. Grimes 9819b50d902SRodney W. Grimes case preesc: /* got the character '#' */ 9829b50d902SRodney W. Grimes if ((s_com != e_com) || 9839b50d902SRodney W. Grimes (s_lab != e_lab) || 9849b50d902SRodney W. Grimes (s_code != e_code)) 9859b50d902SRodney W. Grimes dump_line(); 9869b50d902SRodney W. Grimes *e_lab++ = '#'; /* move whole line to 'label' buffer */ 9879b50d902SRodney W. Grimes { 9889b50d902SRodney W. Grimes int in_comment = 0; 9899b50d902SRodney W. Grimes int com_start = 0; 9909b50d902SRodney W. Grimes char quote = 0; 9919b50d902SRodney W. Grimes int com_end = 0; 9929b50d902SRodney W. Grimes 9939b50d902SRodney W. Grimes while (*buf_ptr == ' ' || *buf_ptr == '\t') { 9949b50d902SRodney W. Grimes buf_ptr++; 9959b50d902SRodney W. Grimes if (buf_ptr >= buf_end) 9969b50d902SRodney W. Grimes fill_buffer(); 9979b50d902SRodney W. Grimes } 9989b50d902SRodney W. Grimes while (*buf_ptr != '\n' || in_comment) { 9999b50d902SRodney W. Grimes CHECK_SIZE_LAB; 10009b50d902SRodney W. Grimes *e_lab = *buf_ptr++; 10019b50d902SRodney W. Grimes if (buf_ptr >= buf_end) 10029b50d902SRodney W. Grimes fill_buffer(); 10039b50d902SRodney W. Grimes switch (*e_lab++) { 10049b50d902SRodney W. Grimes case BACKSLASH: 10059b50d902SRodney W. Grimes if (troff) 10069b50d902SRodney W. Grimes *e_lab++ = BACKSLASH; 10079b50d902SRodney W. Grimes if (!in_comment) { 10089b50d902SRodney W. Grimes *e_lab++ = *buf_ptr++; 10099b50d902SRodney W. Grimes if (buf_ptr >= buf_end) 10109b50d902SRodney W. Grimes fill_buffer(); 10119b50d902SRodney W. Grimes } 10129b50d902SRodney W. Grimes break; 10139b50d902SRodney W. Grimes case '/': 10149b50d902SRodney W. Grimes if (*buf_ptr == '*' && !in_comment && !quote) { 10159b50d902SRodney W. Grimes in_comment = 1; 10169b50d902SRodney W. Grimes *e_lab++ = *buf_ptr++; 10179b50d902SRodney W. Grimes com_start = e_lab - s_lab - 2; 10189b50d902SRodney W. Grimes } 10199b50d902SRodney W. Grimes break; 10209b50d902SRodney W. Grimes case '"': 10219b50d902SRodney W. Grimes if (quote == '"') 10229b50d902SRodney W. Grimes quote = 0; 10239b50d902SRodney W. Grimes break; 10249b50d902SRodney W. Grimes case '\'': 10259b50d902SRodney W. Grimes if (quote == '\'') 10269b50d902SRodney W. Grimes quote = 0; 10279b50d902SRodney W. Grimes break; 10289b50d902SRodney W. Grimes case '*': 10299b50d902SRodney W. Grimes if (*buf_ptr == '/' && in_comment) { 10309b50d902SRodney W. Grimes in_comment = 0; 10319b50d902SRodney W. Grimes *e_lab++ = *buf_ptr++; 10329b50d902SRodney W. Grimes com_end = e_lab - s_lab; 10339b50d902SRodney W. Grimes } 10349b50d902SRodney W. Grimes break; 10359b50d902SRodney W. Grimes } 10369b50d902SRodney W. Grimes } 10379b50d902SRodney W. Grimes 10389b50d902SRodney W. Grimes while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t')) 10399b50d902SRodney W. Grimes e_lab--; 10409b50d902SRodney W. Grimes if (e_lab - s_lab == com_end && bp_save == 0) { /* comment on 10419b50d902SRodney W. Grimes * preprocessor line */ 10429b50d902SRodney W. Grimes if (sc_end == 0) /* if this is the first comment, we 10439b50d902SRodney W. Grimes * must set up the buffer */ 10449b50d902SRodney W. Grimes sc_end = &(save_com[0]); 10459b50d902SRodney W. Grimes else { 10469b50d902SRodney W. Grimes *sc_end++ = '\n'; /* add newline between 10479b50d902SRodney W. Grimes * comments */ 10489b50d902SRodney W. Grimes *sc_end++ = ' '; 10499b50d902SRodney W. Grimes --line_no; 10509b50d902SRodney W. Grimes } 10519b50d902SRodney W. Grimes bcopy(s_lab + com_start, sc_end, com_end - com_start); 10529b50d902SRodney W. Grimes sc_end += com_end - com_start; 10539b50d902SRodney W. Grimes if (sc_end >= &save_com[sc_size]) 10549b50d902SRodney W. Grimes abort(); 10559b50d902SRodney W. Grimes e_lab = s_lab + com_start; 10569b50d902SRodney W. Grimes while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t')) 10579b50d902SRodney W. Grimes e_lab--; 10589b50d902SRodney W. Grimes bp_save = buf_ptr; /* save current input buffer */ 10599b50d902SRodney W. Grimes be_save = buf_end; 10609b50d902SRodney W. Grimes buf_ptr = save_com; /* fix so that subsequent calls to 10619b50d902SRodney W. Grimes * lexi will take tokens out of 10629b50d902SRodney W. Grimes * save_com */ 10639b50d902SRodney W. Grimes *sc_end++ = ' '; /* add trailing blank, just in case */ 10649b50d902SRodney W. Grimes buf_end = sc_end; 10659b50d902SRodney W. Grimes sc_end = 0; 10669b50d902SRodney W. Grimes } 10679b50d902SRodney W. Grimes *e_lab = '\0'; /* null terminate line */ 10689b50d902SRodney W. Grimes ps.pcase = false; 10699b50d902SRodney W. Grimes } 10709b50d902SRodney W. Grimes 10719b50d902SRodney W. Grimes if (strncmp(s_lab, "#if", 3) == 0) { 10729b50d902SRodney W. Grimes if (blanklines_around_conditional_compilation) { 10739b50d902SRodney W. Grimes register c; 10749b50d902SRodney W. Grimes prefix_blankline_requested++; 10759b50d902SRodney W. Grimes while ((c = getc(input)) == '\n'); 10769b50d902SRodney W. Grimes ungetc(c, input); 10779b50d902SRodney W. Grimes } 10789b50d902SRodney W. Grimes if (ifdef_level < sizeof state_stack / sizeof state_stack[0]) { 10799b50d902SRodney W. Grimes match_state[ifdef_level].tos = -1; 10809b50d902SRodney W. Grimes state_stack[ifdef_level++] = ps; 10819b50d902SRodney W. Grimes } 10829b50d902SRodney W. Grimes else 10839b50d902SRodney W. Grimes diag(1, "#if stack overflow"); 10849b50d902SRodney W. Grimes } 10859b50d902SRodney W. Grimes else if (strncmp(s_lab, "#else", 5) == 0) 10869b50d902SRodney W. Grimes if (ifdef_level <= 0) 10879b50d902SRodney W. Grimes diag(1, "Unmatched #else"); 10889b50d902SRodney W. Grimes else { 10899b50d902SRodney W. Grimes match_state[ifdef_level - 1] = ps; 10909b50d902SRodney W. Grimes ps = state_stack[ifdef_level - 1]; 10919b50d902SRodney W. Grimes } 10929b50d902SRodney W. Grimes else if (strncmp(s_lab, "#endif", 6) == 0) { 10939b50d902SRodney W. Grimes if (ifdef_level <= 0) 10949b50d902SRodney W. Grimes diag(1, "Unmatched #endif"); 10959b50d902SRodney W. Grimes else { 10969b50d902SRodney W. Grimes ifdef_level--; 10979b50d902SRodney W. Grimes 10989b50d902SRodney W. Grimes #ifdef undef 10999b50d902SRodney W. Grimes /* 11009b50d902SRodney W. Grimes * This match needs to be more intelligent before the 11019b50d902SRodney W. Grimes * message is useful 11029b50d902SRodney W. Grimes */ 11039b50d902SRodney W. Grimes if (match_state[ifdef_level].tos >= 0 11049b50d902SRodney W. Grimes && bcmp(&ps, &match_state[ifdef_level], sizeof ps)) 11059b50d902SRodney W. Grimes diag(0, "Syntactically inconsistant #ifdef alternatives."); 11069b50d902SRodney W. Grimes #endif 11079b50d902SRodney W. Grimes } 11089b50d902SRodney W. Grimes if (blanklines_around_conditional_compilation) { 11099b50d902SRodney W. Grimes postfix_blankline_requested++; 11109b50d902SRodney W. Grimes n_real_blanklines = 0; 11119b50d902SRodney W. Grimes } 11129b50d902SRodney W. Grimes } 11139b50d902SRodney W. Grimes break; /* subsequent processing of the newline 11149b50d902SRodney W. Grimes * character will cause the line to be printed */ 11159b50d902SRodney W. Grimes 11169b50d902SRodney W. Grimes case comment: /* we have gotten a /* this is a biggie */ 11179b50d902SRodney W. Grimes if (flushed_nl) { /* we should force a broken line here */ 11189b50d902SRodney W. Grimes flushed_nl = false; 11199b50d902SRodney W. Grimes dump_line(); 11209b50d902SRodney W. Grimes ps.want_blank = false; /* dont insert blank at line start */ 11219b50d902SRodney W. Grimes force_nl = false; 11229b50d902SRodney W. Grimes } 11239b50d902SRodney W. Grimes pr_comment(); 11249b50d902SRodney W. Grimes break; 11259b50d902SRodney W. Grimes } /* end of big switch stmt */ 11269b50d902SRodney W. Grimes 11279b50d902SRodney W. Grimes *e_code = '\0'; /* make sure code section is null terminated */ 11289b50d902SRodney W. Grimes if (type_code != comment && type_code != newline && type_code != preesc) 11299b50d902SRodney W. Grimes ps.last_token = type_code; 11309b50d902SRodney W. Grimes } /* end of main while (1) loop */ 11319b50d902SRodney W. Grimes } 11329b50d902SRodney W. Grimes 1133958d7c9fSPhilippe Charnier static void 1134958d7c9fSPhilippe Charnier usage() 1135958d7c9fSPhilippe Charnier { 113618251d71SPeter Hawkins fprintf(stderr, "usage: indent [ file [ outfile ] ] [ options ]\n"); 1137958d7c9fSPhilippe Charnier exit(1); 1138958d7c9fSPhilippe Charnier } 1139958d7c9fSPhilippe Charnier 11409b50d902SRodney W. Grimes /* 11419b50d902SRodney W. Grimes * copy input file to backup file if in_name is /blah/blah/blah/file, then 11429b50d902SRodney W. Grimes * backup file will be ".Bfile" then make the backup file the input and 11439b50d902SRodney W. Grimes * original input file the output 11449b50d902SRodney W. Grimes */ 11459b50d902SRodney W. Grimes bakcopy() 11469b50d902SRodney W. Grimes { 11479b50d902SRodney W. Grimes int n, 11489b50d902SRodney W. Grimes bakchn; 11499b50d902SRodney W. Grimes char buff[8 * 1024]; 11509b50d902SRodney W. Grimes register char *p; 11519b50d902SRodney W. Grimes 11529b50d902SRodney W. Grimes /* construct file name .Bfile */ 11539b50d902SRodney W. Grimes for (p = in_name; *p; p++); /* skip to end of string */ 11549b50d902SRodney W. Grimes while (p > in_name && *p != '/') /* find last '/' */ 11559b50d902SRodney W. Grimes p--; 11569b50d902SRodney W. Grimes if (*p == '/') 11579b50d902SRodney W. Grimes p++; 11589b50d902SRodney W. Grimes sprintf(bakfile, "%s.BAK", p); 11599b50d902SRodney W. Grimes 11609b50d902SRodney W. Grimes /* copy in_name to backup file */ 11619b50d902SRodney W. Grimes bakchn = creat(bakfile, 0600); 11629b50d902SRodney W. Grimes if (bakchn < 0) 1163958d7c9fSPhilippe Charnier err(1, bakfile); 11649b50d902SRodney W. Grimes while (n = read(fileno(input), buff, sizeof buff)) 11659b50d902SRodney W. Grimes if (write(bakchn, buff, n) != n) 1166958d7c9fSPhilippe Charnier err(1, bakfile); 11679b50d902SRodney W. Grimes if (n < 0) 1168958d7c9fSPhilippe Charnier err(1, in_name); 11699b50d902SRodney W. Grimes close(bakchn); 11709b50d902SRodney W. Grimes fclose(input); 11719b50d902SRodney W. Grimes 11729b50d902SRodney W. Grimes /* re-open backup file as the input file */ 11739b50d902SRodney W. Grimes input = fopen(bakfile, "r"); 11749b50d902SRodney W. Grimes if (input == 0) 1175958d7c9fSPhilippe Charnier err(1, bakfile); 11769b50d902SRodney W. Grimes /* now the original input file will be the output */ 11779b50d902SRodney W. Grimes output = fopen(in_name, "w"); 11789b50d902SRodney W. Grimes if (output == 0) { 11799b50d902SRodney W. Grimes unlink(bakfile); 1180958d7c9fSPhilippe Charnier err(1, in_name); 11819b50d902SRodney W. Grimes } 11829b50d902SRodney W. Grimes } 1183