da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1985-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "sfhdr.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Write out a character n times
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin**
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinssize_t sfnputc(Sfio_t* f, int c, size_t n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinssize_t sfnputc(f,c,n)
7c2fbfb345896881c631598ee3852ce9ce33fb07April ChinSfio_t* f; /* file to write */
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinint c; /* char to be written */
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinsize_t n; /* number of time to repeat */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg uchar* ps;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg ssize_t p, w;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin uchar buf[128];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg int local;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXDECL(f);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXENTER(f,-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin GETLOCAL(f,local);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(SFMODE(f,local) != SF_WRITE && _sfmode(f,SF_WRITE,local) < 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, -1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFLOCK(f,local);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* write into a suitable buffer */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size_t)(p = (f->endb-(ps = f->next))) < n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { ps = buf; p = sizeof(buf); }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size_t)p > n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin MEMSET(ps,c,p);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ps -= p;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w = n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ps == f->next)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* simple sfwrite */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->next += p;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c == '\n')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (void)SFFLSBUF(f,-1);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(;;)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* hard write of data */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((p = SFWRITE(f,(Void_t*)ps,p)) <= 0 || (n -= p) <= 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { w -= n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size_t)p > n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindone :
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFOPEN(f,local);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, w);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}