1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1985-2009 AT&T Intellectual Property *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.opensource.org/licenses/cpl1.0.txt *
* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* David Korn <dgk@research.att.com> *
* Phong Vo <kpv@research.att.com> *
* *
***********************************************************************/
#include "sfhdr.h"
/* Write a buffer out to a file descriptor or
** extending a buffer for a SF_STRING stream.
**
** Written by Kiem-Phong Vo
*/
#if __STD_C
int _sfflsbuf(Sfio_t* f, int c)
#else
int _sfflsbuf(f,c)
Sfio_t* f; /* write out the buffered content of this stream */
int c; /* if c>=0, c is also written out */
#endif
{
ssize_t n, w, written;
uchar* data;
uchar outc;
int local, isall;
int inpc = c;
SFMTXDECL(f); /* declare a local stream variable for multithreading */
SFMTXENTER(f,-1);
GETLOCAL(f,local);
for(written = 0;; f->mode &= ~SF_LOCK)
{ /* check stream mode */
if(SFMODE(f,local) != SF_WRITE && _sfmode(f,SF_WRITE,local) < 0)
SFMTXRETURN(f, -1);
SFLOCK(f,local);
/* current data extent */
n = f->next - (data = f->data);
if(n == (f->endb-data) && (f->flags&SF_STRING))
{ /* extend string stream buffer */
(void)SFWR(f,data,1,f->disc);
/* !(f->flags&SF_STRING) is required because exception
handlers may turn a string stream to a file stream */
if(f->next < f->endb || !(f->flags&SF_STRING) )
n = f->next - (data = f->data);
else
{ SFOPEN(f,local);
SFMTXRETURN(f, -1);
}
}
if(c >= 0)
{ /* write into buffer */
if(n < (f->endb - (data = f->data)))
{ *f->next++ = c;
if(c == '\n' &&
(f->flags&SF_LINE) && !(f->flags&SF_STRING))
{ c = -1;
n += 1;
}
else break;
}
else if(n == 0)
{ /* unbuffered io */
outc = (uchar)c;
data = &outc;
c = -1;
n = 1;
}
}
if(n == 0 || (f->flags&SF_STRING))
break;
isall = SFISALL(f,isall);
if((w = SFWR(f,data,n,f->disc)) > 0)
{ if((n -= w) > 0) /* save unwritten data, then resume */
memcpy((char*)f->data,(char*)data+w,n);
written += w;
f->next = f->data+n;
if(c < 0 && (!isall || n == 0))
break;
}
else if(w == 0)
{ if(written > 0) /* some buffer was cleared */
break; /* do normal exit below */
else /* nothing was done, returning failure */
{ SFOPEN(f,local);
SFMTXRETURN(f, -1);
}
}
else /* w < 0 means SF_EDISC or SF_ESTACK in sfwr() */
{ if(c < 0) /* back to the calling write operation */
break;
else continue; /* try again to write out c */
}
}
SFOPEN(f,local);
if(inpc < 0)
inpc = f->endb-f->next;
SFMTXRETURN(f,inpc);
}
|
