/* Copyright (c) 1999, 2000 Carlo Wood. All rights reserved. * Copyright (c) 1994 Joseph Arceneaux. All rights reserved. * Copyright (c) 1992 Free Software Foundation, Inc. All rights reserved. * * Copyright (c) 1985 Sun Microsystems, Inc. * Copyright (c) 1980 The Regents of the University of California. * Copyright (c) 1976 Board of Trustees ofthe University of Illinois. * All rights reserved. * * Redistribution and use in source and binary forms are permitted * provided that * the above copyright notice and this paragraph are duplicated in all such * forms and that any documentation, advertising materials, and other * materials related to such distribution and use acknowledge that the * software was developed by the University of California, Berkeley, the * University of Illinois, Urbana, and Sun Microsystems, Inc. The name of * either University or Sun Microsystems may not be used to endorse or * promote products derived from this software without specific prior written * permission. THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES * OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. * * * HISTORY * 2002-03-14 DI restructured scan_profile and fixed bug handling comments * 2002-06-13 DI fixed handling of missing int parameter. * 2002-08-05 Matthias and Eric Lloyd * Added support for -brf to place function opening brace after function * declaration. * 2002-11-10 Cristalle Azundris Sabon * Added --preprocessor-indentation (ppi) if set, will indent nested * preprocessor-statements with n spaces per level. overrides -lps. */ /* Argument scanning and profile reading code. Default parameters are set * here as well. */ #include #include #include #include #include "sys.h" #include "indent.h" #include "args.h" #include "globs.h" RCSTAG_CC ("$Id: args.c,v 1.42 2002/11/10 21:02:48 david Exp $"); #define KR_SETTINGS_STRING (int *) \ "-nbad\0-bap\0-nbc\0-bbo\0-hnl\0-br\0-brs\0-c33\0-cd33\0" \ "-ncdb\0-ce\0-ci4\0-cli0\0-d0\0-di1\0-nfc1\0-i4\0-ip0\0-l75\0-lp\0" \ "-npcs\0-nprs\0-npsl\0-sai\0-saf\0-saw\0-cs\0-nsc\0-nsob\0-nfca\0-cp33\0-nss\0" #define GNU_SETTINGS_STRING (int *) \ "-nbad\0-bap\0-bbo\0-hnl\0-nbc\0-bl\0-bls\0-ncdb\0-cs\0-nce\0" \ "-di2\0-ndj\0-nfc1\0-i2\0-ip5\0-lp\0-pcs\0-nprs\0-psl\0-nsc\0-sai\0-saf\0-saw\0-nsob\0" \ "-bli2\0-cp1\0-nfca\0" #define ORIG_SETTINGS_STRING (int *) \ "-nbap\0-nbad\0-bbo\0-hnl\0-bc\0-br\0-brs\0-c33\0-cd33\0-cdb\0" \ "-ce\0-ci4\0-cli0\0-cp33\0-di16\0-fc1\0-fca\0-i4\0-l75\0-lp\0-npcs\0-nprs\0" \ "-psl\0-sc\0-sai\0-saf\0-saw\0-nsob\0-nss\0-ts8\0" #define LINUX_SETTINGS_STRING (int *) \ "-nbad\0-bap\0-nbc\0-bbo\0-hnl\0-br\0-brs\0-c33\0-cd33\0" \ "-ncdb\0-ce\0-ci4\0-cli0\0-d0\0-di1\0-nfc1\0-i8\0-ip0\0-l80\0-lp\0" \ "-npcs\0-nprs\0-npsl\0-sai\0-saf\0-saw\0-ncs\0-nsc\0-sob\0-nfca\0-cp33\0-ss\0" \ "-ts8\0-il1\0" /* profile types */ typedef enum profile { PRO_BOOL, /* boolean */ PRO_INT, /* integer */ PRO_IGN, /* ignore it */ PRO_KEY, /* -T switch */ PRO_SETTINGS, /* bundled set of settings */ PRO_PRSTRING, /* Print string and exit */ PRO_FUNCTION /* Call the associated function. */ } profile_ty; /* profile specials for booleans */ typedef enum on_or_off { ONOFF_NA, /* Not applicable. Used in table for * non-booleans. */ OFF, /* This option turns on the boolean variable * in question. */ ON /* it turns it off */ } on_or_off_ty; /* Explicit flags for each option. */ static int exp_T = 0; static int exp_bacc = 0; static int exp_badp = 0; static int exp_bad = 0; static int exp_bap = 0; static int exp_bbb = 0; static int exp_bbo = 0; static int exp_bc = 0; static int exp_bl = 0; static int exp_blf = 0; static int exp_bli = 0; static int exp_bls = 0; static int exp_bs = 0; static int exp_c = 0; static int exp_cbi = 0; static int exp_cdb = 0; static int exp_cd = 0; static int exp_cdw = 0; static int exp_ce = 0; static int exp_ci = 0; static int exp_cli = 0; static int exp_cp = 0; static int exp_cpp = 0; static int exp_cs = 0; static int exp_d = 0; static int exp_bfda = 0; static int exp_bfde = 0; static int exp_di = 0; static int exp_dj = 0; static int exp_eei = 0; static int exp_fc1 = 0; static int exp_fca = 0; static int exp_gnu = 0; static int exp_hnl = 0; static int exp_i = 0; static int exp_il = 0; static int exp_ip = 0; static int exp_kr = 0; static int exp_l = 0; static int exp_linux = 0; static int exp_lc = 0; static int exp_lp = 0; static int exp_lps = 0; static int exp_nip = 0; static int exp_o = 0; static int exp_orig = 0; static int exp_pcs = 0; static int exp_pi = 0; static int exp_pmt = 0; static int exp_pro = 0; static int exp_prs = 0; static int exp_psl = 0; static int exp_ppi = 0; /* force preprocessor indent at width... */ static int exp_sai = 0; static int exp_saf = 0; static int exp_saw = 0; static int exp_sbi = 0; static int exp_sc = 0; static int exp_sob = 0; static int exp_ss = 0; static int exp_st = 0; static int exp_ts = 0; static int exp_ut = 0; static int exp_v = 0; static int exp_version = 0; /* The following structure is controlled by command line parameters and * their meaning is explained in indent.h. */ user_options_ty settings = {0}; static void usage (void); /* N.B.: because of the way the table here is scanned, options whose names * are substrings of other options must occur later; that is, with -lp vs -l, * -lp must be first. Also, while (most) booleans occur more than once, the * last default value is the one actually assigned. */ typedef struct pro { char * p_name; /* option name, e.g. "bl", "cli" */ profile_ty p_type; /* profile type */ int p_default; /* the default value (if PRO_BOOL or PRO_INT) */ on_or_off_ty p_special; /* If p_type == PRO_BOOL, ON or OFF to tell how * this switch affects the variable. Not used * for other p_type's. */ int * p_obj; /* if p_type == PRO_SETTINGS, a (char *) pointing * to a list of the switches to set, separated by * NULLs, terminated by 2 NULLs. * if p_type ==PRO_BOOL or PRO_INT, the address of * the variable that gets set by the option. * if p_type == PRO_PRSTRING, a (char *) pointing * to the string. * if p_type == PRO_FUNCTION, a pointer to a * function to be called. */ int * p_explicit; /* Points to a nonzero value (allocated statically * for all options) if the option has been specified * explicitly. This is necessary because for * boolean options, the options to set and reset the * variable must share the explicit flag. */ } pro_ty; #ifdef BERKELEY_DEFAULTS /* Settings for original defaults */ const pro_ty pro[] = { {"version", PRO_PRSTRING, 0, ONOFF_NA, (int *) VERSION, &exp_version}, {"v", PRO_BOOL, false, ON, &settings.verbose, &exp_v}, {"ut", PRO_BOOL, true, ON, &settings.use_tabs, &exp_ut}, {"ts", PRO_INT, 8, ONOFF_NA, &settings.tabsize, &exp_ts}, {"st", PRO_BOOL, false, ON, &settings.use_stdout, &exp_st}, {"ss", PRO_BOOL, false, ON, &settings.space_sp_semicolon, &exp_ss}, {"sob", PRO_BOOL, false, ON, &settings.swallow_optional_blanklines, &exp_sob}, {"sc", PRO_BOOL, true, ON, &settings.star_comment_cont, &exp_sc}, {"sbi", PRO_INT, 0, ONOFF_NA, &settings.struct_brace_indent, &exp_sbi}, {"saw", PRO_BOOL, true, ON, &settings.space_after_while, &exp_saw}, {"sai", PRO_BOOL, true, ON, &settings.space_after_if, &exp_sai}, {"saf", PRO_BOOL, true, ON, &settings.space_after_for, &exp_saf}, {"psl", PRO_BOOL, true, ON, &settings.procnames_start_line, &exp_psl}, {"prs", PRO_BOOL, false, ON, &settings.parentheses_space, &exp_prs}, #ifdef PRESERVE_MTIME {"pmt", PRO_BOOL, false, ON, &settings.preserve_mtime, &exp_pmt}, #endif {"pi", PRO_INT, -1, ONOFF_NA, &settings.paren_indent, &exp_pi}, {"pcs", PRO_BOOL, false, ON, &settings.proc_calls_space, &exp_pcs}, {"o", PRO_BOOL, false, ON, &settings.expect_output_file, &exp_o}, {"nv", PRO_BOOL, false, OFF, &settings.verbose, &exp_v}, {"nut", PRO_BOOL, true, OFF, &settings.use_tabs, &exp_ut}, {"nss", PRO_BOOL, false, OFF, &settings.space_sp_semicolon, &exp_ss}, {"nsob", PRO_BOOL, false, OFF, &settings.swallow_optional_blanklines, &exp_sob}, {"nsc", PRO_BOOL, true, OFF, &settings.star_comment_cont, &exp_sc}, {"nsaw", PRO_BOOL, true, OFF, &settings.space_after_while, &exp_saw}, {"nsai", PRO_BOOL, true, OFF, &settings.space_after_if, &exp_sai}, {"nsaf", PRO_BOOL, true, OFF, &settings.space_after_for, &exp_saf}, {"npsl", PRO_BOOL, true, OFF, &settings.procnames_start_line, &exp_psl}, {"nprs", PRO_BOOL, false, OFF, &settings.parentheses_space, &exp_prs}, {"npro", PRO_IGN, 0, ONOFF_NA, 0, &exp_pro}, #ifdef PRESERVE_MTIME {"npmt", PRO_BOOL, false, OFF, &settings.preserve_mtime, &exp_pmt}, #endif {"npcs", PRO_BOOL, false, OFF, &settings.proc_calls_space, &exp_pcs}, {"nlps", PRO_BOOL, false, OFF, &settings.leave_preproc_space, &exp_lps}, {"nlp", PRO_BOOL, true, OFF, &settings.lineup_to_parens, &exp_lp}, {"nip", PRO_SETTINGS, 0, ONOFF_NA, (int *) "-ip0", &exp_nip}, {"nhnl", PRO_BOOL, true, OFF, &settings.honour_newlines, &exp_hnl}, {"nfca", PRO_BOOL, true, OFF, &settings.format_comments, &exp_fca}, {"nfc1", PRO_BOOL, true, OFF, &settings.format_col1_comments, &exp_fc1}, {"neei", PRO_BOOL, false, OFF, &settings.extra_expression_indent, &exp_eei}, {"ndj", PRO_BOOL, false, OFF, &settings.ljust_decl, &exp_dj}, {"ncs", PRO_BOOL, true, OFF, &settings.cast_space, &exp_cs}, {"nce", PRO_BOOL, true, OFF, &settings.cuddle_else, &exp_ce}, {"ncdw", PRO_BOOL, false, OFF, &settings.cuddle_do_while, &exp_cdw}, {"ncdb", PRO_BOOL, true, OFF, &settings.comment_delimiter_on_blankline, &exp_cdb}, {"nbs", PRO_BOOL, false, OFF, &settings.blank_after_sizeof, &exp_bs}, {"nbfda", PRO_BOOL, false, OFF, &settings.break_function_decl_args, &exp_bfda}, {"nbfde", PRO_BOOL, false, OFF, &settings.break_function_decl_args_end, &exp_bfde}, {"nbc", PRO_BOOL, true, ON, &settings.leave_comma, &exp_bc}, {"nbbo", PRO_BOOL, true, OFF, &settings.break_before_boolean_operator, &exp_bbo}, {"nbbb", PRO_BOOL, false, OFF, &settings.blanklines_before_blockcomments, &exp_bbb}, {"nbap", PRO_BOOL, false, OFF, &settings.blanklines_after_procs, &exp_bap}, {"nbadp", PRO_BOOL, false, OFF, &settings.blanklines_after_declarations_at_proctop, &exp_badp}, {"nbad", PRO_BOOL, false, OFF, &settings.blanklines_after_declarations, &exp_bad}, {"nbacc", PRO_BOOL, false, OFF, &settings.blanklines_around_conditional_compilation, &exp_bacc}, {"linux", PRO_SETTINGS, 0, ONOFF_NA, LINUX_SETTINGS_STRING, &exp_linux}, {"lps", PRO_BOOL, false, ON, &settings.leave_preproc_space, &exp_lps}, {"lp", PRO_BOOL, true, ON, &settings.lineup_to_parens, &exp_lp}, {"lc", PRO_INT, DEFAULT_RIGHT_COMMENT_MARGIN, ONOFF_NA, &settings.comment_max_col, &exp_lc}, {"l", PRO_INT, DEFAULT_RIGHT_MARGIN, ONOFF_NA, &settings.max_col, &exp_l}, {"kr", PRO_SETTINGS, 0, ONOFF_NA, KR_SETTINGS_STRING, &exp_kr}, {"il", PRO_INT, 0, ONOFF_NA, &settings.label_offset, &exp_il}, {"ip", PRO_INT, 4, ONOFF_NA, &settings.indent_parameters, &exp_ip}, {"i", PRO_INT, 4, ONOFF_NA, &settings.ind_size, &exp_i}, {"hnl", PRO_BOOL, true, ON, &settings.honour_newlines, &exp_hnl}, {"h", PRO_FUNCTION, 0, ONOFF_NA, (int *) usage, &exp_version}, {"gnu", PRO_SETTINGS, 0, ONOFF_NA, GNU_SETTINGS_STRING, &exp_gnu}, {"fca", PRO_BOOL, true, ON, &settings.format_comments, &exp_fca}, {"fc1", PRO_BOOL, true, ON, &settings.format_col1_comments, &exp_fc1}, {"eei", PRO_BOOL, false, ON, &settings.extra_expression_indent, &exp_eei}, {"dj", PRO_BOOL, false, ON, &settings.ljust_decl, &exp_dj}, {"di", PRO_INT, 16, ONOFF_NA, &settings.decl_indent, &exp_di}, {"d", PRO_INT, 0, ONOFF_NA, &settings.unindent_displace, &exp_d}, {"cs", PRO_BOOL, true, ON, &settings.cast_space, &exp_cs}, {"cp", PRO_INT, 33, ONOFF_NA, &settings.else_endif_col, &exp_cp}, {"cli", PRO_INT, 0, ONOFF_NA, &settings.case_indent, &exp_cli}, {"ci", PRO_INT, 4, ONOFF_NA, &settings.continuation_indent, &exp_ci}, {"ce", PRO_BOOL, true, ON, &settings.cuddle_else, &exp_ce}, {"cdw", PRO_BOOL, false, ON, &settings.cuddle_do_while, &exp_cdw}, {"cdb", PRO_BOOL, true, ON, &settings.comment_delimiter_on_blankline, &exp_cdb}, {"cd", PRO_INT, 33, ONOFF_NA, &settings.decl_com_ind, &exp_cd}, {"cbi", PRO_INT, -1, ONOFF_NA, &settings.case_brace_indent, &exp_cbi}, {"c++", PRO_BOOL, false, ON, &settings.c_plus_plus, &exp_cpp}, {"c", PRO_INT, 33, ONOFF_NA, &settings.com_ind, &exp_c}, {"bs", PRO_BOOL, false, ON, &settings.blank_after_sizeof, &exp_bs}, {"brs", PRO_BOOL, true, ON, &settings.braces_on_struct_decl_line, &exp_bls}, {"brf", PRO_BOOL, false, ON, &settings.braces_on_func_def_line, &exp_blf}, {"br", PRO_BOOL, true, ON, &settings.btype_2, &exp_bl}, {"bls", PRO_BOOL, true, OFF, &settings.braces_on_struct_decl_line, &exp_bls}, {"blf", PRO_BOOL, false, OFF, &settings.braces_on_func_def_line, &exp_blf}, {"bli", PRO_INT, 0, ONOFF_NA, &settings.brace_indent, &exp_bli}, {"bl", PRO_BOOL, true, OFF, &settings.btype_2, &exp_bl}, {"bfda", PRO_BOOL, false, ON, &settings.break_function_decl_args, &exp_bfda}, {"bfde", PRO_BOOL, false, ON, &settings.break_function_decl_args_end, &exp_bfde}, {"bc", PRO_BOOL, true, OFF, &settings.leave_comma, &exp_bc}, {"bbo", PRO_BOOL, true, ON, &settings.break_before_boolean_operator, &exp_bbo}, {"bbb", PRO_BOOL, false, ON, &settings.blanklines_before_blockcomments, &exp_bbb}, {"bap", PRO_BOOL, false, ON, &settings.blanklines_after_procs, &exp_bap}, {"badp", PRO_BOOL, false, ON, &settings.blanklines_after_declarations_at_proctop, &exp_badp}, {"bad", PRO_BOOL, false, ON, &settings.blanklines_after_declarations, &exp_bad}, {"bacc", PRO_BOOL, false, ON, &settings.blanklines_around_conditional_compilation, &exp_bacc}, {"T", PRO_KEY, 0, ONOFF_NA, 0, &exp_T}, {"ppi", PRO_INT, 0, ONOFF_NA, &settings.force_preproc_width, &exp_ppi}, /* Signify end of structure. */ {0, PRO_IGN, 0, ONOFF_NA, 0, 0} }; #else /* Default to GNU style */ /* Changed to make GNU style the default. */ const pro_ty pro[] = { {"version", PRO_PRSTRING, 0, ONOFF_NA, (int *) VERSION, &exp_version}, {"v", PRO_BOOL, false, ON, &settings.verbose, &exp_v}, {"ut", PRO_BOOL, true, ON, &settings.use_tabs, &exp_ut}, {"ts", PRO_INT, 8, ONOFF_NA, &settings.tabsize, &exp_ts}, {"st", PRO_BOOL, false, ON, &settings.use_stdout, &exp_st}, {"ss", PRO_BOOL, false, ON, &settings.space_sp_semicolon, &exp_ss}, {"sob", PRO_BOOL, false, ON, &settings.swallow_optional_blanklines, &exp_sob}, {"sc", PRO_BOOL, false, ON, &settings.star_comment_cont, &exp_sc}, {"sbi", PRO_INT, 0, ONOFF_NA, &settings.struct_brace_indent, &exp_sbi}, {"saw", PRO_BOOL, true, ON, &settings.space_after_while, &exp_saw}, {"sai", PRO_BOOL, true, ON, &settings.space_after_if, &exp_sai}, {"saf", PRO_BOOL, true, ON, &settings.space_after_for, &exp_saf}, {"psl", PRO_BOOL, true, ON, &settings.procnames_start_line, &exp_psl}, {"prs", PRO_BOOL, false, ON, &settings.parentheses_space, &exp_prs}, #ifdef PRESERVE_MTIME {"pmt", PRO_BOOL, false, ON, &settings.preserve_mtime, &exp_pmt}, #endif {"pi", PRO_INT, -1, ONOFF_NA, &settings.paren_indent, &exp_pi}, {"pcs", PRO_BOOL, true, ON, &settings.proc_calls_space, &exp_pcs}, {"orig", PRO_SETTINGS, 0, ONOFF_NA, ORIG_SETTINGS_STRING, &exp_orig}, {"o", PRO_BOOL, false, ON, &settings.expect_output_file, &exp_o}, {"nv", PRO_BOOL, false, OFF, &settings.verbose, &exp_v}, {"nut", PRO_BOOL, true, OFF, &settings.use_tabs, &exp_ut}, {"nss", PRO_BOOL, false, OFF, &settings.space_sp_semicolon, &exp_ss}, {"nsob", PRO_BOOL, false, OFF, &settings.swallow_optional_blanklines, &exp_sob}, {"nsc", PRO_BOOL, false, OFF, &settings.star_comment_cont, &exp_sc}, {"nsaw", PRO_BOOL, true, OFF, &settings.space_after_while, &exp_saw}, {"nsai", PRO_BOOL, true, OFF, &settings.space_after_if, &exp_sai}, {"nsaf", PRO_BOOL, true, OFF, &settings.space_after_for, &exp_saf}, {"npsl", PRO_BOOL, true, OFF, &settings.procnames_start_line, &exp_psl}, {"nprs", PRO_BOOL, false, OFF, &settings.parentheses_space, &exp_prs}, {"npro", PRO_IGN, 0, ONOFF_NA, 0, &exp_pro}, #ifdef PRESERVE_MTIME {"npmt", PRO_BOOL, false, OFF, &settings.preserve_mtime, &exp_pmt}, #endif {"npcs", PRO_BOOL, true, OFF, &settings.proc_calls_space, &exp_pcs}, {"nlps", PRO_BOOL, false, OFF, &settings.leave_preproc_space, &exp_lps}, {"nlp", PRO_BOOL, true, OFF, &settings.lineup_to_parens, &exp_lp}, {"nip", PRO_SETTINGS, 0, ONOFF_NA, (int *) "-ip0\0", &exp_nip}, {"nhnl", PRO_BOOL, true, OFF, &settings.honour_newlines, &exp_hnl}, {"nfca", PRO_BOOL, false, OFF, &settings.format_comments, &exp_fca}, {"nfc1", PRO_BOOL, false, OFF, &settings.format_col1_comments, &exp_fc1}, {"neei", PRO_BOOL, false, OFF, &settings.extra_expression_indent, &exp_eei}, {"ndj", PRO_BOOL, false, OFF, &settings.ljust_decl, &exp_dj}, {"ncs", PRO_BOOL, true, OFF, &settings.cast_space, &exp_cs}, {"nce", PRO_BOOL, false, OFF, &settings.cuddle_else, &exp_ce}, {"ncdw", PRO_BOOL, false, OFF, &settings.cuddle_do_while, &exp_cdw}, {"ncdb", PRO_BOOL, false, OFF, &settings.comment_delimiter_on_blankline, &exp_cdb}, {"nbs", PRO_BOOL, false, OFF, &settings.blank_after_sizeof, &exp_bs}, {"nbfda", PRO_BOOL, false, OFF, &settings.break_function_decl_args, &exp_bfda}, {"nbfde", PRO_BOOL, false, OFF, &settings.break_function_decl_args_end, &exp_bfde}, {"nbc", PRO_BOOL, true, ON, &settings.leave_comma, &exp_bc}, {"nbbo", PRO_BOOL, true, OFF, &settings.break_before_boolean_operator, &exp_bbo}, {"nbbb", PRO_BOOL, false, OFF, &settings.blanklines_before_blockcomments, &exp_bbb}, {"nbap", PRO_BOOL, true, OFF, &settings.blanklines_after_procs, &exp_bap}, {"nbadp", PRO_BOOL, false, OFF, &settings.blanklines_after_declarations_at_proctop, &exp_badp}, {"nbad", PRO_BOOL, false, OFF, &settings.blanklines_after_declarations, &exp_bad}, {"nbacc", PRO_BOOL, false, OFF, &settings.blanklines_around_conditional_compilation, &exp_bacc}, {"linux", PRO_SETTINGS, 0, ONOFF_NA, LINUX_SETTINGS_STRING, &exp_linux}, {"lps", PRO_BOOL, false, ON, &settings.leave_preproc_space, &exp_lps}, {"lp", PRO_BOOL, true, ON, &settings.lineup_to_parens, &exp_lp}, {"lc", PRO_INT, DEFAULT_RIGHT_COMMENT_MARGIN, ONOFF_NA, &settings.comment_max_col, &exp_lc}, {"l", PRO_INT, DEFAULT_RIGHT_MARGIN, ONOFF_NA, &settings.max_col, &exp_l}, {"kr", PRO_SETTINGS, 0, ONOFF_NA, KR_SETTINGS_STRING, &exp_kr}, {"il", PRO_INT, 0, ONOFF_NA, &settings.label_offset, &exp_il}, {"ip", PRO_INT, 5, ONOFF_NA, &settings.indent_parameters, &exp_ip}, {"i", PRO_INT, 2, ONOFF_NA, &settings.ind_size, &exp_i}, {"hnl", PRO_BOOL, true, ON, &settings.honour_newlines, &exp_hnl}, {"h", PRO_FUNCTION, 0, ONOFF_NA, (int *) usage, &exp_version}, /* This is now the default. */ {"gnu", PRO_SETTINGS, 0, ONOFF_NA, GNU_SETTINGS_STRING, &exp_gnu}, {"fca", PRO_BOOL, false, ON, &settings.format_comments, &exp_fca}, {"fc1", PRO_BOOL, false, ON, &settings.format_col1_comments, &exp_fc1}, {"eei", PRO_BOOL, false, ON, &settings.extra_expression_indent, &exp_eei}, {"dj", PRO_BOOL, false, ON, &settings.ljust_decl, &exp_dj}, {"di", PRO_INT, 2, ONOFF_NA, &settings.decl_indent, &exp_di}, {"d", PRO_INT, 0, ONOFF_NA, &settings.unindent_displace, &exp_d}, {"cs", PRO_BOOL, true, ON, &settings.cast_space, &exp_cs}, {"cp", PRO_INT, 1, ONOFF_NA, &settings.else_endif_col, &exp_cp}, {"cli", PRO_INT, 0, ONOFF_NA, &settings.case_indent, &exp_cli}, {"ci", PRO_INT, 0, ONOFF_NA, &settings.continuation_indent, &exp_ci}, {"ce", PRO_BOOL, false, ON, &settings.cuddle_else, &exp_ce}, {"cdw", PRO_BOOL, false, ON, &settings.cuddle_do_while, &exp_cdw}, {"cdb", PRO_BOOL, false, ON, &settings.comment_delimiter_on_blankline, &exp_cdb}, {"cd", PRO_INT, 33, ONOFF_NA, &settings.decl_com_ind, &exp_cd}, {"cbi", PRO_INT, -1, ONOFF_NA, &settings.case_brace_indent, &exp_cbi}, {"c++", PRO_BOOL, false, ON, &settings.c_plus_plus, &exp_cpp}, {"c", PRO_INT, 33, ONOFF_NA, &settings.com_ind, &exp_c}, {"bs", PRO_BOOL, false, ON, &settings.blank_after_sizeof, &exp_bs}, {"brs", PRO_BOOL, false, ON, &settings.braces_on_struct_decl_line, &exp_bls}, {"bls", PRO_BOOL, false, OFF, &settings.braces_on_struct_decl_line, &exp_bls}, {"brf", PRO_BOOL, false, ON, &settings.braces_on_func_def_line, &exp_blf}, {"blf", PRO_BOOL, false, OFF, &settings.braces_on_func_def_line, &exp_blf}, {"bli", PRO_INT, 2, ONOFF_NA, &settings.brace_indent, &exp_bli}, {"br", PRO_BOOL, false, ON, &settings.btype_2, &exp_bl}, {"bl", PRO_BOOL, false, OFF, &settings.btype_2, &exp_bl}, {"bfda", PRO_BOOL, false, ON, &settings.break_function_decl_args, &exp_bfda}, {"bfde", PRO_BOOL, false, ON, &settings.break_function_decl_args_end, &exp_bfde}, {"bc", PRO_BOOL, true, OFF, &settings.leave_comma, &exp_bc}, {"bbo", PRO_BOOL, true, ON, &settings.break_before_boolean_operator, &exp_bbo}, {"bbb", PRO_BOOL, false, ON, &settings.blanklines_before_blockcomments, &exp_bbb}, {"bap", PRO_BOOL, true, ON, &settings.blanklines_after_procs, &exp_bap}, {"badp", PRO_BOOL, false, ON, &settings.blanklines_after_declarations_at_proctop, &exp_badp}, {"bad", PRO_BOOL, false, ON, &settings.blanklines_after_declarations, &exp_bad}, {"bacc", PRO_BOOL, false, ON, &settings.blanklines_around_conditional_compilation, &exp_bacc}, {"T", PRO_KEY, 0, ONOFF_NA, 0, &exp_T}, {"ppi", PRO_INT, 0, ONOFF_NA, &settings.force_preproc_width, &exp_ppi}, /* Signify end of structure. */ {0, PRO_IGN, 0, ONOFF_NA, 0, 0} }; #endif /* GNU defaults */ typedef struct long_option_conversion { char *long_name; char *short_name; } long_option_conversion_ty; const long_option_conversion_ty option_conversions[] = { {"version", "version"}, {"verbose", "v"}, {"usage", "h"}, {"use-tabs", "ut"}, {"tab-size", "ts"}, {"swallow-optional-blank-lines", "sob"}, {"struct-brace-indentation", "sbi"}, {"start-left-side-of-comments", "sc"}, {"standard-output", "st"}, {"space-special-semicolon", "ss"}, {"space-after-while", "saw"}, {"space-after-procedure-calls", "pcs"}, {"space-after-parentheses", "prs"}, {"space-after-if", "sai"}, {"space-after-for", "saf"}, {"space-after-cast", "cs"}, {"remove-preprocessor-space", "nlps"}, {"procnames-start-lines", "psl"}, #ifdef PRESERVE_MTIME {"preserve-mtime", "pmt"}, #endif {"paren-indentation", "pi"}, {"parameter-indentation", "ip"}, {"output-file", "o"}, {"output", "o"}, {"original-style", "orig"}, {"original", "orig"}, {"no-verbosity", "nv"}, {"no-tabs", "nut"}, {"no-space-after-while", "nsaw"}, {"no-space-after-parentheses", "nprs"}, {"no-space-after-if", "nsai"}, {"no-space-after-function-call-names", "npcs"}, {"no-space-after-for", "nsaf"}, {"no-space-after-casts", "ncs"}, {"no-parameter-indentation", "nip"}, {"no-extra-expression-indentation", "neei"}, {"no-comment-delimiters-on-blank-lines", "ncdb"}, {"no-blank-lines-before-block-comments", "nbbb"}, {"no-blank-lines-after-procedures", "nbap"}, {"no-blank-lines-after-procedure-declarations", "nbadp"}, {"no-blank-lines-after-ifdefs", "nbacc"}, {"no-blank-lines-after-declarations", "nbad"}, {"no-blank-lines-after-commas", "nbc"}, {"no-blank-before-sizeof", "nbs"}, {"no-Bill-Shannon", "nbs"}, {"label-offset", "il"}, {"line-length", "l"}, {"line-comments-indentation", "d"}, {"linux-style", "linux"}, {"left-justify-declarations", "dj"}, {"leave-preprocessor-space", "lps"}, {"leave-optional-blank-lines", "nsob"}, {"kernighan-and-ritchie-style", "kr"}, {"kernighan-and-ritchie", "kr"}, {"k-and-r-style", "kr"}, {"indent-label", "il"}, {"indentation-level", "i"}, {"indent-level", "i"}, {"ignore-profile", "npro"}, {"ignore-newlines", "nhnl"}, {"honour-newlines", "hnl"}, {"help", "h"}, {"gnu-style", "gnu"}, {"format-first-column-comments", "fc1"}, {"format-all-comments", "fca"}, {"extra-expression-indentation", "eei"}, {"else-endif-column", "cp"}, {"dont-star-comments", "nsc"}, {"dont-space-special-semicolon", "nss"}, {"dont-line-up-parentheses", "nlp"}, {"dont-left-justify-declarations", "ndj"}, {"dont-indent-parameters", "nip"}, {"dont-format-first-column-comments", "nfc1"}, {"dont-format-comments", "nfca"}, {"dont-cuddle-else", "nce"}, {"dont-cuddle-do-while", "ncdw"}, {"dont-break-procedure-type", "npsl"}, {"dont-break-function-decl-args", "nbfda"}, {"dont-break-function-decl-args-end", "nbfde"}, {"declaration-indentation", "di"}, {"declaration-comment-column", "cd"}, {"cuddle-else", "ce"}, {"cuddle-do-while", "cdw"}, {"continue-at-parentheses", "lp"}, {"continuation-indentation", "ci"}, {"comment-line-length", "lc"}, {"comment-indentation", "c"}, {"comment-delimiters-on-blank-lines", "cdb"}, {"case-indentation", "cli"}, {"case-brace-indentation", "cbi"}, {"c-plus-plus", "c++"}, {"break-function-decl-args", "bfda"}, {"break-function-decl-args-end", "bfde"}, {"break-before-boolean-operator", "bbo"}, {"break-after-boolean-operator", "nbbo"}, {"braces-on-struct-decl-line", "brs"}, {"braces-on-func-def-line", "brf"}, {"braces-on-if-line", "br"}, {"braces-after-struct-decl-line", "bls"}, {"braces-after-func-def-line", "blf"}, {"braces-after-if-line", "bl"}, {"brace-indent", "bli"}, {"blank-lines-before-block-comments", "bbb"}, {"blank-lines-after-procedures", "bap"}, {"blank-lines-after-procedure-declarations", "badp"}, {"blank-lines-after-ifdefs", "bacc"}, {"blank-lines-after-declarations", "bad"}, {"blank-lines-after-commas", "bc"}, {"blank-before-sizeof", "bs"}, {"berkeley-style", "orig"}, {"berkeley", "orig"}, {"Bill-Shannon", "bs"}, {"preprocessor-indentation", "ppi"}, {0, 0}, }; static void usage (void) { fprintf (stderr, _("usage: indent file [-o outfile ] [ options ]\n")); fprintf (stderr, _(" indent file1 file2 ... fileN [ options ]\n")); exit (invocation_error); } /* S1 should be a string. S2 should be a string, perhaps followed by an argument. Compare the two, returning true if they are equal, and if they are equal set *START_PARAM to point to the argument in S2. */ static BOOLEAN eqin ( const char * s1, const char * s2, const char ** start_param) { BOOLEAN ret = true; while (*s1) { if (*s1++ != *s2++) { ret = false; } } *start_param = s2; return ret; } /* Set the defaults. */ void set_defaults (void) { const pro_ty *p; for (p = pro; p->p_name; p++) { if ((p->p_type == PRO_BOOL && p->p_special == ON) || p->p_type == PRO_INT) { *p->p_obj = p->p_default; } } } /* Set the defaults after options set */ void set_defaults_after (void) { if (!exp_lc) /* if no -lc option was given */ { settings.comment_max_col = settings.max_col; } } /* Strings which can prefix an option, longest first. */ static char *option_prefixes[] = { "--", "-", "+", 0 }; static void arg_missing( const char *option) { fprintf (stderr, _("indent: missing argument to parameter %s\n"), option); exit (invocation_error); } static int option_prefix ( const char * arg) { char ** prefixes = option_prefixes; char * this_prefix = *prefixes; const char * argp = arg; int ret = 0; do { this_prefix = *prefixes; argp = arg; while (*this_prefix == *argp) { this_prefix++; argp++; } if (*this_prefix == '\0') { ret = this_prefix - *prefixes; break; } } while (*++prefixes); return ret; } /* Process an option ARG (e.g. "-l60"). PARAM is a possible value * for ARG, if PARAM is nonzero. EXPLICT should be nonzero iff the * argument is being explicitly specified (as opposed to being taken from a * PRO_SETTINGS group of settings). * * Returns 1 if the option had a value, returns 0 otherwise. * * 2002-06-13 D.Ingamells. Fixed check for int param without an int argument. */ int set_option ( const char * option, const char * param, int explicit) { const pro_ty * p = pro; const char * param_start = NULL; int option_length = option_prefix (option); int val = 0; BOOLEAN found = false; if (option_length > 0) { if ((option_length == 1) && (*option == '-')) { /* Short option prefix */ option++; for (p = pro; p->p_name; p++) { if ((*p->p_name == *option) && eqin (p->p_name, option, ¶m_start)) { found = true; break; } } } else { /* Long prefix */ const long_option_conversion_ty *o = option_conversions; option += option_length; while (o->short_name) { if (eqin (o->long_name, option, ¶m_start)) { break; } o++; } /* Searching twice means we don't have to keep the two tables in * sync. */ if (o->short_name) { for (p = pro; p->p_name; p++) { if (!strcmp (p->p_name, o->short_name)) { found = true; break; } } } } } if (!found) { fprintf (stderr, _("indent: unknown option \"%s\"\n"), option - 1); exit (invocation_error); } else { /* If the parameter has been explicitly specified, we don't * want a group of bundled settings to override the explicit * setting. */ if (settings.verbose) { fprintf (stderr, _("option: %s\n"), p->p_name); } if (explicit || !*(p->p_explicit)) { if (explicit) { *(p->p_explicit) = 1; } switch (p->p_type) { case PRO_PRSTRING: /* This is not really an error, but zero exit values are returned only when code has been successfully formatted. */ printf (_("GNU indent %s\n"), (char *) p->p_obj); exit (invocation_error); case PRO_FUNCTION: ((void (*)()) p->p_obj) (); break; case PRO_SETTINGS: { char *t; /* current position */ t = (char *) p->p_obj; do { set_option (t, 0, 0); /* advance to character following next NUL */ while (*t++) { } } while (*t); } case PRO_IGN: break; case PRO_KEY: { char *str; if (*param_start == 0) { if (!(param_start = param)) { arg_missing(option); } else { val = 1; } } str = (char *) xmalloc (strlen (param_start) + 1); strcpy (str, param_start); addkey (str, rw_decl); } break; case PRO_BOOL: if (p->p_special == OFF) { *p->p_obj = false; } else { *p->p_obj = true; } break; case PRO_INT: if (*param_start == '\0') { param_start = param; if (param_start == NULL) { arg_missing(option); } else { val = 1; } } if (isdigit (*param_start) || ((*param_start == '-') && isdigit (*(param_start + 1)))) { *p->p_obj = atoi (param_start); } else { fprintf (stderr, _("indent: option ``%s'' requires a numeric parameter\n"), option - 1); exit (invocation_error); } break; default: fprintf (stderr, _("indent: set_option: internal error: p_type %d\n"), (int) p->p_type); exit (invocation_error); } } } return val; } /* The first 2 characters of a c++ comment have been read skip the remainder of the line * and return the first character from the next line. */ static int skip_cpp_comment( FILE * f) { int i; do { i = getc (f); } while ((i != EOF) && (i != EOL)); if (i == EOL) { i = getc (f); } return i; } /* * the first 2 characters of a c comment have been read. Read past the * remainder of the comment and return the first character after the * comment. */ static int skip_c_comment( FILE * f) { int i = getc (f); do { /* skip to the next '*' character */ while ((i != EOF) && (i != '*')) { i = getc (f); } if (i == EOF) { WARNING (_("Profile contains an unterminated comment"), 0, 0); break; } /* current char is '*' so skip over it. */ i = getc (f); /* If the current character is a '/' the comment is over. */ } while (i != '/'); if (i != EOF) { i = getc (f); } return i; } /* The starting / of a comment has been read. * skip over the rest of the comment and return the * first character after the comment. */ static int skip_comment( FILE * f) { int i = getc (f); switch (i) { case '/': i = skip_cpp_comment(f); break; case '*': i = skip_c_comment(f); break; default: WARNING (_("Profile contains unpalatable characters"), 0, 0); } return i; } /* * Skip a sequence of space and control characters and return the * first character after the sequence. */ static int skip_spaces( FILE * f, int first) { int i = first; while ((i <= ' ') && (i != EOF)) { i = getc (f); } return i; } /* Read a string from the input until the next control character, space or /. * Return the first character after the read string. */ static int read_string( FILE * f, char * buff, int first) { int i = first; char *p = buff; while ( ( i != EOF) && (i > ' ') && (i != '/') && (p < buff + BUFSIZ)) { *(p++) = i; i = getc (f); } *p = EOS; return i; } /* Scan the options in the file f. */ static void scan_profile ( FILE * f) { char b0[BUFSIZ]; char b1[BUFSIZ]; char * current = b0; int i = skip_spaces(f, ' '); while (i != EOF) { if (i == '/') { /* The start of a comment. */ i = skip_comment(f); } else { i = read_string(f, current, i); /* We've scanned something... */ if (current == b0) { /* Second buffer still has to be filled. */ current = b1; } else if (set_option (b0, b1, 1) == 1) { /* The option had a parameter, thus both values * have been consumed. * Reset the 2 buffers to 'empty' */ current = b0; } else { /* Set option consumed one value. Move the * other value to the first buffer and go get a new * second value. */ strcpy(b0, b1); current = b1; } } i = skip_spaces(f, i); } if (current != b0) { set_option (b0, NULL, 1); } } /* Some operating systems don't allow more than one dot in a filename. */ #if defined (ONE_DOT_PER_FILENAME) #define INDENT_PROFILE "indent.pro" #else #define INDENT_PROFILE ".indent.pro" #endif #ifndef PROFILE_FORMAT #define PROFILE_FORMAT "%s/%s" #endif #define PROFILE_ENV_NAME "INDENT_PROFILE" /* set_profile looks for ./.indent.pro or $HOME/.indent.pro, in * that order, and reads the options given in that file. Return the * path of the file read. * * Note that as of version 1.3, indent only reads one file. */ char * set_profile (void) { FILE * f = NULL; char * fname = NULL; static char prof[] = INDENT_PROFILE; char * homedir = NULL; char * envname = getenv(PROFILE_ENV_NAME); if (envname != NULL) { f = fopen (envname, "r"); } if (f != NULL) { scan_profile (f); (void) fclose (f); fname = strdup(envname); } else { f = fopen (INDENT_PROFILE, "r"); if (f != NULL) { int len = strlen (INDENT_PROFILE) + 3; scan_profile (f); (void) fclose (f); fname = xmalloc (len); strcpy(fname, "./"); (void) strcat (fname, INDENT_PROFILE); } else { homedir = getenv ("HOME"); if (homedir) { fname = xmalloc (strlen (homedir) + strlen(PROFILE_FORMAT) + sizeof (prof)); sprintf (fname, PROFILE_FORMAT, homedir, prof); if ((f = fopen (fname, "r")) != NULL) { scan_profile (f); (void) fclose (f); } else { free (fname); fname = NULL; } } } } return fname; }