summaryrefslogtreecommitdiffstats
path: root/pablo
diff options
context:
space:
mode:
Diffstat (limited to 'pablo')
-rw-r--r--pablo/HDF5record_RT.h78
-rw-r--r--pablo/HDFentries.txt520
-rw-r--r--pablo/Makefile.in46
-rw-r--r--pablo/PabloHDF5.c (renamed from pablo/PabloHDF.c)454
-rw-r--r--pablo/PabloHDF_RT.c66
-rw-r--r--pablo/PabloHDF_SDDF.c127
-rw-r--r--pablo/ProcIDs.h118
-rw-r--r--pablo/ProcTrace.h198
8 files changed, 927 insertions, 680 deletions
diff --git a/pablo/HDF5record_RT.h b/pablo/HDF5record_RT.h
index d86871e..f3bbe4e 100644
--- a/pablo/HDF5record_RT.h
+++ b/pablo/HDF5record_RT.h
@@ -167,84 +167,6 @@ typedef struct fileRec {
int getHDFFieldIndex( int eventID );
int getHDFByteFieldIndex( int eventID );
-#define IOerrorID 700000
-
-#define openBeginID 700001
-#define openEndID 700002
-
-#define fopenBeginID 700003
-#define fopenEndID 700004
-
-#define closeBeginID 700005
-#define closeEndID 700006
-
-#define fcloseBeginID 700007
-#define fcloseEndID 700008
-
-#define readBeginID 700009
-#define readEndID 700010
-
-#define freadBeginID 700011
-#define freadEndID 700012
-
-#define lseekBeginID 700013
-#define lseekEndID 700014
-
-#define fseekBeginID 700015
-#define fseekEndID 700016
-
-#define writeBeginID 700017
-#define writeEndID 700018
-
-#define fwriteBeginID 700019
-#define fwriteEndID 700020
-
-#define fflushBeginID 700021
-#define fflushEndID 700022
-
-#define flushBeginID 700023
-#define flushEndID 700024
-
-#define rewindBeginID 700025
-#define rewindEndID 700026
-
-#define fsetposBeginID 700027
-#define fsetposEndID 700028
-
-#define lifetimeID 700040
-#define timeSummaryID 700041
-#define regionSummaryID 700042
-
-#define IOinitTraceID 700100
-#define IOendTraceID 700101
-#define IOenableTraceID 700102
-#define IOdisableTraceID 700103
-#define IOenableDetailID 700104
-#define IOdisableDetailID 700105
-#define IOenableLifeSummID 700106
-#define IOdisableLifeSummID 700107
-#define IOenableTimeSummID 700108
-#define IOdisableTimeSummID 700109
-#define IOchangeTimeWindowID 700110
-#define IOenableRegionSummID 700111
-#define IOdisableRegionSummID 700112
-#define IOchangeFileRegionID 700113
-
-/*
- * Define the masks for the I/O event families,
- */
-#define FAMILY_OPEN 0500
-#define FAMILY_FLUSH 0510
-#define FAMILY_CLOSE 0520
-#define FAMILY_READ 0530
-#define FAMILY_SEEK 0540
-#define FAMILY_WRITE 0550
-#define FAMILY_LIFETIME 0560
-#define FAMILY_TIME_SUMMARY 0570
-#define FAMILY_REGION_SUMMARY 0600
-#define FAMILY_IOTRACE_STATE 0610
-#define FAMILY_IO_MISC 0620
-
/*
* Define flags to distinguish misc i/o begin from misc i/o end
*/
diff --git a/pablo/HDFentries.txt b/pablo/HDFentries.txt
index adca079..9892628 100644
--- a/pablo/HDFentries.txt
+++ b/pablo/HDFentries.txt
@@ -1,138 +1,137 @@
-ANannlen
-ANannlist
-ANcreate
-ANcreatef
-ANend
-ANendaccess
-ANfileinfo
-ANnumann
-ANreadann
-ANselect
-ANstart
-ANwriteann
-DAcreate_array
-DAdel_elem
-DAdestroy_array
-DAget_elem
-DAset_elem
-DAsize_array
-DF24addimage
-DF24getdims
-DF24getimage
-DF24lastref
-DF24nimages
-DF24putimage
-DF24readref
-DF24reqil
-DF24restart
-DF24setcompress
-DF24setdims
-DF24setil
-DFANaddfds
-DFANaddfid
-DFANclear
-DFANgetdesc
-DFANgetdesclen
-DFANgetfds
-DFANgetfdslen
-DFANgetfid
-DFANgetfidlen
-DFANgetlabel
-DFANgetlablen
-DFANlablist
-DFANlastref
-DFANputdesc
-DFANputlabel
-DFPaddpal
-DFPgetpal
-DFPlastref
-DFPnpals
-DFPputpal
-DFPreadref
-DFPrestart
-DFPwriteref
-DFR8Istart
-DFR8addimage
-DFR8getdims
-DFR8getimage
-DFR8lastref
-DFR8nimages
-DFR8putimage
-DFR8readref
-DFR8restart
-DFR8setcompress
-DFR8setpalette
-DFR8writeref
-DFSDadddata
-DFSDclear
-DFSDendslab
-DFSDendslice
-DFSDgetNT
-DFSDgetcal
-DFSDgetdata
-DFSDgetdatalen
-DFSDgetdatastrs
-DFSDgetdimlen
-DFSDgetdims
-DFSDgetdimscale
-DFSDgetdimstrs
-DFSDgetfillvalue
-DFSDgetrange
-DFSDgetslice
-DFSDlastref
-DFSDndatasets
-DFSDpre32sdg
-DFSDputdata
-DFSDputslice
-DFSDreadref
-DFSDreadslab
-DFSDrestart
-DFSDsetNT
-DFSDsetcal
-DFSDsetdatastrs
-DFSDsetdims
-DFSDsetdimscale
-DFSDsetdimstrs
-DFSDsetfillvalue
-DFSDsetlengths
-DFSDsetrange
-DFSDstartslab
-DFSDstartslice
-DFSDwriteref
-DFSDwriteslab
-GRattrinfo
-GRcreate
-GRdiminfo
-GRend
-GRendaccess
-GRfileinfo
-GRfindattr
-GRgetattr
-GRgetchunkinfo
-GRgetdimid
-GRgetiminfo
-GRgetlutid
-GRgetlutinfo
-GRidtoref
-GRluttoref
-GRnametoindex
-GRreadimage
-GRreadlut
-GRreftoindex
-GRreqimageil
-GRreqlutil
-GRselect
-GRsetaccesstype
-GRsetattr
-GRsetchunk
-GRsetchunkcache
-GRsetcompress
-GRsetdimname
-GRsetexternalfile
-GRstart
-GRwriteimage
-GRwritelut
-H5AC_create
+H5I_debug
+H5F_flush_all
+H5F_close_all
+H5S_none_select_serialize
+H5S_none_select_deserialize
+H5T_conv_enum_init
+H5T_conv_enum
+H5T_conv_schar_uchar
+H5T_conv_uchar_schar
+H5T_conv_schar_short
+H5T_conv_schar_ushort
+H5T_conv_uchar_short
+H5T_conv_uchar_ushort
+H5T_conv_schar_int
+H5T_conv_schar_uint
+H5T_conv_uchar_int
+H5T_conv_uchar_uint
+H5T_conv_schar_long
+H5T_conv_schar_ulong
+H5T_conv_uchar_long
+H5T_conv_uchar_ulong
+H5T_conv_schar_llong
+H5T_conv_schar_ullong
+H5T_conv_uchar_llong
+H5T_conv_uchar_ullong
+H5T_conv_short_schar
+H5T_conv_short_uchar
+H5T_conv_ushort_schar
+H5T_conv_ushort_uchar
+H5T_conv_short_ushort
+H5T_conv_ushort_short
+H5T_conv_short_int
+H5T_conv_short_uint
+H5T_conv_ushort_int
+H5T_conv_ushort_uint
+H5T_conv_short_long
+H5T_conv_short_ulong
+H5T_conv_ushort_long
+H5T_conv_ushort_ulong
+H5T_conv_short_llong
+H5T_conv_short_ullong
+H5T_conv_ushort_llong
+H5T_conv_ushort_ullong
+H5T_conv_int_schar
+H5T_conv_int_uchar
+H5T_conv_uint_schar
+H5T_conv_uint_uchar
+H5T_conv_int_short
+H5T_conv_int_ushort
+H5T_conv_uint_short
+H5T_conv_uint_ushort
+H5T_conv_int_uint
+H5T_conv_uint_int
+H5T_conv_int_long
+H5T_conv_int_ulong
+H5T_conv_uint_long
+H5T_conv_uint_ulong
+H5T_conv_int_llong
+H5T_conv_int_ullong
+H5T_conv_uint_llong
+H5T_conv_uint_ullong
+H5T_conv_long_schar
+H5T_conv_long_uchar
+H5T_conv_ulong_schar
+H5T_conv_ulong_uchar
+H5T_conv_long_short
+H5T_conv_long_ushort
+H5T_conv_ulong_short
+H5T_conv_ulong_ushort
+H5T_conv_long_int
+H5T_conv_long_uint
+H5T_conv_ulong_int
+H5T_conv_ulong_uint
+H5T_conv_long_ulong
+H5T_conv_ulong_long
+H5T_conv_long_llong
+H5T_conv_long_ullong
+H5T_conv_ulong_llong
+H5T_conv_ulong_ullong
+H5T_conv_llong_schar
+H5T_conv_llong_uchar
+H5T_conv_ullong_schar
+H5T_conv_ullong_uchar
+H5T_conv_llong_short
+H5T_conv_llong_ushort
+H5T_conv_ullong_short
+H5T_conv_ullong_ushort
+H5T_conv_llong_int
+H5T_conv_llong_uint
+H5T_conv_ullong_int
+H5T_conv_ullong_uint
+H5T_conv_llong_long
+H5T_conv_llong_ulong
+H5T_conv_ullong_long
+H5T_conv_ullong_ulong
+H5T_conv_llong_ullong
+H5T_conv_ullong_llong
+H5Tset_precision
+H5Tenum_create
+H5Tenum_insert
+H5Tget_super
+H5Tget_member_value
+H5Tenum_nameof
+H5Tenum_valueof
+H5Tregister
+H5T_isa
+H5T_set_size
+H5T_set_precision
+H5T_set_offset
+H5T_struct_insert
+H5T_sort_value
+H5T_sort_name
+H5T_enum_insert
+H5T_enum_nameof
+H5T_enum_valueof
+H5T_convert
+H5T_print_stats
+H5S_select_elements
+H5S_select_all
+H5S_select_none
+H5S_select_serial_size
+H5S_select_serialize
+H5S_select_deserialize
+H5S_point_select_serial_size
+H5S_point_select_serialize
+H5S_point_select_deserialize
+H5S_hyper_node_release
+H5S_hyper_select_serial_size
+H5S_hyper_select_serialize
+H5S_hyper_select_deserialize
+H5S_all_select_deserialize
+H5S_all_select_serialize
+H5RA_isa
+H5Pset_gc_references
H5AC_debug
H5AC_dest
H5AC_find
@@ -140,6 +139,7 @@ H5AC_flush
H5AC_protect
H5AC_rename
H5AC_set
+H5AC_create
H5AC_unprotect
H5A_close
H5A_copy
@@ -185,8 +185,7 @@ H5D_get_file
H5D_get_space
H5D_init_interface
H5D_init_storage
-H5D_isa
-H5D_new
+H5D_new
H5D_open
H5D_open_oid
H5D_read
@@ -318,12 +317,10 @@ H5G_ent_modified
H5G_find
H5G_get_comment
H5G_get_objinfo
-H5G_get_type
H5G_getcwg
H5G_init_interface
H5G_insert
H5G_insertion_file
-H5G_isa
H5G_link
H5G_linkval
H5G_loc
@@ -345,7 +342,6 @@ H5G_node_remove
H5G_open
H5G_pop
H5G_push
-H5G_register_type
H5G_reopen
H5G_rootof
H5G_set
@@ -445,15 +441,14 @@ H5O_efl_reset
H5O_efl_size
H5O_efl_total_size
H5O_efl_write
-H5O_exists
-H5O_fill_convert
-H5O_fill_copy
-H5O_fill_debug
+H5O_find_in_ohdr
H5O_fill_decode
H5O_fill_encode
-H5O_fill_reset
+H5O_fill_copy
H5O_fill_size
-H5O_find_in_ohdr
+H5O_fill_reset
+H5O_fill_debug
+H5O_fill_convert
H5O_flush
H5O_free
H5O_init_interface
@@ -510,6 +505,9 @@ H5P_copy
H5P_create
H5P_get_class
H5P_init_interface
+H5PC_Signal_right_neighbor
+H5PC_Wait_for_left_neighbor
+H5PC_Wait_for_right_neighbor
H5Pclose
H5Pcopy
H5Pcreate
@@ -561,19 +559,6 @@ H5Pset_stdio
H5Pset_sym_k
H5Pset_userblock
H5Pset_xfer
-H5RA_close
-H5RA_create
-H5RA_fix_overflow
-H5RA_init_interface
-H5RA_isa
-H5RA_open
-H5RA_read
-H5RA_write
-H5RAclose
-H5RAcreate
-H5RAopen
-H5RAread
-H5RAwrite
H5R_close
H5R_create
H5R_dereference
@@ -590,6 +575,18 @@ H5Rget_region
H5Ropen
H5Rread
H5Rwrite
+H5RAcreate
+H5RA_create
+H5RAopen
+H5RA_open
+H5RAclose
+H5RA_close
+H5RA_init_interface
+H5RAwrite
+H5RA_write
+H5RA_fix_overflow
+H5RAread
+H5RA_read
H5S_all_favail
H5S_all_fgath
H5S_all_fscat
@@ -716,7 +713,6 @@ H5T_init
H5T_init_interface
H5T_insert
H5T_is_atomic
-H5T_isa
H5T_lock
H5T_open
H5T_pack
@@ -794,201 +790,9 @@ H5_init_thread
H5dont_atexit
H5get_libversion
H5open
-HAatom_group
-HAatom_object
-HAdestroy_group
-HAinit_group
-HAregister_atom
-HAremove_atom
-HAsearch_atom
-HDFnewentry
-HDdont_atexit
-HDreuse_tagref
-HEclear
-HEprint
-HEpush
-HEreport
-HEstring
-HIbitstart
-HIstart
-HLconvert
-HLcreate
-HMCPchunkread
-HMCPchunkwrite
-HMCPendaccess
-HMCPinfo
-HMCPinquire
-HMCPread
-HMCPseek
-HMCPstread
-HMCPstwrite
-HMCPwrite
-HMCcreate
-HMCreadChunk
-HMCsetMaxcache
-HMCwriteChunk
-HPregister_term_func
-HULadd_node
-HULcreate_list
-HULdestroy_list
-HULfirst_node
-HULnext_node
-HULremove_node
-HULsearch_node
-HXcreate
-HXsetcreatedir
-HXsetdir
-Happendable
-Hcache
-Hclose
-Hdeldd
-Hdupdd
-Hendaccess
-Hexist
-Hfidinquire
-Hfind
-Hgetelement
-Hgetfileversion
-Hgetlibversion
-Hinquire
-Hisappendable
-Hishdf
-Hlength
-Hnewref
-Hnextread
-Hnumber
-Hoffset
-Hopen
-Hputelement
-Hread
-Hseek
-Hsetaccesstype
-Hsetlength
-Hstartaccess
-Hstartread
-Hstartwrite
-Hsync
-Htagnewref
-Htell
-Htrunc
-Hwrite
-SDattrinfo
-SDcheckempty
-SDcreate
-SDdiminfo
-SDend
-SDendaccess
-SDfileinfo
-SDfindattr
-SDgetcal
-SDgetchunkinfo
-SDgetdatastrs
-SDgetdimid
-SDgetdimscale
-SDgetdimstrs
-SDgetfillvalue
-SDgetinfo
-SDgetrange
-SDidtoref
-SDiscoordvar
-SDisdimval_bwcomp
-SDisrecord
-SDnametoindex
-SDreadattr
-SDreadchunk
-SDreaddata
-SDreftoindex
-SDselect
-SDsetaccesstype
-SDsetattr
-SDsetblocksize
-SDsetcal
-SDsetchunk
-SDsetchunkcache
-SDsetcompress
-SDsetdatastrs
-SDsetdimname
-SDsetdimscale
-SDsetdimstrs
-SDsetdimval_comp
-SDsetexternalfile
-SDsetfillmode
-SDsetfillvalue
-SDsetnbitdataset
-SDsetrag
-SDsetrange
-SDstart
-SDwritechunk
-SDwritedata
-VFfieldesize
-VFfieldisize
-VFfieldname
-VFfieldorder
-VFfieldtype
-VFnfields
-VHmakegroup
-VHstoredata
-VHstoredatam
-VSappendable
-VSattach
-VSattrinfo
-VSdelete
-VSdetach
-VSelts
-VSfdefine
-VSfexist
-VSfind
-VSfindattr
-VSfindclass
-VSfindex
-VSfnattrs
-VSfpack
-VSgetattr
-VSgetclass
-VSgetfields
-VSgetid
-VSgetinterlace
-VSgetname
-VSinquire
-VSisattr
-VSlone
-VSnattrs
-VSread
-VSseek
-VSsetattr
-VSsetclass
-VSsetfields
-VSsetinterlace
-VSsetname
-VSsizeof
-VSwrite
-Vaddtagref
-Vattach
-Vattrinfo
-Vdeletetagref
-Vdetach
-Vfind
-Vfindattr
-Vfindclass
-Vfinish
-Vgetattr
-Vgetclass
-Vgetid
-Vgetname
-Vgettagref
-Vgettagrefs
-Vgetversion
-Vinitialize
-Vinqtagref
-Vinquire
-Vinsert
-Vlone
-Vnattrs
-Vntagrefs
-Vsetattr
-Vsetclass
-Vsetname
-vpackvg
-vpackvs
-vunpackvg
-vunpackvs
+H5D_isa
+H5F_init
+H5G_register_type
+H5G_isa
+H5G_get_type
+H5O_exists
diff --git a/pablo/Makefile.in b/pablo/Makefile.in
index 8091ae4..9a2a458 100644
--- a/pablo/Makefile.in
+++ b/pablo/Makefile.in
@@ -29,9 +29,9 @@ LIB_SRC=H5.c H5A.c H5AC.c H5B.c H5D.c H5E.c H5F.c H5Farray.c H5Fcore.c \
H5Fstdio.c H5G.c H5Gent.c H5Gnode.c H5Gstab.c H5HG.c H5HL.c H5I.c H5MF.c \
H5MM.c H5O.c H5Oattr.c H5Ocomp.c H5Ocont.c H5Odtype.c H5Oefl.c H5Ofill.c \
H5Olayout.c H5Omtime.c H5Oname.c H5Onull.c H5Osdspace.c H5Oshared.c \
- H5Ostab.c H5P.c H5R.c H5RA.c H5S.c H5Sall.c H5Shyper.c H5Smpio.c H5Spoint.c \
- H5Sselect.c H5T.c H5Tbit.c H5Tconv.c H5Tinit.c H5TB.c H5V.c H5Z.c \
- PabloHDF.c PabloHDF_RT.c PabloHDF_SDDF.c
+ H5Ostab.c H5P.c H5R.c H5RA.c H5S.c H5Sall.c H5Shyper.c H5Smpio.c \
+ H5Snone.c H5Spoint.c H5Sselect.c H5T.c H5Tbit.c H5Tconv.c H5Tinit.c \
+ H5TB.c H5V.c H5Z.c PabloHDF5.c PabloHDF_RT.c PabloHDF_SDDF.c
LIB_OBJ=$(LIB_SRC:.c=.o)
@@ -53,8 +53,8 @@ PRIVATE_HDR=H5private.h H5Aprivate.h H5Apkg.h H5ACprivate.h H5Bprivate.h \
H5Tprivate.h H5TBprivate.h H5Tpkg.h H5Vprivate.h H5Zprivate.h
# Number format detection
-H5Tinit.c: ../src/H5detect
- $(RUNTEST) ../src/H5detect >H5Tinit.c
+H5Tinit.c: ../src/H5Tinit.c
+ cp ../src/H5Tinit.c .
#------------------------------------------------------------- -*- makefile -*-
# The following section of this makefile comes from the
@@ -138,9 +138,10 @@ maintainer-clean: distclean
.c.o:
$(CC) $(CFLAGS) $(CPPFLAGS) -c ../src/$*.c
-PABLO_INCLUDES = HDFentryNames.h HDFidList.h HDF5record_RT.h ProcIDs.h
+PABLO_INCLUDES = HDFentryNames.h HDFidList.h HDF5record_RT.h ProcIDs.h \
+ ProcTrace.h
-PabloHDF.o: PabloHDF.c $(PABLO_INCLUDES)
+PabloHDF5.o: PabloHDF5.c $(PABLO_INCLUDES)
$(CC) $(CFLAGS) $(CPPFLAGS) -c $<
PabloHDF_RT.o: PabloHDF_RT.c $(PABLO_INCLUDES)
@@ -150,10 +151,10 @@ PabloHDF_SDDF.o: PabloHDF_SDDF.c $(PABLO_INCLUDES)
$(CC) $(CFLAGS) $(CPPFLAGS) -c $<
HDFentryNames.h: HDFentries.txt
- sed "s/.*/\"&\",/" $? > $@
+ sort $? | sed "s/.*/\"&\",/" > $@
HDFidList.h: HDFentries.txt
- sed "s/.*/ID_&,/" $? > $@
+ sort $? | sed "s/.*/ID_&,/" > $@
#------------------------------------------------------------------------------
# The following section of this makefile contains dependencies between the
@@ -1250,6 +1251,33 @@ HDFidList.h \
../src/H5HGpublic.h \
../src/H5Tprivate.h \
../src/H5Tpublic.h
+H5Snone.c: ../src/H5Snone.c
+H5Snone.o: \
+H5Snone.c \
+ProcIDs.h \
+HDFidList.h \
+../src/H5private.h \
+../src/H5public.h \
+../src/H5config.h \
+../src/H5api_adpt.h \
+../src/H5Eprivate.h \
+../src/H5Epublic.h \
+../src/H5Ipublic.h \
+../src/H5Sprivate.h \
+../src/H5Spublic.h \
+../src/H5Fprivate.h \
+../src/H5Fpublic.h \
+../src/H5Dpublic.h \
+../src/H5Gprivate.h \
+../src/H5Gpublic.h \
+../src/H5Bprivate.h \
+../src/H5Bpublic.h \
+../src/H5Oprivate.h \
+../src/H5Opublic.h \
+../src/H5HGprivate.h \
+../src/H5HGpublic.h \
+../src/H5Tprivate.h \
+../src/H5Tpublic.h
H5Spoint.c: ../src/H5Spoint.c
H5Spoint.o: \
H5Spoint.c \
diff --git a/pablo/PabloHDF.c b/pablo/PabloHDF5.c
index cba0c87..c239357b 100644
--- a/pablo/PabloHDF.c
+++ b/pablo/PabloHDF5.c
@@ -77,6 +77,7 @@
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
+#include <stdarg.h>
#ifndef fileno
int fileno ( FILE * );
#endif
@@ -111,31 +112,37 @@ int HDFtrace3OPEN( const char *, int, mode_t );
typedef unsigned int mode_t;
#endif
-int OUTPUT_SWITCH;
+int OUTPUT_SWITCH = 1;
+int *procTrace;
extern void preInitIOTrace( void );
-#include "ProcIDs.h"
+#include "ProcTrace.h"
#include "HDF5Trace.h"
#include "IOTrace.h"
+#define ID_HDFprocName 9996
+#define ID_malloc 9997
+#define ID_free 9998
+#define ID_timeStamp 9999
+#define DUMMY_HDF 10000
+
#ifdef HAVE_PARALLEL
#include "mpio.h"
-#include "MPIO_Init.h"
-#include "MPIO_EventArgs.h"
#include "MPIO_TraceParams.h"
-#include "HDFmpioProtos.h"
#endif /* HAVE_PARALLEL*/
-#define NO_OUTPUT 0
-#define SDDF_OUTPUT 1
-#define RT_OUTPUT 2
-void HDFinitTrace_RT ( const char *, unsigned int );
-void HDFinitTrace_SDDF ( const char *, unsigned int );
-void hinittracex_ ( int [], int *, unsigned *, int * );
-void hdfendtrace_ ( void ) ;
-void HDFendTrace (void);
-void HDFendTrace_RT (void);
-void HDFendTrace_SDDF(void);
+#ifdef HAVE_MPIOTRACE
+#include "MPIO_Init.h"
+#include "MPIO_EventArgs.h"
+#include "HDFmpioProtos.h"
+#endif /* HAVE_MPIOTRACE */
+
+void HDFinitTrace_RT ( const char *, int );
+void HDFinitTrace_SDDF ( const char *, int );
+void h5inittracex_ ( int [], int *, int[], int *,unsigned * );
+void hdf5endtrace_ ( void ) ;
+void HDFendTrace_RT (int);
+void HDFendTrace_SDDF(int);
void HDFfinalTimeStamp( void );
void startHDFtraceEvent (int );
int computeProcMask (int eventID);
@@ -144,19 +151,22 @@ void endHDFtraceEvent (int , int , char *, int );
void traceEvent ( int , char *, unsigned );
void HDFtraceEvent_RT ( int , HDFsetInfo *, unsigned );
void HDFtraceIOEvent( int , void *, unsigned );
-uint procTrace;
extern int IOtracingEnabled;
char *hdfRecordPointer;
+double WriteTotals = 0.0;
+double ReadTotals = 0.0;
/*======================================================================*
// NAME *
-// HDFinitTrace -- initialize HDF tracing *
+// HDF5initTrace -- initialize HDF tracing *
// USAGE *
-// VOID HDFinitTrace( traceFileName, procTraceMask, out_sw ) *
+// VOID HDFinitTrace( traceFileName, out_sw ) *
// char *traceFileName; IN: name of the generated trace output *
// file *
-// uint32 procTraceMask; IN: families of procedures to trace *
-// int out_sw IN: indicates whether to produce SDDF *
-// file or Final Summary *
+// int ... IN: indicates which routines to trace *
+// The list is terminated by the *
+// OUTPUT_SWITCH value indicating *
+// whether to do RunTime or Summary *
+// tracing. *
// RETURNS *
// None. *
//======================================================================*/
@@ -166,62 +176,159 @@ char *hdfRecordPointer;
// function. This program converts it from integer to char, then *
// passes it to the C initialization routine. *
//======================================================================*/
-void hinittracex_( int *file, int *len, unsigned *procMask, int *out_sw )
+void h5inittracex_( int *file, int *len, int flags[], int *nflags,
+ unsigned *out_sw )
{
- char *fileName;
+ char *traceFileName;
int i;
- fileName = (char *)malloc(*len+1);
+ traceFileName = (char *)malloc(*len+1);
for ( i = 0; i < *len; ++i ) {
- fileName[i] = file[i];
+ traceFileName[i] = file[i];
}
- fileName[*len+1] = 0;
- HDFinitTrace ( fileName, *procMask, *out_sw );
-}
-void HDFinitTrace( const char *traceFileName, unsigned procTraceMask,
- unsigned out_sw )
-{
- OUTPUT_SWITCH = out_sw;
- if ( out_sw == SDDF_OUTPUT ) {
- HDFinitTrace_SDDF( traceFileName, procTraceMask );
+ traceFileName[*len+1] = 0;
+ /*==============================================================*
+ // Allocate space for trace indicators. *
+ //==============================================================*/
+ procTrace = ( int * ) malloc( NUM_HDF5_IDS*sizeof(int) );
+ if ( procTrace == NULL ) {
+ fprintf(stderr,">> Error: Unable to allocate procTrace ");
+ fprintf(stderr,"array in program HDF5initTrace. <<<\n");
+ fprintf(stderr,">>> Exiting program! <<<\n");
+ exit (-1);
+ }
+ /*==============================================================*
+ // Initialize to 0. *
+ //==============================================================*/
+ for ( i = 0; i <= NUM_HDF5_IDS; ++i ) {
+ procTrace[i] = 0;
+ }
+ /*==============================================================*
+ // Read in the flags indicating which procedures to trace. *
+ // The last parameter passed is an indicator of the type of *
+ // tracing to do. This indicator has a value larger than any *
+ // of the flags. *
+ //==============================================================*/
+ for ( i = 0; i < *nflags; ++i ) {
+ procTrace[flags[i]] = 1;
+ }
+ OUTPUT_SWITCH = *out_sw;
+ /*==============================================================*
+ // if no flags were passed, the default is to trace all of the *
+ // procedures. *
+ //==============================================================*/
+ if ( *nflags == 0 || procTrace[AllHDF5] ) {
+ for ( i = ID_HDF_Last_Entry + 1; i < NUM_HDF5_IDS; ++i ) {
+ procTrace[i] = 1;
+ }
+ }
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
+ HDFinitTrace_SDDF( traceFileName, OUTPUT_SWITCH );
IOtracingEnabled = 1;
- } else if ( out_sw == RT_OUTPUT ) {
- HDFinitTrace_RT( traceFileName, procTraceMask );
+ } else if ( OUTPUT_SWITCH == SUMMARY_TRACE
+ || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) {
+ HDFinitTrace_RT( traceFileName, OUTPUT_SWITCH );
IOtracingEnabled = 1;
- } else if ( out_sw == NO_OUTPUT ) {
- procTrace = 0;
+ } else if ( OUTPUT_SWITCH == NO_TRACE ) {
IOtracingEnabled = 0;
} else {
- fprintf(stderr,">> Error in HDFinitTrace: the third argument ");
- fprintf(stderr,"must have the value 0, 1, <<<\n");
- fprintf(stderr,">> or 2. The value received was %u.", out_sw);
- fprintf(stderr," Exiting program. <<<\n");
+ fprintf(stderr,">> Error in HDF5initTrace: the third argument ");
+ fprintf(stderr,"must have a value between %4d<<\n",RUNTIME_TRACE);
+ fprintf(stderr,">> and %4d, inclusive.",NO_TRACE);
+ fprintf(stderr," The value received was %4u.", OUTPUT_SWITCH);
+ fprintf(stderr," Exiting Program. <<\n");
exit (-1);
}
}
+void HDF5initTrace( const char *traceFileName, int id_flag, ... )
+{
+ int i, nIDs;
+ va_list ap;
+
+ /*==============================================================*
+ // Allocate space for trace indicators. *
+ //==============================================================*/
+ procTrace = ( int * ) malloc( NUM_HDF5_IDS*sizeof(int) );
+ if ( procTrace == NULL ) {
+ fprintf(stderr,">> Error: Unable to allocate procTrace ");
+ fprintf(stderr,"array in program HDF5initTrace. <<<\n");
+ fprintf(stderr,">>> Exiting program! <<<\n");
+ exit (-1);
+ }
+ /*==============================================================*
+ // Initialize to 0. *
+ //==============================================================*/
+ for ( i = 0; i < NUM_HDF5_IDS; ++i ) {
+ procTrace[i] = 0;
+ }
+ /*==============================================================*
+ // Read in the flags indicating which procedures to trace. *
+ // The last parameter passed is an indicator of the type of *
+ // tracing to do. This indicator has a value larger than any *
+ // of the flags. *
+ //==============================================================*/
+ nIDs = 0;
+ va_start( ap, id_flag );
+ while ( id_flag > NO_TRACE ) {
+ procTrace[id_flag] = 1;
+ ++nIDs;
+ id_flag = va_arg ( ap, int );
+ }
+ OUTPUT_SWITCH = id_flag;
+ /*==============================================================*
+ // if no flags were passed, the default is to trace all of the *
+ // procedures. *
+ //==============================================================*/
+ if ( nIDs == 0 || procTrace[AllHDF5] ) {
+ for ( i = ID_HDF_Last_Entry + 1; i < NUM_HDF5_IDS; ++i ) {
+ procTrace[i] = 1;
+ }
+ }
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
+ HDFinitTrace_SDDF( traceFileName, OUTPUT_SWITCH );
+ IOtracingEnabled = 1;
+ } else if ( OUTPUT_SWITCH == SUMMARY_TRACE
+ || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) {
+ HDFinitTrace_RT( traceFileName, OUTPUT_SWITCH );
+ IOtracingEnabled = 1;
+ } else if ( OUTPUT_SWITCH == NO_TRACE ) {
+ IOtracingEnabled = 0;
+ } else {
+ fprintf(stderr,">> Error in HDF5initTrace: the third argument ");
+ fprintf(stderr,"must have a value between %4d<<\n",RUNTIME_TRACE);
+ fprintf(stderr,">> and %4d, inclusive.",NO_TRACE);
+ fprintf(stderr," The value received was %4u.", OUTPUT_SWITCH);
+ fprintf(stderr," Exiting Program. <<\n");
+ exit (-1);
+ }
+}
/*======================================================================*
// NAME *
-// HDFendTrace -- end HDF tracing *
+// HDF5endTrace -- end HDF tracing *
// USAGE *
-// VOID HDFendTrace(VOID) *
+// VOID HDF5endTrace(VOID) *
// RETURNS *
// None. *
//======================================================================*/
-void hdfendtrace_( void )
+void hdf5endtrace_( void )
{
- HDFendTrace ();
+ HDF5endTrace ();
}
-void HDFendTrace(void)
+void HDF5endTrace(void)
{
- if ( OUTPUT_SWITCH == SDDF_OUTPUT ) {
- HDFendTrace_SDDF( );
- } else if ( OUTPUT_SWITCH == RT_OUTPUT ) {
- HDFendTrace_RT( );
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
+ HDFendTrace_SDDF( OUTPUT_SWITCH );
+ } else if ( OUTPUT_SWITCH == SUMMARY_TRACE
+ || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) {
+ HDFendTrace_RT( OUTPUT_SWITCH );
}
- procTrace = 0;
}
void startHDFtraceEvent(int eventID)
{
- if ( OUTPUT_SWITCH == SDDF_OUTPUT ) {
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
traceEvent( eventID, NULL, 0 ) ;
} else {
HDFtraceEvent_RT( eventID, NULL, 0 ) ;
@@ -232,11 +339,13 @@ void endHDFtraceEvent(int eventID, int setID, char *setName, int IDtype )
HDFsetInfo info;
info.setID = setID;
info.setName = setName;
- if ( OUTPUT_SWITCH == SDDF_OUTPUT ) {
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
traceEvent( eventID, (char *)&info, 0 ) ;
- } else if (OUTPUT_SWITCH == RT_OUTPUT ) {
+ } else if ( OUTPUT_SWITCH == SUMMARY_TRACE
+ || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) {
HDFtraceEvent_RT( eventID, &info, 0 ) ;
- } else if ( OUTPUT_SWITCH < 0 ) {
+ } else if ( OUTPUT_SWITCH != NO_TRACE ) {
fprintf(stderr,"endHDFtraceEvent: ");
fprintf(stderr,"invalid OUTPUT_SWITCH %d, IDtype = %d\n",
OUTPUT_SWITCH, IDtype ) ;
@@ -490,6 +599,7 @@ size_t HDFtraceREAD( int fd, char *buf, int nbyte )
struct read_write_args readArgs;
size_t ret;
int bytes;
+ CLOCK t1, t2, incDur;
if ( IOtracingEnabled ) {
readArgs.fileID = c_mappedID( fd );
@@ -499,7 +609,11 @@ size_t HDFtraceREAD( int fd, char *buf, int nbyte )
HDFtraceIOEvent( readBeginID, (void *) &readArgs, sizeof(readArgs) );
}
+ t1 = getClock();
ret = read( fd, buf, nbyte );
+ t2 = getClock();
+ incDur = clockSubtract(t2,t1);
+ ReadTotals += clockToSeconds( incDur );
if ( IOtracingEnabled ) {
if ( ret > 0 ) {
@@ -527,6 +641,7 @@ size_t HDFtraceFREAD( void *ptr, int size, int nitems, FILE *stream )
size_t ret;
int nbytes;
int fd = fileno( stream );
+ CLOCK t1, t2, incDur;
if ( IOtracingEnabled ) {
readArgs.fileID = c_mappedID( fd );
@@ -535,7 +650,11 @@ size_t HDFtraceFREAD( void *ptr, int size, int nitems, FILE *stream )
HDFtraceIOEvent( freadBeginID, (void *) &readArgs, sizeof(readArgs) );
}
+ t1 = getClock();
ret = fread( ptr, size, nitems, stream );
+ t2 = getClock();
+ incDur = clockSubtract(t2,t1);
+ ReadTotals += clockToSeconds( incDur );
if ( IOtracingEnabled ) {
if ( ret > 0 ) {
@@ -692,6 +811,7 @@ size_t HDFtraceWRITE( int fd, const char *buf, int nbyte )
struct read_write_args writeArgs;
size_t ret;
int bytes;
+ CLOCK t1, t2, incDur;
if ( IOtracingEnabled ) {
writeArgs.fileID = c_mappedID( fd );
@@ -701,7 +821,11 @@ size_t HDFtraceWRITE( int fd, const char *buf, int nbyte )
HDFtraceIOEvent( writeBeginID, (void *) &writeArgs, sizeof(writeArgs) );
}
- ret = write( fd, buf, nbyte );
+ t1 = getClock();
+ ret = (size_t)write( fd, buf, nbyte );
+ t2 = getClock();
+ incDur = clockSubtract(t2,t1);
+ WriteTotals += clockToSeconds( incDur );
if ( IOtracingEnabled ) {
if ( ret > 0 ) {
@@ -728,6 +852,7 @@ size_t HDFtraceFWRITE( const char *ptr, int size, int nitems, FILE *stream )
size_t ret;
int nbytes;
int fd = fileno( stream );
+ CLOCK t1, t2, incDur;
if ( IOtracingEnabled ) {
writeArgs.fileID = c_mappedID( fd );
@@ -737,7 +862,12 @@ size_t HDFtraceFWRITE( const char *ptr, int size, int nitems, FILE *stream )
HDFtraceIOEvent( fwriteBeginID, (void *) &writeArgs, sizeof(writeArgs) );
}
+ t1 = getClock();
ret = fwrite( ptr, size, nitems, stream );
+ t2 = getClock();
+ incDur = clockSubtract(t2,t1);
+ WriteTotals += clockToSeconds( incDur );
+
if ( IOtracingEnabled ) {
if ( ret > 0 ) {
@@ -864,7 +994,8 @@ void *HDFtraceMALLOC(size_t bytes )
void HDFtraceIOEvent( int eventType, void *dataPtr, unsigned dataLen )
{
- if ( OUTPUT_SWITCH == 1 ) {
+ if ( OUTPUT_SWITCH == RUNTIME_TRACE
+ || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) {
traceEvent( eventType, dataPtr, dataLen );
} else {
HDFtraceEvent_RT( eventType, (HDFsetInfo *)dataPtr, dataLen );
@@ -875,7 +1006,6 @@ void HDFtraceIOEvent( int eventType, void *dataPtr, unsigned dataLen )
//======================================================================*/
void HDFfinalTimeStamp( void )
{
- TR_LOCK criticalSection;
CLOCK currentTime;
double seconds;
struct {
@@ -889,7 +1019,6 @@ void HDFfinalTimeStamp( void )
dataLen;
} Packet;
- criticalSection = TRlock();
currentTime = getClock();
seconds = clockToSeconds( currentTime );
@@ -903,7 +1032,99 @@ void HDFfinalTimeStamp( void )
Packet.dataLen = 0;
putBytes( (void *)&Packet , sizeof(Packet) );
}
+/*======================================================================*
+// This Program is called to specify which routines are to be traced. *
+// On first entry, the program allocates storage for and initializes a *
+// global array procTrace. The array has one element for each possible *
+// HDF5 procedure and HDF5 library file. If a procedure or all of the *
+// procedure in an HDF file are to be traced, then the elemen in the *
+// array corresponding to the procedure or file is turned on. This is *
+// used by the macros TRACE_ON and TRACE_OFF to enable tracing. If *
+// this procedure is not called prior to initialization, then all of *
+// the elements of procTrace corresponding to HDF 5 files will be *
+// turned on, in which case all HDF 5 procedures will be traced. *
+//======================================================================*/
+void PabloHDF5Trace( int ID )
+{
+ int i;
+ if ( procTrace == NULL ) {
+ procTrace = ( int * ) malloc( NUM_HDF5_IDS*sizeof(int) );
+ if ( procTrace == NULL ) {
+ fprintf(stderr,">> Error: Unable to allocate procTrace ");
+ fprintf(stderr,"array in program PabloHDF5Trace. <<<\n");
+ fprintf(stderr," Exiting program. <<<\n");
+ exit (-1);
+ }
+ for ( i = 0; i < NUM_HDF5_IDS; ++i ) {
+ procTrace[i] = 0;
+ }
+ }
+ if ( ID >= 0 && ID < NUM_HDF5_IDS ) {
+ procTrace[ID] = 1;
+ } else {
+ fprintf(stderr,">> Error: Value passed to PabloHDF5Trace, ");
+ fprintf(stderr,"%d, is out of range. <<<\n",ID);
+ fprintf(stderr," Exiting program. <<<\n");
+ exit (-1);
+ }
+}
#ifdef HAVE_PARALLEL
+int HDF_XMPI_File_open( MPI_Comm comm, char *filename, int amode,
+ MPI_Info info, MPI_File *fh );
+int HDF_XMPI_File_close( MPI_File *fh );
+int HDF_XMPI_File_delete( char *filename, MPI_Info info );
+int HDF_XMPI_File_set_size( MPI_File fh, MPI_Offset size );
+int HDF_XMPI_File_preallocate( MPI_File fh, MPI_Offset size);
+int HDF_XMPI_File_get_size( MPI_File fh, MPI_Offset *size );
+int HDF_XMPI_File_get_group( MPI_File fh, MPI_Group *group );
+int HDF_XMPI_File_get_amode( MPI_File fh, int *amode );
+int HDF_XMPI_File_set_view( MPI_File fh, MPI_Offset disp, MPI_Datatype etype,
+ MPI_Datatype filetype, char *datarep,
+ MPI_Info info );
+int HDF_XMPI_File_get_view( MPI_File fh, MPI_Offset *disp,
+ MPI_Datatype *etype, MPI_Datatype *filetype,
+ char *datarep );
+int HDF_XMPI_File_read_at( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPI_Status *status );
+int HDF_XMPI_File_read_at_all( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPI_Status *status );
+int HDF_XMPI_File_write_at( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPI_Status *status );
+int HDF_XMPI_File_write_at_all( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPI_Status *status );
+
+int HDF_XMPI_File_iread_at( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPIO_Request *request );
+int HDF_XMPI_File_iwrite_at( MPI_File fh, MPI_Offset offset, void *buf,
+ int count, MPI_Datatype datatype,
+ MPIO_Request *request );
+int HDF_XMPI_File_read( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPI_Status *status );
+int HDF_XMPI_File_read_all( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPI_Status *status );
+int HDF_XMPI_File_write( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPI_Status *status );
+int HDF_XMPI_File_write_all( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPI_Status *status );
+int HDF_XMPI_File_iread( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPIO_Request *request );
+int HDF_XMPI_File_iwrite( MPI_File fh, void *buf, int count,
+ MPI_Datatype datatype, MPIO_Request *request );
+int HDF_XMPI_File_seek( MPI_File fh,
+ MPI_Offset offset, int whence ) ;
+int HDF_XMPI_File_get_position( MPI_File fh, MPI_Offset *offset );
+int HDF_XMPI_File_get_byte_offset( MPI_File fh, MPI_Offset offset,
+ MPI_Offset *disp) ;
+int HDF_XMPI_File_get_type_extent( MPI_File fh, MPI_Datatype datatype,
+ MPI_Aint *extent );
+int HDF_XMPI_File_set_atomicity( MPI_File fh, int flag );
+int HDF_XMPI_File_get_atomicity( MPI_File fh, int *flag );
+int HDF_XMPI_File_sync( MPI_File fh );
/*======================================================================*
// Pass call through to regular MPIO entry except in case of Real Time *
// tracing. *
@@ -916,8 +1137,8 @@ int HDF_MPI_File_open( MPI_Comm comm, char *filename, int amode,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_open( comm, filename, amode, info, fh );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_open( comm, filename, amode, info, fh );
} else {
dataLen = sizeof( HDFsetInfo );
dataPtr.setID = (long)fh;
@@ -943,8 +1164,8 @@ int HDF_MPI_File_close( MPI_File *fh )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_close( fh );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_close( fh );
} else {
dataLen = sizeof( HDFsetInfo );
dataPtr.setID = (long)fh;
@@ -968,8 +1189,8 @@ int HDF_MPI_File_delete( char *filename, MPI_Info info )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_delete( filename, info );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_delete( filename, info );
} else {
dataLen = sizeof( HDFsetInfo );
dataPtr.setID = 0;
@@ -994,8 +1215,8 @@ int HDF_MPI_File_set_size( MPI_File fh, MPI_Offset size )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_set_size( fh, size );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_set_size( fh, size );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSetSizeBeginID,&dataPtr,dataLen );
@@ -1016,8 +1237,8 @@ int HDF_MPI_File_preallocate( MPI_File fh, MPI_Offset size)
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_preallocate( fh, size);
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_preallocate( fh, size);
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiPreallocateBeginID,
@@ -1040,8 +1261,8 @@ int HDF_MPI_File_get_size( MPI_File fh, MPI_Offset *size )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_size( fh, size);
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_size( fh, size);
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetSizeBeginID,
@@ -1064,8 +1285,8 @@ int HDF_MPI_File_get_group( MPI_File fh, MPI_Group *group )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_group( fh, group);
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_group( fh, group);
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetGroupBeginID,
@@ -1088,8 +1309,8 @@ int HDF_MPI_File_get_amode( MPI_File fh, int *amode )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_amode( fh, amode);
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_amode( fh, amode);
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetAmodeBeginID,
@@ -1113,14 +1334,14 @@ int HDF_MPI_File_set_view( MPI_File fh, MPI_Offset disp, MPI_Datatype etype,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_set_view( fh, disp, etype, filetype,
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_set_view( fh, disp, etype, filetype,
datarep, info );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSetViewBeginID,
&dataPtr,dataLen );
- returnVal = MPI_File_set_view( fh, disp, etype, filetype,
+ returnVal = PMPI_File_set_view( fh, disp, etype, filetype,
datarep, info );
HDFtraceEvent_RT( mpiSetViewEndID,
&dataPtr,dataLen );
@@ -1140,8 +1361,8 @@ int HDF_MPI_File_get_view( MPI_File fh, MPI_Offset *disp, MPI_Datatype *etype,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_view(fh, disp, etype, filetype, datarep);
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_view(fh, disp, etype, filetype, datarep);
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSetViewBeginID,
@@ -1167,8 +1388,8 @@ int HDF_MPI_File_read_at( MPI_File fh, MPI_Offset offset, void *buf,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_read_at( fh, offset, buf, count, datatype,
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_read_at( fh, offset, buf, count, datatype,
status );
} else {
dataLen = 0;
@@ -1195,8 +1416,8 @@ int HDF_MPI_File_read_at_all( MPI_File fh, MPI_Offset offset, void *buf,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_read_at_all( fh, offset, buf,
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_read_at_all( fh, offset, buf,
count, datatype, status );
} else {
dataLen = 0;
@@ -1223,8 +1444,8 @@ int HDF_MPI_File_write_at( MPI_File fh, MPI_Offset offset, void *buf,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_write_at( fh, offset, buf, count, datatype,
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_write_at( fh, offset, buf, count, datatype,
status );
} else {
dataLen = 0;
@@ -1250,8 +1471,8 @@ int HDF_MPI_File_write_at_all( MPI_File fh, MPI_Offset offset, void *buf,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_write_at_all( fh, offset, buf,
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_write_at_all( fh, offset, buf,
count, datatype, status );
} else {
dataLen = 0;
@@ -1273,7 +1494,7 @@ int HDF_MPI_File_write_at_all( MPI_File fh, MPI_Offset offset, void *buf,
int HDF_MPI_File_iread_at( MPI_File fh, MPI_Offset offset, void *buf,
int count, MPI_Datatype datatype, MPIO_Request *request )
{
- return MPI_File_iread_at( fh, offset, buf, count, datatype, request );
+ return HDF_XMPI_File_iread_at( fh, offset, buf, count, datatype, request );
}
/*======================================================================*
@@ -1284,7 +1505,7 @@ int HDF_MPI_File_iread_at( MPI_File fh, MPI_Offset offset, void *buf,
int HDF_MPI_File_iwrite_at( MPI_File fh, MPI_Offset offset, void *buf,
int count, MPI_Datatype datatype, MPIO_Request *request)
{
- return MPI_File_iwrite_at( fh, offset, buf, count, datatype, request );
+ return HDF_XMPI_File_iwrite_at( fh, offset, buf, count, datatype, request );
}
/*======================================================================*
@@ -1299,8 +1520,8 @@ int HDF_MPI_File_read( MPI_File fh, void *buf, int count,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_read( fh, buf, count, datatype, status );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_read( fh, buf, count, datatype, status );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiReadBeginID,
@@ -1324,8 +1545,8 @@ int HDF_MPI_File_read_all( MPI_File fh, void *buf, int count,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_read_all( fh, buf, count, datatype, status );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_read_all( fh, buf, count, datatype, status );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiReadAllBeginID,
@@ -1349,8 +1570,8 @@ int HDF_MPI_File_write( MPI_File fh, void *buf, int count,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_write( fh, buf, count, datatype, status );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_write( fh, buf, count, datatype, status );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiWriteBeginID,
@@ -1374,8 +1595,8 @@ int HDF_MPI_File_write_all( MPI_File fh, void *buf, int count,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_write_all( fh, buf, count, datatype, status );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal =HDF_XMPI_File_write_all( fh, buf, count, datatype, status );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiWriteAllBeginID,
@@ -1395,7 +1616,7 @@ int HDF_MPI_File_write_all( MPI_File fh, void *buf, int count,
int HDF_MPI_File_iread( MPI_File fh, void *buf, int count,
MPI_Datatype datatype, MPIO_Request *request )
{
- return MPI_File_iread( fh, buf, count, datatype, request );
+ return HDF_XMPI_File_iread( fh, buf, count, datatype, request );
}
/*======================================================================*
@@ -1406,7 +1627,7 @@ int HDF_MPI_File_iread( MPI_File fh, void *buf, int count,
int HDF_MPI_File_iwrite( MPI_File fh, void *buf, int count,
MPI_Datatype datatype, MPIO_Request *request )
{
- return MPI_File_iwrite( fh, buf, count, datatype, request );
+ return HDF_XMPI_File_iwrite( fh, buf, count, datatype, request );
}
/*======================================================================*
@@ -1421,8 +1642,8 @@ int HDF_MPI_File_seek( MPI_File fh, MPI_Offset offset, int whence )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_seek( fh, offset, whence );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_seek( fh, offset, whence );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSeekBeginID,
@@ -1446,8 +1667,8 @@ int HDF_MPI_File_get_position( MPI_File fh, MPI_Offset *offset )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_position( fh, offset );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_position( fh, offset );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetPositionBeginID,
@@ -1471,8 +1692,8 @@ int HDF_MPI_File_get_byte_offset( MPI_File fh, MPI_Offset offset,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_byte_offset( fh, offset, disp );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_byte_offset( fh, offset, disp );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetByteOffsetBeginID,
@@ -1497,8 +1718,8 @@ int HDF_MPI_File_get_type_extent( MPI_File fh, MPI_Datatype datatype,
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_type_extent( fh, datatype, extent );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_type_extent( fh, datatype, extent );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetTypeExtentBeginID,
@@ -1521,8 +1742,8 @@ int HDF_MPI_File_set_atomicity( MPI_File fh, int flag )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_set_atomicity( fh, flag );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_set_atomicity( fh, flag );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSetAtomicityBeginID,
@@ -1546,8 +1767,8 @@ int HDF_MPI_File_get_atomicity( MPI_File fh, int *flag )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_get_atomicity( fh, flag );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_get_atomicity( fh, flag );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiGetAtomicityBeginID,
@@ -1570,16 +1791,17 @@ int HDF_MPI_File_sync( MPI_File fh )
HDFsetInfo dataPtr;
int dataLen;
- if ( OUTPUT_SWITCH != RT_OUTPUT ) {
- returnVal = MPI_File_sync ( fh );
+ if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
+ returnVal = HDF_XMPI_File_sync ( fh );
} else {
dataLen = 0;
HDFtraceEvent_RT( mpiSyncBeginID,
&dataPtr,dataLen );
- returnVal = MPI_File_sync ( fh );
+ returnVal = PMPI_File_sync ( fh );
HDFtraceEvent_RT( mpiSyncEndID,
&dataPtr,dataLen );
}
return returnVal;
}
+
#endif /* HAVE_PARALLEL */
diff --git a/pablo/PabloHDF_RT.c b/pablo/PabloHDF_RT.c
index 7daf6b1..c3bbc21 100644
--- a/pablo/PabloHDF_RT.c
+++ b/pablo/PabloHDF_RT.c
@@ -114,6 +114,7 @@
#include "Trace.h"
#include "TraceParam.h"
#include "ProcIDs.h"
+#include "IO_TraceParams.h"
#include "HDF5Trace.h"
#include "SDDFparam.h"
#include <string.h>
@@ -141,9 +142,12 @@
#ifdef HAVE_PARALLEL
#include "mpio.h"
+#include "MPIO_TraceParams.h"
#include "MPIO_Init.h"
#include "MPIO_EventArgs.h"
-#include "MPIO_TraceParams.h"
+#endif
+
+#ifdef HAVE_MPIOTRACE
#endif
#ifndef TRgetThreadID
@@ -156,8 +160,6 @@
#define AllThreads -1
-#define set_c_mappedID( fd ) (fd)
-#define c_mappedID( fd ) (fd)
/*======================================================================*
// User output file pointer. *
//======================================================================*/
@@ -183,8 +185,8 @@ fileRec_t *HDFfileList;
/*======================================================================*
// Internal Function prototypes *
//======================================================================*/
-void HDFinitTrace_RT( char *, unsigned );
-void HDFendTrace_RT( void );
+void HDFinitTrace_RT( char *, int );
+void HDFendTrace_RT( int );
int initproctracert_( void );
int initHDFProcTrace_RT( void );
void HDFtraceEvent_RT( int , char *, unsigned ) ;
@@ -222,14 +224,14 @@ extern char *hdfRecordPointer;
// NAME *
// HDFinitTrace_RT-- initialize HDF real-time tracing *
// USAGE *
-// VOID HDFinitTrace_RT( fileName, procTraceMask) *
+// VOID HDFinitTrace_RT( fileName, OUTSW ) *
// *
// char *fileName; IN: name of output file *
-// unsigned procTraceMask; IN: families of procedures to trace *
+// int OUTSW ; IN: Type of tracing *
// RETURNS *
// None. *
//======================================================================*/
-void HDFinitTrace_RT( char *fileName, unsigned procTraceMask )
+void HDFinitTrace_RT( char *fileName, int OUTSW )
{
#ifdef HAVE_PARALLEL
int myNode;
@@ -239,7 +241,6 @@ void HDFinitTrace_RT( char *fileName, unsigned procTraceMask )
TRgetClock( &epoch );
criticalSection = TRlock();
error = initHDFProcTrace_RT() ;
- procTrace = procTraceMask;
TRunlock( criticalSection );
if ( error != SUCCESS ) {
fprintf (stderr,"Unable to Initialize properly. Exiting program\n");
@@ -247,13 +248,21 @@ void HDFinitTrace_RT( char *fileName, unsigned procTraceMask )
}
FileName = ( char * ) malloc ( strlen( fileName ) + 10 );
#ifdef HAVE_PARALLEL
- MPI_Comm_rank( MPI_COMM_WORLD, &myNode );
- setTraceProcessorNumber( myNode );
- sprintf(FileName,"%s.nd%d",fileName,myNode);
/*==============================================================*
- // In the parallel case, initialize MPI-IO tracing. This will *
- // set the trace file name. *
+ // Here the library was built to linked with the MPI and MPIO *
+ // libraries. However, the use may chose not to run with MPI. *
+ // A check is made to see if MPI has been initialized. If so, *
+ // a trace file is assigned to the current node with the number *
+ // of the node as a suffix; if not, only one file is opened *
+ // and it is not given a suffix. *
//==============================================================*/
+ if ( OUTSW == MPI_SUMMARY_TRACE ) {
+ MPI_Comm_rank( MPI_COMM_WORLD, &myNode );
+ setTraceProcessorNumber( myNode );
+ sprintf(FileName,"%s.nd%d",fileName,myNode);
+ } else {
+ strcpy( FileName, fileName ) ;
+ }
#else
/*==============================================================*
// In the non-parallel case, set the trace file name and *
@@ -272,14 +281,16 @@ void HDFinitTrace_RT( char *fileName, unsigned procTraceMask )
// RETURNS *
// None. *
//======================================================================*/
-void HDFendTrace_RT( void )
+void HDFendTrace_RT( int OUTSW )
{
int j, numSetIDs;
HDFnode_t *P;
char **Names;
char* mapFile;
+ TR_LOCK criticalSection;
HDFfinalTimeStamp();
+ criticalSection = TRlock();
/*==============================================================*
// Assing pablo ids to named identifiers and tag records *
//==============================================================*/
@@ -303,23 +314,7 @@ void HDFendTrace_RT( void )
HDFSummarySDDF( HDFQueues[j], j );
}
endTracing();
- /*==============================================================*
- // Clean up storage *
- //==============================================================*/
- free( (void *)mapFile );
- for ( j = 0; j < numSetIDs; ++j ) {
- if ( Names[j] != NULL ) {
- free((void *)Names[j]);
- }
- }
- free( (void *)Names );
- P = CallStack;
- if ( P->ptr != NULL ) {
- fprintf(stderr,"CallStack not empty at termination\n");
- } else {
- free((void *)P);
- }
- free((void *)HDFQueues) ;
+ TRunlock( criticalSection );
}
/*======================================================================*
// initHFDProcTrace_RT *
@@ -726,6 +721,7 @@ void EndHDFEventRecord ( int eventID, CLOCK secs, void *dataPtr )
HDFnode_t *HDFrec;
CLOCK incSecs;
static int dummyIDs = -4;
+ eventID = 0;
/*==============================================================*
// pop record from top of the stack, compute inclusive duration *
// and set the corresponding record field and increment nCalls. *
@@ -1114,7 +1110,6 @@ void HDFSummarySDDF( HDFnode_t *P, int procIndex )
arrayLen = 0; /* name length */
memcpy( Packet, &arrayLen, sizeof(int) );
putBytes( buff, Header.packetLen );
- free((void *)P);
P = Q;
}
}
@@ -1411,6 +1406,11 @@ void _hdfDescriptorRT( char *recordName, char *recordDescription,
void writeHDFRecDescrptrsRT( void )
{
char HDFProcNames[][40] = {
+ "noName",
+ "noName",
+ "noName",
+ "noName",
+ "noName",
# include "HDFentryNames.h"
"HDF_Last_Entry"
};
diff --git a/pablo/PabloHDF_SDDF.c b/pablo/PabloHDF_SDDF.c
index 7c5f272..c2c9119 100644
--- a/pablo/PabloHDF_SDDF.c
+++ b/pablo/PabloHDF_SDDF.c
@@ -72,7 +72,7 @@
#include "TraceParam.h"
#include "Trace.h"
#include "HDF5Trace.h"
-void HDFendTrace_SDDF(void);
+void HDFendTrace_SDDF(int);
void startHDFtraceEvent(int eventID);
void endHDFtraceEvent(int , int , char *, int );
int preInitHDFProcTrace( void );
@@ -83,7 +83,8 @@ TR_RECORD *HDFprocEventRecord( int, TR_EVENT *, CLOCK, HDFsetInfo *, unsigned );
TR_RECORD *miscEventRecord( int , TR_EVENT *, CLOCK, void *, unsigned );
void _hdfMiscDescriptor( void );
void _hdfProcNameDescriptor( void );
-int setEventRecordFunction( int, void *(*)() );
+/*int setEventRecordFunction( int, void *(*)() );*/
+int setEventRecordFunction( int, TR_RECORD *(*)() );
void HDFtraceIOEvent( int, void *, unsigned );
void initIOTrace( void );
void enableIOdetail( void );
@@ -107,12 +108,14 @@ void endIOTrace( void );
#ifdef HAVE_MPIOTRACE
int initMPIOTrace( char *, int );
void endMPIOTrace( void ) ;
+#else
+ void endMPIOTrace( void ) {return;}
#endif
extern char *hdfRecordPointer;
/*======================================================================*
// Prototypes of functions in this file. *
//======================================================================*/
-void HDFinitTrace_SDDF( char *, uint32 );
+void HDFinitTrace_SDDF( char *, int );
/*======================================================================*
// Each procedure being traced has associated with it a distinct pair *
// of entry and exit event IDs. This code maintains a vector of such *
@@ -191,6 +194,7 @@ struct miscTraceRecordData {
// events. *
//======================================================================*/
int procEntries[] = {
+0, 0, 0, 0, 0,
#include "HDFidList.h"
ID_HDF_Last_Entry
};
@@ -203,6 +207,11 @@ int *procEntryCalled;
// The HDFProcNames array holds the names of the HDF entries. *
//======================================================================*/
static char HDFProcNames[][40] = {
+"noName",
+"noName",
+"noName",
+"noName",
+"noName",
#include "HDFentryNames.h"
"HDF_LAST_ENTRY"
};
@@ -218,30 +227,64 @@ static char HDFProcNames[][40] = {
// RETURNS *
// None *
//======================================================================*/
-void HDFinitTrace_SDDF( char *traceFileName, uint32 procTraceMask )
+void HDFinitTrace_SDDF( char *traceFileName, int OUTSW )
{
/*===============================================================
// set traceFileName and set IO tracing switches. If MPIO *
- // tracing is available, this will be initialized also. *
+ // tracing is available, MPIO tracing will also be initialized. *
//==============================================================*/
#ifdef HAVE_PARALLEL
+ /*===============================================================
+ // The code is built to handle parallel processing using MPI. *
+ // However, the code may or may not be run using MPI and there *
+ // may or may not be support for MPIO tracing in the Pablo *
+ // Trace libraries. The type of initialization performed *
+ // depends on these factors. *
+ //==============================================================*/
int myNode;
char *buff;
/*===============================================================
- // in the parallel case, initialize MPI-IO tracing. This will *
- // initialize the traceFileName and set the I/O tracing *
- // switches. *
+ // Determine if MPI is running the program. *
//==============================================================*/
- MPI_Comm_rank( MPI_COMM_WORLD, &myNode );
- setTraceProcessorNumber( myNode );
+ if ( OUTSW == MPI_RUNTIME_TRACE ) {
+ /*============================================================
+ // in the parallel case, initialize MPI-IO tracing. This *
+ // will initialize the traceFileName and set the I/O tracing *
+ // switches. *
+ //===========================================================*/
+ MPI_Comm_rank( MPI_COMM_WORLD, &myNode );
+ setTraceProcessorNumber( myNode );
#ifdef HAVE_MPIOTRACE
- initMPIOTrace( traceFileName, 0 );
+ /*============================================================
+ // MPIO Tracing is supported in the Pablo Library. Let the *
+ // MPIO initialization be performed and handle the naming of *
+ // trace files. *
+ //===========================================================*/
+ initMPIOTrace( traceFileName, RUNTIME_TRACE );
#else
- buff = (char *)malloc( strlen(traceFileName)+12);
- sprintf( buff, "%s.nd%.4d\0",traceFileName,myNode);
- setTraceFileName( buff );
- free( buff );
+ /*============================================================
+ // MPIO tracing is not supported. *
+ // Set up the trace file names depending on the number of *
+ // current node. *
+ //===========================================================*/
+ buff = (char *)malloc( strlen(traceFileName)+12);
+ sprintf( buff, "%s.nd%.4d\0",traceFileName,myNode);
+ setTraceFileName( buff );
+ free( buff );
#endif
+ } else {
+ /*============================================================
+ // The HDF library was built to run with MPI, but the *
+ // application is being run in serial mode. Initialization *
+ // is done as in the serial case. *
+ //===========================================================*/
+ setTraceFileName(traceFileName);
+ initIOTrace();
+ enableIOdetail();
+ disableLifetimeSummaries();
+ disableTimeWindowSummaries();
+ disableFileRegionSummaries();
+ }
#else
/*===============================================================
// in the non-parallel case, set the trace file name and the *
@@ -259,7 +302,6 @@ void HDFinitTrace_SDDF( char *traceFileName, uint32 procTraceMask )
//==============================================================*/
preInitHDFProcTrace();
initHDFProcTrace( sizeof(procEntries)/sizeof(int), procEntries );
- procTrace = procTraceMask;
}
/*=======================================================================
// NAME *
@@ -269,22 +311,23 @@ void HDFinitTrace_SDDF( char *traceFileName, uint32 procTraceMask )
// RETURNS *
// None. *
//======================================================================*/
-void HDFendTrace_SDDF(void)
+void HDFendTrace_SDDF(int OUTSW)
{
HDFfinalTimeStamp();
-#ifdef HAVE_MPIOTRACE
- /*===============================================================
- // termintate MPI-IO tracing in the parallel case. This will *
- // terminate the I/O tracing and close tracing as well. *
- //==============================================================*/
- endMPIOTrace();
-#else
- /*===============================================================
- // terminate tracing *
- //==============================================================*/
- endIOTrace();
- endTracing();
-#endif
+ if ( OUTSW == MPI_RUNTIME_TRACE ) {
+ /*============================================================
+ // termintate MPI-IO tracing in the parallel case. This *
+ // will terminate the I/O tracing and close tracing as well. *
+ //===========================================================*/
+ endMPIOTrace();
+ } else {
+ /*============================================================
+ // terminate tracing *
+ //===========================================================*/
+ endIOTrace();
+ endTracing();
+ exit(1);
+ }
}
/*=======================================================================
// NAME *
@@ -306,7 +349,7 @@ void HDFendTrace_SDDF(void)
//======================================================================*/
int initHDFProcTrace( int numProcs, int *procEntryID )
{
- int procIndex;
+ int procIndex, IX, ID;
if (( numProcs <= 0 ) || ( procEntryID == (int *) 0 ) )
return FAILURE;
@@ -331,13 +374,13 @@ int initHDFProcTrace( int numProcs, int *procEntryID )
//==============================================================*/
for ( procIndex = 0; procIndex < numProcs; procIndex++ ) {
- procEvents[ procIndex ].entryID = procEntryID[ procIndex ];
- procEvents[ procIndex ].exitID = -procEntryID[ procIndex ];
+ IX = procEntryID[ procIndex ];
+ ID = HDFIXtoEventID( IX );
+ procEvents[ procIndex ].entryID = ID;
+ procEvents[ procIndex ].exitID = -ID;
- setEventRecordFunction( procEntryID[ procIndex ],
- (void *(*)())HDFprocEventRecord );
- setEventRecordFunction( -procEntryID[ procIndex ],
- (void *(*)())HDFprocEventRecord );
+ setEventRecordFunction( ID, HDFprocEventRecord );
+ setEventRecordFunction( -ID, HDFprocEventRecord );
procEntryCalled[ procIndex ] = 0;
}
@@ -349,12 +392,12 @@ int initHDFProcTrace( int numProcs, int *procEntryID )
//==============================================================*/
procEvents[ numProcs ].entryID = ID_malloc;
procEvents[ numProcs ].exitID = -ID_malloc;
- setEventRecordFunction( ID_malloc, (void *(*)())miscEventRecord );
- setEventRecordFunction( -ID_malloc, (void *(*)())miscEventRecord );
+ setEventRecordFunction( ID_malloc, miscEventRecord );
+ setEventRecordFunction( -ID_malloc, miscEventRecord );
procEvents[ numProcs+1 ].entryID = ID_free;
procEvents[ numProcs+1 ].exitID = -ID_free;
- setEventRecordFunction( ID_free, (void *(*)())miscEventRecord );
- setEventRecordFunction( -ID_free, (void *(*)())miscEventRecord );
+ setEventRecordFunction( ID_free, miscEventRecord );
+ setEventRecordFunction( -ID_free, miscEventRecord );
return SUCCESS;
}
@@ -533,7 +576,7 @@ HDFprocEventRecord( int recordType, TR_EVENT *eventPointer, CLOCK timeStamp,
TraceRecordHeader->nameLen = 0;
}
} else {
- TraceRecordHeader->setID = NoDSid;
+ TraceRecordHeader->setID = 0;
TraceRecordHeader->nameLen = 0;
}
diff --git a/pablo/ProcIDs.h b/pablo/ProcIDs.h
index 87e63c0..80d4bef 100644
--- a/pablo/ProcIDs.h
+++ b/pablo/ProcIDs.h
@@ -81,55 +81,85 @@
#ifndef PROCIDS_H /* avoid re-inclusion */
#define PROCIDS_H
-#include "ProcMasks.h"
-extern unsigned procTrace;
+extern int *procTrace;
/*
- * Define the event IDs that will be used for the various I/O events
+ * Define the event IDs that will be used for the various HDF events
*/
+#include "ProcTrace.h"
-/*======================================================================*/
-/* Assign HDF identifier routine tags */
-/*======================================================================*/
-enum HDF_IDS {
- ID_HDFprocName=9996,
- ID_malloc=9997,
- ID_free=9998,
- ID_timeStamp=9999,
- DUMMY_HDF = 10000,
-/*======================================================================*/
-/* the following part of the enumeration is only needed when the */
-/* instrumented HDF library is built. It is created in the pablo */
-/* subdirectory of HDF. */
-/*======================================================================*/
-#include "HDFidList.h"
-ID_HDF_Last_Entry
-} ;
+#define H5_mask ID_H5_c
+#define H5A_mask ID_H5A_c
+#define H5AC_mask ID_H5AC_c
+#define H5B_mask ID_H5B_c
+#define H5D_mask ID_H5D_c
+#define H5E_mask ID_H5E_c
+#define H5F_mask ID_H5F_c
+#define H5F_arr_mask ID_H5Farray_c
+#define H5F_core_mask ID_H5Fcore_c
+#define H5F_family_mask ID_H5Ffamily_c
+#define H5F_istore_mask ID_H5Fistore_c
+#define H5F_low_mask ID_H5Flow_c
+#define H5F_mpio_mask ID_H5Fmpio_c
+#define H5F_sec2_mask ID_H5Fsec2_c
+#define H5F_split_mask ID_H5Fsplit_c
+#define H5F_stdio_mask ID_H5Fstdio_c
+#define H5G_mask ID_H5G_c
+#define H5G_ent_mask ID_H5Gent_c
+#define H5G_node_mask ID_H5Gnode_c
+#define H5G_stab_mask ID_H5Gstab_c
+#define H5HG_mask ID_H5HG_c
+#define H5HL_mask ID_H5HL_c
+#define H5I_mask ID_H5I_c
+#define H5MF_mask ID_H5MF_c
+#define H5MM_mask ID_H5MM_c
+#define H5O_mask ID_H5O_c
+#define H5O_attr_mask ID_H5Oattr_c
+#define H5O_pline_mask ID_H5Ocomp_c
+#define H5O_cont_mask ID_H5Ocont_c
+#define H5O_dtype_mask ID_H5Odtype_c
+#define H5O_efl_mask ID_H5Oefl_c
+#define H5O_fill_mask ID_H5Ofill_c
+#define H5O_layout_mask ID_H5Olayout_c
+#define H5O_mtime_mask ID_H5Omtime_c
+#define H5O_name_mask ID_H5Oname_c
+#define H5O_null_mask ID_H5Onull_c
+#define H5O_sdspace_mask ID_H5Osdspace_c
+#define H5O_shared_mask ID_H5Oshared_c
+#define H5O_stab_mask ID_H5Ostab_c
+#define H5P_mask ID_H5P_c
+#define H5R_mask ID_H5R_c
+#define H5RA_mask ID_H5RA_c
+#define H5S_mask ID_H5S_c
+#define H5S_all_mask ID_H5Sall_c
+#define H5S_hyper_mask ID_H5Shyper_c
+#define H5S_mpio_mask ID_H5Smpio_c
+#define H5S_none_mask ID_H5Snone_c
+#define H5S_point_mask ID_H5Spoint_c
+#define H5S_select_mask ID_H5Sselect_c
+#define H5T_mask ID_H5T_c
+#define H5TB_mask ID_H5TB_c
+#define H5Tbit_mask ID_H5Tbit_c
+#define H5T_conv_mask ID_H5Tconv_c
+#define H5T_init_mask ID_H5Tinit_c
+#define H5V_mask ID_H5V_c
+#define H5Z_mask ID_H5Z_c
+
+#define ID_HDFprocName 9996
+#define ID_malloc 9997
+#define ID_free 9998
+#define ID_timeStamp 9999
+#define DUMMY_HDF 10000
#define BEGIN_HDF (DUMMY_HDF + 1)
-#define END_HDF ID_HDF_Last_Entry
-#define NumHDFProcs ( END_HDF - BEGIN_HDF )
-/*======================================================================*/
-/* HDF attribute, file, data_set, etc ID codes. May not be used. */
-/*======================================================================*/
-#define NoDSid 0 /* no data set id */
-#define HDF_NULL_ID 0
-#define HDF_File_ID 1
-#define HDF_SDS_ID 2
-#define HDF_Dim_ID 3
-#define HDF_Attribute_ID 4
-#define HDF_Label_ID 5
-#define HDF_Access_ID 6
-#define HDF_Directory_ID 7
-#define HDF_Annotation_ID 8
-#define HDF_Gen_Raster_ID 9
-#define HDF_Look_Up_Table_ID 10
-#define HDF_Vdata_ID 11
+#define END_HDF (ID_HDF_Last_Entry + DUMMY_HDF)
+#define NumHDFProcs ( ID_HDF_Last_Entry )
+
#define BEGIN_MPIO 900800
#define END_MPIO 900899
/*======================================================================*/
/* Macros to tell if the ID is that of an HDF Entry or Exit */
/*======================================================================*/
-#define isBeginHDFEvent( ID ) ( BEGIN_HDF <= (ID) && (ID) < END_HDF )
+#define isBeginHDFEvent( ID ) ( BEGIN_HDF <= (ID) && (ID) <= END_HDF )
#define isEndHDFEvent( ID ) isBeginHDFEvent(-(ID))
#define isBeginMPIOEvent( ID ) \
( BEGIN_MPIO <= (ID) && (ID) <= END_MPIO && (ID)%2 == 0 )
@@ -143,11 +173,11 @@ ID_HDF_Last_Entry
#define ProcIndex( ID ) ( (ID) - BEGIN_HDF )
#define ProcIndexForHDFEntry( ID ) ( (ID) - BEGIN_HDF )
#define ProcIndexForHDFExit( ID ) ProcIndexForHDFEntry(-ID)
-#define HDFProcIXtoEventID( ID ) ( (ID) + BEGIN_HDF )
+#define HDFIXtoEventID( ID ) ( (ID) + BEGIN_HDF )
-#define TRACE_ON(mask, eventID) \
- if (procTrace & mask) startHDFtraceEvent(eventID)
-#define TRACE_OFF(mask, eventID ) \
- if (procTrace & mask) endHDFtraceEvent(-eventID, 0, NULL, 0 )
+#define TRACE_ON(mask, ID) \
+if ( procTrace[mask] || procTrace[ID] ) startHDFtraceEvent( HDFIXtoEventID( ID ) )
+#define TRACE_OFF(mask, ID ) \
+if ( procTrace[mask] || procTrace[ID] ) endHDFtraceEvent(-HDFIXtoEventID(ID), 0, NULL, 0 )
#endif /* PROCIDS_H */
diff --git a/pablo/ProcTrace.h b/pablo/ProcTrace.h
new file mode 100644
index 0000000..7060725
--- /dev/null
+++ b/pablo/ProcTrace.h
@@ -0,0 +1,198 @@
+/* This file is part of the Pablo Performance Analysis Environment
+//
+// (R)
+// The Pablo Performance Analysis Environment software is NOT in
+// the public domain. However, it is freely available without fee for
+// education, research, and non-profit purposes. By obtaining copies
+// of this and other files that comprise the Pablo Performance Analysis
+// Environment, you, the Licensee, agree to abide by the following
+// conditions and understandings with respect to the copyrighted software:
+//
+// 1. The software is copyrighted in the name of the Board of Trustees
+// of the University of Illinois (UI), and ownership of the software
+// remains with the UI.
+//
+// 2. Permission to use, copy, and modify this software and its documentation
+// for education, research, and non-profit purposes is hereby granted
+// to Licensee, provided that the copyright notice, the original author's
+// names and unit identification, and this permission notice appear on
+// all such copies, and that no charge be made for such copies. Any
+// entity desiring permission to incorporate this software into commercial
+// products should contact:
+//
+// Professor Daniel A. Reed reed@cs.uiuc.edu
+// University of Illinois
+// Department of Computer Science
+// 2413 Digital Computer Laboratory
+// 1304 West Springfield Avenue
+// Urbana, Illinois 61801
+// USA
+//
+// 3. Licensee may not use the name, logo, or any other symbol of the UI
+// nor the names of any of its employees nor any adaptation thereof in
+// advertizing or publicity pertaining to the software without specific
+// prior written approval of the UI.
+//
+// 4. THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
+// SOFTWARE FOR ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS
+// OR IMPLIED WARRANTY.
+//
+// 5. The UI shall not be liable for any damages suffered by Licensee from
+// the use of this software.
+//
+// 6. The software was developed under agreements between the UI and the
+// Federal Government which entitle the Government to certain rights.
+//
+// *************************************************************************
+//
+// Developed by: The Pablo Research Group
+// University of Illinois at Urbana-Champaign
+// Department of Computer Science
+// 1304 W. Springfield Avenue
+// Urbana, IL 61801
+//
+// http://www-pablo.cs.uiuc.edu
+//
+// Send comments to: pablo-feedback@guitar.cs.uiuc.edu
+//
+// Copyright (c) 1987-1998
+// The University of Illinois Board of Trustees.
+// All Rights Reserved.
+//
+// PABLO is a registered trademark of
+// The Board of Trustees of the University of Illinois
+// registered in the U.S. Patent and Trademark Office.
+//
+// Project Manager and Principal Investigator:
+// Daniel A. Reed (reed@cs.uiuc.edu)
+//
+// Funded in part by the Defense Advanced Research Projects Agency under
+// DARPA contracts DABT63-94-C0049 (SIO Initiative), F30602-96-C-0161,
+// and DABT63-96-C-0027 by the National Science Foundation under the PACI
+// program and grants NSF CDA 94-01124 and ASC 97-20202, and by the
+// Department of Energy under contracts DOE B-341494, W-7405-ENG-48, and
+// 1-B-333164.
+//-------------------------------------------------------------------------*/
+/*--------------------------------------------------------------------------
+ * File: ProcTrace.h
+ * Purpose: define entities for tracing HDF procedures
+ *-------------------------------------------------------------------------*/
+
+#ifndef PROCTRACE_H /* avoid re-inclusion */
+#define PROCTRACE_H
+#include <stdarg.h>
+/*======================================================================*
+// By default, all HDF procedures are traced. Tracing of individual *
+// procedures or all of the procedures in a particular source file in *
+// the HDF 5 library can be done by calling the procedure PabloHDF5trace*
+// with the appropriate argument. The call must be made prior to *
+// calling HDF5initTrace. As many calls as necessary may be made prior *
+// to calling HDF5initTrace so several specific procedures can be *
+// traced. *
+// PabloHDF5trace has the following syntax. *
+// #include "ProcTrace.h" *
+// void PabloHDF5trace( int traceID ); *
+// where *
+// traceID specifies the procedure or procedures within an HDF 5 file *
+// that are to be traced. If a single procedure named <proc> is to *
+// be traced, then traceID should have the value ID_<proc>. If all *
+// of the procedures within the HDF 5 library routine <file>.c are to *
+// be traced, then the value of traceID should be FID_<file>. The *
+// constants ID_<proc> and FID_<file> are declared for all possible *
+// values of <proc> and <file> below. *
+// *
+// Example: *
+// To enable tracing of the individual procedures H5I_register and *
+// H5Topen and all of the procedures in the HDF 5 library source *
+// files H5A.c and H5Gent.c the following code segements could be *
+// used: *
+// *
+// #include "ProcTrace.h" *
+// ... *
+// PabloHDF5trace( ID_H5I_register ); *
+// PabloHDF5trace( ID_H5Topenr ); *
+// PabloHDF5trace( FID_H5A ); *
+// PabloHDF5trace( FID_H5Gent ); *
+// ... *
+// HDF5initTrace( ... ); *
+// *
+// See the document PabloHDF5.doc for further information *
+//======================================================================*/
+/*======================================================================*/
+/* Assign HDF identifier routine tags */
+/*======================================================================*/
+#ifdef RUNTIME_TRACE
+#undef RUNTIME_TRACE
+#endif
+enum HDF_IDS {
+RUNTIME_TRACE,
+SUMMARY_TRACE,
+MPI_RUNTIME_TRACE,
+MPI_SUMMARY_TRACE,
+NO_TRACE,
+#include "HDFidList.h"
+ID_HDF_Last_Entry,
+AllHDF5 = ID_HDF_Last_Entry,
+ID_H5_c,
+ID_H5A_c,
+ID_H5AC_c,
+ID_H5B_c,
+ID_H5D_c,
+ID_H5E_c,
+ID_H5F_c,
+ID_H5Farray_c,
+ID_H5Fcore_c,
+ID_H5Ffamily_c,
+ID_H5Fistore_c,
+ID_H5Flow_c,
+ID_H5Fmpio_c,
+ID_H5Fsec2_c,
+ID_H5Fsplit_c,
+ID_H5Fstdio_c,
+ID_H5G_c,
+ID_H5Gent_c,
+ID_H5Gnode_c,
+ID_H5Gstab_c,
+ID_H5HG_c,
+ID_H5HL_c,
+ID_H5I_c,
+ID_H5MF_c,
+ID_H5MM_c,
+ID_H5O_c,
+ID_H5Oattr_c,
+ID_H5Ocomp_c,
+ID_H5Ocont_c,
+ID_H5Odtype_c,
+ID_H5Oefl_c,
+ID_H5Ofill_c,
+ID_H5Olayout_c,
+ID_H5Omtime_c,
+ID_H5Oname_c,
+ID_H5Onull_c,
+ID_H5Osdspace_c,
+ID_H5Oshared_c,
+ID_H5Ostab_c,
+ID_H5P_c,
+ID_H5R_c,
+ID_H5RA_c,
+ID_H5S_c,
+ID_H5Sall_c,
+ID_H5Shyper_c,
+ID_H5Smpio_c,
+ID_H5Snone_c,
+ID_H5Spoint_c,
+ID_H5Sselect_c,
+ID_H5T_c,
+ID_H5TB_c,
+ID_H5Tbit_c,
+ID_H5Tconv_c,
+ID_H5Tinit_c,
+ID_H5V_c,
+ID_H5Z_c,
+NUM_HDF5_IDS
+} ;
+
+void PabloHDF5Trace( int ) ;
+void HDF5initTrace( const char *, int trace_id, ... );
+void HDF5endTrace( void );
+#endif /* PROCTRACE_H */