mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-12 17:31:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r13429] Purpose: Bug Fix

Browse Source 
Description:

Fix up the bin/trace script.  The script has been updated to include all of the new datatypes that have been added to the library.  It's output has also been made a bit clearer with regards to the NO TRACE comment scattered throughout the code which prevents tracing information from being added.

The script cannot handle functions that take a variable number of arguments nor can it deal with functions whose prototype differs based on certain preprocessor directives.  However, there are only 3 instances of this in the library.  All other warnings that the script used to generated have been fixed.

The script has not actually been run on the source files yet.

Tested:

smirom
This commit is contained in:
Leon Arber 2007-02-27 20:57:03 -05:00
parent bffcafb7f9
commit 1b2c200b10
1 changed files with 60 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
bin/trace
View File

@ -29,95 +29,102 @@ $Source = "";
# usually the same as the package name.
#
%TypeString = ("haddr_t" => "a",
"H5A_operator_t" => "Ao",
"H5A_info_t" => "Ai",
"H5A_operator2_t" => "Ap",
"hbool_t" => "b",
"H5AC_cache_config_t" => "c",
"double" => "d",
"H5_iter_order_t" => "Io",
"H5_index_t" => "Ii",
"H5D_alloc_time_t" => "Da",
"H5D_alloc_time_t" => "Da",
"H5D_fill_time_t" => "Df",
"H5D_fill_value_t" => "DF",
"H5D_layout_t" => "Dl",
"H5D_space_status_t" => "Ds",
"H5FD_mpio_xfer_t" => "Dt",
"H5FD_mpio_collective_opt_t" => "Dc",
"H5FD_mpio_chunk_opt_t" => "Dh",
"H5D_operator_t" => "Do",
"herr_t" => "e",
"H5E_auto_stack_t" => "Ea",
"H5E_auto_t" => "Eb",
"H5E_direction_t" => "Ed",
"H5E_error_t*" => "Ee",
"H5E_major_t" => "i",
"H5E_minor_t" => "i",
"H5E_error_t" => "Ee",
"H5E_type_t" => "Et",
"H5E_walk_stack_t" => "Es",
"H5E_walk_t" => "Ew",
"FILE" => "f",
"H5FD_class_t" => "Fc",
"H5F_close_degree_t" => "Fd",
"H5FD_t" => "Ff",
"H5F_scope_t" => "Fs",
"H5FD_stream_fapl_t" => "Ft",
"H5E_major_t" => "g",
"H5G_iterate_t" => "Gi",
"H5G_info_t" => "Gn",
"H5G_obj_t" => "Go",
"H5G_stat_t*" => "Gs",
"H5L_type_t" => "Ll",
"unsigned long" => "Lu",
"H5G_stat_t" => "Gs",
"hsize_t" => "h",
"hssize_t" => "Hs",
"hid_t" => "i",
"int" => "Is",
"int32_t" => "Is",
"unsigned" => "Iu",
"unsigned int" => "Iu",
"H5I_type_t" => "It",
"MPI_Comm" => "Mc",
"H5_index_t" => "Ii",
"int" => "In",
"H5_iter_order_t" => "Io",
"int32_t" => "It",
"H5I_type_t" => "Iy",
"H5L_class_t" => "Lc",
"H5L_type_t" => "Ll",
"H5L_index_t" => "Li",
"H5L_iterate_t" => "Lt",
"H5E_minor_t" => "m",
"H5MM_allocate_t" => "Ma",
"MPI_Comm" => "Mc",
"H5MM_free_t" => "Mf",
"MPI_Info" => "Mi",
"H5FD_mem_t" => "Mt",
"H5_index_t" => "n",
"off_t" => "o",
"H5O_info_t" => "Oi",
"H5P_class_t" => "p",
"H5P_cls_create_func_t" => "Pa",
"H5P_cls_copy_func_t" => "Pb",
"H5P_cls_close_func_t" => "Pc",
"H5P_iterate_t" => "Pd",
"H5P_prp_create_func_t" => "Pe",
"H5P_prp_copy_func_t" => "Pf",
"H5P_prp_close_func_t" => "Pg",
"H5P_prp_delete_func_t" => "Ph",
"H5P_prp_get_func_t" => "Pi",
"H5P_prp_set_func_t" => "Pj",
"H5_iter_order_t" => "r",
"H5R_type_t" => "Rt",
"char*" => "s",
"char" => "s",
"H5S_class_t" => "Sc",
"H5S_seloper_t" => "Ss",
"H5S_sel_type" => "St",
"htri_t" => "t",
"H5T_cdata_t" => "Ta",
"H5T_cset_t", => "Tc",
"H5T_direction_t", => "Td",
"H5T_conv_except_func_t" => "Te",
"H5T_norm_t" => "Tn",
"H5T_order_t" => "To",
"H5T_pad_t" => "Tp",
"H5T_pers_t" => "Te",
"H5T_pers_t" => "Tr",
"H5T_sign_t" => "Ts",
"H5T_class_t" => "Tt",
"H5T_conv_t" => "Tv",
"H5T_str_t" => "Tz",
"void*" => "x",
"void**" => "x",
"FILE*" => "x",
"H5A_operator_t" => "x",
"H5AC_cache_config_t*" => "x",
"H5D_operator_t" => "x",
"H5E_auto_t" => "x",
"H5E_auto_stack_t" => "x",
"H5E_walk_t" => "x",
"H5E_walk_stack_t" => "x",
"H5FD_t*" => "x",
"H5FD_class_t*" => "x",
"H5FD_stream_fapl_t*" => "x",
"H5G_iterate_t" => "x",
"H5L_class_t" => "x",
"H5L_iterate_t" => "x",
"H5MM_allocate_t" => "x",
"H5MM_free_t" => "x",
"H5P_cls_create_func_t" => "x",
"H5P_cls_copy_func_t" => "x",
"H5P_cls_close_func_t" => "x",
"H5P_iterate_t" => "x",
"H5P_prp_create_func_t" => "x",
"H5P_prp_copy_func_t" => "x",
"H5P_prp_close_func_t" => "x",
"H5P_prp_delete_func_t" => "x",
"H5P_prp_get_func_t" => "x",
"H5P_prp_set_func_t" => "x",
"H5T_cdata_t**" => "x",
"H5T_conv_t" => "x",
"H5T_conv_except_func_t" => "x",
"H5Z_func_t" => "x",
"H5Z_filter_func_t" => "x",
"unsigned" => "u",
"unsigned int" => "Ui",
"void" => "v",
"size_t" => "z",
"H5Z_SO_scale_type_t" => "Za",
"H5Z_class_t*" => "Zc",
"H5Z_class_t" => "Zc",
"H5Z_EDC_t" => "Ze",
"H5Z_filter_func_t" => "Zi",
"H5Z_filter_t" => "Zf",
"ssize_t" => "Zs",
"H5Z_func_t" => "Zu",
);
##############################################################################
@ -248,9 +255,9 @@ sub rewrite_func ($$$$$) {
# The H5TRACE() statement
if ($body =~ /\/\*[ \t]*NO[ \t]*TRACE[ \t]*\*\//) {
if ($body =~ /\s*H5TRACE\d+\s*\(/) {
errmesg $file, $name, "warning: trace info was not updated";
errmesg $file, $name, "warning: trace info was not updated because of NO TRACE comment";
} else {
errmesg $file, $name, "warning: trace info was not inserted";
errmesg $file, $name, "warning: trace info was not inserted because of NO TRACE comment";
}
} elsif ($body =~ s/((\n[ \t]*)H5TRACE\d+\s*\(.*?\);)\n/"$2$trace"/es) {
# Replaced an H5TRACE macro