summaryrefslogtreecommitdiffstats
path: root/README
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-28 14:50:06 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-28 14:50:06 (GMT)
commit2c69a7d61e8e1e30541856b1d29c0e2d7417a972 (patch)
tree543e4fbdcd42b17ee8437ecb05a8ce6f54a388d0 /README
parent11fd12af2870dc4cd5c239d7f31f8415ac09b732 (diff)
downloadtcl-2c69a7d61e8e1e30541856b1d29c0e2d7417a972.zip
tcl-2c69a7d61e8e1e30541856b1d29c0e2d7417a972.tar.gz
tcl-2c69a7d61e8e1e30541856b1d29c0e2d7417a972.tar.bz2
Bump to 8.6.2 for release.
Diffstat (limited to 'README')
-rw-r--r--README2
1 files changed, 1 insertions, 1 deletions
diff --git a/README b/README
index 7004bc5..66e1b76 100644
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
README: Tcl
- This is the Tcl 8.6.1 source distribution.
+ This is the Tcl 8.6.2 source distribution.
http://sourceforge.net/projects/tcl/files/Tcl/
You can get any source release of Tcl from the URL above.
pan> error; return 0; error: return -1; } /*------------------------------------------------------------------------- * Function: create_standard_file * * Purpose: A helper functon for the example. Creates an HDF5 file * with many repeated messages using the file creation * property list FCPL. * * This function only uses datatypes, dataspaces, and * attributes. Fill values and filter pipelines can also * be shared in the same way (i.e., by enabling sharing in * the FCPL and writing the same message more than once). *------------------------------------------------------------------------- */ herr_t create_standard_file(const char *filename, hid_t fcpl_id) { hid_t file_id=-1; hid_t type_id=-1, temp_type_id=-1; hsize_t dims[] = {10, 9, 8, 7, 6, 5, 4, 3, 2, 1}; hid_t space_id=-1; hid_t attr_type_id = -1; hid_t attr_space_id = -1; int attr_data[] = {1,2,3,4,5,6,7,8,9,0}; hid_t dset_id=-1; hid_t attr_id=-1; int x; herr_t ret; /* Create the file */ file_id = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl_id, H5P_DEFAULT); if(file_id < 0) goto error; /* Create the datatype we'll be using. Generally, sharing messages * is most useful when the message is complex and takes more space on * disk, so this type will be an array type rather than an atomic type. * However, any type can be shared. */ temp_type_id = H5Tarray_create(H5T_NATIVE_INT, 10, dims, NULL); if(temp_type_id < 0) goto error; type_id = H5Tarray_create(temp_type_id, 10, dims, NULL); if(type_id < 0) goto error; ret = H5Tclose(temp_type_id); if(ret < 0) goto error; /* Create the dataspace we'll be using. * Again, create a more complex dataspace so that more space will * be saved when we share it. */ space_id = H5Screate_simple(10, dims, dims); if(space_id < 0) goto error; /* Create a datatype and dataspace for the attributes we'll be creating. * The datatype will be a single integer, and each attribute will hold * 10 integers. */ attr_type_id = H5Tcopy(H5T_NATIVE_INT); if(attr_type_id < 0) goto error; attr_space_id = H5Screate_simple(1, dims, dims); if(attr_space_id < 0) goto error; /* Begin using the messages many times. Do this by creating datasets * that use this datatype, dataspace, and have this attribute. */ for(x=0; x<NUM_DATASETS; ++x) { /* Create a dataset */ dset_id = H5Dcreate(file_id, DSETNAME[x], type_id, space_id, H5P_DEFAULT); if(dset_id < 0) goto error; /* Create an attribute on the dataset */ attr_id = H5Acreate(dset_id, "attr_name", attr_type_id, attr_space_id, H5P_DEFAULT); if(attr_id < 0) goto error; /* Write data to the attribute */ ret = H5Awrite(attr_id, H5T_NATIVE_INT, attr_data); if(ret < 0) goto error; ret = H5Aclose(attr_id); if(ret < 0) goto error; ret = H5Dclose(dset_id); if(ret < 0) goto error; } /* Close all open IDs */ ret = H5Tclose(attr_type_id); if(ret < 0) goto error; ret = H5Sclose(attr_space_id); if(ret < 0) goto error; ret = H5Tclose(type_id); if(ret < 0) goto error; ret = H5Sclose(space_id); if(ret < 0) goto error; ret = H5Fclose(file_id); if(ret < 0) goto error; return 0; error: return -1; }