xref: /freebsd/usr.bin/indent/args.c (revision 6990ffd8a95caaba6858ad44ff1b3157d1efba8f)
1 /*
2  * Copyright (c) 1985 Sun Microsystems, Inc.
3  * Copyright (c) 1980, 1993
4  *	The Regents of the University of California.  All rights reserved.
5  * All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  *	This product includes software developed by the University of
18  *	California, Berkeley and its contributors.
19  * 4. Neither the name of the University nor the names of its contributors
20  *    may be used to endorse or promote products derived from this software
21  *    without specific prior written permission.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33  * SUCH DAMAGE.
34  */
35 
36 #ifndef lint
37 #if 0
38 static char sccsid[] = "@(#)args.c	8.1 (Berkeley) 6/6/93";
39 #endif
40 static const char rcsid[] =
41   "$FreeBSD$";
42 #endif /* not lint */
43 
44 /*
45  * Argument scanning and profile reading code.  Default parameters are set
46  * here as well.
47  */
48 
49 #include <ctype.h>
50 #include <err.h>
51 #include <stdio.h>
52 #include <stdlib.h>
53 #include <string.h>
54 #include "indent_globs.h"
55 
56 /* profile types */
57 #define	PRO_SPECIAL	1	/* special case */
58 #define	PRO_BOOL	2	/* boolean */
59 #define	PRO_INT		3	/* integer */
60 #define PRO_FONT	4	/* troff font */
61 
62 /* profile specials for booleans */
63 #define	ON		1	/* turn it on */
64 #define	OFF		0	/* turn it off */
65 
66 /* profile specials for specials */
67 #define	IGN		1	/* ignore it */
68 #define	CLI		2	/* case label indent (float) */
69 #define	STDIN		3	/* use stdin */
70 #define	KEY		4	/* type (keyword) */
71 
72 char *option_source = "?";
73 
74 /*
75  * N.B.: because of the way the table here is scanned, options whose names are
76  * substrings of other options must occur later; that is, with -lp vs -l, -lp
77  * must be first.  Also, while (most) booleans occur more than once, the last
78  * default value is the one actually assigned.
79  */
80 struct pro {
81     char       *p_name;		/* name, eg -bl, -cli */
82     int         p_type;		/* type (int, bool, special) */
83     int         p_default;	/* the default value (if int) */
84     int         p_special;	/* depends on type */
85     int        *p_obj;		/* the associated variable */
86 }           pro[] = {
87 
88     "T", PRO_SPECIAL, 0, KEY, 0,
89     "bacc", PRO_BOOL, false, ON, &blanklines_around_conditional_compilation,
90     "badp", PRO_BOOL, false, ON, &blanklines_after_declarations_at_proctop,
91     "bad", PRO_BOOL, false, ON, &blanklines_after_declarations,
92     "bap", PRO_BOOL, false, ON, &blanklines_after_procs,
93     "bbb", PRO_BOOL, false, ON, &blanklines_before_blockcomments,
94     "bc", PRO_BOOL, true, OFF, &ps.leave_comma,
95     "bl", PRO_BOOL, true, OFF, &btype_2,
96     "br", PRO_BOOL, true, ON, &btype_2,
97     "bs", PRO_BOOL, false, ON, &Bill_Shannon,
98     "cdb", PRO_BOOL, true, ON, &comment_delimiter_on_blankline,
99     "cd", PRO_INT, 0, 0, &ps.decl_com_ind,
100     "ce", PRO_BOOL, true, ON, &cuddle_else,
101     "ci", PRO_INT, 0, 0, &continuation_indent,
102     "cli", PRO_SPECIAL, 0, CLI, 0,
103     "c", PRO_INT, 33, 0, &ps.com_ind,
104     "di", PRO_INT, 16, 0, &ps.decl_indent,
105     "dj", PRO_BOOL, false, ON, &ps.ljust_decl,
106     "d", PRO_INT, 0, 0, &ps.unindent_displace,
107     "eei", PRO_BOOL, false, ON, &extra_expression_indent,
108     "ei", PRO_BOOL, true, ON, &ps.else_if,
109     "fbc", PRO_FONT, 0, 0, (int *) &blkcomf,
110     "fbx", PRO_FONT, 0, 0, (int *) &boxcomf,
111     "fb", PRO_FONT, 0, 0, (int *) &bodyf,
112     "fc1", PRO_BOOL, true, ON, &format_col1_comments,
113     "fcb", PRO_BOOL, true, ON, &format_block_comments,
114     "fc", PRO_FONT, 0, 0, (int *) &scomf,
115     "fk", PRO_FONT, 0, 0, (int *) &keywordf,
116     "fs", PRO_FONT, 0, 0, (int *) &stringf,
117     "ip", PRO_BOOL, true, ON, &ps.indent_parameters,
118     "i", PRO_INT, 8, 0, &ps.ind_size,
119     "lc", PRO_INT, 0, 0, &block_comment_max_col,
120     "lp", PRO_BOOL, true, ON, &lineup_to_parens,
121     "l", PRO_INT, 78, 0, &max_col,
122     "nbacc", PRO_BOOL, false, OFF, &blanklines_around_conditional_compilation,
123     "nbadp", PRO_BOOL, false, OFF, &blanklines_after_declarations_at_proctop,
124     "nbad", PRO_BOOL, false, OFF, &blanklines_after_declarations,
125     "nbap", PRO_BOOL, false, OFF, &blanklines_after_procs,
126     "nbbb", PRO_BOOL, false, OFF, &blanklines_before_blockcomments,
127     "nbc", PRO_BOOL, true, ON, &ps.leave_comma,
128     "nbs", PRO_BOOL, false, OFF, &Bill_Shannon,
129     "ncdb", PRO_BOOL, true, OFF, &comment_delimiter_on_blankline,
130     "nce", PRO_BOOL, true, OFF, &cuddle_else,
131     "ndj", PRO_BOOL, false, OFF, &ps.ljust_decl,
132     "neei", PRO_BOOL, false, OFF, &extra_expression_indent,
133     "nei", PRO_BOOL, true, OFF, &ps.else_if,
134     "nfc1", PRO_BOOL, true, OFF, &format_col1_comments,
135     "nfcb", PRO_BOOL, true, OFF, &format_block_comments,
136     "nip", PRO_BOOL, true, OFF, &ps.indent_parameters,
137     "nlp", PRO_BOOL, true, OFF, &lineup_to_parens,
138     "npcs", PRO_BOOL, false, OFF, &proc_calls_space,
139     "npro", PRO_SPECIAL, 0, IGN, 0,
140     "npsl", PRO_BOOL, true, OFF, &procnames_start_line,
141     "nps", PRO_BOOL, false, OFF, &pointer_as_binop,
142     "nsc", PRO_BOOL, true, OFF, &star_comment_cont,
143     "nsob", PRO_BOOL, false, OFF, &swallow_optional_blanklines,
144     "nv", PRO_BOOL, false, OFF, &verbose,
145     "pcs", PRO_BOOL, false, ON, &proc_calls_space,
146     "psl", PRO_BOOL, true, ON, &procnames_start_line,
147     "ps", PRO_BOOL, false, ON, &pointer_as_binop,
148     "sc", PRO_BOOL, true, ON, &star_comment_cont,
149     "sob", PRO_BOOL, false, ON, &swallow_optional_blanklines,
150     "st", PRO_SPECIAL, 0, STDIN, 0,
151     "troff", PRO_BOOL, false, ON, &troff,
152     "v", PRO_BOOL, false, ON, &verbose,
153     /* whew! */
154     0, 0, 0, 0, 0
155 };
156 
157 /*
158  * set_profile reads $HOME/.indent.pro and ./.indent.pro and handles arguments
159  * given in these files.
160  */
161 set_profile()
162 {
163     register FILE *f;
164     char        fname[BUFSIZ];
165     static char prof[] = ".indent.pro";
166 
167     sprintf(fname, "%s/%s", getenv("HOME"), prof);
168     if ((f = fopen(option_source = fname, "r")) != NULL) {
169 	scan_profile(f);
170 	(void) fclose(f);
171     }
172     if ((f = fopen(option_source = prof, "r")) != NULL) {
173 	scan_profile(f);
174 	(void) fclose(f);
175     }
176     option_source = "Command line";
177 }
178 
179 scan_profile(f)
180     register FILE *f;
181 {
182     register int i;
183     register char *p;
184     char        buf[BUFSIZ];
185 
186     while (1) {
187 	for (p = buf; (i = getc(f)) != EOF && (*p = i) > ' '; ++p);
188 	if (p != buf) {
189 	    *p++ = 0;
190 	    if (verbose)
191 		printf("profile: %s\n", buf);
192 	    set_option(buf);
193 	}
194 	else if (i == EOF)
195 	    return;
196     }
197 }
198 
199 char       *param_start;
200 
201 eqin(s1, s2)
202     register char *s1;
203     register char *s2;
204 {
205     while (*s1) {
206 	if (*s1++ != *s2++)
207 	    return (false);
208     }
209     param_start = s2;
210     return (true);
211 }
212 
213 /*
214  * Set the defaults.
215  */
216 set_defaults()
217 {
218     register struct pro *p;
219 
220     /*
221      * Because ps.case_indent is a float, we can't initialize it from the
222      * table:
223      */
224     ps.case_indent = 0.0;	/* -cli0.0 */
225     for (p = pro; p->p_name; p++)
226 	if (p->p_type != PRO_SPECIAL && p->p_type != PRO_FONT)
227 	    *p->p_obj = p->p_default;
228 }
229 
230 set_option(arg)
231     register char *arg;
232 {
233     register struct pro *p;
234     extern double atof();
235 
236     arg++;			/* ignore leading "-" */
237     for (p = pro; p->p_name; p++)
238 	if (*p->p_name == *arg && eqin(p->p_name, arg))
239 	    goto found;
240     errx(1, "%s: unknown parameter \"%s\"", option_source, arg - 1);
241 found:
242     switch (p->p_type) {
243 
244     case PRO_SPECIAL:
245 	switch (p->p_special) {
246 
247 	case IGN:
248 	    break;
249 
250 	case CLI:
251 	    if (*param_start == 0)
252 		goto need_param;
253 	    ps.case_indent = atof(param_start);
254 	    break;
255 
256 	case STDIN:
257 	    if (input == 0)
258 		input = stdin;
259 	    if (output == 0)
260 		output = stdout;
261 	    break;
262 
263 	case KEY:
264 	    if (*param_start == 0)
265 		goto need_param;
266 	    {
267 		register char *str = (char *) malloc(strlen(param_start) + 1);
268 		strcpy(str, param_start);
269 		addkey(str, 4);
270 	    }
271 	    break;
272 
273 	default:
274 	    errx(1, "set_option: internal error: p_special %d", p->p_special);
275 	}
276 	break;
277 
278     case PRO_BOOL:
279 	if (p->p_special == OFF)
280 	    *p->p_obj = false;
281 	else
282 	    *p->p_obj = true;
283 	break;
284 
285     case PRO_INT:
286 	if (!isdigit(*param_start)) {
287     need_param:
288 	    errx(1, "%s: ``%s'' requires a parameter", option_source, arg - 1);
289 	}
290 	*p->p_obj = atoi(param_start);
291 	break;
292 
293     case PRO_FONT:
294 	parsefont((struct fstate *) p->p_obj, param_start);
295 	break;
296 
297     default:
298 	errx(1, "set_option: internal error: p_type %d", p->p_type);
299     }
300 }
301