309 lines
12 KiB
C
309 lines
12 KiB
C
/**
|
|
* Copyright (c) 1985 Sun Microsystems, Inc.
|
|
* Copyright (c) 1980 The Regents of the University of California.
|
|
* Copyright (c) 1976 Board of Trustees of the 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.
|
|
*
|
|
* @(#)indent_globs.h 5.7 (Berkeley) 9/15/88
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#define BACKSLASH '\\'
|
|
#define bufsize 200 /* size of internal buffers */
|
|
#define inp_bufs 600 /* size of input buffer */
|
|
#define sc_size 5000 /* size of save_com buffer */
|
|
#define label_offset 2 /* number of levels a label is
|
|
placed to left of code */
|
|
|
|
#define tabsize 8 /* the size of a tab */
|
|
#define tabmask 0177770 /* mask used when figuring
|
|
length of lines with tabs */
|
|
|
|
|
|
#define false 0
|
|
#define true !false
|
|
|
|
|
|
PUBLIC FILE *input; /* the fid for the input file */
|
|
PUBLIC FILE *output; /* the output file */
|
|
|
|
PUBLIC char *labbuf; /* buffer for label */
|
|
PUBLIC char *s_lab; /* start ... */
|
|
PUBLIC char *e_lab; /* .. and end of stored label */
|
|
PUBLIC char *l_lab; /* limit of label buffer */
|
|
|
|
PUBLIC char *codebuf; /* buffer for code section */
|
|
PUBLIC char *s_code; /* start ... */
|
|
PUBLIC char *e_code; /* .. and end of stored code */
|
|
PUBLIC char *l_code; /* limit of code section */
|
|
|
|
PUBLIC char *combuf; /* buffer for comments */
|
|
PUBLIC char *s_com; /* start ... */
|
|
PUBLIC char *e_com; /* ... and end of stored
|
|
comments */
|
|
PUBLIC char *l_com; /* limit of comment buffer */
|
|
|
|
PUBLIC char in_buffer[inp_bufs]; /* input buffer */
|
|
PUBLIC char *buf_ptr; /* ptr to next character to be
|
|
taken from in_buffer */
|
|
PUBLIC char *buf_end; /* ptr to first after last char
|
|
in in_buffer */
|
|
|
|
PUBLIC char save_com[sc_size]; /* input text is saved here
|
|
when looking for the brace
|
|
after an if, while, etc */
|
|
PUBLIC char *sc_end; /* pointer into save_com buffer */
|
|
|
|
PUBLIC char *bp_save; /* saved value of buf_ptr when
|
|
taking input from save_com */
|
|
PUBLIC char *be_save; /* similarly saved value of
|
|
buf_end */
|
|
|
|
PUBLIC char token[bufsize]; /* the last token scanned */
|
|
|
|
|
|
PUBLIC int ptr_binop; /* pointer as binop */
|
|
PUBLIC int bl_aft_decl; /* blanklines after
|
|
declarations */
|
|
PUBLIC int bl_bef_bk; /* blanklines before
|
|
blockcomments */
|
|
PUBLIC int bl_a_procs; /* blanklines after procs */
|
|
PUBLIC int bl_around; /* blanklines around
|
|
conditional compilation */
|
|
PUBLIC int swallow_opt_bl; /* swallow optional blanklines */
|
|
PUBLIC int n_real_blanklines;
|
|
PUBLIC int prefix_blankline_requested;
|
|
PUBLIC int postfix_blankline_requested;
|
|
PUBLIC int break_comma; /* when true and not in parens,
|
|
break after a comma */
|
|
PUBLIC int btype_2; /* when true, brace should be
|
|
on same line as if, while,
|
|
etc */
|
|
PUBLIC long case_ind; /* indentation level to be used
|
|
for a "case n:" */
|
|
PUBLIC int code_lines; /* count of lines with code */
|
|
PUBLIC int had_eof; /* set to true when input is
|
|
exhausted */
|
|
PUBLIC int line_no; /* the current line number. */
|
|
PUBLIC int max_col; /* the maximum allowable line
|
|
length */
|
|
PUBLIC int verbose; /* when true, non-essential
|
|
error messages are printed */
|
|
PUBLIC int cuddle_else; /* true if else should cuddle
|
|
up to '}' */
|
|
PUBLIC int star_comment_cont; /* true iff comment
|
|
continuation lines should
|
|
have stars at the beginning
|
|
of each line. */
|
|
PUBLIC int del_on_bl; /* comment_delimiter_on_blanklin
|
|
e */
|
|
PUBLIC int troff; /* true iff were generating
|
|
troff input */
|
|
PUBLIC int proc_str_line; /* if true, the names of
|
|
procedures being defined get
|
|
placed in column 1 (ie. a
|
|
newline is placed between
|
|
the type of the procedure
|
|
and its name) */
|
|
PUBLIC int proc_calls_space; /* If true, procedure calls
|
|
look like: foo(bar) rather
|
|
than foo (bar) */
|
|
PUBLIC int format_col1_comments; /* If comments which start in
|
|
column 1 are to be magically
|
|
reformatted (just like
|
|
comments that begin in later
|
|
columns) */
|
|
PUBLIC int inhibit_formatting; /* true if INDENT OFF is in
|
|
effect */
|
|
PUBLIC int suppress_blanklines; /* set iff following blanklines
|
|
should be suppressed */
|
|
PUBLIC int continuation_indent; /* set to the indentation
|
|
between the edge of code and
|
|
continuation lines */
|
|
PUBLIC int lineup_to_parens; /* if true, continued code
|
|
within parens will be lined
|
|
up to the open paren */
|
|
PUBLIC int Bill_Shannon; /* true iff a blank should
|
|
always be inserted after
|
|
sizeof */
|
|
PUBLIC int bl_at_proctop; /* This is vaguely similar to
|
|
blanklines_after_declarations
|
|
except that it only applies
|
|
to the first set of
|
|
declarations in a procedure
|
|
(just after the first '{')
|
|
and it causes a blank line
|
|
to be generated even if
|
|
there are no declarations */
|
|
PUBLIC int bk_max_col;
|
|
PUBLIC int ex_expr_indent; /* True if continuation lines
|
|
from the expression part of
|
|
"if(e)", "while(e)",
|
|
"for(e;e;e)" should be
|
|
indented an extra tab stop
|
|
so that they don't conflict
|
|
with the code that follows */
|
|
|
|
/* -troff font state information */
|
|
|
|
struct fstate
|
|
{
|
|
char font[4];
|
|
char size;
|
|
int allcaps;
|
|
};
|
|
|
|
PUBLIC struct fstate
|
|
keywordf, /* keyword font */
|
|
stringf, /* string font */
|
|
boxcomf, /* Box comment font */
|
|
blkcomf, /* Block comment font */
|
|
scomf, /* Same line comment font */
|
|
bodyf; /* major body font */
|
|
|
|
|
|
#define STACKSIZE 150
|
|
|
|
PUBLIC struct parser_state
|
|
{
|
|
int last_token;
|
|
struct fstate cfont; /* Current font */
|
|
int p_stack[STACKSIZE]; /* this is the parsers stack */
|
|
int il[STACKSIZE]; /* this stack stores
|
|
indentation levels */
|
|
long cstk[STACKSIZE]; /* used to store case stmt
|
|
indentation levels */
|
|
int box_com; /* set to true when we are in a
|
|
"boxed" comment. In that
|
|
case, the first non-blank
|
|
char should be lined up with
|
|
the / in / * */
|
|
int comment_delta, n_comment_delta;
|
|
int cast_mask; /* indicates which close parens
|
|
close off casts */
|
|
int sizeof_mask; /* indicates which close parens
|
|
close off sizeof''s */
|
|
int block_init; /* true iff inside a block
|
|
initialization */
|
|
int block_init_level; /* The level of brace nesting
|
|
in an initialization */
|
|
int last_nl; /* this is true if the last
|
|
thing scanned was a newline */
|
|
int in_or_st; /* Will be true iff there has
|
|
been a declarator (e.g. int
|
|
or char) and no left paren
|
|
since the last semicolon.
|
|
When true, a '{' is starting
|
|
a structure definition or an
|
|
initialization list */
|
|
int bl_line; /* set to 1 by dump_line if the
|
|
line is blank */
|
|
int col_1; /* set to true if the last
|
|
token started in column 1 */
|
|
int com_col; /* this is the column in which
|
|
the current coment should
|
|
start */
|
|
int com_ind; /* the column in which comments
|
|
to the right of code should
|
|
start */
|
|
int com_lines; /* the number of lines with
|
|
comments, set by dump_line */
|
|
int dec_nest; /* current nesting level for
|
|
structure or init */
|
|
int decl_com_ind; /* the column in which comments
|
|
after declarations should be
|
|
put */
|
|
int decl_on_line; /* set to true if this line of
|
|
code has part of a
|
|
declaration on it */
|
|
int i_l_follow; /* the level to which ind_level
|
|
should be set after the
|
|
current line is printed */
|
|
int in_decl; /* set to true when we are in a
|
|
declaration stmt. The
|
|
processing of braces is then
|
|
slightly different */
|
|
int in_stmt; /* set to 1 while in a stmt */
|
|
int ind_level; /* the current indentation
|
|
level */
|
|
int ind_size; /* the size of one indentation
|
|
level */
|
|
int ind_stmt; /* set to 1 if next line should
|
|
have an extra indentation
|
|
level because we are in the
|
|
middle of a stmt */
|
|
int last_u_d; /* set to true after scanning a
|
|
token which forces a
|
|
following operator to be
|
|
unary */
|
|
int leave_comma; /* if true, never break
|
|
declarations after commas */
|
|
int ljust_decl; /* true if declarations should
|
|
be left justified */
|
|
int out_coms; /* the number of comments
|
|
processed, set by pr_comment */
|
|
int out_lines; /* the number of lines written,
|
|
set by dump_line */
|
|
int p_l_follow; /* used to remember how to
|
|
indent following statement */
|
|
int paren_level; /* parenthesization level. used
|
|
to indent within stmts */
|
|
short paren_indents[20]; /* column positions of each
|
|
paren */
|
|
int pcase; /* set to 1 if the current line
|
|
label is a case. It is
|
|
printed differently from a
|
|
regular label */
|
|
int search_brace; /* set to true by parse when it
|
|
is necessary to buffer up
|
|
all info up to the start of
|
|
a stmt after an if, while,
|
|
etc */
|
|
int unindent_displace; /* comments not to the right of
|
|
code will be placed this
|
|
many indentation levels to
|
|
the left of code */
|
|
int use_ff; /* set to one if the current
|
|
line should be terminated
|
|
with a form feed */
|
|
int want_blank; /* set to true when the
|
|
following token should be
|
|
prefixed by a blank. (Said
|
|
prefixing is ignored in some
|
|
cases.) */
|
|
int else_if; /* True iff else if pairs
|
|
should be handled specially */
|
|
int decl_indent; /* column to indent declared
|
|
identifiers to */
|
|
int its_a_keyword;
|
|
int sizeof_keyword;
|
|
int dumped_decl_indent;
|
|
int case_indent; /* The distance to indent case
|
|
labels from the switch
|
|
statement */
|
|
int in_par_decl;
|
|
int indent_parameters;
|
|
int tos; /* pointer to top of stack */
|
|
char procname[100]; /* The name of the current
|
|
procedure */
|
|
int just_saw_decl;
|
|
} ps;
|
|
|
|
PUBLIC int ifdef_level;
|
|
PUBLIC struct parser_state state_stack[5];
|
|
PUBLIC struct parser_state match_state[5];
|