/*

 * fprint.c --

 *

 *      This file defines commonly used utility functions to produce

 *	nicely indented output.

 *

 * Copyright (c) 1999 Frank Strauss, Technical University of Braunschweig.

 * Copyright (c) 2007 J. Schoenwaelder, Jacobs University Bremen.

 *

 * See the file "COPYING" for information on usage and redistribution

 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.

 *

 * @(#) $Id: fprint.c 8024 2008-04-11 13:25:26Z schoenw $

 */

#include <config.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <stdarg.h>

#ifdef HAVE_WIN_H

#include "win.h"

#endif

#include "smi.h"

#include "fprint.h"

/*

 * This module keeps internal state. Hence, these functions are not

 * thread safe. Note, however, that multi-threaded concurrent output

 * generation may not be such a wonderful idea anyway - so using

 * static variables may be good enough.

 */

int fprint_current_column = 0;

int fprint_indent_max = 64;

int fprint_indent_texts = 4;

void

fprint(FILE *f, char *fmt, ...)

{

    va_list ap;

    char    *s;

    char    *p;

    va_start(ap, fmt);

    fprint_current_column += smiVasprintf(&s, fmt, ap);

    va_end(ap);

    fputs(s, f);

    if ((p = strrchr(s, '\n'))) {

        fprint_current_column = strlen(p) - 1;

    }

    free(s);

}

void

fprintSegment(FILE *f, int column, char *string, int length)

{

    fprint(f, "%*c%s", column, ' ', string);

    if (length) {

	fprint(f, "%*c", length - strlen(string) - column, ' ');

    }

}

void

fprintWrapped(FILE *f, int column, char *string)

{

    if ((fprint_current_column + strlen(string)) > fprint_indent_max) {

	putc('\n', f);

	fprint_current_column = 0;

	fprintSegment(f, column, "", 0);

    }

    fprint(f, "%s", string);

}

void

fprintMultilineString(FILE *f, int column, const char *s)

{

    int i, len;

    fprintSegment(f, column - 1 + fprint_indent_texts, "\"", 0);

    if (s) {

	len = strlen(s);

	for (i=0; i < len; i++) {

	    putc(s[i], f);

	    fprint_current_column++;

	    if (s[i] == '\n') {

		fprint_current_column = 0;

		fprintSegment(f, column + fprint_indent_texts, "", 0);

	    }

	}

    }

    putc('\"', f);

    fprint_current_column++;

}