1 | /**
|
---|
2 | * Copyright (c) 1985 Sun Microsystems, Inc.
|
---|
3 | * Copyright (c) 1980 The Regents of the University of California.
|
---|
4 | * Copyright (c) 1976 Board of Trustees of the University of Illinois.
|
---|
5 | * All rights reserved.
|
---|
6 | *
|
---|
7 | * Redistribution and use in source and binary forms are permitted
|
---|
8 | * provided that the above copyright notice and this paragraph are
|
---|
9 | * duplicated in all such forms and that any documentation,
|
---|
10 | * advertising materials, and other materials related to such
|
---|
11 | * distribution and use acknowledge that the software was developed
|
---|
12 | * by the University of California, Berkeley, the University of Illinois,
|
---|
13 | * Urbana, and Sun Microsystems, Inc. The name of either University
|
---|
14 | * or Sun Microsystems may not be used to endorse or promote products
|
---|
15 | * derived from this software without specific prior written permission.
|
---|
16 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
---|
17 | * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
---|
18 | * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
---|
19 | *
|
---|
20 | * @(#)indent_globs.h 5.7 (Berkeley) 9/15/88
|
---|
21 | */
|
---|
22 |
|
---|
23 | #include <stdio.h>
|
---|
24 |
|
---|
25 | #define BACKSLASH '\\'
|
---|
26 | #define bufsize 200 /* size of internal buffers */
|
---|
27 | #define inp_bufs 600 /* size of input buffer */
|
---|
28 | #define sc_size 5000 /* size of save_com buffer */
|
---|
29 | #define label_offset 2 /* number of levels a label is
|
---|
30 | placed to left of code */
|
---|
31 |
|
---|
32 | #define tabsize 8 /* the size of a tab */
|
---|
33 | #define tabmask 0177770 /* mask used when figuring
|
---|
34 | length of lines with tabs */
|
---|
35 |
|
---|
36 |
|
---|
37 | #define false 0
|
---|
38 | #define true !false
|
---|
39 |
|
---|
40 |
|
---|
41 | PUBLIC FILE *input; /* the fid for the input file */
|
---|
42 | PUBLIC FILE *output; /* the output file */
|
---|
43 |
|
---|
44 | PUBLIC char *labbuf; /* buffer for label */
|
---|
45 | PUBLIC char *s_lab; /* start ... */
|
---|
46 | PUBLIC char *e_lab; /* .. and end of stored label */
|
---|
47 | PUBLIC char *l_lab; /* limit of label buffer */
|
---|
48 |
|
---|
49 | PUBLIC char *codebuf; /* buffer for code section */
|
---|
50 | PUBLIC char *s_code; /* start ... */
|
---|
51 | PUBLIC char *e_code; /* .. and end of stored code */
|
---|
52 | PUBLIC char *l_code; /* limit of code section */
|
---|
53 |
|
---|
54 | PUBLIC char *combuf; /* buffer for comments */
|
---|
55 | PUBLIC char *s_com; /* start ... */
|
---|
56 | PUBLIC char *e_com; /* ... and end of stored
|
---|
57 | comments */
|
---|
58 | PUBLIC char *l_com; /* limit of comment buffer */
|
---|
59 |
|
---|
60 | PUBLIC char in_buffer[inp_bufs]; /* input buffer */
|
---|
61 | PUBLIC char *buf_ptr; /* ptr to next character to be
|
---|
62 | taken from in_buffer */
|
---|
63 | PUBLIC char *buf_end; /* ptr to first after last char
|
---|
64 | in in_buffer */
|
---|
65 |
|
---|
66 | PUBLIC char save_com[sc_size]; /* input text is saved here
|
---|
67 | when looking for the brace
|
---|
68 | after an if, while, etc */
|
---|
69 | PUBLIC char *sc_end; /* pointer into save_com buffer */
|
---|
70 |
|
---|
71 | PUBLIC char *bp_save; /* saved value of buf_ptr when
|
---|
72 | taking input from save_com */
|
---|
73 | PUBLIC char *be_save; /* similarly saved value of
|
---|
74 | buf_end */
|
---|
75 |
|
---|
76 | PUBLIC char token[bufsize]; /* the last token scanned */
|
---|
77 |
|
---|
78 |
|
---|
79 | PUBLIC int ptr_binop; /* pointer as binop */
|
---|
80 | PUBLIC int bl_aft_decl; /* blanklines after
|
---|
81 | declarations */
|
---|
82 | PUBLIC int bl_bef_bk; /* blanklines before
|
---|
83 | blockcomments */
|
---|
84 | PUBLIC int bl_a_procs; /* blanklines after procs */
|
---|
85 | PUBLIC int bl_around; /* blanklines around
|
---|
86 | conditional compilation */
|
---|
87 | PUBLIC int swallow_opt_bl; /* swallow optional blanklines */
|
---|
88 | PUBLIC int n_real_blanklines;
|
---|
89 | PUBLIC int prefix_blankline_requested;
|
---|
90 | PUBLIC int postfix_blankline_requested;
|
---|
91 | PUBLIC int break_comma; /* when true and not in parens,
|
---|
92 | break after a comma */
|
---|
93 | PUBLIC int btype_2; /* when true, brace should be
|
---|
94 | on same line as if, while,
|
---|
95 | etc */
|
---|
96 | PUBLIC long case_ind; /* indentation level to be used
|
---|
97 | for a "case n:" */
|
---|
98 | PUBLIC int code_lines; /* count of lines with code */
|
---|
99 | PUBLIC int had_eof; /* set to true when input is
|
---|
100 | exhausted */
|
---|
101 | PUBLIC int line_no; /* the current line number. */
|
---|
102 | PUBLIC int max_col; /* the maximum allowable line
|
---|
103 | length */
|
---|
104 | PUBLIC int verbose; /* when true, non-essential
|
---|
105 | error messages are printed */
|
---|
106 | PUBLIC int cuddle_else; /* true if else should cuddle
|
---|
107 | up to '}' */
|
---|
108 | PUBLIC int star_comment_cont; /* true iff comment
|
---|
109 | continuation lines should
|
---|
110 | have stars at the beginning
|
---|
111 | of each line. */
|
---|
112 | PUBLIC int del_on_bl; /* comment_delimiter_on_blanklin
|
---|
113 | e */
|
---|
114 | PUBLIC int troff; /* true iff were generating
|
---|
115 | troff input */
|
---|
116 | PUBLIC int proc_str_line; /* if true, the names of
|
---|
117 | procedures being defined get
|
---|
118 | placed in column 1 (ie. a
|
---|
119 | newline is placed between
|
---|
120 | the type of the procedure
|
---|
121 | and its name) */
|
---|
122 | PUBLIC int proc_calls_space; /* If true, procedure calls
|
---|
123 | look like: foo(bar) rather
|
---|
124 | than foo (bar) */
|
---|
125 | PUBLIC int format_col1_comments; /* If comments which start in
|
---|
126 | column 1 are to be magically
|
---|
127 | reformatted (just like
|
---|
128 | comments that begin in later
|
---|
129 | columns) */
|
---|
130 | PUBLIC int inhibit_formatting; /* true if INDENT OFF is in
|
---|
131 | effect */
|
---|
132 | PUBLIC int suppress_blanklines; /* set iff following blanklines
|
---|
133 | should be suppressed */
|
---|
134 | PUBLIC int continuation_indent; /* set to the indentation
|
---|
135 | between the edge of code and
|
---|
136 | continuation lines */
|
---|
137 | PUBLIC int lineup_to_parens; /* if true, continued code
|
---|
138 | within parens will be lined
|
---|
139 | up to the open paren */
|
---|
140 | PUBLIC int Bill_Shannon; /* true iff a blank should
|
---|
141 | always be inserted after
|
---|
142 | sizeof */
|
---|
143 | PUBLIC int bl_at_proctop; /* This is vaguely similar to
|
---|
144 | blanklines_after_declarations
|
---|
145 | except that it only applies
|
---|
146 | to the first set of
|
---|
147 | declarations in a procedure
|
---|
148 | (just after the first '{')
|
---|
149 | and it causes a blank line
|
---|
150 | to be generated even if
|
---|
151 | there are no declarations */
|
---|
152 | PUBLIC int bk_max_col;
|
---|
153 | PUBLIC int ex_expr_indent; /* True if continuation lines
|
---|
154 | from the expression part of
|
---|
155 | "if(e)", "while(e)",
|
---|
156 | "for(e;e;e)" should be
|
---|
157 | indented an extra tab stop
|
---|
158 | so that they don't conflict
|
---|
159 | with the code that follows */
|
---|
160 |
|
---|
161 | /* -troff font state information */
|
---|
162 |
|
---|
163 | struct fstate
|
---|
164 | {
|
---|
165 | char font[4];
|
---|
166 | char size;
|
---|
167 | int allcaps;
|
---|
168 | };
|
---|
169 |
|
---|
170 | PUBLIC struct fstate
|
---|
171 | keywordf, /* keyword font */
|
---|
172 | stringf, /* string font */
|
---|
173 | boxcomf, /* Box comment font */
|
---|
174 | blkcomf, /* Block comment font */
|
---|
175 | scomf, /* Same line comment font */
|
---|
176 | bodyf; /* major body font */
|
---|
177 |
|
---|
178 |
|
---|
179 | #define STACKSIZE 150
|
---|
180 |
|
---|
181 | PUBLIC struct parser_state
|
---|
182 | {
|
---|
183 | int last_token;
|
---|
184 | struct fstate cfont; /* Current font */
|
---|
185 | int p_stack[STACKSIZE]; /* this is the parsers stack */
|
---|
186 | int il[STACKSIZE]; /* this stack stores
|
---|
187 | indentation levels */
|
---|
188 | long cstk[STACKSIZE]; /* used to store case stmt
|
---|
189 | indentation levels */
|
---|
190 | int box_com; /* set to true when we are in a
|
---|
191 | "boxed" comment. In that
|
---|
192 | case, the first non-blank
|
---|
193 | char should be lined up with
|
---|
194 | the / in / * */
|
---|
195 | int comment_delta, n_comment_delta;
|
---|
196 | int cast_mask; /* indicates which close parens
|
---|
197 | close off casts */
|
---|
198 | int sizeof_mask; /* indicates which close parens
|
---|
199 | close off sizeof''s */
|
---|
200 | int block_init; /* true iff inside a block
|
---|
201 | initialization */
|
---|
202 | int block_init_level; /* The level of brace nesting
|
---|
203 | in an initialization */
|
---|
204 | int last_nl; /* this is true if the last
|
---|
205 | thing scanned was a newline */
|
---|
206 | int in_or_st; /* Will be true iff there has
|
---|
207 | been a declarator (e.g. int
|
---|
208 | or char) and no left paren
|
---|
209 | since the last semicolon.
|
---|
210 | When true, a '{' is starting
|
---|
211 | a structure definition or an
|
---|
212 | initialization list */
|
---|
213 | int bl_line; /* set to 1 by dump_line if the
|
---|
214 | line is blank */
|
---|
215 | int col_1; /* set to true if the last
|
---|
216 | token started in column 1 */
|
---|
217 | int com_col; /* this is the column in which
|
---|
218 | the current coment should
|
---|
219 | start */
|
---|
220 | int com_ind; /* the column in which comments
|
---|
221 | to the right of code should
|
---|
222 | start */
|
---|
223 | int com_lines; /* the number of lines with
|
---|
224 | comments, set by dump_line */
|
---|
225 | int dec_nest; /* current nesting level for
|
---|
226 | structure or init */
|
---|
227 | int decl_com_ind; /* the column in which comments
|
---|
228 | after declarations should be
|
---|
229 | put */
|
---|
230 | int decl_on_line; /* set to true if this line of
|
---|
231 | code has part of a
|
---|
232 | declaration on it */
|
---|
233 | int i_l_follow; /* the level to which ind_level
|
---|
234 | should be set after the
|
---|
235 | current line is printed */
|
---|
236 | int in_decl; /* set to true when we are in a
|
---|
237 | declaration stmt. The
|
---|
238 | processing of braces is then
|
---|
239 | slightly different */
|
---|
240 | int in_stmt; /* set to 1 while in a stmt */
|
---|
241 | int ind_level; /* the current indentation
|
---|
242 | level */
|
---|
243 | int ind_size; /* the size of one indentation
|
---|
244 | level */
|
---|
245 | int ind_stmt; /* set to 1 if next line should
|
---|
246 | have an extra indentation
|
---|
247 | level because we are in the
|
---|
248 | middle of a stmt */
|
---|
249 | int last_u_d; /* set to true after scanning a
|
---|
250 | token which forces a
|
---|
251 | following operator to be
|
---|
252 | unary */
|
---|
253 | int leave_comma; /* if true, never break
|
---|
254 | declarations after commas */
|
---|
255 | int ljust_decl; /* true if declarations should
|
---|
256 | be left justified */
|
---|
257 | int out_coms; /* the number of comments
|
---|
258 | processed, set by pr_comment */
|
---|
259 | int out_lines; /* the number of lines written,
|
---|
260 | set by dump_line */
|
---|
261 | int p_l_follow; /* used to remember how to
|
---|
262 | indent following statement */
|
---|
263 | int paren_level; /* parenthesization level. used
|
---|
264 | to indent within stmts */
|
---|
265 | short paren_indents[20]; /* column positions of each
|
---|
266 | paren */
|
---|
267 | int pcase; /* set to 1 if the current line
|
---|
268 | label is a case. It is
|
---|
269 | printed differently from a
|
---|
270 | regular label */
|
---|
271 | int search_brace; /* set to true by parse when it
|
---|
272 | is necessary to buffer up
|
---|
273 | all info up to the start of
|
---|
274 | a stmt after an if, while,
|
---|
275 | etc */
|
---|
276 | int unindent_displace; /* comments not to the right of
|
---|
277 | code will be placed this
|
---|
278 | many indentation levels to
|
---|
279 | the left of code */
|
---|
280 | int use_ff; /* set to one if the current
|
---|
281 | line should be terminated
|
---|
282 | with a form feed */
|
---|
283 | int want_blank; /* set to true when the
|
---|
284 | following token should be
|
---|
285 | prefixed by a blank. (Said
|
---|
286 | prefixing is ignored in some
|
---|
287 | cases.) */
|
---|
288 | int else_if; /* True iff else if pairs
|
---|
289 | should be handled specially */
|
---|
290 | int decl_indent; /* column to indent declared
|
---|
291 | identifiers to */
|
---|
292 | int its_a_keyword;
|
---|
293 | int sizeof_keyword;
|
---|
294 | int dumped_decl_indent;
|
---|
295 | int case_indent; /* The distance to indent case
|
---|
296 | labels from the switch
|
---|
297 | statement */
|
---|
298 | int in_par_decl;
|
---|
299 | int indent_parameters;
|
---|
300 | int tos; /* pointer to top of stack */
|
---|
301 | char procname[100]; /* The name of the current
|
---|
302 | procedure */
|
---|
303 | int just_saw_decl;
|
---|
304 | } ps;
|
---|
305 |
|
---|
306 | PUBLIC int ifdef_level;
|
---|
307 | PUBLIC struct parser_state state_stack[5];
|
---|
308 | PUBLIC struct parser_state match_state[5];
|
---|