head	1.3;
access;
symbols
	SFIO_1999:1.1.1.3
	SFIO_1998:1.1.1.2
	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.12;	author rse;	state Exp;
branches;
next	1.1;

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

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

1.1.1.2
date	97.06.02.18.07.15;	author rse;	state Exp;
branches;
next	1.1.1.3;

1.1.1.3
date	99.08.04.18.32.27;	author rse;	state Exp;
branches;
next	;


desc
@@


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

static Sfio_t*	okclose;

#if __STD_C
static int exceptf(Sfio_t*f, int type, Void_t* data, Sfdisc_t* disc)
#else
static int exceptf(f, type, data, disc)
Sfio_t*		f;
int		type;
Void_t*		data;
Sfdisc_t*	disc;
#endif
{
	if((f->mode&SF_LOCK) )
		terror("Stream should not be locked in exceptf\n");
	if(type == SF_CLOSE && f != okclose)
		return -1;
	else	return 0;
}

#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
{
	if(!(f->mode&SF_LOCK) )
		terror("Stream should be locked in readf\n");
	return 0;
}

#if __STD_C
static ssize_t writef(Sfio_t* f, const Void_t* buf, size_t n, Sfdisc_t* disc)
#else
static ssize_t writef(f, buf, n, disc)
Sfio_t*		f;
Void_t*		buf;
size_t		n;
Sfdisc_t*	disc;
#endif
{
	if(!(f->mode&SF_LOCK) )
		terror("Stream should be locked in writef\n");
	return 0;
}

Sfdisc_t	Disc = { readf, writef, NIL(Sfseek_f), exceptf, 0 };

