Return to output.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / bc

coherent

#include <stdio.h>
#include "bc.h"


/*
 *	The int left is equal to the number of columns left on the
 *	output line.
 */

static int	left = LINELEN;


/*
 *	Pstring is used to print a string onto the standard output,
 *	maintaining the number of characters left on the line in
 *	left.  `field' is the minimum number of characters to be used.
 *	Padding is zeros on the left.
 */

pstring(str, field)
register char	*str;
int		field;
{
	register int	len;
	static char newln[] = "\\\n";

	if (field == 0) {
		while (*str != 0) {
			if (*str == '\t') {
				if (left & 7)
					left &= ~7;
				else
					left -= 8;
				if (left <= 0) {
					left = LINELEN - 8;
					printf(newln);
				}
				putchar(*str++);
			} else {
				putchar(*str++);
				if (--left == 0) {
					left = LINELEN;
					printf(newln);
				}
			}
		}
	} else {
		len = strlen(str);
		if (field < len)
			field = len;
		if (left < field && field <= LINELEN) {
			printf(newln);
			left = LINELEN;
		}
		for (field -= len; field != 0; --field) {
			putchar('0');
			if (--left == 0) {
				left = LINELEN;
				printf(newln);
			}
		}
		for (; left < len; len -= left) {
			printf("%.*s\\\n", left, str);
			str += left;
			left = LINELEN;
		}
		printf("%s", str);
		left -= len;
	}
}


/*
 *	Pnewln prints out a newline on standard output, updateing
 *	left.
 */

pnewln()
{
	putchar('\n');
	left = LINELEN;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.