packages: don't put oss on cd.

[minix.git] / commands / indent / io.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.
 */

#define PUBLIC extern
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include "globs.h"
#include "proto.h"


int             comment_open;
static          paren_target;

void dump_line()
{                                       /* dump_line is the routine
                                           that actually effects the
                                           printing of the new source.
                                           It prints the label section,
                                           followed by the code section
                                           with the appropriate nesting
                                           level, followed by any
                                           comments */
   register int    cur_col, target_col;
   static          not_first_line;

   if (ps.procname[0])
   {
      if (troff)
      {
         if (comment_open)
         {
            comment_open = 0;
            fprintf(output, ".*/\n");
         }
         fprintf(output, ".Pr \"%s\"\n", ps.procname);
      }
      ps.ind_level = 0;
      ps.procname[0] = 0;
   }
   if (s_code == e_code && s_lab == e_lab && s_com == e_com)
   {
      if (suppress_blanklines > 0)
         suppress_blanklines--;
      else
      {
         ps.bl_line = true;
         n_real_blanklines++;
      }
   } else if (!inhibit_formatting)
   {
      suppress_blanklines = 0;
      ps.bl_line = false;
      if (prefix_blankline_requested && not_first_line)
         if (swallow_opt_bl)
         {
            if (n_real_blanklines == 1)
               n_real_blanklines = 0;
         } else
         {
            if (n_real_blanklines == 0)
               n_real_blanklines = 1;
         }
      while (--n_real_blanklines >= 0)
         putc('\n', output);
      n_real_blanklines = 0;
      if (ps.ind_level == 0)
         ps.ind_stmt = 0;               /* this is a class A kludge.
                                           dont do additional statement
                                           indentation if we are at
                                           bracket level 0 */

      if (e_lab != s_lab || e_code != s_code)
         ++code_lines;                  /* keep count of lines with
                                           code */


      if (e_lab != s_lab)
      {                                 /* print lab, if any */
         if (comment_open)
         {
            comment_open = 0;
            fprintf(output, ".*/\n");
         }
         while (e_lab > s_lab && (e_lab[-1] == ' ' || e_lab[-1] == '\t'))
            e_lab--;
         cur_col = pad_output(1, label_target());
         fprintf(output, "%.*s", (int)(e_lab - s_lab), s_lab);
         cur_col = count_spaces(cur_col, s_lab);
      } else
         cur_col = 1;                   /* there is no label section */

      ps.pcase = false;

      if (s_code != e_code)
      {                                 /* print code section, if any */
         register char  *p;

         if (comment_open)
         {
            comment_open = 0;
            fprintf(output, ".*/\n");
         }
         target_col = code_target();
         {
            register        i;

            for (i = 0; i < ps.p_l_follow; i++)
               if (ps.paren_indents[i] >= 0)
                  ps.paren_indents[i] = -(ps.paren_indents[i] + target_col);
         }
         cur_col = pad_output(cur_col, target_col);
         for (p = s_code; p < e_code; p++)
            if (*p == (char) 0200)
               fprintf(output, "%d", target_col * 7);
            else
               putc(*p, output);
         cur_col = count_spaces(cur_col, s_code);
      }
      if (s_com != e_com)
         if (troff)
         {
            int             all_here = 0;
            register char  *p;

            if (e_com[-1] == '/' && e_com[-2] == '*')
               e_com -= 2, all_here++;
            while (e_com > s_com && e_com[-1] == ' ')
               e_com--;
            *e_com = 0;
            p = s_com;
            while (*p == ' ')
               p++;
            if (p[0] == '/' && p[1] == '*')
               p += 2, all_here++;
            else if (p[0] == '*')
               p += p[1] == '/' ? 2 : 1;
            while (*p == ' ')
               p++;
            if (*p == 0)
               goto inhibit_newline;
            if (comment_open < 2 && ps.box_com)
            {
               comment_open = 0;
               fprintf(output, ".*/\n");
            }
            if (comment_open == 0)
            {
               if ('a' <= *p && *p <= 'z')
                  *p = *p + 'A' - 'a';
               if (e_com - p < 50 && all_here == 2)
               {
                  register char  *follow = p;
                  fprintf(output, "\n.nr C! \\w\1");
                  while (follow < e_com)
                  {
                     switch (*follow)
                     {
                     case '\n':
                        putc(' ', output);
                     case 1:
                        break;
                     case '\\':
                        putc('\\', output);
                     default:
                        putc(*follow, output);
                     }
                     follow++;
                  }
                  putc(1, output);
               }
               fprintf(output, "\n./* %dp %d %dp\n",
                       ps.com_col * 7,
                    (s_code != e_code || s_lab != e_lab) - ps.box_com,
                       target_col * 7);
            }
            comment_open = 1 + ps.box_com;
            while (*p)
            {
               if (*p == BACKSLASH)
                  putc(BACKSLASH, output);
               putc(*p++, output);
            }
         } else
         {                              /* print comment, if any */
            register        target = ps.com_col;
            register char  *com_st = s_com;

            target += ps.comment_delta;
            while (*com_st == '\t')
               com_st++, target += 8;   /* ? */
            while (target <= 0)
               if (*com_st == ' ')
                  target++, com_st++;
               else if (*com_st == '\t')
                  target = ((target - 1) & ~7) + 9, com_st++;
               else
                  target = 1;
            if (cur_col > target)
            {                           /* if comment cant fit on this
                                           line, put it on next line */
               putc('\n', output);
               cur_col = 1;
               ++ps.out_lines;
            }
            while (e_com > com_st && isspace(e_com[-1]))
               e_com--;
            cur_col = pad_output(cur_col, target);
            if (!ps.box_com)
            {
               if (star_comment_cont && (com_st[1] != '*' || e_com <= com_st + 1))
                  if (com_st[1] == ' ' && com_st[0] == ' ' && e_com > com_st + 1)
                     com_st[1] = '*';
                  else
                     fwrite(" * ", com_st[0] == '\t' ? 2 : com_st[0] == '*' ? 1 : 3, 1, output);
            }
            fwrite(com_st, (int)(e_com - com_st), 1, output);
            ps.comment_delta = ps.n_comment_delta;
            cur_col = count_spaces(cur_col, com_st);
            ++ps.com_lines;             /* count lines with comments */
         }
      if (ps.use_ff)
         putc('\014', output);
      else
         putc('\n', output);
inhibit_newline:
      ++ps.out_lines;
      if (ps.just_saw_decl == 1 && bl_aft_decl)
      {
         prefix_blankline_requested = 1;
         ps.just_saw_decl = 0;
      } else
         prefix_blankline_requested = postfix_blankline_requested;
      postfix_blankline_requested = 0;
   }
   ps.decl_on_line = ps.in_decl;        /* if we are in the middle of a
                                           declaration, remember that
                                           fact for proper comment
                                           indentation */
   ps.ind_stmt = ps.in_stmt & ~ps.in_decl;      /* next line should be
                                                   indented if we have
                                                   not completed this
                                                   stmt and if we are
                                                   not in the middle of
                                                   a declaration */
   ps.use_ff = false;
   ps.dumped_decl_indent = 0;
   *(e_lab = s_lab) = '\0';             /* reset buffers */
   *(e_code = s_code) = '\0';
   *(e_com = s_com) = '\0';
   ps.ind_level = ps.i_l_follow;
   ps.paren_level = ps.p_l_follow;
   paren_target = -ps.paren_indents[ps.paren_level - 1];
   not_first_line = 1;
   return;
}

