/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF.  The full HDF copyright notice, including       *
 * terms governing use, modification, and redistribution, is contained in    *
 * the files COPYING and Copyright.html.  COPYING can be found at the root   *
 * of the source code distribution tree; Copyright.html can be found at      *
 * http://hdfgroup.org/products/hdf4/doc/Copyright.html.  If you do not have *
 * access to either file, you may request a copy from help@hdfgroup.org.     *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#ifdef RCSID
static char RcsId[] = "@(#)$Revision: 5201 $";
#endif

/* $Id: file1.c 5201 2009-06-18 14:11:06Z bmribler $ */

/*
   test opening files and access elements until limits are reached
 */

#include "tproto.h"
#include "hfile.h"
#define BIG 600
#define TESTFILE_NAME "thf"
#define TESTREF_NAME "tref.hdf"
/* Change the define below for Maximum 'refs' tested on 
   the Macintosh if the 'hfile1' tests starts to croak */
#if defined macintosh || defined MAC || defined SYMANTEC_C
#define     MAX_REF_TESTED 5000
#else
#define     MAX_REF_TESTED MAX_REF
#endif
static int32  files[BIG];
static int32  accs[BIG];

static void test_file_limits(void);
static void test_ref_limits(void);

static void
test_file_limits(void)
{
    int         i;
    int32       ret;

    MESSAGE(5, puts("Opening many files of same name");
        );
    for (i = 0; i < BIG; i++)
      {
          files[i] = Hopen("thf.hdf", DFACC_RDWR, 0);
          if (files[i] < 0)
            {
/*            i++; */
              break;
            } /* end if */
      }
    MESSAGE(5, printf("Opening stopped at %d/%d files\n", i, BIG);
        );

    MESSAGE(5, puts("Closing all files");
        );
    for (i--; i >=0; i--)
      {
          ret = Hclose(files[i]);
          if (ret < 0)
              printf("Error closing file %d\n", i);
      }
    MESSAGE(5, puts("Closed files");
        );

    MESSAGE(5, puts("Opening many files of different names");
        );
    for (i = 0; i < BIG; i++)
      {
          char        fname[100];
          sprintf(fname, "%s%1d.hdf", TESTFILE_NAME, i);
          files[i] = Hopen(fname, DFACC_ALL, 0);
          if (files[i] < 0)
            {
/*            i++; */
              break;
            } /* end if */
      }
    MESSAGE(5, printf("Opening stopped at %d/%d files\n", i, BIG);
        );

    MESSAGE(5, puts("Closing all files except first open");
        );
    for (i--; i > 0; i--)
      {
          ret = Hclose(files[i]);
          if (ret < 0)
              printf("Error closing file %d\n", i);
      }
    MESSAGE(5, puts("Closed files");
        );

    MESSAGE(5, puts("Opening write access elements");
        );
    for (i = 0; i < BIG; i++)
      {
          accs[i] = Hstartwrite(files[0], (uint16) 100, (uint16) i, 100L);
          if (accs[i] < 0)
              break;
      }
    MESSAGE(5, printf("Opening stoped at %d element\n", i);
        );

    MESSAGE(5, puts("Closing access elements");
        );
    for (i--; i >= 0; i--)
      {
          ret = Hendaccess(accs[i]);
          if (ret < 0)
              printf("Error ending access %d\n", i);
      }
    MESSAGE(5, puts("Ended access");
        );

    ret = Hclose(files[0]);
} /* end test_file_limits() */

#define TAG1    ((uint16)1000)
#define TAG2    ((uint16)1001)

