MOAB: Mesh Oriented datABase
(version 5.4.1)
|
Go to the source code of this file.
Defines | |
#define | CHECK |
Functions | |
void | dump_sets (mhdf_FileHandle file) |
void | dump_set_contents (long first, long num_sets, const int *flags, const long *end_indices, const long *contents) |
void | dump_set_list (long id, const long *array, long count) |
void | dump_set_ranges (long id, const long *array, long count) |
int | main (int argc, char *argv[]) |
Variables | |
int | WIDTH |
#define CHECK |
do \ { \ if( mhdf_isError( &status ) ) \ { \ fprintf( stderr, "mhdf error at %s:%d : \"%s\"\n", __FILE__, __LINE__, mhdf_message( &status ) ); \ exit( 2 ); \ } \ } while( 0 )
Definition at line 6 of file dump_sets.c.
Referenced by dump_sets(), and main().
void dump_set_contents | ( | long | first, |
long | num_sets, | ||
const int * | flags, | ||
const long * | end_indices, | ||
const long * | contents | ||
) |
Definition at line 136 of file dump_sets.c.
References dump_set_list(), dump_set_ranges(), and mhdf_SET_RANGE_BIT.
Referenced by dump_sets().
{ long prev = -1; long i, end; for( i = 0; i < num_sets; ++i ) { end = end_indices[i]; if( end < prev ) { fprintf( stderr, "Invalid end index for set %ld (ID %ld): %ld following %ld\n", i, first + i, end, prev ); exit( 2 ); } if( flags && ( flags[i] & mhdf_SET_RANGE_BIT ) ) { dump_set_ranges( i + first, contents + prev + 1, end - prev ); } else { dump_set_list( i + first, contents + prev + 1, end - prev ); } prev = end; } }
void dump_set_list | ( | long | id, |
const long * | array, | ||
long | count | ||
) |
Definition at line 161 of file dump_sets.c.
References WIDTH.
Referenced by dump_set_contents().
{ long i; if( !count ) return; /* skip empty sets */ printf( "%*ld: %ld", WIDTH, id, array[0] ); for( i = 1; i < count; ++i ) printf( ", %ld", array[i] ); printf( " (%ld)\n", count ); }
void dump_set_ranges | ( | long | id, |
const long * | array, | ||
long | count | ||
) |
Definition at line 173 of file dump_sets.c.
References WIDTH.
Referenced by dump_set_contents().
{ long i, n = 0; if( !count ) return; /* skip empty sets */ printf( "%*ld:", WIDTH, id ); if( count % 2 ) { puts( " <INVALID DATA LENGTH FOR RANGED LIST>\n" ); return; } for( i = 0; i < count; i += 2 ) { if( array[i + 1] > 1 ) printf( " %ld-%ld", array[i], array[i] + array[i + 1] - 1 ); else printf( " %ld", array[i] ); if( i + 2 < count ) putchar( ',' ); n += array[i + 1]; } printf( " (%ld)\n", n ); }
void dump_sets | ( | mhdf_FileHandle | file | ) |
Definition at line 50 of file dump_sets.c.
References CHECK, dump_set_contents(), moab::GeomUtil::first(), mhdf_closeData(), mhdf_openSetChildren(), mhdf_openSetData(), mhdf_openSetMeta(), mhdf_openSetParents(), mhdf_readSetChildEndIndices(), mhdf_readSetContentEndIndices(), mhdf_readSetData(), mhdf_readSetFlags(), mhdf_readSetParentEndIndices(), and mhdf_readSetParentsChildren().
Referenced by main().
{ long *end_indices, *data, *new_data; int* flags; long num_sets, first, num_data; hid_t meta, handle; mhdf_Status status; meta = mhdf_openSetMeta( file, &num_sets, &first, &status ); CHECK; end_indices = malloc( num_sets * sizeof( long ) ); printf( "\nSet IDs: %ld - %ld\n", first, first + num_sets - 1 ); puts( "\nSets:\n" ); flags = malloc( num_sets * sizeof( int ) ); mhdf_readSetFlags( meta, 0, num_sets, H5T_NATIVE_INT, flags, &status ); CHECK; mhdf_readSetContentEndIndices( meta, 0, num_sets, H5T_NATIVE_LONG, end_indices, &status ); CHECK; handle = mhdf_openSetData( file, &num_data, &status ); CHECK; data = malloc( num_data * sizeof( long ) ); mhdf_readSetData( handle, 0, num_data, H5T_NATIVE_LONG, data, &status ); CHECK; mhdf_closeData( file, handle, &status ); CHECK; dump_set_contents( first, num_sets, flags, end_indices, data ); free( flags ); puts( "\nSet Children:\n" ); mhdf_readSetChildEndIndices( meta, 0, num_sets, H5T_NATIVE_LONG, end_indices, &status ); CHECK; handle = mhdf_openSetChildren( file, &num_data, &status ); CHECK; new_data = realloc( data, num_data * sizeof( long ) ); if( !new_data ) { fprintf( stderr, "dump_sets.c::dump_sets(): reallocation of data failed\n" ); free( data ); free( end_indices ); mhdf_closeData( file, handle, &status ); CHECK; mhdf_closeData( file, meta, &status ); CHECK; return; } else data = new_data; mhdf_readSetParentsChildren( handle, 0, num_data, H5T_NATIVE_LONG, data, &status ); CHECK; mhdf_closeData( file, handle, &status ); CHECK; dump_set_contents( first, num_sets, NULL, end_indices, data ); puts( "\nSet Parents:\n" ); mhdf_readSetParentEndIndices( meta, 0, num_sets, H5T_NATIVE_LONG, end_indices, &status ); CHECK; handle = mhdf_openSetParents( file, &num_data, &status ); CHECK; new_data = realloc( data, num_data * sizeof( long ) ); if( !new_data ) { fprintf( stderr, "dump_sets.c::dump_sets(): reallocation of data failed\n" ); free( data ); free( end_indices ); mhdf_closeData( file, handle, &status ); CHECK; mhdf_closeData( file, meta, &status ); CHECK; return; } else data = new_data; mhdf_readSetParentsChildren( handle, 0, num_data, H5T_NATIVE_LONG, data, &status ); CHECK; mhdf_closeData( file, handle, &status ); CHECK; dump_set_contents( first, num_sets, NULL, end_indices, data ); free( end_indices ); free( data ); mhdf_closeData( file, meta, &status ); CHECK; }
int main | ( | int | argc, |
char * | argv[] | ||
) |
Definition at line 23 of file dump_sets.c.
References CHECK, dump_sets(), mhdf_closeFile(), mhdf_openFile(), and WIDTH.
{ mhdf_Status status; mhdf_FileHandle file; unsigned long max_id; if( argc != 2 ) { fprintf( stderr, "Usage: %s <input_file>\n", argv[0] ); return 1; } file = mhdf_openFile( argv[1], 0, &max_id, -1, &status ); CHECK; WIDTH = 1; while( max_id >= 10 ) { max_id /= 10; ++WIDTH; } dump_sets( file ); mhdf_closeFile( file, &status ); CHECK; return 0; }
int WIDTH |
Definition at line 21 of file dump_sets.c.
Referenced by dump_set_list(), dump_set_ranges(), and main().