return (GetTestNumErrs());

}

* This file needs to access private information from the H5G package.

* This file also needs to access the group testing code.

*/

//#define H5G_TESTING

//#include "h5test.h"

/* Close 2nd FAPL */

H5Pclose(fapl2_id);

/* Test that external links can be used after a library reset. MUST be

* called last so the reset doesn't interfere with the property lists. This

/* Alignment test stuff */

#ifdef TEST_ALIGNMENT

#include "H5Tpkg.h"

#endif

#define SET_ALIGNMENT(TYPE,VAL) \

CALL h5dopen_f(file, "dset9", dset9, error)

CALL check("h5dopen_f", error, total_error)

CALL H5Dget_create_plist_f(dset9, dcpl, error)

CALL check("H5Dget_create_plist_f", error, total_error)

H5_api_t H5_g;

#else

hbool_t H5_libinit_g = FALSE; /* Library hasn't been initialized */

#endif

#ifdef H5_HAVE_MPE

if(!(H5_INIT_GLOBAL))

goto done;

/* Check if we should display error output */

(void)H5Eget_auto2(H5E_DEFAULT, &func, NULL);

* way that would necessitate some cleanup work in the other interface.

*/

#define DOWN(F) \

(sprintf(loop + at, "%s%s", (at ? "," : ""), #F), \

at += HDstrlen(loop + at), \

n): \

do {

pending = 0;

/* Try to organize these so the "higher" level components get shut

* down before "lower" level components that they might rely on. -QAK

*/

pending += DOWN(L);

/* Don't shut down the file code until objects in files are shut down */

if(pending == 0)

pending += DOWN(F);

/* Don't shut down "low-level" components until "high-level" components

* have successfully shut down. This prevents property lists and IDs

* from being closed "out from underneath" of the high-level objects

/* Don't shut down the free list code until _everything_ else is down */

if(pending == 0)

pending += DOWN(FL);

} while(pending && ntries++ < 100);

if(pending) {

(void)H5MM_free(tmp_open_stream);

} /* end while */

/* Mark library as closed */

H5_INIT_GLOBAL = FALSE;

done:

#ifdef H5_HAVE_THREADSAFE

H5_API_UNLOCK

#endif /* H5_HAVE_THREADSAFE */

return;

} /* end H5_term_library() */

/* Module Setup */

/****************/

/***********/

#include "H5Sprivate.h" /* Dataspace functions */

#include "H5SMprivate.h" /* Shared Object Header Messages */

/****************/

/* Local Macros */

/****************/

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */

(H5I_free_t)H5A_close /* Callback routine for closing objects of this class */

}};



/*--------------------------------------------------------------------------

NAME

USAGE

RETURNS

Non-negative on success/Negative on failure

Initializes any interface-specific data or routines.

--------------------------------------------------------------------------*/

{

herr_t ret_value = SUCCEED; /* Return value */

/*

* Create attribute ID type.

if(H5I_register_type(H5I_ATTR_CLS) < 0)

HGOTO_ERROR(H5E_INTERNAL, H5E_CANTINIT, FAIL, "unable to initialize interface")

done:

FUNC_LEAVE_NOAPI(ret_value)



/*--------------------------------------------------------------------------

NAME

PURPOSE

Terminate various H5A objects

USAGE

RETURNS

DESCRIPTION

GLOBAL VARIABLES

COMMENTS, BUGS, ASSUMPTIONS

Can't report errors...

REVISION LOG

--------------------------------------------------------------------------*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

if(H5I_nmembers(H5I_ATTR) > 0) {

(void)H5I_clear_type(H5I_ATTR, FALSE, FALSE);

n++; /*H5I*/

} /* end if */

} /* end if */

FUNC_LEAVE_NOAPI(n)



/*--------------------------------------------------------------------------

/* Module Setup */

/****************/

/***********/

/* Headers */

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */

* Purpose: Initialize the interface from some other layer.

*

* Return: Success: non-negative

* Failure: negative

*

* Programmer: Quincey Koziol

herr_t

H5AC_init(void)

{

FUNC_ENTER_NOAPI(FAIL)

/* FUNC_ENTER() does all the work */



/*-------------------------------------------------------------------------

*

* Purpose: Initialize interface-specific information

*

*

*-------------------------------------------------------------------------

*/

{

#ifdef H5_HAVE_PARALLEL

H5P_genplist_t *xfer_plist; /* Dataset transfer property list object */

#endif /* H5_HAVE_PARALLEL */

herr_t ret_value = SUCCEED; /* Return value */

#ifdef H5_HAVE_PARALLEL

/* Sanity check */

done:

FUNC_LEAVE_NOAPI(ret_value)



/*-------------------------------------------------------------------------

*

* Purpose: Terminate this interface.

*

* Return: Success: Positive if anything was done that might

* affect other interfaces; zero otherwise.

* Failure: Negative.

*

* Programmer: Quincey Koziol

*-------------------------------------------------------------------------

*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

#ifdef H5_HAVE_PARALLEL

if(H5AC_dxpl_id > 0 || H5AC_ind_dxpl_id > 0) {

/* Indicate more work to do */

/* Close H5AC dxpl */

if(H5I_dec_ref(H5AC_dxpl_id) < 0 || H5I_dec_ref(H5AC_ind_dxpl_id) < 0)

H5E_clear_stack(NULL); /*ignore error*/

} /* end if */

#endif /* H5_HAVE_PARALLEL */

/* Reset interface initialization flag */

} /* end if */