static void
test_ref_limits(void)
{
    int32 i;                /* local counting variable */
    int32 fid;              /* file ID */
    int32 iloop;

    MESSAGE(6, printf("Testing reference # limits\n"););
    MESSAGE(7, printf("Writing out data\n"););
    /* Write out MAX_REF number of data items for each tag */
    fid=Hopen(TESTREF_NAME, DFACC_CREATE, 512);
    CHECK_VOID(fid, FAIL, "Hopen");

    if(fid!=FAIL)
      {
          iloop = MAX_REF_TESTED;
          for(i=1; i<=(iloop/2)+5; i++)
            {
                int32 aid;
                uint16 ref;
                int32 data;
                int32 ret;

                /* Write out data to tag1 */
                ref=Htagnewref(fid,TAG1);
                CHECK_VOID(ref, 0, "Htagnewref");
                aid=Hstartwrite(fid,TAG1,ref,sizeof(int32));
                CHECK_VOID(aid, FAIL, "Hstartwrite");
                data=(int32)ref;
                ret=Hwrite(aid,sizeof(int32),&data);
                CHECK_VOID(ret, FAIL, "Hwrite");
                ret=Hendaccess(aid);
                CHECK_VOID(ret, FAIL, "Hendaccess");

                /* lets be a little smatter here */
                if (ret == FAIL)
                    break;

                /* Write out data to tag2 */
                ref=Htagnewref(fid,TAG2);
                CHECK_VOID(ref, 0, "Htagnewref");
                aid=Hstartwrite(fid,TAG2,ref,sizeof(int32));
                CHECK_VOID(aid, FAIL, "Hstartwrite");
                data=ref<<16;
                ret=Hwrite(aid,sizeof(int32),&data);
                CHECK_VOID(ret, FAIL, "Hwrite");
                ret=Hendaccess(aid);
                CHECK_VOID(ret, FAIL, "Hendaccess");
                /* lets be a little smatter here */
                if (ret == FAIL)
                    break;

            } /* end for */
          Hclose(fid);

        MESSAGE(7, printf("Verifying data\n"););
        
        /* Check the data written earlier */
        fid=Hopen(TESTREF_NAME, DFACC_READ, 0);
        CHECK_VOID(fid, FAIL, "Hopen");

        if(fid!=FAIL)
          {
              uint16 ref;
              int32 aid1,aid2;
              int32 data;
              int32 ret;

              /* Read in data from tag1 */
              aid1=Hstartread(fid,TAG1,DFREF_WILDCARD);
              CHECK_VOID(aid1, FAIL, "Hstartread");
              ret=Hread(aid1,sizeof(int32),&data);
              CHECK_VOID(ret, FAIL, "Hread");
              ret=Hinquire(aid1,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL);
              CHECK_VOID(ret, FAIL, "Hinquire");
              VERIFY_VOID((uint16)data,ref,"Hread");

              /* Read in data from tag2 */
              aid2=Hstartread(fid,TAG2,DFREF_WILDCARD);
              CHECK_VOID(aid2, FAIL, "Hstartread");
              ret=Hread(aid2,sizeof(int32),&data);
              CHECK_VOID(ret, FAIL, "Hread");
              ret=Hinquire(aid2,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL);
              CHECK_VOID(ret, FAIL, "Hinquire");
              VERIFY_VOID((uint32)data,(((uint32)ref)<<16),"Hread");

              while(Hnextread(aid1,TAG1,DFTAG_WILDCARD,DF_CURRENT)!=FAIL)
                {
                    ret=Hread(aid1,sizeof(int32),&data);
                    CHECK_VOID(ret, FAIL, "Hread");
                    ret=Hinquire(aid1,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL);
                    CHECK_VOID(ret, FAIL, "Hinquire");
                    VERIFY_VOID((uint16)data,ref,"Hread");

                  if(Hnextread(aid2,TAG2,DFTAG_WILDCARD,DF_CURRENT)!=FAIL)
                    {
                        ret=Hread(aid2,sizeof(int32),&data);
                        CHECK_VOID(ret, FAIL, "Hread");
                        ret=Hinquire(aid2,NULL,NULL,&ref,NULL,NULL,NULL,NULL,NULL);
                        CHECK_VOID(ret, FAIL, "Hinquire");
                        VERIFY_VOID((uint32)data,(((uint32)ref)<<16),"Hread");
                    } /* end while */
                } /* end while */
              ret=Hendaccess(aid1);
              CHECK_VOID(ret, FAIL, "Hendaccess");

              ret=Hendaccess(aid2);
              CHECK_VOID(ret, FAIL, "Hendaccess");

              Hclose(fid);
          } /* end if */
      } /* end if */
} /* end test_ref_limits() */

void
test_hfile1(void)
{
    test_file_limits();
    test_ref_limits();
}
