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


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

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

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

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

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


desc
@@


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

int main()
{
	double	f, v;
	int	i;
	Sfio_t	*fp;

	if(!(fp = sfopen(NIL(Sfio_t*), Kpv[0], "w+")) )
		terror("Can't open temp file\n");

	for(f = 1e-10; f < 1e-10 + 1.; f += .001)
		if(sfputd(fp,f) < 0)
			terror("Writing %f\n",f);

	sfseek(fp,(Sfoff_t)0,0);
	for(f = 1e-10, i = 0; f < 1e-10 + 1.; f += .001, ++i)
		if((v = sfgetd(fp)) != f)
			terror("Element=%d Input=%f, Expect=%f\n",i,v,f);

	rmkpv();
	return 0;
}
@


1.2
log
@Incorporate stuff from RSE's Sfio98 variant
@
text
@d9 1
a9 1
	if(!(fp = sfopen(NIL(Sfio_t*),"xxx","w+")) )
a19 1
	unlink("xxx");
d21 1
@


1.1
log
@Initial revision
@
text
@d3 1
a3 1
main()
@


1.1.1.1
log
@Import of Sfio1997
@
text
@@


1.1.1.2
log
@Import of Sfio1999
@
text
@d9 1
a9 1
	if(!(fp = sfopen(NIL(Sfio_t*), Kpv[0], "w+")) )
d20 1
a21 1
	rmkpv();
@