FUNC_LEAVE_NOAPI(n)



/*-------------------------------------------------------------------------

size_t trace_entry_size = 0;

FILE * trace_file_ptr = NULL;

#endif /* H5AC__TRACE_FILE_ENABLED */

FUNC_ENTER_NOAPI(NULL)

/* Module Setup */

/****************/

/***********/

/* Headers */

H5FL_DEFINE_STATIC(H5AC_slist_entry_t);



/*-------------------------------------------------------------------------

* Function: H5AC__set_sync_point_done_callback

*

*/

#error "Do not include this file outside the H5AC package!"

#endif

/* Module Setup */

/****************/

/***********/

{

const H5A_bt2_ud_common_t *bt2_udata = (const H5A_bt2_ud_common_t *)_bt2_udata;

const H5A_dense_bt2_name_rec_t *bt2_rec = (const H5A_dense_bt2_name_rec_t *)_bt2_rec;

FUNC_ENTER_STATIC_NOERR

{

const H5A_bt2_ud_common_t *bt2_udata = (const H5A_bt2_ud_common_t *)_bt2_udata;

const H5A_dense_bt2_corder_rec_t *bt2_rec = (const H5A_dense_bt2_corder_rec_t *)_bt2_rec;

FUNC_ENTER_STATIC_NOERR

/* Module Setup */

/****************/

/***********/

H5A_attr_table_t atable = {0, NULL}; /* Table of attributes */

H5B2_t *bt2 = NULL; /* v2 B-tree handle for index */

haddr_t bt2_addr; /* Address of v2 B-tree to use for lookup */

FUNC_ENTER_NOAPI(FAIL)

htri_t attr_sharable; /* Flag indicating attributes are sharable */

htri_t ret_value = TRUE; /* Return value */

/*

* Check arguments.

/* Module Setup */

/****************/

/***********/

/*******************/

#ifndef H5_NO_DEPRECATED_SYMBOLS



/*--------------------------------------------------------------------------

/* Module Setup */

/****************/

/***********/

H5A_create(const H5G_loc_t *loc, const char *name, const H5T_t *type,

const H5S_t *space, hid_t acpl_id, hid_t dxpl_id)

{

FUNC_ENTER_NOAPI_NOINIT_TAG(dxpl_id, loc->oloc->addr, NULL)

* name, but it's going to be hard to unwind all the special cases on

* failure, so just check first, for now - QAK)

*/

HGOTO_ERROR(H5E_ATTR, H5E_NOTFOUND, NULL, "error checking attributes")

HGOTO_ERROR(H5E_ATTR, H5E_ALREADYEXISTS, NULL, "attribute already exists")

/* Check if the dataspace has an extent set (or is NULL) */

H5O_loc_t obj_oloc; /* Opened object object location */

hbool_t loc_found = FALSE; /* Entry at 'obj_name' found */

H5A_t *attr = NULL; /* Attribute from object header */

FUNC_ENTER_NOAPI_NOINIT

H5O_loc_t obj_oloc; /* Opened object object location */

hbool_t loc_found = FALSE; /* Entry at 'obj_name' found */

H5A_t *attr = NULL; /* Attribute from object header */

FUNC_ENTER_NOAPI(NULL)

H5A__get_name(H5A_t *attr, size_t buf_size, char *buf)

{

size_t copy_len, nbytes;

FUNC_ENTER_NOAPI_NOINIT_NOERR

H5P_genplist_t *plist; /* Default property list */

hid_t new_plist_id; /* ID of ACPL to return */

H5P_genplist_t *new_plist; /* ACPL to return */

FUNC_ENTER_NOAPI_NOINIT

if(NULL == (plist = (H5P_genplist_t *)H5I_object(H5P_LST_ATTRIBUTE_CREATE_ID_g)))

herr_t

H5A__get_info(const H5A_t *attr, H5A_info_t *ainfo)

{

/* Check args */

HDassert(attr);

ainfo->corder = attr->shared->crt_idx;

} /* end else */

} /* end H5A__get_info() */



H5O_loc_t *

H5A_oloc(H5A_t *attr)

{

HDassert(attr);

/* Set return value */

ret_value = &(attr->oloc);

FUNC_LEAVE_NOAPI(ret_value)

} /* end H5A_oloc() */

H5G_name_t *

H5A_nameof(H5A_t *attr)

{

HDassert(attr);

/* Set return value */

FUNC_LEAVE_NOAPI(ret_value)

} /* end H5A_nameof() */

H5T_t *

H5A_type(const H5A_t *attr)

{

HDassert(attr);

/* Set return value */

ret_value = attr->shared->dt;

FUNC_LEAVE_NOAPI(ret_value)

} /* end H5A_type() */

H5G_name_t obj_path; /* Opened object group hier. path */

H5O_loc_t obj_oloc; /* Opened object object location */

hbool_t loc_found = FALSE; /* Entry at 'obj_name' found */

FUNC_ENTER_NOAPI_NOINIT

static int

H5A__attr_cmp_corder_inc(const void *attr1, const void *attr2)

{

FUNC_ENTER_STATIC_NOERR

static int

H5A__attr_cmp_corder_dec(const void *attr1, const void *attr2)

{

FUNC_ENTER_STATIC_NOERR

htri_t

H5A_get_ainfo(H5F_t *f, hid_t dxpl_id, H5O_t *oh, H5O_ainfo_t *ainfo)

{

FUNC_ENTER_NOAPI_TAG(dxpl_id, oh->cache_info.addr, FAIL)

{

hbool_t type_shared, space_shared; /* Flags to indicate that shared messages are used for this attribute */

hbool_t use_latest_format; /* Flag indicating the newest file format should be used */

/* check arguments */

HDassert(f);

else

attr->shared->version = H5O_ATTR_VERSION_1; /* Write out basic version */

} /* end H5A_set_version() */



void *buf = NULL; /* Buffer for copying data */

void *reclaim_buf = NULL; /* Buffer for reclaiming data */

hid_t buf_sid = -1; /* ID for buffer dataspace */

FUNC_ENTER_NOAPI_NOINIT

* the H5A package. Source files outside the H5A package should

* include H5Aprivate.h instead.

*/

#error "Do not include this file outside the H5A package!"

#endif

/******************************/

/* Function prototypes for H5A package scope */

H5_DLL H5A_t *H5A_create(const H5G_loc_t *loc, const char *name,

const H5T_t *type, const H5S_t *space, hid_t acpl_id, hid_t dxpl_id);

H5_DLL H5A_t *H5A_open_by_name(const H5G_loc_t *loc, const char *obj_name,

/* Module Setup */

/****************/

#define H5A_TESTING /*suppress warning about H5A testing funcs*/

H5A_is_shared_test(hid_t attr_id)

{

H5A_t *attr; /* Attribute object for ID */

FUNC_ENTER_NOAPI_NOINIT

/* Module Setup */

/****************/

/***********/

/* Package Variables */

/*********************/

/* Declare a free list to manage the haddr_t sequence information */

H5FL_SEQ_DEFINE(haddr_t);

H5B_cache_ud_t cache_udata; /* User-data for metadata cache callback */

unsigned idx = 0, lt = 0, rt; /* Final, left & right key indices */

int cmp = 1; /* Key comparison value */

FUNC_ENTER_NOAPI(FAIL)

H5B_iterate(H5F_t *f, hid_t dxpl_id, const H5B_class_t *type, haddr_t addr,

H5B_operator_t op, void *udata)

{

FUNC_ENTER_NOAPI_NOERR

{

H5B_shared_t *shared = NULL; /* New shared B-tree struct */

size_t u; /* Local index variable */

FUNC_ENTER_NOAPI(NULL)

{

H5B_t *new_node = NULL;

H5B_shared_t *shared; /* Pointer to shared B-tree info */

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

/* Headers */

/* Package Variables */

/*********************/

/* v2 B-tree client ID to class mapping */

/* Remember to add client ID to H5B2_subid_t in H5B2private.h when adding a new

H5B2_hdr_t *hdr = NULL; /* Pointer to the B-tree header */

H5B2_hdr_cache_ud_t cache_udata; /* User-data for callback */

haddr_t hdr_addr; /* B-tree header address */

FUNC_ENTER_NOAPI(NULL)

H5B2_t *bt2 = NULL; /* Pointer to the B-tree */

H5B2_hdr_t *hdr = NULL; /* Pointer to the B-tree header */

H5B2_hdr_cache_ud_t cache_udata; /* User-data for callback */

FUNC_ENTER_NOAPI_NOINIT

/* Module Setup */

/****************/

/***********/

uint32_t stored_chksum; /* Stored metadata checksum value */

uint32_t computed_chksum; /* Computed metadata checksum value */

const uint8_t *image = (const uint8_t *)_image; /* Pointer into raw data buffer */

FUNC_ENTER_STATIC

uint32_t stored_chksum; /* Stored metadata checksum value */

uint32_t computed_chksum; /* Computed metadata checksum value */

unsigned u; /* Local index variable */

FUNC_ENTER_STATIC

uint32_t stored_chksum; /* Stored metadata checksum value */

uint32_t computed_chksum; /* Computed metadata checksum value */

unsigned u; /* Local index variable */

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

/* Headers */

/* Module Setup */

/****************/

/***********/

/* Headers */

H5B2__hdr_alloc(H5F_t *f)

{

H5B2_hdr_t *hdr = NULL; /* v2 B-tree header */

FUNC_ENTER_PACKAGE

H5B2__hdr_create(H5F_t *f, hid_t dxpl_id, const H5B2_create_t *cparam,

void *ctx_udata)

{

FUNC_ENTER_PACKAGE

/* Module Setup */

/****************/

/***********/

/* Headers */

unsigned flags)

{

H5B2_leaf_cache_ud_t udata; /* User-data for callback */

FUNC_ENTER_PACKAGE

uint16_t nrec, uint16_t depth, unsigned flags)

{

H5B2_internal_cache_ud_t udata; /* User data to pass through to cache 'deserialize' callback */

FUNC_ENTER_PACKAGE

* the H5B2 package. Source files outside the H5B2 package should

* include H5B2private.h instead.

*/

#error "Do not include this file outside the H5B2 package!"

#endif

/* Module Setup */

/****************/

/***********/

/* Module Setup */

/****************/

#define H5B2_TESTING /*suppress warning about H5B2 testing funcs*/

{

H5F_t *f = (H5F_t *)_f; /* User data for building callback context */

H5B2_test_ctx_t *ctx; /* Callback context structure */

FUNC_ENTER_STATIC

H5B2_get_node_depth_test(H5B2_t *bt2, hid_t dxpl_id, void *udata)

{

H5B2_node_info_test_t ninfo; /* Node information */

FUNC_ENTER_NOAPI(FAIL)

/* Module Setup */

/****************/

/***********/

const uint8_t *image = (const uint8_t *)_image; /* Pointer into image buffer */

uint8_t *native; /* Pointer to native keys */

unsigned u; /* Local index variable */

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

* the H5B package. Source files outside the H5B package should

* include H5Bprivate.h instead.

*/

#error "Do not include this file outside the H5B package!"

#endif

/* Module Setup */

/****************/

/***********/

#define H5C_IMAGE_EXTRA_SPACE 0

#endif /* H5C_DO_MEMORY_SANITY_CHECKS */

/******************/

/* Local Typedefs */

/******************/

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */

size_t empty_space;

void * thing;

H5C_cache_entry_t * entry_ptr;

FUNC_ENTER_NOAPI(NULL)

H5C_cache_entry_t * entry; /* Alias for thing loaded, as cache entry */

size_t len; /* Size of image in file */

unsigned u; /* Local index variable */

FUNC_ENTER_NOAPI_NOINIT

#include "H5private.h" /* Generic Functions */

#include "H5CSprivate.h" /* Function stack */

#ifdef H5_HAVE_CODESTACK

#ifdef H5_HAVE_THREADSAFE

/*

* The per-thread function stack. pthread_once() initializes a special

* In order for this macro to work, H5CS_get_my_stack() must be preceeded

* by "H5CS_t *fstack =".

*/

#else /* H5_HAVE_THREADSAFE */

/*

* The function stack. Eventually we'll have some sort of global table so each



#ifdef H5_HAVE_THREADSAFE

/*-------------------------------------------------------------------------

*

* Purpose: Support function for H5CS_get_my_stack() to initialize and

* acquire per-thread function stack.

* Programmer: Quincey Koziol

* February 6, 2003

*

*-------------------------------------------------------------------------

*/

static H5CS_t *

{

H5CS_t *fstack;

fstack = H5TS_get_thread_local_value(H5TS_funcstk_key_g);

/* No associated value with current thread - create one */

#ifdef H5_HAVE_WIN_THREADS

fstack = (H5CS_t *)LocalAlloc(LPTR, sizeof(H5CS_t)); /* Win32 has to use LocalAlloc to match the LocalFree in DllMain */

HDassert(fstack);

/* Set the thread-specific info */

/* (It's not necessary to release this in this API, it is

* released by the "key destructor" set up in the H5TS

* routines. See calls to pthread_key_create() in H5TS.c -QAK)

*/

H5TS_set_thread_local_value(H5TS_funcstk_key_g, (void *)fstack);

#endif /* H5_HAVE_THREADSAFE */



HDassert(fstack);

/* Default to outputting information to stderr */

stream = stderr;

/* try show the process or thread id in multiple processes cases*/

#ifdef H5_HAVE_THREADSAFE

#else /* H5_HAVE_THREADSAFE */

#endif /* H5_HAVE_THREADSAFE */

} /* end H5CS_print_stack() */



/*-------------------------------------------------------------------------

* Function: H5CS_push

*

* Purpose: Pushes a new record onto function stack for the current

* Programmer: Quincey Koziol

* Thursday, February 6, 2003

*

*-------------------------------------------------------------------------

*/

herr_t

H5CS_push(const char *func_name)

{

/* Don't push this function on the function stack... :-) */

FUNC_ENTER_NOAPI_NOERR_NOFS

/* Sanity check */

HDassert(fstack);

HDassert(func_name);

fstack->nused++;

} /* end H5CS_push() */



herr_t

H5CS_pop(void)

{

/* Don't push this function on the function stack... :-) */

FUNC_ENTER_NOAPI_NOERR_NOFS

/* Sanity check */

HDassert(fstack);

/* Pop the function. */

fstack->nused--;

* Programmer: Quincey Koziol

* Tuesday, August 9, 2005

*

*-------------------------------------------------------------------------

*/

{

unsigned u; /* Local index variable */

/* Don't push this function on the function stack... :-) */

/* Sanity check */

HDassert(old_stack);

/* Copy old stack to new one, duplicating the strings */

for(u = 0; u < old_stack->nused; u++)

} /* end H5CS_copy_stack() */



/*-------------------------------------------------------------------------

* Function: H5CS_close_stack

*

*

* Return: Non-negative on success/Negative on failure

*

* Programmer: Quincey Koziol

* Tuesday, August 9, 2005

*

*-------------------------------------------------------------------------

*/

herr_t

/* Sanity check */

HDassert(stack);

} /* end H5CS_close_stack() */

#endif /* H5_HAVE_CODESTACK */

/* Private headers needed by this file */

#include "H5private.h"

#endif /* _H5CSprivate_H */

/* Module Setup */

/****************/

/***********/

* reason why this file was created.

*/

#error "Do not include this file outside the H5C package!"

#endif

/* Module Setup */

/****************/

/***********/

/* Package Variables */

/*********************/

/* Declare extern the free list to manage blocks of VL data */

H5FL_BLK_EXTERN(vlen_vl_buf);



/*-------------------------------------------------------------------------

* Function: H5Dcreate2

*

/* Module Setup */

/****************/

/***********/

H5D_btree_key_t *lt_key = (H5D_btree_key_t *) _lt_key;

H5D_btree_key_t *rt_key = (H5D_btree_key_t *) _rt_key;

H5D_chunk_common_ud_t *udata = (H5D_chunk_common_ud_t *) _udata;

FUNC_ENTER_STATIC_NOERR

H5D_chunk_ud_t *udata = (H5D_chunk_ud_t *) _udata;

int cmp;

unsigned u;

FUNC_ENTER_STATIC

static hbool_t

H5D__btree_idx_is_space_alloc(const H5O_storage_chunk_t *storage)

{

FUNC_ENTER_STATIC_NOERR

H5D_btree_it_ud_t *udata = (H5D_btree_it_ud_t *)_udata; /* User data */

const H5D_btree_key_t *lt_key = (const H5D_btree_key_t *)_lt_key; /* B-tree key for chunk */

H5D_chunk_rec_t chunk_rec; /* Generic chunk record for callback */

FUNC_ENTER_STATIC_NOERR

H5D_chunk_cb_func_t chunk_cb, void *chunk_udata)

{

H5D_btree_it_ud_t udata; /* User data for B-tree iterator callback */

FUNC_ENTER_STATIC_NOERR

/* Module Setup */

/****************/

/***********/

hbool_t

H5D__chunk_is_space_alloc(const H5O_storage_t *storage)

{

FUNC_ENTER_PACKAGE_NOERR

{

hsize_t val; /* Intermediate value */

unsigned ndims = shared->ndims; /* Rank of dataset */

FUNC_ENTER_STATIC_NOERR

H5D_rdcc_ent_t *ent; /*cache entry */

size_t chunk_size; /*size of a chunk */

void *chunk = NULL; /*the file chunk */

FUNC_ENTER_PACKAGE

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_len_arr[], hsize_t mem_off_arr[])

{

H5D_chunk_readvv_ud_t udata; /* User data for H5VM_opvv() operator */

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

size_t dset_max_nseq, size_t *dset_curr_seq, size_t dset_size_arr[], hsize_t dset_offset_arr[],

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_size_arr[], hsize_t mem_offset_arr[])

{

FUNC_ENTER_STATIC

size_t dset_max_nseq, size_t *dset_curr_seq, size_t dset_size_arr[], hsize_t dset_offset_arr[],

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_size_arr[], hsize_t mem_offset_arr[])

{

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

*-------------------------------------------------------------------------

*/

static herr_t

{

hsize_t tmp_size; /* Temporary holder for raw data size */

size_t tmp_sieve_buf_size; /* Temporary holder for sieve buffer size */

hbool_t

H5D__contig_is_space_alloc(const H5O_storage_t *storage)

{

FUNC_ENTER_PACKAGE_NOERR

size_t dset_max_nseq, size_t *dset_curr_seq, size_t dset_len_arr[], hsize_t dset_off_arr[],

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_len_arr[], hsize_t mem_off_arr[])

{

FUNC_ENTER_STATIC

size_t dset_max_nseq, size_t *dset_curr_seq, size_t dset_len_arr[], hsize_t dset_off_arr[],

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_len_arr[], hsize_t mem_off_arr[])

{

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

/* Local Variables */

/*******************/



/*-------------------------------------------------------------------------

/* Module Setup */

/****************/

/***********/

/*******************/

#ifndef H5_NO_DEPRECATED_SYMBOLS



/*-------------------------------------------------------------------------

/* Module Setup */

/****************/

/***********/

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_len_arr[], hsize_t mem_off_arr[])

{

H5D_efl_readvv_ud_t udata; /* User data for H5VM_opvv() operator */

FUNC_ENTER_STATIC

size_t mem_max_nseq, size_t *mem_curr_seq, size_t mem_len_arr[], hsize_t mem_off_arr[])

{

H5D_efl_writevv_ud_t udata; /* User data for H5VM_opvv() operator */

FUNC_ENTER_STATIC

/* Module Setup */

/****************/

/***********/

/* Headers */

/* Module Setup */

/****************/

/***********/

(H5I_free_t)H5D_close /* Callback routine for closing objects of this class */

}};



/*-------------------------------------------------------------------------



/*--------------------------------------------------------------------------

NAME

USAGE

RETURNS

Non-negative on success/Negative on failure

a deadlock in the library when the library is attempting to terminate -QAK

--------------------------------------------------------------------------*/

{

/* Initialize the atom group for the dataset IDs */

if(H5I_register_type(H5I_DATASET_CLS) < 0)

if(H5D__get_dxpl_cache_real(H5P_DATASET_XFER_DEFAULT, &H5D_def_dxpl_cache) < 0)

HGOTO_ERROR(H5E_PLIST, H5E_CANTGET, FAIL, "can't retrieve default DXPL info")

done:

FUNC_LEAVE_NOAPI(ret_value)



/*-------------------------------------------------------------------------

*

*

* Return: Success: Positive if anything was done that might

* affect other interfaces; zero otherwise.

* Failure: Negative.

*

*

*-------------------------------------------------------------------------

*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

if(H5I_nmembers(H5I_DATASET) > 0) {

/* The dataset API uses the "force" flag set to true because it

* is using the "file objects" (H5FO) API functions to track open

(void)H5I_clear_type(H5I_DATASET, TRUE, FALSE);

n++; /*H5I*/

} /* end if */

} /* end if */

FUNC_LEAVE_NOAPI(n)



/*--------------------------------------------------------------------------

{

H5O_obj_create_t ocrt_info; /* Information for object creation */

H5D_obj_create_t dcrt_info; /* Information for dataset creation */

FUNC_ENTER_PACKAGE

{

H5D_shared_t *new_dset = NULL; /* New dataset object */

H5P_genplist_t *plist; /* Property list created */

FUNC_ENTER_STATIC

hbool_t has_vl_type = FALSE; /* Flag to indicate a VL-type for dataset */

hbool_t layout_init = FALSE; /* Flag to indicate that chunk information was initialized */

H5G_loc_t dset_loc; /* Dataset location */

FUNC_ENTER_PACKAGE

H5O_loc_t oloc; /* Dataset object location */

H5O_type_t obj_type; /* Type of object at location */

hbool_t loc_found = FALSE; /* Location at 'name' found */

FUNC_ENTER_PACKAGE

{

H5D_shared_t *shared_fo = NULL;

H5D_t *dataset = NULL;

FUNC_ENTER_NOAPI(NULL)

H5D__iterate(void *buf, hid_t type_id, const H5S_t *space, H5D_operator_t op,

void *operator_data)

{

FUNC_ENTER_PACKAGE_NOERR

{

H5T_vlen_alloc_info_t _vl_alloc_info; /* VL allocation info buffer */

H5T_vlen_alloc_info_t *vl_alloc_info = &_vl_alloc_info; /* VL allocation info */

FUNC_ENTER_NOAPI(FAIL)

H5D__vlen_get_buf_size_alloc(size_t size, void *info)

{

H5D_vlen_bufsize_t *vlen_bufsize = (H5D_vlen_bufsize_t *)info;

FUNC_ENTER_PACKAGE_NOERR

H5P_genplist_t *new_plist; /* Copy of dataset's DCPL */

H5O_fill_t copied_fill; /* Fill value to tweak */

hid_t new_dcpl_id = FAIL;

FUNC_ENTER_NOAPI(FAIL)

/* Module Setup */

/****************/

/***********/

/* Module Setup */

/****************/

/***********/

size_t

H5D__layout_meta_size(const H5F_t *f, const H5O_layout_t *layout, hbool_t include_compact_data)

{

FUNC_ENTER_PACKAGE

/* Module Setup */

/****************/

/***********/

/* Module Setup */

/****************/

/***********/

static void *

H5O__dset_get_copy_file_udata(void)

{

FUNC_ENTER_STATIC

static hid_t

H5O__dset_open(const H5G_loc_t *obj_loc, hid_t lapl_id, hid_t dxpl_id, hbool_t app_ref)

{

FUNC_ENTER_STATIC

{

H5D_obj_create_t *crt_info = (H5D_obj_create_t *)_crt_info; /* Dataset creation parameters */

H5D_t *dset = NULL; /* New dataset created */

FUNC_ENTER_STATIC

H5O__dset_get_oloc(hid_t obj_id)

{

H5D_t *dset; /* Dataset opened */

FUNC_ENTER_STATIC

* the H5D package. Source files outside the H5D package should

* include H5Dprivate.h instead.

*/

#error "Do not include this file outside the H5D package!"

#endif

/* Package Private Prototypes */

/******************************/

H5_DLL H5D_t *H5D__create(H5F_t *file, hid_t type_id, const H5S_t *space,

hid_t dcpl_id, hid_t dapl_id, hid_t dxpl_id);

H5_DLL H5D_t *H5D__create_named(const H5G_loc_t *loc, const char *name,

/* Module Setup */

/****************/

/***********/

/* Module Setup */

/****************/

/***********/

/* Module Setup */

/****************/

#define H5D_TESTING /*suppress warning about H5D testing funcs*/

/* Module Setup */

/****************/

/***********/

/* Local Prototypes */

/********************/

/* Static function declarations */

static H5E_cls_t *H5E_register_class(const char *cls_name, const char *lib_name,

const char *version);

static herr_t H5E_unregister_class(H5E_cls_t *cls);

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */



/*--------------------------------------------------------------------------

*

* Purpose: Initialize interface-specific information

*

*

*--------------------------------------------------------------------------

*/

{

H5E_cls_t *cls; /* Pointer to error class */

H5E_msg_t *msg; /* Pointer to new error message */

char lib_vers[128]; /* Buffer to constructu library version within */

/* Initialize the atom group for the error class IDs */

if(H5I_register_type(H5I_ERRCLS_CLS) < 0)

done:

FUNC_LEAVE_NOAPI(ret_value)



/*-------------------------------------------------------------------------

*

* Purpose: Terminates the H5E interface

*

*-------------------------------------------------------------------------

*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

int64_t ncls, nmsg, nstk;

/* Check if there are any open error stacks, classes or messages */

n++; /*H5I*/

} /* end if */

else {

/* Destroy the error class, message, and stack id groups */

/* Mark closed */

} /* end else */

} /* end if */

FUNC_LEAVE_NOAPI(n)



#ifdef H5_HAVE_THREADSAFE

H5E_t *

H5E_get_stack(void)

{

FUNC_ENTER_NOAPI_NOINIT_NOERR

#ifdef H5_HAVE_WIN_THREADS

estack = (H5E_t *)LocalAlloc(LPTR, sizeof(H5E_t)); /* Win32 has to use LocalAlloc to match the LocalFree in DllMain */

#else

#endif /* H5_HAVE_WIN_THREADS */

HDassert(estack);

static H5E_cls_t *

H5E_register_class(const char *cls_name, const char *lib_name, const char *version)

{

FUNC_ENTER_NOAPI_NOINIT

static ssize_t

H5E_get_class_name(const H5E_cls_t *cls, char *name, size_t size)

{

FUNC_ENTER_NOAPI_NOINIT_NOERR

static H5E_msg_t *

H5E_create_msg(H5E_cls_t *cls, H5E_type_t msg_type, const char *msg_str)

{

FUNC_ENTER_NOAPI_NOINIT

static H5E_t *

H5E_get_current_stack(void)

{

FUNC_ENTER_NOAPI_NOINIT

/* Module Declaration */

/**********************/

/***********************/

/* Package Variables */

/*********************/

/* Extensible array client ID to class mapping */

/* Remember to add client ID to H5EA_cls_id_t in H5EAprivate.h when adding a new

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

* the H5EA package. Source files outside the H5EA package should

* include H5EAprivate.h instead.

*/

#error "Do not include this file outside the H5EA package!"

#endif

/* Package Private Macros */

/**************************/

/* Fill value for extensible array test class */

#ifdef H5EA_TESTING

#define H5EA_TEST_FILL ((uint64_t)ULLONG_MAX)

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

#define H5EA_TESTING

/* Module Setup */

/****************/

/***********/

/*******************/

#ifndef H5_NO_DEPRECATED_SYMBOLS



/*-------------------------------------------------------------------------

/* Module Setup */

/****************/

/***********/



/*-------------------------------------------------------------------------

* Function: H5E_get_msg

*

ssize_t

H5E_get_msg(const H5E_msg_t *msg, H5E_type_t *type, char *msg_str, size_t size)

{

FUNC_ENTER_NOAPI_NOINIT_NOERR

* the H5E package. Source files outside the H5E package should

* include H5Eprivate.h instead.

*/

#error "Do not include this file outside the H5E package!"

#endif

/* Module Setup */

/****************/

/***********/

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */



/*--------------------------------------------------------------------------

NAME

USAGE

RETURNS

Non-negative on success/Negative on failure

DESCRIPTION

--------------------------------------------------------------------------*/

{

/*

* Initialize the atom group for the file IDs.

if(H5I_register_type(H5I_FILE_CLS) < 0)

HGOTO_ERROR(H5E_FILE, H5E_CANTINIT, FAIL, "unable to initialize interface")

done:

FUNC_LEAVE_NOAPI(ret_value)



/*-------------------------------------------------------------------------

*

* Purpose: Terminate this interface: free all memory and reset global

* variables to their initial values. Release all ID groups

*-------------------------------------------------------------------------

*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

if(H5I_nmembers(H5I_FILE) > 0) {

(void)H5I_clear_type(H5I_FILE, FALSE, FALSE);

n++; /*H5I*/

/* Make certain we've cleaned up all the shared file objects */

H5F_sfile_assert_num(0);

/* Destroy the file object id group */

/* Mark closed */

} /* end else */

} /* end if */

FUNC_LEAVE_NOAPI(n)



/*-------------------------------------------------------------------------

/* Module Declaration */

/**********************/

/***********************/

/* Other Packages Used */

/* Package Variables */

/*********************/

/* Fixed array client ID to class mapping */

/* Remember to add client ID to H5FA_cls_id_t in H5FAprivate.h when adding a new

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

/***********************/

* the H5FA package. Source files outside the H5FA package should

* include H5FAprivate.h instead.

*/

#error "Do not include this file outside the H5FA package!"

#endif

/* #define H5FA_DEBUG */

/* Fill value for fixed array test class */

#ifdef H5FA_TESTING

#define H5FA_TEST_FILL ((uint64_t)ULLONG_MAX)

/* Module Declaration */

/**********************/

/***********************/

/* Module Declaration */

/**********************/

#define H5FA_TESTING

/* Module Setup */

/****************/

/***********/

/* Package Variables */

/*********************/

/*****************************/

/* Library Private Variables */



/*-------------------------------------------------------------------------

*

* Purpose: Initialize the virtual file layer.

*

* Return: Success: Non-negative

* Failure: Negative

*

* Programmer: Robb Matzke

* Monday, July 26, 1999

*

*-------------------------------------------------------------------------

*/

{

herr_t ret_value = SUCCEED; /* Return value */

if(H5I_register_type(H5I_VFL_CLS) < 0)

HGOTO_ERROR(H5E_VFL, H5E_CANTINIT, FAIL, "unable to initialize interface")

done:

FUNC_LEAVE_NOAPI(ret_value)



/*-------------------------------------------------------------------------

*

* Purpose: Terminate this interface: free all memory and reset global

* variables to their initial values. Release all ID groups

* Return: Success: Positive if anything was done that might

* have affected other interfaces; zero

* otherwise.

* Failure: Never fails.

*

* Programmer: Robb Matzke

* Friday, February 19, 1999

*

*-------------------------------------------------------------------------

*/

int

{

int n = 0;

FUNC_ENTER_NOAPI_NOINIT_NOERR

if(H5I_nmembers(H5I_VFL) > 0) {

(void)H5I_clear_type(H5I_VFL, FALSE, FALSE);

n++; /*H5I*/

} /* end if */

else {

/* Destroy the VFL driver id group */

/* Mark closed */

} /* end else */

} /* end if */

FUNC_LEAVE_NOAPI(n)



/*-------------------------------------------------------------------------

*

* Purpose: Frees a file driver class struct and returns an indication of

* success. This function is used as the free callback for the

*

* Return: Success: Non-negative

*

const H5FD_class_t *cls = (const H5FD_class_t *)_cls;

H5FD_class_t *saved = NULL;

H5FD_mem_t type;

FUNC_ENTER_NOAPI(FAIL)

H5P_genplist_t *plist; /* Property list pointer */

unsigned long driver_flags = 0; /* File-inspecific driver feature flags */

H5FD_file_image_info_t file_image_info; /* Initial file image */

FUNC_ENTER_NOAPI(NULL)

int

H5FD_cmp(const H5FD_t *f1, const H5FD_t *f2)

{

FUNC_ENTER_NOAPI(-1) /*return value is arbitrary*/

haddr_t

H5FD_get_maxaddr(const H5FD_t *file)

{

FUNC_ENTER_NOAPI(HADDR_UNDEF)

* access to small, temporary hdf5 files.

*/

#include "H5private.h" /* Generic Functions */

#include "H5Eprivate.h" /* Error handling */

(size_t)((A)+(Z))<(size_t)(A))