source: trunk/minix/lib/ack/libp/wri.c@ 15

/* $Header: /cvsup/minix/src/lib/ack/libp/wri.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
/*
 * (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_err.h>
#include        <pc_file.h>

extern          _wstrin();

#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

_wsi(w,i,f) int w,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);
}

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