head	1.3;
access;
symbols
	SFIO_1999:1.1.1.2
	SFIO_1998:1.1.1.1
	ATT:1.1.1;
locks; strict;
comment	@ * @;


1.3
date	99.09.11.13.20.42;	author rse;	state Exp;
branches;
next	1.2;

1.2
date	99.09.11.12.42.10;	author rse;	state Exp;
branches;
next	1.1;

1.1
date	97.10.10.18.25.23;	author rse;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	97.10.10.18.25.23;	author rse;	state Exp;
branches;
next	1.1.1.2;

1.1.1.2
date	99.06.04.18.48.33;	author rse;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Merge in Sfio 1999 changes
@
text
@#include	"sftest.h"


static ssize_t	Read;
static int	Count;

#if __STD_C
static ssize_t readf(Sfio_t* f, Void_t* buf, size_t n, Sfdisc_t* disc)
#else
static ssize_t readf(f,buf,n,disc)
Sfio_t*		f;
Void_t*		buf;
size_t		n;
Sfdisc_t*	disc;
#endif
{
	Count += 1;
	Read += (n = sfrd(f,buf,n,disc));
	return n;
}

Sfdisc_t	Disc = {readf, (Sfwrite_f)0, (Sfseek_f)0, (Sfexcept_f)0, (Sfdisc_t*)0};

int main()
{
	Sfio_t*	f;
	int	i;
	char*	s;
	char	buf[1024], rbuf[128*1024];

	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0], "w")) )
		terror("Opening to write\n");

	for(i = 0; i < sizeof(buf); ++i)
		buf[i] = 'a' + (i%26);

	for(i = 0; i < 1024; ++i)
		if(sfwrite(f,buf,sizeof(buf)) != sizeof(buf) )
			terror("Write error\n");
	sfclose(f);

	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0], "r")) )
		terror("Opening to read\n");
	sfsetbuf(f,rbuf,sizeof(rbuf));

	sfdisc(f,&Disc);

	for(i = 0;; i += 64)
	{	sfseek(f,(Sfoff_t)i,0);
		if(!(s = sfreserve(f,619,1)) )
			break;
		sfread(f,s,64);
	}

	if(Read != 1024*sizeof(buf) )
		terror("Count=%d Read=%d\n", Count, Read);

	rmkpv();

	return 0;
}
@


1.2
log
@Incorporate stuff from RSE's Sfio98 variant
@
text
@d31 1
a31 1
	if(!(f = sfopen(NIL(Sfio_t*),"xxx","w")) )
d42 1
a42 1
	if(!(f = sfopen(NIL(Sfio_t*),"xxx","r")) )
d58 1
a58 1
	system("rm xxx >/dev/null 2>&1");
@


1.1
log
@Initial revision
@
text
@d8 1
a8 1
ssize_t readf(Sfio_t* f, Void_t* buf, size_t n, Sfdisc_t* disc)
d10 1
a10 1
ssize_t readf(f,buf,n,disc)
d24 1
a24 1
main()
@


1.1.1.1
log
@Import of Sfio1998
@
text
@@


1.1.1.2
log
@Import of Sfio1999
@
text
@d31 1
a31 1
	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0], "w")) )
d42 1
a42 1
	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0], "r")) )
d58 1
a58 1
	rmkpv();
@