ack/lang/pc/libpc/wrs.c

/* $Id$ */
/*
 * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
 *
 *          This product is part of the Amsterdam Compiler Kit.
 *
 * Permission to use, sell, duplicate or disclose this software must be
 * obtained in writing. Requests for such permissions may be sent to
 *
 *      Dr. Andrew S. Tanenbaum
 *      Wiskundig Seminarium
 *      Vrije Universiteit
 *      Postbox 7161
 *      1007 MC Amsterdam
 *      The Netherlands
 *
 */

/* Author: J.W. Stevenson */

#include "pc.h"

void _wstrin(int width, int len, char* buf, struct file* f)
{
	_wf(f);
	for (width -= len; width > 0; width--)
	{
		*f->ptr = ' ';
		_outcpt(f);
	}
	while (--len >= 0)
	{
		*f->ptr = *buf++;
		_outcpt(f);
	}
}

void _wsc(int w, char c, struct file* f)
{
	if (w < 0)
		_trp(EWIDTH);
	_wss(w, 1, &c, f);
}

void _wss(int w, int len, char* s, struct file* f)
{
	if (w < 0 || len < 0)
		_trp(EWIDTH);
	if (w < len)
		len = w;
	_wstrin(w, len, s, f);
}

void _wrs(int len, char* s, struct file* f)
{
	if (len < 0)
		_trp(EWIDTH);
	_wss(len, len, s, f);
}

void _wsb(int w, int b, struct file* f)
{
	if (b)
		_wss(w, 4, "true", f);
	else
		_wss(w, 5, "false", f);
}

void _wrb(int b, struct file* f)
{
	_wsb(5, b, f);
}