int code_target()
{
   register        target_col = ps.ind_size * ps.ind_level + 1;

   if (ps.paren_level)
      if (!lineup_to_parens)
         target_col += continuation_indent * ps.paren_level;
      else
      {
         register        w;
         register        t = paren_target;

         if ((w = count_spaces(t, s_code) - max_col) > 0
             && count_spaces(target_col, s_code) <= max_col)
         {
            t -= w + 1;
            if (t > target_col)
               target_col = t;
         } else
            target_col = t;
      }
   else if (ps.ind_stmt)
      target_col += continuation_indent;
   return target_col;
}

int label_target()
{
   return
      ps.pcase ? (int) (case_ind * ps.ind_size) + 1
      : *s_lab == '#' ? 1
      : ps.ind_size * (ps.ind_level - label_offset) + 1;
}


/*
 * Copyright (C) 1976 by the Board of Trustees of the University of Illinois
 *
 * All rights reserved
 *
 *
 * NAME: fill_buffer
 *
 * FUNCTION: Reads one block of input into input_buffer
 *
 * HISTORY: initial coding      November 1976   D A Willcox of CAC 1/7/77 A
 * Willcox of CAC       Added check for switch back to partly full input
 * buffer from temporary buffer
 *
 */\f
void
fill_buffer()
{                                       /* this routine reads stuff
                                           from the input */
   register char  *p;
   register int    i;
   register FILE  *f = input;

   if (bp_save != 0)
   {                                    /* there is a partly filled
                                           input buffer left */
      buf_ptr = bp_save;                /* dont read anything, just
                                           switch buffers */
      buf_end = be_save;
      bp_save = be_save = 0;
      if (buf_ptr < buf_end)
         return;                        /* only return if there is
                                           really something in this
                                           buffer */
   }
   for (p = buf_ptr = in_buffer;;)
   {
      if ((i = getc(f)) == EOF)
      {
         *p++ = ' ';
         *p++ = '\n';
         had_eof = true;
         break;
      }
      *p++ = (char)i;
      if (i == '\n')
         break;
   }
   buf_end = p;
   if (p[-2] == '/' && p[-3] == '*')
   {
      if (in_buffer[3] == 'I' && strncmp(in_buffer, "/**INDENT**", 11) == 0)
         fill_buffer();                 /* flush indent error message */
      else
      {
         int             com = 0;

         p = in_buffer;
         while (*p == ' ' || *p == '\t')
            p++;
         if (*p == '/' && p[1] == '*')
         {
            p += 2;
            while (*p == ' ' || *p == '\t')
               p++;
            if (p[0] == 'I' && p[1] == 'N' && p[2] == 'D' && p[3] == 'E'
                && p[4] == 'N' && p[5] == 'T')
            {
               p += 6;
               while (*p == ' ' || *p == '\t')
                  p++;
               if (*p == '*')
                  com = 1;
               else if (*p == 'O')
                  if (*++p == 'N')
                     p++, com = 1;
                  else if (*p == 'F' && *++p == 'F')
                     p++, com = 2;
               while (*p == ' ' || *p == '\t')
                  p++;
               if (p[0] == '*' && p[1] == '/' && p[2] == '\n' && com)
               {
                  if (s_com != e_com || s_lab != e_lab || s_code != e_code)
                     dump_line();
                  if (!(inhibit_formatting = com - 1))
                  {
                     n_real_blanklines = 0;
                     postfix_blankline_requested = 0;
                     prefix_blankline_requested = 0;
                     suppress_blanklines = 1;
                  }
               }
            }
         }
      }
   }
   if (inhibit_formatting)
   {
      p = in_buffer;
      do
         putc(*p, output);
      while (*p++ != '\n');
   }
   return;
}

