Logo Search packages:      
Sourcecode: ksh version File versions  Download package

tgetr.c

/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*          Copyright (c) 1999-2007 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>                  *
*                                                                      *
***********************************************************************/
#include    "sftest.h"

MAIN()
{
      Sfio_t      *f;
      int   n, i;
      char  buf[50], *s, *string = "111\n222\n333";

      f = sfopen(NIL(Sfio_t*),string,"s");
      if(!(s = sfgetr(f,'\n',SF_STRING|SF_LOCKR)) || strcmp(s,"111") != 0)
            terror("sfgetr failed1\n");

      if(sfgetr(f,'\n',0) != NIL(char*))
            terror("sfgetr should have failed because of locking\n");
      sfread(f,s,1);

      if(!(s = sfgetr(f,'\n',SF_STRING)) || strcmp(s,"222") != 0)
            terror("sfgetr failed2\n");

      if((s = sfgetr(f,'\n',0)) != NIL(char*))
            terror("sfgetr should have failed because of partial record\n");

      if(!(s = sfgetr(f,0,SF_LASTR)) )
            terror("sfgetr should have succeeded getting partial record\n");

      /* test type == -1 and type == 1 modes */
      sfseek(f,(Sfoff_t)0,0);
      if(!(s = sfgetr(f,'\n',1)) || strcmp(s,"111") != 0)
            terror("sfgetr failed in compatible mode\n");

      if(!(s = sfgetr(f,'\n',SF_STRING|SF_LOCKR)) || strcmp(s,"222") != 0)
            terror("sfgetr failed3\n");
      if(sfgetr(f,'\n',1) )
            terror("sfgetr should have failed due to locking\n");
      sfread(f,s,0);

      if(sfgetr(f,'\n',1) )
            terror("sfgetr should have failed because record is incomplete\n");
      
      if(!(s = sfgetr(f,0,-1)) || strcmp(s,"333") != 0)
            terror("sfgetr failed in getting last partial record\n");

      if(!(f = sftmp(0)) )
            terror("Can't open temporary stream");
      for(n = 0; n < 10; ++n) /* each record is 100 bytes */
      {     for(i = 0; i < 100; ++i)
                  sfputc(f, 'a');
            sfputc(f,'\n');
      }
      sfseek(f,(Sfoff_t)0,0);
      sfsetbuf(f, buf, 50);
      if(!(s = sfgetr(f, '\n', 1)))
            terror("Can't get a record");

      n = 80;
      sfmaxr(n, 1); /* set maximum record size */
      if((i = sfmaxr(0, 0)) != n)
            terror("maxr is %d, expected %d", i, n);
      if((s = sfgetr(f, '\n', 1)) != 0)
            terror("Shouldn't have gotten a record");

      n = 0;
      sfmaxr(n, 1); /* no record size limit */
      if((i = sfmaxr(0, 0)) != n)
            terror("maxr is %d, expected %d", i, n);
      if(!(s = sfgetr(f, '\n', 1)))
            terror("Can't get a record");
      if(!(s = sfgetr(f, '\n', 1)))
            terror("Can't get a record");

      TSTEXIT(0);
}

Generated by  Doxygen 1.6.0   Back to index