Photo CD Demo 1/Demo.bin/hdf/unix/hdf3_2r2/test/tanfile.c

C/C++ Source or Header | 1992-10-29 | 5.6 KB | 177 lines

/***************************************************************************
*
*
*                         NCSA HDF version 3.2r2
*                            October 30, 1992
*
* NCSA HDF Version 3.2 source code and documentation are in the public
* domain.  Specifically, we give to the public domain all rights for future
* licensing of the source code, all resale rights, and all publishing rights.
*
* We ask, but do not require, that the following message be included in all
* derived works:
*
* Portions developed at the National Center for Supercomputing Applications at
* the University of Illinois at Urbana-Champaign, in collaboration with the
* Information Technology Institute of Singapore.
*
* THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
* SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
* WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
*
****************************************************************************
*/

#ifdef RCSID
static char RcsId[] = "@(#)$Revision: 1.1 $";
#endif
/*
$Header: /hdf/hdf/v3.2r2/test/RCS/tanfile.c,v 1.1 1992/02/28 22:21:15 mfolk beta koziol $

$Log: tanfile.c,v $
 * Revision 1.1  1992/02/28  22:21:15  mfolk
 * Initial revision
 *
 * Revision 1.1  1992/02/28  22:19:20  mfolk
 * Initial revision
 *
*/
#include "hdf.h"

#define TESTFILE "tdfan.hdf"
#define RESULT(a) if (ret == -1) {                              \
                      printf( "%s FAILED: ret = %d\n", a, ret);  \
                      testflag = FAIL;                          \
                  } else                                        \
                      printf("%s SUCCESSFUL\n", (a));

#define ISFIRST    (int)1
#define NOTFIRST   (int)0
#define MAXLEN_LAB     50
#define MAXLEN_DESC  1000

main()
{
    char lab1[MAXLEN_LAB], lab2[MAXLEN_LAB],
         desc1[MAXLEN_DESC], desc2[MAXLEN_DESC],
         tempstr[MAXLEN_DESC];
    uint16 ref1, ref2, ref3;
    int32 testflag = SUCCEED;
    int32 file_id, ret;

/* set up file labels and descriptions */

    strcpy(lab1, "File label #1: aaa");
    strcpy(lab2, "File label #2: bbbbbb");
    strcpy(desc1,"File Descr #1: 1  2  3  4  5  6  7  8  9 10 11 12 13\n" );
    strcat(desc1,"              14 15 16 17 18 19 20 **END FILE DESCR**\n");
    strcpy(desc2,"File Descr #2: A B C D E F G H I J K L\n");
    strcat(desc2, "              M N O **END FILE DESCR**\n");



/********  Write file labels and descriptions *********/

    file_id = Hopen(TESTFILE, DFACC_CREATE, 0);
    if (file_id == FAIL)
        printf("\nUnable to open file %s for writing.\n\n", TESTFILE);

    puts("\nWriting file labels.\n");
    ret = DFANaddfid(file_id, lab1);
    RESULT("DFANaddfid");

    ret = DFANaddfid(file_id, lab2);
    RESULT("DFANaddfid");

    puts("\nWriting file descriptions.\n");
    ret = DFANaddfds(file_id, desc1, strlen(desc1));
    RESULT("DFANaddfds");

    ret = DFANaddfds(file_id, desc2, strlen(desc2));
    RESULT("DFANaddfds");

    if (FAIL == Hclose(file_id) )
        printf("\nUnable to close file %s after writing.\n\n", TESTFILE);

/********  Read file labels *********/

    file_id = Hopen(TESTFILE, DFACC_READ, 0);
    if (file_id == FAIL)
        printf("\n\nUnable to open file %s for reading.\n\n", TESTFILE);

    puts("\nReading length of first file label, followed by label.\n");
    ret = DFANgetfidlen(file_id, ISFIRST);
    RESULT("DFANgetfidlen");
    checkannlen(ret, lab1, "label", &testflag);

    ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, ISFIRST );
    RESULT("DFANgetfid");
    checkann (lab1, tempstr, ret, "label", testflag);

    puts("\nReading length of second file label, followed by label.\n");
    ret = DFANgetfidlen(file_id, NOTFIRST);
    RESULT("DFANgetfidlen");
    checkannlen(ret, lab2, "label", &testflag);

    ret = DFANgetfid(file_id, tempstr, MAXLEN_LAB, NOTFIRST );
    RESULT("DFANgetfid");
    checkann (lab2, tempstr, ret, "label", testflag);

/********  Read file descriptions *********/

    puts("\nReading length of first file descr, followed by descr.\n");
    ret = DFANgetfdslen(file_id, ISFIRST);
    RESULT("DFANgetfdslen");
    checkannlen(ret, desc1, "description", &testflag);

    ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, ISFIRST );
    RESULT("DFANgetfds");
    checkann (desc1, tempstr, ret, "description", testflag);

    puts("\nReading length of second file descr, followed by descr.\n");
    ret = DFANgetfdslen(file_id, NOTFIRST);
    RESULT("DFANgetfdslen");
    checkannlen(ret, desc2, "description", &testflag);

    ret = DFANgetfds(file_id, tempstr, MAXLEN_DESC, NOTFIRST );
    RESULT("DFANgetfds");
    checkann (desc2, tempstr, ret, "description", testflag);

    if (FAIL == Hclose(file_id) )
        printf("\n\nUnable to close file %s after reading.\n\n", TESTFILE);

    if ( testflag == SUCCEED)
        printf("\n\n***** ALL TESTS SUCCESSFUL ***** \n\n");
    else
        printf("\n\n***** ONE OR MORE TESTS FAILED ***** \n\n");
}

checkannlen(ret, oldstr, type, testflag)
int32 ret, testflag;
char *oldstr, *type;
{
    if ( (ret >=0) && (ret != strlen(oldstr)) ) {
        printf("Length of %s is INCORRECT\n", type);
        printf("It is:  %d\n", ret);
        printf("It should be: %d\n", strlen(oldstr));
        testflag = FAIL;
        return FAIL;
    }
    return SUCCEED;
}

checkann (oldstr, newstr, ret, type, testflag)
char *oldstr, *newstr, *type;
int32 ret, testflag;
{
    if ( (ret >=0) && (0 != strcmp(oldstr, newstr)) ) {
        printf("%s is INCORRECT.\n", type);
        printf("It is:  %s\n", newstr);
        printf("It should be: %s\n", oldstr);
        testflag = FAIL;
        return (FAIL);
    }
    return (SUCCEED);
}