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