* 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.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)pr_comment.c 5.12 (Berkeley) %G%";
#include "indent_globs.h"
* This routine takes care of scanning and printing comments.
* 1) Decide where the comment should be aligned, and if lines should
* 2) If lines should not be broken and filled, just copy up to end of
* 3) If lines should be filled, then scan thru input_buffer copying
* characters to com_buf. Remember where the last blank, tab, or
* newline was. When line is filled, print up to last blank and
* November 1976 D A Willcox of CAC Initial coding
* 12/6/76 D A Willcox of CAC Modification to handle
* this routine processes comments. It makes an attempt to keep comments from
* going over the max line length. If a line is too long, it moves everything
* from the last blank to the next comment line. Blanks and tabs from the
* beginning of the input line are removed
int now_col
; /* column we are in now */
int adj_max_col
; /* Adjusted max_col for when we decide to
* spill comments over the right margin */
char *last_bl
; /* points to the last blank in the output
char *t_ptr
; /* used for moving string */
int unix_comment
; /* tri-state variable used to decide if it is
* a unix-style comment. 0 means only blanks
* since /*, 1 means regular style comment, 2
* means unix style comment */
int break_delim
= comment_delimiter_on_blankline
;
int l_just_saw_decl
= ps
.just_saw_decl
;
* int ps.last_nl = 0; /* true iff the last significant thing
int one_liner
= 1; /* true iff this comment is a one-liner */
last_bl
= 0; /* no blanks found so far */
ps
.box_com
= false; /* at first, assume that we are not in
* a boxed comment or some other
* comment that should not be touched */
++ps
.out_coms
; /* keep track of number of comments */
unix_comment
= 1; /* set flag to let us figure out if there is a
* unix-style comment ** DISABLED: use 0 to
/* Figure where to align and how to treat the comment */
if (ps
.col_1
&& !format_col1_comments
) { /* if comment starts in column
* 1 it should not be touched */
if (*buf_ptr
== '-' || *buf_ptr
== '*') {
ps
.box_com
= true; /* a comment with a '-' or '*' immediately
* after the /* is assumed to be a boxed
if ( /* ps.bl_line && */ (s_lab
== e_lab
) && (s_code
== e_code
)) {
/* klg: check only if this line is blank */
* If this (*and previous lines are*) blank, dont put comment way
ps
.com_col
= (ps
.ind_level
- ps
.unindent_displace
) * ps
.ind_size
+ 1;
adj_max_col
= block_comment_max_col
;
ps
.com_col
= 1 + !format_col1_comments
;
target_col
= count_spaces(compute_code_target(), s_code
);
target_col
= count_spaces(compute_label_target(), s_lab
);
ps
.com_col
= ps
.decl_on_line
|| ps
.ind_level
== 0 ? ps
.decl_com_ind
: ps
.com_ind
;
if (ps
.com_col
< target_col
)
ps
.com_col
= ((target_col
+ 7) & ~7) + 1;
if (ps
.com_col
+ 24 > adj_max_col
)
adj_max_col
= ps
.com_col
+ 24;
ps
.n_comment_delta
= 1 - count_spaces(1, in_buffer
);
while (*buf_ptr
== ' ' || *buf_ptr
== '\t')
*e_com
++ = '/'; /* put '/*' into buffer */
if (*buf_ptr
!= ' ' && !ps
.box_com
)
now_col
= count_spaces(ps
.com_col
, s_com
); /* figure what column we
/* Start to copy the comment */
while (1) { /* this loop will go until the comment is
if (*buf_ptr
> 040 && *buf_ptr
!= '*')
switch (*buf_ptr
) { /* this checks for various spcl cases */
case 014: /* check for a form feed */
if (!ps
.box_com
) { /* in a text comment, break the line here */
/* fix so dump_line uses a form feed */
while (*++buf_ptr
== ' ' || *buf_ptr
== '\t');
if (++buf_ptr
>= buf_end
)
if (had_eof
) { /* check for unexpected eof */
printf("Unterminated comment\n");
if (ps
.box_com
|| ps
.last_nl
) { /* if this is a boxed comment,
* we dont ignore the newline */
if (!ps
.box_com
&& e_com
- s_com
> 3) {
if (break_delim
== 1 && s_com
[0] == '/'
&& s_com
[1] == '*' && s_com
[2] == ' ') {
if (blanklines_before_blockcomments
)
prefix_blankline_requested
= 1;
s_com
[0] = s_com
[1] = s_com
[2] = ' ';
if (unix_comment
!= 1) { /* we not are in unix_style
if (unix_comment
== 0 && s_code
== e_code
) {
* if it is a UNIX-style comment, ignore the
* requirement that previous line be blank for
ps
.com_col
= (ps
.ind_level
- ps
.unindent_displace
) * ps
.ind_size
+ 1;
unix_comment
= 2; /* permanently remember that we are in
* this type of comment */
* fix so that the star at the start of the line will line
do /* flush leading white space */
if (++buf_ptr
>= buf_end
)
while (*buf_ptr
== ' ' || *buf_ptr
== '\t');
if (*(e_com
- 1) == ' ' || *(e_com
- 1) == '\t')
* if there was a space at the end of the last line, remember
else { /* otherwise, insert one */
++line_no
; /* keep track of input line number */
do { /* flush any blanks and/or tabs at start of
if (++buf_ptr
>= buf_end
)
if (*buf_ptr
== '*' && --nstar
>= 0) {
if (++buf_ptr
>= buf_end
)
} while (*buf_ptr
== ' ' || *buf_ptr
== '\t');
else if (++buf_ptr
>= buf_end
)
break; /* end of case for newline */
case '*': /* must check for possibility of being at end
if (++buf_ptr
>= buf_end
) /* get to next char after * */
if (unix_comment
== 0) /* set flag to show we are not in
if (*buf_ptr
== '/') { /* it is the end!!! */
if (++buf_ptr
>= buf_end
)
if (*(e_com
- 1) != ' ' && !ps
.box_com
) { /* insure blank before
if (break_delim
== 1 && !one_liner
&& s_com
[0] == '/'
&& s_com
[1] == '*' && s_com
[2] == ' ') {
if (blanklines_before_blockcomments
)
prefix_blankline_requested
= 1;
s_com
[0] = s_com
[1] = s_com
[2] = ' ';
if (break_delim
== 2 && e_com
> s_com
+ 3
/* now_col > adj_max_col - 2 && !ps.box_com */ ) {
ps
.just_saw_decl
= l_just_saw_decl
;
else { /* handle isolated '*' */
default: /* we have a random char */
if (unix_comment
== 0 && *buf_ptr
!= ' ' && *buf_ptr
!= '\t')
unix_comment
= 1; /* we are not in unix-style comment */
if (*e_com
== '\t') /* keep track of column */
now_col
= ((now_col
- 1) & tabmask
) + tabsize
+ 1;
else if (*e_com
== '\b') /* this is a backspace */
if (*e_com
== ' ' || *e_com
== '\t')
/* remember we saw a blank */
if (now_col
> adj_max_col
&& !ps
.box_com
&& unix_comment
== 1 && e_com
[-1] > ' ') {
* the comment is too long, it must be broken up
if (break_delim
== 1 && s_com
[0] == '/'
&& s_com
[1] == '*' && s_com
[2] == ' ') {
if (blanklines_before_blockcomments
)
prefix_blankline_requested
= 1;
s_com
[0] = s_com
[1] = s_com
[2] = ' ';
if (last_bl
== 0) { /* we have seen no blanks */
last_bl
= e_com
; /* fake it */
*e_com
= '\0'; /* print what we have */
while (last_bl
> s_com
&& last_bl
[-1] < 040)
*e_com
++ = ' '; /* add blanks for continuation */
while (*t_ptr
== ' ' || *t_ptr
== '\t')
while (*t_ptr
!= '\0') { /* move unprinted part of
* comment down in buffer */
if (*t_ptr
== ' ' || *t_ptr
== '\t')
now_col
= count_spaces(ps
.com_col
, s_com
); /* recompute current