/*
 * Copyright (C) 1976 by the Board of Trustees of the University of Illinois
 *
 * All rights reserved
 *
 *
 * NAME: pad_output
 *
 * FUNCTION: Writes tabs and spaces to move the current column up to the desired
 * position.
 *
 * ALGORITHM: Put tabs and/or blanks into pobuf, then write pobuf.
 *
 * PARAMETERS: current          integer         The current column target
 * nteger               The desired column
 *
 * RETURNS: Integer value of the new column.  (If current >= target, no action
 * is taken, and current is returned.
 *
 * GLOBALS: None
 *
 * CALLS: write (sys)
 *
 * CALLED BY: dump_line
 *
 * HISTORY: initial coding      November 1976   D A Willcox of CAC
 *
 */\f
int pad_output(current, target)         /* writes tabs and blanks (if
                                           necessary) to get the
                                           current output position up
                                           to the target column */
   int             current;             /* the current column value */
   int             target;              /* position we want it at */
{
   register int    curr;                /* internal column pointer */
   register int    tcur;

   if (troff)
      fprintf(output, "\\h'|%dp'", (target - 1) * 7);
   else
   {
      if (current >= target)
         return (current);              /* line is already long enough */
      curr = current;
      while ((tcur = ((curr - 1) & tabmask) + tabsize + 1) <= target)
      {
         putc('\t', output);
         curr = tcur;
      }
      while (curr++ < target)
         putc(' ', output);             /* pad with final blanks */
   }
   return (target);
}

