source: trunk/src/hdf5save_recursion.m @ 950

Last change on this file since 950 was 947, checked in by sommeria, 9 years ago

read hf5 added

  • Property svn:executable set to *
File size: 1.8 KB
Line 
1% hdf5save_recursion.m
2%
3% hdf5save('filename','prefix',new,'name in workspace','name in hdf5 file',...)
4
5% Save the given variables in an hdf5 file in the groupe given by the
6% prefix. If new is set to one creates a new hdf5 file. Syntax Similar to
7% the native matlab save command. Can save strings, arrays, and structs.
8% If it find a struct it calls its recusively to save the struct, passing
9% the struct name as the prefix.
10
11% Author: Gael Varoquaux <gael.varoquaux@normalesup.org>
12% Copyright: Gael Varoquaux
13% License: BSD-like
14
15function hdf5save_recursion(filename,prefix,new,varcell)
16
17if ~strcmp(class(filename),'char') ;
18    error('first argument should be a string giving the path to the hdf5 file to save') ;
19end
20
21if ~strcmp(class(prefix),'char') ;
22    error('second argument should be a string giving the name of the groupe to save the data in') ;
23end
24
25if new~=1 && new~=0 ;
26    error('third argument should be 0 or 1: 0 to append data, and 1 to create a new file')
27end
28
29nvars=size(varcell,2)/2;
30
31if nvars~=floor(nvars) ;
32    error('expecting a name for each variable') ;
33end
34
35for i=[1:nvars]
36    str=varcell{2*i};
37    var=evalin('base',str);
38    name=varcell{2*i-1};
39    type=class(var);
40    location=strcat('/',prefix,name);
41    %disp(['variable name in workspace : ',str]);
42    %disp(['variable name to put : ',name]);
43    switch type
44    case 'struct'
45        names=fieldnames(var);
46        for j=1:size(names,1) ;
47            if (j~=1 || i~=1)
48                new=0 ;
49            end
50            varname=strcat(name,'.',names{j});
51            hdf5save_recursion(filename,strcat(name,'/'),new,{names{j},varname});
52        end
53    otherwise
54        location=strcat('/',prefix,name);
55        if new==1 && i==1 ;
56            hdf5write(filename,location,var);
57        else
58            %disp(['location : ',location]);
59            hdf5write(filename,location,var,'WriteMode', 'append');
60        end
61    end
62end
63
Note: See TracBrowser for help on using the repository browser.