cleaner display

Author: mloubout

src/methods/set_header.jl

@@ -11,7 +11,7 @@ function set_traceheader!(traceheaders::Array{BinaryTraceHeader,1},
             setfield!(traceheaders[t], name, x_typed[t])
         end
     catch e
-        @warn "Unable to convert $x to $(ftype)"
+        @warn "Unable to convert $(first(x)) to $(ftype) for header $(name)"
         throw(e)
     end
 end

src/types/BinaryFileHeader.jl

@@ -81,11 +81,14 @@ end
 fh_keys() = collect(keys(fh_byte2sample()))
 
 function show(io::IO, bfh::BinaryFileHeader)
-    
+    bf = fh_byte2sample()
     println("BinaryFileHeader:")
 
     for field in fieldnames(BinaryFileHeader)
-        s = @sprintf "     %30s: %9d" String(field) getfield(bfh, field)
+        byte = bf[String(field)] + 1
+        next = byte + sizeof(getfield(bfh, field)) - 1
+        sfield = "$(field) ($(byte)-$(next))"
+        s = @sprintf "     %40s: %9d" sfield getfield(bfh, field)
         println(s)
     end
     println("\n")

src/types/BinaryTraceHeader.jl

@@ -207,10 +207,14 @@ end
 Base.zeros(::Type{BinaryTraceHeader}, n::Integer) = [BinaryTraceHeader() for _=1:n]
 
 function show(io::IO, bth::BinaryTraceHeader)
+    th = th_byte2sample()
 
     println("BinaryTraceHeader:")
     for field in fieldnames(BinaryTraceHeader)
-        s = @sprintf "     %30s: %9d" String(field) getfield(bth, field)
+        byte = th[String(String(field))] + 1
+        next = byte + sizeof(getfield(bth, field)) - 1
+        sfield = "$(field) ($(byte)-$(next))"
+        s = @sprintf "     %40s: %9d" sfield getfield(bth, field)
         println(s)
     end
     println("\n")