/*
 * Copyright (C) 1976 by the Board of Trustees of the University of Illinois
 *
 * All rights reserved
 *
 *
 * NAME: count_spaces
 *
 * FUNCTION: Find out where printing of a given string will leave the current
 * character position on output.
 *
 * ALGORITHM: Run thru input string and add appropriate values to current
 * position.
 *
 * RETURNS: Integer value of position after printing "buffer" starting in column
 * "current".
 *
 * HISTORY: initial coding      November 1976   D A Willcox of CAC
 *
 */\f
int
count_spaces(current, buffer)
/*
 * this routine figures out where the character position will be after
 * printing the text in buffer starting at column "current"
 */
   int             current;
   char           *buffer;
{
   register char  *buf;                 /* used to look thru buffer */
   register int    cur;                 /* current character counter */

   cur = current;

   for (buf = buffer; *buf != '\0'; ++buf)
   {
      switch (*buf)
      {

      case '\n':
      case 014:                 /* form feed */
         cur = 1;
         break;

      case '\t':
         cur = ((cur - 1) & tabmask) + tabsize + 1;
         break;

      case '\b':                         /* this is a backspace */
         --cur;
         break;

      default:
         ++cur;
         break;
      }                                 /* end of switch */
   }                                    /* end of for loop */
   return (cur);
}

int             found_err;
void diag(level, msg, a, b)
int level;
char *msg;
int a, b;
{
   if (level)
      found_err = 1;
   if (output == stdout)
   {
      fprintf(stdout, "/**INDENT** %s@%d: ", level == 0 ? "Warning" : "Error", line_no);
      fprintf(stdout, msg, a, b);
      fprintf(stdout, " */\n");
   } else
   {
      fprintf(stderr, "%s@%d: ", level == 0 ? "Warning" : "Error", line_no);
      fprintf(stderr, msg, a, b);
      fprintf(stderr, "\n");
   }
}

void writefdef(f, nm)
   register struct fstate *f;
   int nm;
{
   fprintf(output, ".ds f%c %s\n.nr s%c %d\n",
           nm, f->font, nm, f->size);
}

char           *
chfont(of, nf, s)
   register struct fstate *of, *nf;
   char           *s;
{
   if (of->font[0] != nf->font[0]
       || of->font[1] != nf->font[1])
   {
      *s++ = '\\';
      *s++ = 'f';
      if (nf->font[1])
      {
         *s++ = '(';
         *s++ = nf->font[0];
         *s++ = nf->font[1];
      } else
         *s++ = nf->font[0];
   }
   if (nf->size != of->size)
   {
      *s++ = '\\';
      *s++ = 's';
      if (nf->size < of->size)
      {
         *s++ = '-';
         *s++ = (char)'0' + of->size - nf->size;
      } else
      {
         *s++ = '+';
         *s++ = (char)'0' + nf->size - of->size;
      }
   }
   return s;
}


void parsefont(f, s0)
   register struct fstate *f;
   char           *s0;
{
   register char  *s = s0;
   int             sizedelta = 0;
   memset(f, '\0', sizeof *f);
   while (*s)
   {
      if (isdigit(*s))
         f->size = f->size * 10 + *s - '0';
      else if (isupper(*s))
         if (f->font[0])
            f->font[1] = *s;
         else
            f->font[0] = *s;
      else if (*s == 'c')
         f->allcaps = 1;
      else if (*s == '+')
         sizedelta++;
      else if (*s == '-')
         sizedelta--;
      else
      {
         fprintf(stderr, "indent: bad font specification: %s\n", s0);
         exit(1);
      }
      s++;
   }
   if (f->font[0] == 0)
      f->font[0] = 'R';
   if (bodyf.size == 0)
      bodyf.size = 11;
   if (f->size == 0)
      f->size = bodyf.size + sizedelta;
   else if (sizedelta > 0)
      f->size += bodyf.size;
   else
      f->size = bodyf.size - f->size;
}