source: trunk/minix/lib/ack/libp/wrs.c@ 9

/* $Header: /cvsup/minix/src/lib/ack/libp/wrs.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
 *
 */

/* Author: J.W. Stevenson */

#include        <pc_err.h>
#include        <pc_file.h>

extern          _wf();
extern          _outcpt();

_wstrin(width,len,buf,f) int width,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);
        }
}

_wsc(w,c,f) int w; char c; struct file *f; {

        if (w < 0) _trp(EWIDTH);
        _wss(w,1,&c,f);
}

_wss(w,len,s,f) int w,len; char *s; struct file *f; {

        if (w < 0 || len < 0) _trp(EWIDTH);
        if (w < len)
                len = w;
        _wstrin(w,len,s,f);
}

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

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

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