detection/hdf2struct.m

   1 function s=hdf2struct(f)
   2 % function s=hdf2struct(f)
   3 % read HDF4 file into a structure
   4 i=hdfinfo(f);
   5 s.file=f;
   6 s.info=i;
   7 for k=1:length(i.Attributes)
   8     field=strrep(i.Attributes(k).Name,' ','_');
   9     s.attr.(field)=i.Attributes(k).Value;
  10 end
  11 for k=1:length(i.SDS)
  12     name=i.SDS(k).Name;
  13     field=strrep(name,' ','_');
  14     try
  15         s.data.(field)=hdfread(f,name);
  16     catch
  17         s.data.(field)=[];
  18     end
  19 end