int main()
{
	Sfio_t	*f1, *f2, *f3 = NULL, *f;
	char	*s, *s1, *s2, *s3, *s4, str[1024], *ss;
	int	n;

	if(!(f1 = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file1\n");
	if(!(f2 = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file2\n");
	okclose = f2;
	sfdisc(f1,&Disc);
	sfdisc(f2,&Disc);
	sfstack(f1,f2);
	if((n = sfgetc(f1)) >= 0 || !sfeof(f1))
		terror("There should be no data n=%d\n",n);
	if(sfstacked(f1))
		terror("There should be no stack\n");
	okclose = f1;
	if(sfclose(f1) < 0)
		terror("Can't close f1\n");
	rmkpv();


	s1 = "1234567890";
	s2 = "abcdefghijklmnopqrstuvwxyz";
	s3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
	s4 = "!@@#$%^&*()_-+={}[]~`':;?/><,|";

	if(!(f1 = sfopen((Sfio_t*)0,s1,"s")) ||
	   !(f2 = sfopen((Sfio_t*)0,s2,"s")) ||
	   !(f3 = sfopen((Sfio_t*)0,s3,"s")))
		terror("Opening strings\n");

	sfdisc(sfstdin,&Disc);
	sfclose(sfstdin);
	if(sffileno(sfstdin) != 0)
		terror("Bad fd for stdin\n");

	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file\n");
	if(sfwrite(f,"0123456789",10) != 10)
		terror("Write file\n");
	if(sfseek(f,(Sfoff_t)0,0) != 0)
		terror("Seek file\n");
	
	if(sfstack(sfstdin,f) != sfstdin)
		terror("Stacking on stdin2\n");
	if(sfopen(sfstdout,"/dev/null","w") != sfstdout)
		terror("Opening sfstdout\n");
	if(sfmove(sfstdin,sfstdout,(Sfoff_t)SF_UNBOUND,-1) != 10 ||
	   !sfeof(sfstdin) || sferror(sfstdout))
		terror("Bad sfmove\n");

	rmkpv();

	if(!(f = sftmp(0)))
		terror("Opening temp file\n");
	if(sfputr(f,s4,-1) != (ssize_t)strlen(s4))
		terror("Writing s4\n");
	sfseek(f,(Sfoff_t)0,0);

	if(sfstack(f,f3) != f)
		terror("Stacking s3\n");
	if(sfstack(f,f2) != f)
		terror("Stacking s2\n");
	if(sfstack(f,f1) != f)
		terror("Stacking s1\n");

	sfsprintf(str,sizeof(str),"%s%s%s%s",s1,s2,s3,s4);
	if((ss = sfgetr(f,'\n',1)) )
		terror("There shouldn't have been any new-line\n");
	else
	{	if(!(ss = sfgetr(f,'\n',-1)) )
			terror("Reading streams\n");
		ss[sfvalue(f)] = 0;
	}

	if(strcmp(ss,str) != 0)
		terror("Expect=%s\n",str);

	if(!(f1 = sfopen((Sfio_t*)0,s1,"s")) ||
	   !(f2 = sfopen((Sfio_t*)0,s2,"s")) ||
	   !(f3 = sfopen((Sfio_t*)0,s3,"s")))
		terror("Opening strings2\n");
	sfseek(f,(Sfoff_t)0,0);

	if(sfstack(f,f3) != f || sfstack(f,f2) != f || sfstack(f,f1) != f)
		terror("Stacking streams2\n");

	if(!(s = sfreserve(f,SF_UNBOUND,0)) || s != s1)
		terror("Sfpeek1\n");

	if(!(s = sfreserve(f,SF_UNBOUND,0)) || s != s2)
		terror("Sfpeek2\n");

	if(!(s = sfreserve(f,SF_UNBOUND,0)) || s != s3)
		terror("Sfpeek3\n");

	if(!(s = sfreserve(f,SF_UNBOUND,0)) || strncmp(s,s4,strlen(s4)) != 0)
		terror("Sfpeek4\n");

	return 0;
}
@


1.2
log
@Incorporate stuff from RSE's Sfio98 variant
@
text
@d5 1
a5 1
#ifdef __STC_C
d9 1
a9 1
Sfio_t*	f;
d52 1
a52 1
Sfdisc_t	Disc = { readf, writef, NIL(Sfseek_f), exceptf };
d60 4
a63 4
	if(!(f1 = sfopen(NIL(Sfio_t*),"xxx","w+")) )
		terror("Opening xxx1\n");
	if(!(f2 = sfopen(NIL(Sfio_t*),"xxx","w+")) )
		terror("Opening xxx2\n");
d75 1
a75 1
	unlink("xxx");
d93 2
a94 2
	if(!(f = sfopen(NIL(Sfio_t*),"xxx","w+")) )
		terror("Opening xxx\n");
d96 1
a96 1
		terror("Write xxx\n");
d98 1
a98 1
		terror("Seek xxx\n");
d108 1
a108 1
	unlink("xxx");
@


1.1
log
@Initial revision
@
text
@d6 1
a6 1
exceptf(Sfio_t*f, int type, Void_t* data, Sfdisc_t* disc)
d8 1
a8 1
exceptf(f, type, data, disc)
d23 1
a23 1
ssize_t readf(Sfio_t* f, Void_t* buf, size_t n, Sfdisc_t* disc)
d25 1
a25 1
ssize_t readf(f, buf, n, disc)
d38 1
a38 1
ssize_t writef(Sfio_t* f, const Void_t* buf, size_t n, Sfdisc_t* disc)
d40 1
a40 1
ssize_t writef(f, buf, n, disc)
d54 1
a54 1
main()
d56 1
a56 1
	Sfio_t	*f1, *f2, *f3, *f;
d75 1
a75 1
	system("rm xxx >/dev/null 2>&1");
d104 1
a104 1
	if(sfmove(sfstdin,sfstdout,SF_UNBOUND,-1) != 10 ||
d108 1
a108 1
	system("rm xxx >/dev/null 2>&1");
@


1.1.1.1
log
@Import of Sfio1997
@
text
@@


1.1.1.2
log
@Import of Sfio1998
@
text
@d75 1
a75 1
	unlink("xxx");
d104 1
a104 1
	if(sfmove(sfstdin,sfstdout,(Sfoff_t)SF_UNBOUND,-1) != 10 ||
d108 1
a108 1
	unlink("xxx");
@


1.1.1.3
log
@Import of Sfio1999
@
text
@d5 2
a6 2
#if __STD_C
int exceptf(Sfio_t*f, int type, Void_t* data, Sfdisc_t* disc)
d8 2
a9 2
int exceptf(f, type, data, disc)
Sfio_t*		f;
d52 1
a52 1
Sfdisc_t	Disc = { readf, writef, NIL(Sfseek_f), exceptf, 0 };
d60 4
a63 4
	if(!(f1 = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file1\n");
	if(!(f2 = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file2\n");
d75 1
a75 1
	rmkpv();
d93 2
a94 2
	if(!(f = sfopen(NIL(Sfio_t*), Kpv[0],"w+")) )
		terror("Opening file\n");
d96 1
a96 1
		terror("Write file\n");
d98 1
a98 1
		terror("Seek file\n");
d108 1
a108 1
	rmkpv();
@