Whitespace changes in bin/trace.

1 files changed, 52 insertions, 53 deletions

diff --git a/bin/trace b/bin/trace
index ddb737c..1ce0f15 100755
--- a/bin/trace
+++ b/bin/trace
@@ -32,10 +32,10 @@ $Source = "";
                "hbool_t"                    => "b",
                "double"                     => "d",
                "H5D_alloc_time_t"           => "Da",
-	       "H5FD_mpio_collective_opt_t" => "Dc",
+               "H5FD_mpio_collective_opt_t" => "Dc",
                "H5D_fill_time_t"            => "Df",
                "H5D_fill_value_t"           => "DF",
-	       "H5FD_mpio_chunk_opt_t"      => "Dh",
+               "H5FD_mpio_chunk_opt_t"      => "Dh",
                "H5D_mpio_actual_io_mode_t"  => "Di",
                "H5D_chunk_index_t"          => "Dk",
                "H5D_layout_t"               => "Dl",
@@ -47,17 +47,17 @@ $Source = "";
                "herr_t"                     => "e",
                "H5E_direction_t"            => "Ed",
                "H5E_error_t"                => "Ee",
-	       "H5E_type_t"                 => "Et",
-	       "H5F_close_degree_t"         => "Fd",
-	       "H5F_file_space_type_t"      => "Ff",
-	       "H5F_mem_t"                  => "Fm",
+               "H5E_type_t"                 => "Et",
+               "H5F_close_degree_t"         => "Fd",
+               "H5F_file_space_type_t"      => "Ff",
+               "H5F_mem_t"                  => "Fm",
                "H5F_scope_t"                => "Fs",
-	       "H5F_libver_t"               => "Fv",
+               "H5F_libver_t"               => "Fv",
                "H5G_obj_t"                  => "Go",
                "H5G_stat_t"                 => "Gs",
-	       "hsize_t"                    => "h",
+               "hsize_t"                    => "h",
                "hssize_t"                   => "Hs",
-	       "H5E_major_t"                => "i",
+               "H5E_major_t"                => "i",
                "H5E_minor_t"                => "i",
                "H5_iter_order_t"            => "Io",
                "H5_index_t"                 => "Ii",
@@ -68,15 +68,15 @@ $Source = "";
                "unsigned int"               => "Iu",
                "uint32_t"                   => "Iu",
                "H5I_type_t"                 => "It",
-	       "H5G_link_t"                 => "Ll", #Same as H5L_type_t now
-	       "H5L_type_t"                 => "Ll",
+               "H5G_link_t"                 => "Ll", #Same as H5L_type_t now
+               "H5L_type_t"                 => "Ll",
                "MPI_Comm"                   => "Mc",
                "MPI_Info"                   => "Mi",
                "H5FD_mem_t"                 => "Mt",
                "off_t"                      => "o",
                "H5O_type_t"                 => "Ot",
                "H5P_class_t"                => "p",
-	       "hobj_ref_t"		    => "r",
+               "hobj_ref_t"		    => "r",
                "H5R_type_t"                 => "Rt",
                "char"                       => "s",
                "unsigned char"              => "s",
@@ -98,9 +98,9 @@ $Source = "";
                "void"                       => "x",
                "FILE"                       => "x",
                "H5A_operator_t"             => "x",
-	       "H5A_operator1_t"            => "x",
-	       "H5A_operator2_t"            => "x",
-	       "H5A_info_t"                 => "x",
+               "H5A_operator1_t"            => "x",
+               "H5A_operator2_t"            => "x",
+               "H5A_info_t"                 => "x",
                "H5AC_cache_config_t"        => "x",
                "H5AC_cache_image_config_t"  => "x",
                "H5D_append_cb_t"            => "x",
@@ -114,23 +114,23 @@ $Source = "";
                "H5E_walk1_t"                => "x",
                "H5E_walk2_t"                => "x",
                "H5F_flush_cb_t"             => "x",
