ack/lang/pc/libpc/wri.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
 *
 */

#include "pc.h"

#ifndef EM_WSIZE
#ifdef _EM_WSIZE
#define EM_WSIZE _EM_WSIZE
#endif
#endif

#if EM_WSIZE == 4
#define SZ 11
#define MININT -2147483648
#define STRMININT "-2147483648"
#endif
#if EM_WSIZE == 2
#define SZ 6
#define MININT -32768
#define STRMININT "-32768"
#endif
#if EM_WSIZE == 1
#define SZ 4
#define MININT -128
#define STRMININT "-128"
#endif

#ifndef STRMININT
Something wrong here !
#endif

void _wsi(int w, int i, struct file* f)
{
	char* p;
	int j;
	char buf[SZ];

	if (w < 0)
		_trp(EWIDTH);
	p = &buf[SZ];
	if ((j = i) < 0)
	{
		if (i == MININT)
		{
			_wstrin(w, SZ, STRMININT, f);
			return;
		}
		j = -j;
	}
	do
		*--p = '0' + j % 10;
	while (j /= 10);
	if (i < 0)
		*--p = '-';
	_wstrin(w, (int)(&buf[SZ] - p), p, f);
}

void _wri(int i, struct file* f)
{
	_wsi(SZ, i, f);
}