matsave.m

JLAB is a set of Matlab functions I have written or co-written over the past fifteen years for the p

function[]=matsave(varargin)
%MATSAVE  Create and save structure of variables as mat-file. 
%
%   MATSAVE NAME X1 X2 ... XN  where X1 ... XN are names of 
%   variables in the current workspace, first creates a structure
%
%       NAME.X1, NAME.X2, NAME.X3
%
%   then saves it as a .mat file called NAME, and finally loads this 
%   mat-file into the current workspace.
%
%   The mat-file is save at the location specified in JLAB_SETTINGS
%   by the value of DIRNAMES.MATFILES.  If this variable is not
%   found, it the mat-file is save to the JLAB directory.
%
%   By default NAME is a string rather than a variable.  However,
%   NAME can also be a variable whose value is a string, though
%   the use of the '-n' flag.  Then
%
%        MATSAVE -N VAR X1 ... XN
%
%   with VAR='sample' will create a structure named 'sample'.
%
%   The version of mat-file format to save in may also be specified 
%   through the of the -v flag, such that
%
%        MATSAVE -V6 NAME X1 ... XN
%
%   will create a structure NAME and save it as a Version 6 mat-file;
%   see SAVE for allowable version options.
%
%   See also MAKE, USE.
%
%   Usage:  matsave name x1 x2 x3
%           matsave -n var x1 x2 x3
%           matsave -v6 -n var x1 x2 x3
%   __________________________________________________________________
%   This is part of JLAB --- type 'help jlab' for more information
%   (C) 2006 J.M. Lilly --- type 'help jlab_license' for details
 
if strcmp(varargin{1}, '--t')
   matsave_test,return
end

version='-v6';

vars=varargin;


nflagsin=0;
fflagin=0;

i1=vars{1};
if strcmp(i1(1),'-')
   if strcmp(i1(2),'n')
       %-n flag for filename was input
       fflagin=1;
       vars=vars(2:end);
       nflagsin=1;
   elseif strcmp(i1(2),'v')
       %-v flag for version was input
       version=i1;
       vars=vars(2:end);
       nflagsin=1;
              
       i1=vars{1};
       if strcmp(i1(2),'n')
          %-n flag for filename was input
          fflagin=1;
          vars=vars(2:end);
          nflagsin=2;
       end
   end
end

eval(to_grab_from_caller([nflagsin+1:nargin]))
if fflagin
     vars{1}=eval(vars{1});
end

name=vars{1};
make(vars)

dirname=jlab_settings('dirnames.matfiles');

if isempty(dirname)
    disp('Directory MATFILES not specified, saving to JLAB directory.')
    dirname=whichdir('jlab_license');
end

fullname=[dirname '/' name];
eval(['save(fullname,version,name)'])
evalin('caller',['load ' fullname])

function[]=matsave_test
 
%reporttest(' MATSAVE ',aresame())