-	       "H5F_info1_t"                => "x",
-	       "H5F_info2_t"                => "x",
+               "H5F_info1_t"                => "x",
+               "H5F_info2_t"                => "x",
                "H5F_retry_info_t"           => "x",
                "H5FD_t"                     => "x",
                "H5FD_class_t"               => "x",
                "H5FD_stream_fapl_t"         => "x",
                "H5FD_file_image_callbacks_t" => "x",
                "H5G_iterate_t"              => "x",
-	       "H5G_info_t"                 => "x",
-	       "H5I_free_t"                 => "x",
-                "H5I_search_func_t"         => "x",
-                "H5L_class_t"                => "x",
+               "H5G_info_t"                 => "x",
+               "H5I_free_t"                 => "x",
+               "H5I_search_func_t"         => "x",
+               "H5L_class_t"                => "x",
                "H5L_elink_traverse_t"       => "x",
                "H5L_iterate_t"              => "x",
                "H5MM_allocate_t"            => "x",
                "H5MM_free_t"                => "x",
-	       "H5O_info_t"                 => "x",
+               "H5O_info_t"                 => "x",
                "H5O_iterate_t"              => "x",
                "H5O_mcdt_search_cb_t"       => "x",
                "H5P_cls_create_func_t"      => "x",
@@ -240,34 +240,34 @@ sub rewrite_func ($$$$$) {
         next;
       }
       unless ($arg=~/^(([a-z_A-Z]\w*\s+)+\**)
-	      ([a-z_A-Z]\w*)(\[.*?\])?
-	      (\s*\/\*\s*(in|out|in_out)\s*\*\/)?\s*$/x) {
-	errmesg $file, $name, "unable to parse \`$arg\'";
-	goto error;
+              ([a-z_A-Z]\w*)(\[.*?\])?
+              (\s*\/\*\s*(in|out|in_out)\s*\*\/)?\s*$/x) {
+        errmesg $file, $name, "unable to parse \`$arg\'";
+        goto error;
       } else {
-	my ($atype, $aname, $array, $adir) = ($1, $3, $4, $6);
-	$names{$aname} = $argno++;
-	$adir ||= "in";
-	$atype =~ s/\s+$//;
-	push @arg_name, $aname;
+        my ($atype, $aname, $array, $adir) = ($1, $3, $4, $6);
+        $names{$aname} = $argno++;
+        $adir ||= "in";
+        $atype =~ s/\s+$//;
+        push @arg_name, $aname;
 
-	if ($adir eq "out") {
-	  push @arg_str, "x";
-	} else {
-	  if (defined $array) {
-	    $atype .= "*";
-	    if ($array =~ /^\[\/\*([a-z_A-Z]\w*)\*\/\]$/) {
-	      my $asize = $1;
-	      if (exists $names{$asize}) {
-		$atype .= '[a' . $names{$asize} . ']';
-	      } else {
-		warn "bad array size: $asize";
-		$atype .= "*";
-	      }
-	    }
-	  }
-	  push @arg_str, argstring $file, $name, $atype;
-	}
+        if ($adir eq "out") {
+          push @arg_str, "x";
+        } else {
+          if (defined $array) {
+            $atype .= "*";
+            if ($array =~ /^\[\/\*([a-z_A-Z]\w*)\*\/\]$/) {
+              my $asize = $1;
+              if (exists $names{$asize}) {
+                $atype .= '[a' . $names{$asize} . ']';
+              } else {
+                warn "bad array size: $asize";
+                $atype .= "*";
+              }
+            }
+          }
+          push @arg_str, argstring $file, $name, $atype;
+        }
       }
     }
     $trace = "H5TRACE" . scalar(@arg_str) . "(\"$rettype\", \"";
@@ -275,11 +275,11 @@ sub rewrite_func ($$$$$) {
     my $len = 4 + length $trace;
     for (@arg_name) {
       if ($len + length >= 77) {
-	$trace .= ",\n             $_";
-	$len = 13 + length;
+        $trace .= ",\n             $_";
+        $len = 13 + length;
       } else {
-	$trace .= ", $_";
-	$len += 1 + length;
+        $trace .= ", $_";
+        $len += 1 + length;
       }
     }
     $trace .= ");\n";
@@ -340,4 +340,3 @@ for $file (@ARGV) {
 }
 
 printf "Finished processing HDF5 API calls\n"
-