13e12c5d1SDavid du Colombier /*
23e12c5d1SDavid du Colombier * pANS stdio -- fwrite
33e12c5d1SDavid du Colombier */
43e12c5d1SDavid du Colombier #include "iolib.h"
53e12c5d1SDavid du Colombier
63e12c5d1SDavid du Colombier #define BIGN (BUFSIZ/2)
73e12c5d1SDavid du Colombier
fwrite(const void * p,long recl,long nrec,FILE * f)83e12c5d1SDavid du Colombier long fwrite(const void *p, long recl, long nrec, FILE *f){
9*7dd7cddfSDavid du Colombier char *s;
103e12c5d1SDavid du Colombier int n, d;
113e12c5d1SDavid du Colombier
123e12c5d1SDavid du Colombier s=(char *)p;
133e12c5d1SDavid du Colombier n=recl*nrec;
143e12c5d1SDavid du Colombier while(n>0){
153e12c5d1SDavid du Colombier d=f->rp-f->wp;
163e12c5d1SDavid du Colombier if(d>0){
173e12c5d1SDavid du Colombier if(d>n)
183e12c5d1SDavid du Colombier d=n;
193e12c5d1SDavid du Colombier memmove(f->wp, s, d);
203e12c5d1SDavid du Colombier f->wp+=d;
213e12c5d1SDavid du Colombier }else{
223e12c5d1SDavid du Colombier if(n>=BIGN && f->state==WR && !(f->flags&(STRING|LINEBUF)) && f->buf!=f->unbuf){
233e12c5d1SDavid du Colombier d=f->wp-f->buf;
243e12c5d1SDavid du Colombier if(d>0){
253e12c5d1SDavid du Colombier if(f->flags&APPEND)
263e12c5d1SDavid du Colombier seek(f->fd, 0L, 2);
273e12c5d1SDavid du Colombier if(write(f->fd, f->buf, d)!=d){
283e12c5d1SDavid du Colombier f->state=ERR;
293e12c5d1SDavid du Colombier goto ret;
303e12c5d1SDavid du Colombier }
313e12c5d1SDavid du Colombier f->wp=f->rp=f->buf;
323e12c5d1SDavid du Colombier }
333e12c5d1SDavid du Colombier if(f->flags&APPEND)
343e12c5d1SDavid du Colombier seek(f->fd, 0L, 2);
353e12c5d1SDavid du Colombier d=write(f->fd, s, n);
363e12c5d1SDavid du Colombier if(d<=0){
373e12c5d1SDavid du Colombier f->state=ERR;
383e12c5d1SDavid du Colombier goto ret;
393e12c5d1SDavid du Colombier }
403e12c5d1SDavid du Colombier }else{
413e12c5d1SDavid du Colombier if(_IO_putc(*s, f)==EOF)
423e12c5d1SDavid du Colombier goto ret;
433e12c5d1SDavid du Colombier d=1;
443e12c5d1SDavid du Colombier }
453e12c5d1SDavid du Colombier }
463e12c5d1SDavid du Colombier s+=d;
473e12c5d1SDavid du Colombier n-=d;
483e12c5d1SDavid du Colombier }
493e12c5d1SDavid du Colombier ret:
503e12c5d1SDavid du Colombier return (s-(char *)p)/(recl?recl:1);
513e12c5d1SDavid du Colombier }
52