The UNIX CD Bookshelf/OREILLY_TUCB_UNIX_CD.iso/upt/examples/SOURCES/DELETE/PART01.Z/PART01/col.c

C/C++ Source or Header | 1998-07-24 | 5.0 KB | 188 lines

/*
 * $Source: /afs/athena.mit.edu/user/j/jik/delete/src/RCS/col.c,v $
 * $Author: jik $
 *
 * This program is part of a package including delete, undelete,
 * lsdel, expunge and purge.  The software suite is meant as a
 * replacement for rm which allows for file recovery.
 *
 * Copyright (c) 1989 by the Massachusetts Institute of Technology.
 * For copying and distribution information, see the file "mit-copyright.h."
 */

#if (!defined(lint) && !defined(SABER))
     static char rcsid_col_c[] = "$Header: /afs/athena.mit.edu/user/j/jik/delete/src/RCS/col.c,v 1.7 90/06/06 19:05:56 jik Exp $";
#endif

/*
 * Note that this function has a lot of options I'm not really using
 * because I took it out of other code that needed a lot more
 * versatility.
 */

#include <stdio.h>
#ifdef SYSV
#include <string.h>
#define index strchr
#define rindex strrchr
#else
#include <strings.h>
#endif /* SYSV */
#include "errors.h"
#include "delete_errs.h"
#include "col.h"
#include "mit-copyright.h"


static int calc_string_width(), calc_widths(), num_width();
static void trim_strings();

int column_array(strings, num_to_print, screen_width, column_width,
         number_of_columns, margin, spread_flag,
         number_flag, var_col_flag, outfile)
char **strings;
FILE *outfile;
{
     char buf[BUFSIZ];
     int updown, leftright, height;
     int string_width;
     int numwidth;

     numwidth = num_width(num_to_print);
     if (! var_col_flag) {
      string_width = calc_string_width(column_width, margin, number_flag,
                       num_to_print);
      if (string_width <= 0) {
           set_error(COL_COLUMNS_TOO_THIN);
           error("calc_string_width");
           return error_code;
      }
      trim_strings(strings, num_to_print, string_width);
     } else if (calc_widths(strings, &screen_width, &column_width,
                &number_of_columns, num_to_print, &margin,
                spread_flag, number_flag)) {
      error("calc_widths");
      return error_code;
     }
     height = num_to_print / number_of_columns;
     if (num_to_print % number_of_columns)
      height++;

     if (number_flag) for (updown = 0; updown < height; updown++) {
      for (leftright = updown; leftright < num_to_print; ) {
           (void) sprintf(buf, "%*d. %s", numwidth, leftright+1,
                  strings[leftright]);
           if ((leftright += height) >= num_to_print)
            fprintf(outfile, "%s", buf );
           else
            fprintf(outfile, "%*s", -column_width, buf);
      }
      fprintf(outfile, "\n");
     } else for (updown = 0; updown < height; updown++) {
      for (leftright = updown; leftright < num_to_print; ) {
           (void) sprintf(buf, "%s", strings[leftright]);
           if ((leftright += height) >= num_to_print)
            fprintf(outfile, "%s", buf );
           else
            fprintf(outfile, "%*s", -column_width, buf);
      }
      fprintf(outfile, "\n");
     }
     return 0;
}

static int calc_string_width(column_width, margin, number_flag, max_number)
{
     int string_width;

     string_width = column_width - margin;
     if (number_flag)
      string_width = string_width - num_width(max_number) - strlen(". ");
     return string_width;
}


static void trim_strings(strings, number, width)
char **strings;
{
     int loop;

     for (loop = 0; loop < number; loop++)
      if (strlen(strings[loop]) > width)
           strings[loop][width] = '\0';
}


static int calc_widths(strings, screen_width, column_width, number_of_columns,
               num_to_print, margin, spread_flag, number_flag)
int *screen_width, *column_width, *number_of_columns, *margin;
char **strings;
{
     int loop;
     int maxlen, templen;
     int spread;

     maxlen = templen = 0;
     for (loop = 0; loop < num_to_print; loop++)
      if (maxlen < (templen = strlen(strings[loop])))
           maxlen = templen;

     *column_width = maxlen;

     if (number_flag)
      *column_width = *column_width + num_width(num_to_print) +
           strlen(". ");

     if (! spread_flag) {
      *column_width += *margin;
      if (! *number_of_columns) {
           *number_of_columns = *screen_width / *column_width;
           if (! *number_of_columns) {
            (*number_of_columns)++;
            *column_width -= *margin;
            *margin = 0;
            *screen_width = *column_width;
           }
      }
      else
           *screen_width = *number_of_columns * *column_width;
     } else {
      if (! *number_of_columns) {
           *number_of_columns = *screen_width / (*column_width + *margin);
           if (! *number_of_columns) {
            (*number_of_columns)++;
            *screen_width = *column_width;
            *margin = 0;
           }
           spread = (*screen_width - *number_of_columns * *column_width)
            / *number_of_columns;
           *column_width += spread;
      }
      else {
           if (*number_of_columns * (*column_width + *margin) >
           *screen_width) {
            *column_width += *margin;
            *screen_width = *column_width;
           } else {
            spread = (*screen_width - (*number_of_columns *
                           *column_width)) /
                            *number_of_columns;
            *column_width += spread;
           }
      }
     }
     return 0;
}




static int num_width(number)
int number;
{
     char buf[BUFSIZ];

     (void) sprintf(buf, "%d", number);
     return strlen(buf);
}