/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* This file is distributed subject to a Software License Agreement found
* in the file LICENSE that is included with this distribution. 
\*************************************************************************/

/*
 $Log: headers.c,v $
 Revision 1.3  2002/08/14 16:06:09  soliday
 Added Open License

 Revision 1.2  1995/09/05 21:17:37  saunders
 First test release of the SDDS1.5 package.

*/

/* routine: add_to_headers()
 * purpose: add columns to strings that will be suitable for  
 *          table headings
 * 
 * Michael Borland, 1989 
 */
#include "mdb.h"

void add_to_headers(
    char **header,    /* array of header strings */
    long n_headers,
    char **item,      /* array of items to use for new column */
    long min_width,   /* minimum acceptable width of new column */
    long format       /* index of item that is a C format specifier */
    )
{
    long max_strlen;
    long i, j, len, excess, width;
    char *ptr;

    max_strlen = min_width;
    for (i=0; i<n_headers; i++) {
        if (format==i) {
            width = format_length(item[i])+2;
            if (width>max_strlen)
                max_strlen = width;
            }
        else if ((len=strlen(item[i]))>max_strlen)
            max_strlen = len;
        }
            
    for (i=0; i<n_headers; i++) {
        if (i!=format) {
            excess = max_strlen - strlen(item[i]);
            len = excess/2.0+0.5;
            ptr = header[i] + strlen(header[i]);
            for (j=0; j<len; j++, ptr++)
                *ptr = ' ';
            *ptr = 0;
            excess -= len;
            strcat(header[i], item[i]);
            ptr = header[i] + strlen(header[i]);
            for (j=0; j<excess; j++, ptr++)
                *ptr = ' ';
            *ptr = 0;
            }
        else {
            excess = max_strlen - format_length(item[i]) ;
            len = excess/2;
            ptr = header[i]+strlen(header[i]);
            for (j=0; j<len; j++, ptr++)
                *ptr = ' ';
            *ptr = 0;
            strcat(ptr, item[i]);
            excess -= len;
            ptr = header[i]+strlen(header[i]);
            for (j=0; j<excess; j++, ptr++)
                *ptr = ' ';
            *ptr = 0;
            }
        }
    }

long format_length(char *format)
{
    char *ptr;
    long width;

    ptr = format;
    if (*ptr!='%' || *(ptr+1)=='%' || 1!=sscanf(ptr+1, "%ld", &width)
            || width<=0)
        bomb("format specifier invalid", NULL);

    return(width);
    }

void add_to_standard_headers(
    char *name_header,
    char *unit_header,
    char *printf_string,
    char *new_name,
    char *new_unit,
    char *new_format,
    long min_width
    )
{
    char *header[3];
    char *item[3];

    header[0] = name_header;
    header[1] = unit_header;
    header[2] = printf_string;
    item[0] = new_name;
    item[1] = new_unit;
    item[2] = new_format;
    add_to_headers(header, 3, item, min_width, 2);
    }