home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / utils / indent13.lha / indent-1.3 / args.c < prev    next >
C/C++ Source or Header  |  1992-06-05  |  25KB  |  775 lines
  1. /* Copyright (c) 1992, Free Software Foundation, Inc.  All rights reserved.
  2.  
  3.    Copyright (c) 1985 Sun Microsystems, Inc. Copyright (c) 1980 The Regents
  4.    of the University of California. Copyright (c) 1976 Board of Trustees of
  5.    the University of Illinois. All rights reserved.
  6.  
  7.    Redistribution and use in source and binary forms are permitted
  8.    provided that
  9.    the above copyright notice and this paragraph are duplicated in all such
  10.    forms and that any documentation, advertising materials, and other
  11.    materials related to such distribution and use acknowledge that the
  12.    software was developed by the University of California, Berkeley, the
  13.    University of Illinois, Urbana, and Sun Microsystems, Inc.  The name of
  14.    either University or Sun Microsystems may not be used to endorse or
  15.    promote products derived from this software without specific prior written
  16.    permission. THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  17.    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES
  18.    OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. */
  19.  
  20. #ifndef lint
  21. static char sccsid[]= "@(#)args.c    5.8 (Berkeley) 5/15/89";
  22. #endif                /* not lint */
  23.  
  24. /* Argument scanning and profile reading code.  Default parameters are set
  25.    here as well. */
  26.  
  27. #include "sys.h"
  28. #include "indent.h"
  29. #include <ctype.h>
  30. #include "version.h"
  31.  
  32. int else_endif_col;
  33.  
  34. extern char *in_name;
  35.  
  36. char *getenv ();
  37.  
  38. /* profile types */
  39. enum profile
  40. {
  41.   PRO_BOOL,            /* boolean */
  42.   PRO_INT,            /* integer */
  43.   PRO_FONT,            /* troff font */
  44.   PRO_IGN,            /* ignore it */
  45.   PRO_KEY,            /* -T switch */
  46.   PRO_SETTINGS,            /* bundled set of settings */
  47.   PRO_PRSTRING,            /* Print string and exit */
  48. };
  49.  
  50. /* profile specials for booleans */
  51. enum on_or_off
  52. {
  53.   ONOFF_NA,            /* Not applicable.  Used in table for
  54.                    non-booleans.  */
  55.   OFF,                /* This option turns on the boolean variable
  56.                    in question.  */
  57.   ON                /* it turns it off */
  58. };
  59.  
  60. /* Explicit flags for each option.  */
  61. static int exp_T = 0;
  62. static int exp_bacc = 0;
  63. static int exp_badp = 0;
  64. static int exp_bad = 0;
  65. static int exp_bap = 0;
  66. static int exp_bbb = 0;
  67. static int exp_bc = 0;
  68. static int exp_bli = 0;
  69. static int exp_bl = 0;
  70. static int exp_bs = 0;
  71. static int exp_cdb = 0;
  72. static int exp_cd = 0;
  73. static int exp_ce = 0;
  74. static int exp_ci = 0;
  75. static int exp_cli = 0;
  76. static int exp_cp = 0;
  77. static int exp_cs = 0;
  78. static int exp_c = 0;
  79. static int exp_di = 0;
  80. static int exp_dj = 0;
  81. static int exp_d = 0;
  82. static int exp_eei = 0;
  83. static int exp_ei = 0;
  84. static int exp_fbc = 0;
  85. static int exp_fbx = 0;
  86. static int exp_fb = 0;
  87. static int exp_fc1 = 0;
  88. static int exp_fca = 0;
  89. static int exp_fc = 0;
  90. static int exp_fk = 0;
  91. static int exp_fs = 0;
  92. static int exp_gnu = 0;
  93. static int exp_orig = 0;
  94. static int exp_ip = 0;
  95. static int exp_nip = 0;
  96. static int exp_i = 0;
  97. static int exp_lc = 0;
  98. static int exp_lp = 0;
  99. static int exp_l = 0;
  100. static int exp_pcs = 0;
  101. static int exp_psl = 0;
  102. static int exp_pro = 0;
  103. static int exp_ps = 0;
  104. static int exp_kr = 0;
  105. static int exp_sc = 0;
  106. static int exp_sob = 0;
  107. static int exp_ss = 0;
  108. static int exp_st = 0;
  109. static int exp_troff = 0;
  110. static int exp_ts = 0;
  111. static int exp_v = 0;
  112. static int exp_version = 0;
  113.  
  114. /* The following variables are controlled by command line parameters and
  115.    their meaning is explained in indent.h.  */
  116. int leave_comma;
  117. int decl_com_ind;
  118. int case_indent;
  119. int com_ind;
  120. int decl_indent;
  121. int ljust_decl;
  122. int unindent_displace;
  123. int else_if;
  124. int indent_parameters;
  125. int ind_size;
  126. int tabsize;
  127. int blanklines_after_procs;
  128. int use_stdout;
  129. int pointer_as_binop;
  130. int blanklines_after_declarations;
  131. int blanklines_before_blockcomments;
  132. int blanklines_around_conditional_compilation;
  133. int swallow_optional_blanklines;
  134. int n_real_blanklines;
  135. int prefix_blankline_requested;
  136. int postfix_blankline_requested;
  137. int brace_indent;
  138. int btype_2;
  139. int space_sp_semicolon;
  140. int case_ind;
  141. int max_col;
  142. int verbose;
  143. int cuddle_else;
  144. int star_comment_cont;
  145. int comment_delimiter_on_blankline;
  146. int troff;
  147. int procnames_start_line;
  148. int proc_calls_space;
  149. int cast_space;
  150. int format_col1_comments;
  151. int format_comments;
  152. int continuation_indent;
  153. int lineup_to_parens;
  154. int blank_after_sizeof;
  155. int blanklines_after_declarations_at_proctop;
  156. int block_comment_max_col;
  157. int extra_expression_indent;
  158.  
  159. int expect_output_file;
  160.  
  161. /* N.B.: because of the way the table here is scanned, options whose names
  162.    are substrings of other options must occur later; that is, with -lp vs -l,
  163.    -lp must be first.  Also, while (most) booleans occur more than once, the
  164.    last default value is the one actually assigned. */
  165. struct pro
  166. {
  167.   char *p_name;            /* name, eg -bl, -cli */
  168.   enum profile p_type;
  169.   int p_default;        /* the default value (if int) */
  170.  
  171.   /* If p_type == PRO_BOOL, ON or OFF to tell how this switch affects the
  172.      variable. Not used for other p_type's.  */
  173.   enum on_or_off p_special;
  174.  
  175.   /* if p_type == PRO_SETTINGS, a (char *) pointing to a list of the switches
  176.      to set, separated by NULs, terminated by 2 NULs. if p_type == PRO_BOOL,
  177.      PRO_INT, or PRO_FONT, address of the variable that gets set by the
  178.      option. if p_type == PRO_PRSTRING, a (char *) pointing to the string.  */
  179.   int *p_obj;
  180.  
  181.   /* Points to a nonzero value (allocated statically for all options) if the
  182.      option has been specified explicitly.  This is necessary because for
  183.      boolean options, the options to set and reset the variable must share
  184.      the explicit flag.  */
  185.   int *p_explicit;
  186. };
  187.  
  188. #ifdef BERKELEY_DEFAULTS
  189. /* Settings for original defaults */
  190. struct pro pro[]=
  191. {
  192.   {"T", PRO_KEY, 0, ONOFF_NA, 0, &exp_T},
  193.   {"bacc", PRO_BOOL, false, ON,
  194.    &blanklines_around_conditional_compilation, &exp_bacc},
  195.   {"badp", PRO_BOOL, false, ON,
  196.    &blanklines_after_declarations_at_proctop, &exp_badp},
  197.   {"bad", PRO_BOOL, false, ON, &blanklines_after_declarations, &exp_bad},
  198.   {"bap", PRO_BOOL, false, ON, &blanklines_after_procs, &exp_bap},
  199.   {"bbb", PRO_BOOL, false, ON, &blanklines_before_blockcomments, &exp_bbb},
  200.   {"bc", PRO_BOOL, true, OFF, &leave_comma, &exp_bc},
  201.   {"bli", PRO_INT, 0, ONOFF_NA, &brace_indent, &exp_bli},
  202.   {"bl", PRO_BOOL, true, OFF, &btype_2, &exp_bl},
  203.   {"br", PRO_BOOL, true, ON, &btype_2, &exp_bl},
  204.   {"bs", PRO_BOOL, false, ON, &blank_after_sizeof, &exp_bs},
  205.   {"cdb", PRO_BOOL, true, ON, &comment_delimiter_on_blankline, &exp_cdb},
  206.   {"cd", PRO_INT, 33, ONOFF_NA, &decl_com_ind, &exp_cd},
  207.   {"ce", PRO_BOOL, true, ON, &cuddle_else, &exp_ce},
  208.   {"ci", PRO_INT, 4, ONOFF_NA, &continuation_indent, &exp_ci},
  209.   {"cli", PRO_INT, 0, ONOFF_NA, &case_indent, &exp_cli},
  210.   {"cp", PRO_INT, 33, ONOFF_NA, &else_endif_col, &exp_cp},
  211.   {"cs", PRO_BOOL, true, ON, &cast_space, &exp_cs},
  212.   {"c", PRO_INT, 33, ONOFF_NA, &com_ind, &exp_c},
  213.   {"di", PRO_INT, 16, ONOFF_NA, &decl_indent, &exp_di},
  214.   {"dj", PRO_BOOL, false, ON, &ljust_decl, &exp_dj},
  215.   {"d", PRO_INT, 0, ONOFF_NA, &unindent_displace, &exp_d},
  216.   {"eei", PRO_BOOL, false, ON, &extra_expression_indent, &exp_eei},
  217.   {"ei", PRO_BOOL, true, ON, &else_if, &exp_ei},
  218.   {"fbc", PRO_FONT, 0, ONOFF_NA, (int *) &blkcomf, &exp_fbc},
  219.   {"fbx", PRO_FONT, 0, ONOFF_NA, (int *) &boxcomf, &exp_fbx},
  220.   {"fb", PRO_FONT, 0, ONOFF_NA, (int *) &bodyf, &exp_fb},
  221.   {"fc1", PRO_BOOL, true, ON, &format_col1_comments, &exp_fc1},
  222.   {"fca", PRO_BOOL, true, ON, &format_comments, &exp_fca},
  223.   {"fc", PRO_FONT, 0, ONOFF_NA, (int *) &scomf, &exp_fc},
  224.   {"fk", PRO_FONT, 0, ONOFF_NA, (int *) &keywordf, &exp_fk},
  225.   {"fs", PRO_FONT, 0, ONOFF_NA, (int *) &stringf, &exp_fs},
  226.   {"gnu", PRO_SETTINGS, 0, ONOFF_NA,
  227.    (int *) "-nbad\0-bap\0-nbbb\0-nbc\0-bl\0-ncdb\0-cs\0-nce\0-di2\0-ndj\0\
  228. -ei\0-nfc1\0-i2\0-ip5\0-lp\0-pcs\0-nps\0-psl\0-nsc\0-nsob\0-bli2\0\
  229. -cp1\0-nfca\0", &exp_gnu},
  230.   {"ip", PRO_INT, 4, ON, &indent_parameters, &exp_ip},
  231.   {"i", PRO_INT, 4, ONOFF_NA, &ind_size, &exp_i},
  232.   {"kr", PRO_SETTINGS, 0, ONOFF_NA,
  233.    (int *) "-nbad\0-bap\0-nbbb\0-nbc\0-br\0-c33\0-cd33\0-ncdb\0-ce\0\
  234. -ci4\0-cli0\0-d0\0-di1\0-nfc1\0-i4\0-ip0\0-l75\0-lp\0-npcs\0-npsl\0-cs\0\
  235. -nsc\0-nsc\0-nsob\0-nfca\0-cp33\0-nss\0", &exp_kr},
  236.   {"lc", PRO_INT, 0, ONOFF_NA, &block_comment_max_col, &exp_lc},
  237.   {"lp", PRO_BOOL, true, ON, &lineup_to_parens, &exp_lp},
  238.   {"l", PRO_INT, 78, ONOFF_NA, &max_col, &exp_l},
  239.   {"nbacc", PRO_BOOL, false, OFF,
  240.    &blanklines_around_conditional_compilation, &exp_bacc},
  241.   {"nbadp", PRO_BOOL, false, OFF,
  242.    &blanklines_after_declarations_at_proctop, &exp_badp},
  243.   {"nbad", PRO_BOOL, false, OFF, &blanklines_after_declarations, &exp_bad},
  244.   {"nbap", PRO_BOOL, false, OFF, &blanklines_after_procs, &exp_bap},
  245.   {"nbbb", PRO_BOOL, false, OFF, &blanklines_before_blockcomments, &exp_bbb},
  246.   {"nbc", PRO_BOOL, true, ON, &leave_comma, &exp_bc},
  247.   {"nbs", PRO_BOOL, false, OFF, &blank_after_sizeof, &exp_bs},
  248.   {"ncdb", PRO_BOOL, true, OFF, &comment_delimiter_on_blankline, &exp_cdb},
  249.   {"nce", PRO_BOOL, true, OFF, &cuddle_else, &exp_ce},
  250.   {"ncs", PRO_BOOL, true, OFF, &cast_space, &exp_cs},
  251.   {"ndj", PRO_BOOL, false, OFF, &ljust_decl, &exp_dj},
  252.   {"neei", PRO_BOOL, false, OFF, &extra_expression_indent, &exp_eei},
  253.   {"nei", PRO_BOOL, true, OFF, &else_if, &exp_ei},
  254.   {"nfc1", PRO_BOOL, true, OFF, &format_col1_comments, &exp_fc1},
  255.   {"nfca", PRO_BOOL, true, OFF, &format_comments, &exp_fca},
  256.   {"nip", PRO_SETTINGS, 0, ONOFF_NA, (int *) "-ip0", &exp_nip},
  257.   {"nlp", PRO_BOOL, true, OFF, &lineup_to_parens, &exp_lp},
  258.   {"npcs", PRO_BOOL, false, OFF, &proc_calls_space, &exp_pcs},
  259.   {"npro", PRO_IGN, 0, ONOFF_NA, 0, &exp_pro},
  260.   {"npsl", PRO_BOOL, true, OFF, &procnames_start_line, &exp_psl},
  261.   {"nps", PRO_BOOL, false, OFF, &pointer_as_binop, &exp_ps},
  262.   {"nsc", PRO_BOOL, true, OFF, &star_comment_cont, &exp_sc},
  263.   {"nsob", PRO_BOOL, false, OFF, &swallow_optional_blanklines, &exp_sob},
  264.   {"nss", PRO_BOOL, false, OFF, &space_sp_semicolon, &exp_ss},
  265.   {"nv", PRO_BOOL, false, OFF, &verbose, &exp_v},
  266.  
  267.   {"o", PRO_BOOL, false, ON, &expect_output_file, &expect_output_file},
  268.  
  269.   {"pcs", PRO_BOOL, false, ON, &proc_calls_space, &exp_pcs},
  270.   {"psl", PRO_BOOL, true, ON, &procnames_start_line, &exp_psl},
  271.   {"ps", PRO_BOOL, false, ON, &pointer_as_binop, &exp_ps},
  272.   {"sc", PRO_BOOL, true, ON, &star_comment_cont, &exp_sc},
  273.   {"sob", PRO_BOOL, false, ON, &swallow_optional_blanklines, &exp_sob},
  274.   {"ss", PRO_BOOL, false, ON, &space_sp_semicolon, &exp_ss},
  275.   {"st", PRO_BOOL, false, ON, &use_stdout, &exp_st},
  276.   {"troff", PRO_BOOL, false, ON, &troff, &exp_troff},
  277.   {"ts", PRO_INT, 8, ONOFF_NA, &tabsize, &exp_ts},
  278.   {"version", PRO_PRSTRING, 0, ONOFF_NA,
  279.    (int *) VERSION_STRING, &exp_version},
  280.   {"v", PRO_BOOL, false, ON, &verbose, &exp_v},
  281.  
  282. /* Signify end of structure.  */
  283.   {0, PRO_IGN, 0, ONOFF_NA, 0, 0}
  284. };
  285. #else  /* Default to GNU style */
  286.  
  287. /* Changed to make GNU style the default. */
  288. struct pro pro[]=
  289. {
  290.   {"T", PRO_KEY, 0, ONOFF_NA, 0, &exp_T},
  291.   {"bacc", PRO_BOOL, false, ON,
  292.    &blanklines_around_conditional_compilation, &exp_bacc},
  293.   {"badp", PRO_BOOL, false, ON,
  294.    &blanklines_after_declarations_at_proctop, &exp_badp},
  295.   {"bad", PRO_BOOL, false, ON, &blanklines_after_declarations, &exp_bad},
  296.   {"bap", PRO_BOOL, true, ON, &blanklines_after_procs, &exp_bap},
  297.   {"bbb", PRO_BOOL, false, ON, &blanklines_before_blockcomments, &exp_bbb},
  298.   {"bc", PRO_BOOL, true, OFF, &leave_comma, &exp_bc},
  299.   {"bli", PRO_INT, 2, ONOFF_NA, &brace_indent, &exp_bli},
  300.   {"bl", PRO_BOOL, true, OFF, &btype_2, &exp_bl},
  301.   {"br", PRO_BOOL, false, ON, &btype_2, &exp_bl},
  302.   {"bs", PRO_BOOL, false, ON, &blank_after_sizeof, &exp_bs},
  303.   {"cdb", PRO_BOOL, false, ON, &comment_delimiter_on_blankline, &exp_cdb},
  304.   {"cd", PRO_INT, 33, ONOFF_NA, &decl_com_ind, &exp_cd},
  305.   {"ce", PRO_BOOL, false, ON, &cuddle_else, &exp_ce},
  306.   {"ci", PRO_INT, 0, ONOFF_NA, &continuation_indent, &exp_ci},
  307.   {"cli", PRO_INT, 0, ONOFF_NA, &case_indent, &exp_cli},
  308.   {"cp", PRO_INT, 1, ONOFF_NA, &else_endif_col, &exp_cp},
  309.   {"cs", PRO_BOOL, true, ON, &cast_space, &exp_cs},
  310.   {"c", PRO_INT, 33, ONOFF_NA, &com_ind, &exp_c},
  311.   {"di", PRO_INT, 2, ONOFF_NA, &decl_indent, &exp_di},
  312.   {"dj", PRO_BOOL, false, ON, &ljust_decl, &exp_dj},
  313.   {"d", PRO_INT, 0, ONOFF_NA, &unindent_displace, &exp_d},
  314.   {"eei", PRO_BOOL, false, ON, &extra_expression_indent, &exp_eei},
  315.   {"ei", PRO_BOOL, true, ON, &else_if, &exp_ei},
  316.   {"fbc", PRO_FONT, 0, ONOFF_NA, (int *) &blkcomf, &exp_fbc},
  317.   {"fbx", PRO_FONT, 0, ONOFF_NA, (int *) &boxcomf, &exp_fbx},
  318.   {"fb", PRO_FONT, 0, ONOFF_NA, (int *) &bodyf, &exp_fb},
  319.   {"fc1", PRO_BOOL, true, ON, &format_col1_comments, &exp_fc1},
  320.   {"fca", PRO_BOOL, false, ON, &format_comments, &exp_fca},
  321.   {"fc", PRO_FONT, 0, ONOFF_NA, (int *) &scomf, &exp_fc},
  322.   {"fk", PRO_FONT, 0, ONOFF_NA, (int *) &keywordf, &exp_fk},
  323.   {"fs", PRO_FONT, 0, ONOFF_NA, (int *) &stringf, &exp_fs},
  324.  
  325. /* This is now the default. */
  326.   {"gnu", PRO_SETTINGS, 0, ONOFF_NA,
  327.    (int *) "-nbad\0-bap\0-nbbb\0-nbc\0-bl\0-ncdb\0-cs\0-nce\0-di2\0-ndj\0\
  328. -ei\0-nfc1\0-i2\0-ip5\0-lp\0-pcs\0-nps\0-psl\0-nsc\0-nsob\0-bli2\0\
  329. -cp1\0-nfca\0", &exp_gnu},
  330.  
  331.   {"ip", PRO_INT, 5, ON, &indent_parameters, &exp_ip},
  332.   {"i", PRO_INT, 2, ONOFF_NA, &ind_size, &exp_i},
  333.   {"kr", PRO_SETTINGS, 0, ONOFF_NA,
  334.    (int *) "-nbad\0-bap\0-nbbb\0-nbc\0-br\0-c33\0-cd33\0-ncdb\0-ce\0\
  335. -ci4\0-cli0\0-d0\0-di1\0-nfc1\0-i4\0-ip0\0-l75\0-lp\0-npcs\0-npsl\0-cs\0\
  336. -nsc\0-nsc\0-nsob\0-nfca\0-cp33\0-nss\0", &exp_kr},
  337.   {"lc", PRO_INT, 0, ONOFF_NA, &block_comment_max_col, &exp_lc},
  338.   {"lp", PRO_BOOL, true, ON, &lineup_to_parens, &exp_lp},
  339.   {"l", PRO_INT, 78, ONOFF_NA, &max_col, &exp_l},
  340.   {"nbacc", PRO_BOOL, false, OFF,
  341.    &blanklines_around_conditional_compilation, &exp_bacc},
  342.   {"nbadp", PRO_BOOL, false, OFF,
  343.    &blanklines_after_declarations_at_proctop, &exp_badp},
  344.   {"nbad", PRO_BOOL, false, OFF, &blanklines_after_declarations, &exp_bad},
  345.   {"nbap", PRO_BOOL, true, OFF, &blanklines_after_procs, &exp_bap},
  346.   {"nbbb", PRO_BOOL, false, OFF, &blanklines_before_blockcomments, &exp_bbb},
  347.   {"nbc", PRO_BOOL, true, ON, &leave_comma, &exp_bc},
  348.   {"nbs", PRO_BOOL, false, OFF, &blank_after_sizeof, &exp_bs},
  349.   {"ncdb", PRO_BOOL, false, OFF, &comment_delimiter_on_blankline, &exp_cdb},
  350.   {"nce", PRO_BOOL, false, OFF, &cuddle_else, &exp_ce},
  351.   {"ncs", PRO_BOOL, true, OFF, &cast_space, &exp_cs},
  352.   {"ndj", PRO_BOOL, false, OFF, &ljust_decl, &exp_dj},
  353.   {"neei", PRO_BOOL, false, OFF, &extra_expression_indent, &exp_eei},
  354.   {"nei", PRO_BOOL, true, OFF, &else_if, &exp_ei},
  355.   {"nfc1", PRO_BOOL, true, OFF, &format_col1_comments, &exp_fc1},
  356.   {"nfca", PRO_BOOL, false, OFF, &format_comments, &exp_fca},
  357.   {"nip", PRO_SETTINGS, 0, ONOFF_NA, (int *) "-ip0\0", &exp_nip},
  358.   {"nlp", PRO_BOOL, true, OFF, &lineup_to_parens, &exp_lp},
  359.   {"npcs", PRO_BOOL, true, OFF, &proc_calls_space, &exp_pcs},
  360.   {"npro", PRO_IGN, 0, ONOFF_NA, 0, &exp_pro},
  361.   {"npsl", PRO_BOOL, true, OFF, &procnames_start_line, &exp_psl},
  362.   {"nps", PRO_BOOL, false, OFF, &pointer_as_binop, &exp_ps},
  363.   {"nsc", PRO_BOOL, false, OFF, &star_comment_cont, &exp_sc},
  364.   {"nsob", PRO_BOOL, false, OFF, &swallow_optional_blanklines, &exp_sob},
  365.   {"nss", PRO_BOOL, false, OFF, &space_sp_semicolon, &exp_ss},
  366.   {"nv", PRO_BOOL, false, OFF, &verbose, &exp_v},
  367.   {"orig", PRO_SETTINGS, 0, ONOFF_NA,
  368.    (int *) "-nbap\0-nbad\0-nbbb\0-bc\0-br\0-c33\0-cd33\0-cdb\0-ce\0-ci4\0\
  369. -cli0\0-cp33\0-di16\0-fc1\0-fca\0-i4\0-ip4\0-l75\0-lp\0\
  370. -npcs\0-psl\0-sc\0-nsob\0-nss\0-ts8\0", &exp_orig},
  371.  
  372.   {"o", PRO_BOOL, false, ON, &expect_output_file, &expect_output_file},
  373.  
  374.   {"pcs", PRO_BOOL, true, ON, &proc_calls_space, &exp_pcs},
  375.   {"psl", PRO_BOOL, true, ON, &procnames_start_line, &exp_psl},
  376.   {"ps", PRO_BOOL, false, ON, &pointer_as_binop, &exp_ps},
  377.   {"sc", PRO_BOOL, false, ON, &star_comment_cont, &exp_sc},
  378.   {"sob", PRO_BOOL, false, ON, &swallow_optional_blanklines, &exp_sob},
  379.   {"ss", PRO_BOOL, false, ON, &space_sp_semicolon, &exp_ss},
  380.   {"st", PRO_BOOL, false, ON, &use_stdout, &exp_st},
  381.   {"troff", PRO_BOOL, false, ON, &troff, &exp_troff},
  382.   {"ts", PRO_INT, 8, ONOFF_NA, &tabsize, &exp_ts},
  383.   {"version", PRO_PRSTRING, 0, ONOFF_NA,
  384.    (int *) VERSION_STRING, &exp_version},
  385.   {"v", PRO_BOOL, false, ON, &verbose, &exp_v},
  386.  
  387. /* Signify end of structure.  */
  388.   {0, PRO_IGN, 0, ONOFF_NA, 0, 0}
  389. };
  390. #endif /* GNU defaults */
  391.  
  392. struct long_option_conversion
  393. {
  394.   char *long_name;
  395.   char *short_name;
  396. };
  397.  
  398. struct long_option_conversion option_conversions[]=
  399. {
  400.   {"blank-lines-after-ifdefs", "bacc"},
  401.   {"blank-lines-after-procedure-declarations", "badp"},
  402.   {"blank-lines-after-declarations", "bad"},
  403.   {"blank-lines-after-procedures", "bap"},
  404.   {"blank-lines-after-block-comments", "bbb"},
  405.   {"blank-lines-after-commas", "bc"},
  406.   {"brace-indent", "bli"},
  407.   {"braces-after-if-line", "bl"},
  408.   {"braces-on-if-line", "br"},
  409.   {"Bill-Shannon", "bs"},
  410.   {"blank-before-sizeof", "bs"},
  411.   {"comment-delimiters-on-blank-lines", "cdb"},
  412.   {"declaration-comment-column", "cd"},
  413.   {"cuddle-else", "ce"},
  414.   {"continuation-indentation", "ci"},
  415.   {"case-indentation", "cli"},
  416.   {"else-endif-column", "cp"},
  417.   {"space-after-cast", "cs"},
  418.   {"comment-indentation", "c"},
  419.   {"declaration-indentation", "di"},
  420.   {"left-justify-declarations", "dj"},
  421.   {"line-comments-indentation", "d"},
  422.   {"extra-expression-indentation", "eei"},
  423.   {"else-if", "ei"},
  424.   {"*", "fbc"},
  425.   {"*", "fbx"},
  426.   {"*", "fb"},
  427.   {"format-first-column-comments", "fc1"},
  428.   {"format-all-comments", "fca"},
  429.   {"*", "fc"},
  430.   {"*", "fk"},
  431.   {"*", "fs"},
  432.   {"gnu-style", "gnu"},
  433.   {"parameter-indentation", "ip"},
  434.   {"indentation-level", "i"},
  435.   {"indent-level", "i"},
  436.   {"k-and-r-style", "kr"},
  437.   {"kernighan-and-ritchie-style", "kr"},
  438.   {"kernighan-and-ritchie", "kr"},
  439.   {"*", "lc"},
  440.   {"continue-at-parentheses", "lp"},
  441.   {"line-length", "l"},
  442.   {"no-blank-lines-after-ifdefs", "nbacc"},
  443.   {"no-blank-lines-after-procedure-declarations", "nbadp"},
  444.   {"no-blank-lines-after-declarations", "nbad"},
  445.   {"no-blank-lines-after-procedures", "nbap"},
  446.   {"no-blank-lines-after-block-comments", "nbbb"},
  447.   {"no-blank-lines-after-commas", "nbc"},
  448.   {"no-Bill-Shannon", "nbs"},
  449.   {"no-blank-before-sizeof", "nbs"},
  450.   {"no-comment-delimiters-on-blank-lines", "ncdb"},
  451.   {"dont-cuddle-else", "nce"},
  452.   {"no-space-after-casts", "ncs"},
  453.   {"dont-left-justify-declarations", "ndj"},
  454.   {"no-extra-expression-indentation", "neei"},
  455.   {"no-else-if", "nei"},
  456.   {"dont-format-first-column-comments", "nfc1"},
  457.   {"dont-format-comments", "nfca"},
  458.   {"no-parameter-indentation", "nip"},
  459.   {"dont-indent-parameters", "nip"},
  460.   {"dont-line-up-parentheses", "nlp"},
  461.   {"no-space-after-function-call-names", "npcs"},
  462.   {"ignore-profile", "npro"},
  463.   {"dont-break-procedure-type", "npsl"},
  464.   {"*", "nps"},
  465.   {"dont-star-comments", "nsc"},
  466.   {"leave-optional-blank-lines", "nsob"},
  467.   {"*", "nss"},
  468.   {"no-verbosity", "nv"},
  469.   {"output", "o"},
  470.   {"output-file", "o"},
  471.   {"original", "orig"},
  472.   {"original-style", "orig"},
  473.   {"berkeley-style", "orig"},
  474.   {"berkeley", "orig"},
  475.   {"space-after-procedure-calls", "pcs"},
  476.   {"procnames-start-lines", "psl"},
  477.   {"pointer-as-binary-op", "ps"},
  478.   {"start-left-side-of-comments", "sc"},
  479.   {"swallow-optional-blank-lines", "sob"},
  480.   {"space-special-semicolon", "ss"},
  481.   {"standard-output", "st"},
  482.   {"troff-formatting", "troff"},
  483.   {"tab-size", "ts"},
  484.   {"version", "version"},
  485.   {"verbose", "v"},
  486.   {0, 0},
  487. };
  488.  
  489. /* S1 should be a string.  S2 should be a string, perhaps followed by an
  490.    argument.  Compare the two, returning true if they are equal, and if they
  491.    are equal set *START_PARAM to point to the argument in S2.  */
  492.  
  493. static int
  494. eqin (s1, s2, start_param)
  495.      register char *s1;
  496.      register char *s2;
  497.      char **start_param;
  498. {
  499.   while (*s1)
  500.     {
  501.       if (*s1++ != *s2++)
  502.     return (false);
  503.     }
  504.   *start_param = s2;
  505.   return (true);
  506. }
  507.  
  508. /* Set the defaults. */
  509. void
  510. set_defaults ()
  511. {
  512.   register struct pro *p;
  513.  
  514.   for (p = pro; p->p_name; p++)
  515.     if (p->p_type == PRO_BOOL || p->p_type == PRO_INT)
  516.       *p->p_obj = p->p_default;
  517. }
  518.  
  519. /* Stings which can prefix an option, longest first. */
  520. static char *option_prefixes[]=
  521. {
  522.   "--",
  523.   "-",
  524.   "+",
  525.   0
  526. };
  527.  
  528. static int
  529. option_prefix (arg)
  530.      char *arg;
  531. {
  532.   register char **prefixes = option_prefixes;
  533.   register char *this_prefix,
  534.    *argp;
  535.  
  536.   do
  537.     {
  538.       this_prefix = *prefixes;
  539.       argp = arg;
  540.       while (*this_prefix == *argp)
  541.     {
  542.       this_prefix++;
  543.       argp++;
  544.     }
  545.       if (*this_prefix == '\0')
  546.     return this_prefix - *prefixes;
  547.     }
  548.   while (*++prefixes);
  549.  
  550.   return 0;
  551. }
  552.  
  553. /* Process an option ARG (e.g. "-l60").  EXPLICIT should be nonzero iff the
  554.    argument is being explicitly specified (as opposed to being taken from a
  555.    PRO_SETTINGS group of settings).  */
  556.  
  557. void
  558. set_option (option, explicit)
  559.      char *option;
  560.      int explicit;
  561. {
  562.   struct pro *p = pro;
  563.   char *param_start;
  564.   register int option_length;
  565.  
  566.   option_length = option_prefix (option);
  567.   if (option_length > 0)
  568.     {
  569.       if (option_length == 1 && *option == '-')
  570.     /* Short option prefix */
  571.     {
  572.       option++;
  573.       for (p = pro; p->p_name; p++)
  574.         if (*p->p_name == *option
  575.         && eqin (p->p_name, option, ¶m_start))
  576.           goto found;
  577.     }
  578.       else
  579.     /* Long prefix */
  580.     {
  581.       register struct long_option_conversion *o = option_conversions;
  582.       option += option_length;
  583.  
  584.       while (o->short_name)
  585.         {
  586.           if (eqin (o->long_name, option, ¶m_start))
  587.         break;
  588.           o++;
  589.         }
  590.  
  591.       /* Searching twice means we don't have to keep the two tables in
  592.          sync. */
  593.       if (o->short_name)
  594.         for (p = pro; p->p_name; p++)
  595.           if (!strcmp (p->p_name, o->short_name))
  596.         goto found;
  597.     }
  598.     }
  599.  
  600.   fprintf (stderr, "indent: unknown option \"%s\"\n", option - 1);
  601.   exit (1);
  602. found:
  603.   /* If the parameter has been explicitly specified, we don't
  604.      want a group of bundled settings to override the explicit
  605.      setting.  */
  606.   if (explicit || !*(p->p_explicit))
  607.     {
  608.       if (explicit)
  609.     *(p->p_explicit) = 1;
  610.  
  611.       switch (p->p_type)
  612.     {
  613.  
  614.     case PRO_PRSTRING:
  615.       puts ((char *) p->p_obj);
  616.       exit (0);
  617.  
  618.     case PRO_SETTINGS:
  619.       {
  620.         char *t;        /* current position */
  621.  
  622.         t = (char *) p->p_obj;
  623.         do
  624.           {
  625.         set_option (t, 0);
  626.         /* advance to character following next NUL */
  627.         while (*t++);
  628.           }
  629.         while (*t);
  630.       }
  631.  
  632.     case PRO_IGN:
  633.       break;
  634.  
  635.     case PRO_KEY:
  636.       if (*param_start == 0)
  637.         goto need_param;
  638.       {
  639.         register char *str = (char *) xmalloc (strlen (param_start) + 1);
  640.         strcpy (str, param_start);
  641.         addkey (str, rw_decl);
  642.       }
  643.       break;
  644.  
  645.     case PRO_BOOL:
  646.       if (p->p_special == OFF)
  647.         *p->p_obj = false;
  648.       else
  649.         *p->p_obj = true;
  650.       break;
  651.  
  652.     case PRO_INT:
  653.       if (!isdigit (*param_start))
  654.         {
  655.         need_param:
  656.           fprintf (stderr, "indent: option ``%s'' requires a parameter\n",
  657.                option - 1);
  658.           exit (1);
  659.         }
  660.       *p->p_obj = atoi (param_start);
  661.       break;
  662.  
  663.     case PRO_FONT:
  664.       parsefont ((struct fstate *) p->p_obj, param_start);
  665.       break;
  666.  
  667.     default:
  668.       fprintf (stderr, "indent: set_option: internal error: p_type %d\n",
  669.            p->p_type);
  670.       exit (1);
  671.     }
  672.     }
  673. }
  674.  
  675.  
  676. /* Scan the options in the file F. */
  677.  
  678. static void
  679. scan_profile (f)
  680.      register FILE *f;
  681. {
  682.   register int i;
  683.   register char *p;
  684.   char buf[BUFSIZ];
  685.  
  686.   while (1)
  687.     {
  688.       for (p = buf; (i = getc (f)) != EOF && (*p = i) > ' '; ++p);
  689.       if (p != buf)
  690.     {
  691.       *p++ = 0;
  692.       if (verbose)
  693.         printf ("profile: %s\n", buf);
  694.       set_option (buf, 1);
  695.     }
  696.       else if (i == EOF)
  697.     return;
  698.     }
  699. }
  700.  
  701. /* Some operating systems don't allow more than one dot in a filename.  */
  702. #if defined (ONE_DOT_PER_FILENAME)
  703. #define INDENT_PROFILE "indent.pro"
  704. #else
  705. #define INDENT_PROFILE ".indent.pro"
  706. #endif
  707.  
  708. /* set_profile looks for ./.indent.pro or $HOME/.indent.pro, in
  709.    that order, and reads the options given in that file.  Return the
  710.    path of the file read.
  711.  
  712.    Note that as of version 1.3, indent only reads one file. */
  713.  
  714. char *
  715. set_profile ()
  716. {
  717.   register FILE *f;
  718.   char *fname;
  719.   static char prof[]= INDENT_PROFILE;
  720.   char *homedir;
  721.  
  722. #ifdef AMIGA
  723.   if ((f = fopen (prof, "r")) != NULL)
  724.     {
  725.       scan_profile (f);
  726.       (void) fclose (f);
  727.       fname = xmalloc (sizeof prof);
  728.       strcpy (fname, prof);
  729.       return fname;
  730.     }
  731.  
  732.   fname = xmalloc (sizeof prof + 5);
  733.   sprintf (fname, "S:%s", prof);
  734.  
  735.   if ((f = fopen (fname, "r")) != NULL)
  736.     {
  737.       scan_profile (f);
  738.       (void) fclose (f);
  739.       return fname;
  740.     }
  741. #else
  742.   if ((f = fopen (INDENT_PROFILE, "r")) != NULL)
  743.     {
  744.       int len = strlen (INDENT_PROFILE) + 3;
  745.  
  746.       scan_profile (f);
  747.       (void) fclose (f);
  748.       fname = xmalloc (len);
  749.       fname[0] = '.';
  750.       fname[1] = '/';
  751.       mymemcpy (&fname[2], INDENT_PROFILE, len - 3);
  752.       fname[len - 1] = '\0';
  753.       return fname;
  754.     }
  755.  
  756.   homedir = getenv ("HOME");
  757.   if (homedir)
  758.     {
  759.       fname = xmalloc (strlen (homedir) + 10 + sizeof prof);
  760.       sprintf (fname, "%s/%s", homedir, prof);
  761.  
  762.       if ((f = fopen (fname, "r")) != NULL)
  763.     {
  764.       scan_profile (f);
  765.       (void) fclose (f);
  766.       return fname;
  767.     }
  768.  
  769.       free (fname);
  770.     }
  771. #endif
  772.  
  773.   return 0;
  774. }
  775.