/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF5.  The full HDF5 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 the  *
 * root level of an installed copy of the electronic HDF5 document set and   *
 * is linked from the top-level documents page.  It can also be found at     *
 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 * access to either file, you may request a copy from help@hdfgroup.org.     *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*
 *  This example writes data to the HDF5 file.
 *  Data conversion is performed during write operation.
 */

/*
 *  This example describes some effects of the 'use latest format' feature
 *  on the objects.  The example:
 *      - creates a file
 *	- re-opens the file with "use latest format" feature on
 *      - creates and writes to first dataset "IntArray 1"
 *	- closes this dataset and the file
 *	- creates a file access property list and sets "use latest format" flag
 *	- creates and writes to second dataset "IntArray 2"
 *      - closes this dataset and the file
 *
 *  An old library will only be able to read the first dataset from the 
 *  resulted file and a library of version 1.8.0 and later will be able to
 *  read both datasets.
 */


#include "hdf5.h"
#define TRUE            1

#define FILE_NAME	"h5_mixedformat.h5"
#define DATASET1_NAME	"IntArray 1"
#define DATASET2_NAME	"IntArray 2"
#define NX     5                      /* dataset dimensions */
#define NY     6
#define RANK   2

int
main (void)
{
    hid_t       file, dataset;		/* file and dataset handles */
    hid_t	fapl;			/* file access property list */
    hid_t       datatype, dataspace;	/* handles */
    hsize_t     dimsf[2];		/* dataset dimensions */
    hbool_t 	latest;			/* 'latest format' flag */
    herr_t      status;
    int         data[NX][NY];		/* data to write */
    int         i, j;

    /*
     * Data initialization.
     */
    for(j = 0; j < NX; j++)
	for(i = 0; i < NY; i++)
	    data[j][i] = i + j;
    /*
     * 0 1 2 3 4 5
     * 1 2 3 4 5 6
     * 2 3 4 5 6 7
     * 3 4 5 6 7 8
     * 4 5 6 7 8 9
     */

    /*
     * Create a new file using H5F_ACC_TRUNC access, default
     * file creation properties, and default file access properties.
     */
    file = H5Fcreate(FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);

    /*
     * Describe the size of the array and create the data space for fixed
     * size dataset.
     */
    dimsf[0] = NX;
    dimsf[1] = NY;
    dataspace = H5Screate_simple(RANK, dimsf, NULL);

    /*
     * Define datatype for the data in the file.
     * We will store little endian INT numbers.
     */
    datatype = H5Tcopy(H5T_NATIVE_INT);
    status = H5Tset_order(datatype, H5T_ORDER_LE);

    /*
     * Create a new dataset within the file using defined dataspace and
     * datatype and default dataset creation properties.
     */
    dataset = H5Dcreate2(file, DATASET1_NAME, datatype, dataspace,
			H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);

    /*
     * Write data to the dataset using default transfer properties.
     */
    status = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, data);

    /*
     * Close/release resources.
     */
    H5Dclose(dataset);
    H5Fclose(file);

    /* 
     * Create a file access property list and set the 'use latest format' 
     * flag in it.
     */
    fapl = H5Pcreate(H5P_FILE_ACCESS);
    status = H5Pset_latest_format(fapl, TRUE);

    /*
     * Reopen the file.
     */
    file = H5Fopen(FILE_NAME, H5F_ACC_RDWR, fapl);

    /*
     * Create another dataset using defined dataspace and datatype and 
     * default dataset creation properties.
     */
    dataset = H5Dcreate2(file, DATASET2_NAME, datatype, dataspace,
			H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);

    /*
     * Write data to the dataset using default transfer properties.
     */
    status = H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, data);

    /*
     * Close/release resources.
     */
    H5Sclose(dataspace);
    H5Tclose(datatype);
    H5Dclose(dataset);
    H5Fclose(file);

    return 0;
}