ack/lang/pc/libpc/wrl.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_err.h>
#include <pc_file.h>

extern _wstrin();

#define MAXNEGLONG -2147483648

_wsl(w, l, f) int w;
long l;
struct file* f;
{
	char *p, c;
	long j;
	char buf[11];

	if (w < 0)
		_trp(EWIDTH);
	p = &buf[11];
	if ((j = l) < 0)
	{
		if (l == MAXNEGLONG)
		{
			_wstrin(w, 11, "-2147483648", f);
			return;
		}
		j = -j;
	}
	do
	{
		c = j % 10;
		*--p = c + '0';
	} while (j /= 10);
	if (l < 0)
		*--p = '-';
	_wstrin(w, (int)(&buf[11] - p), p, f);
}

_wrl(l, f) long l;
struct file* f;
{
	_wsl(11, l, f);
}