0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022 function varargout = export(varargin)
0023
0024
0025 if utils.helper.isinfocall(varargin{:})
0026 varargout{1} = getInfo(varargin{3});
0027 return
0028 end
0029
0030 import utils.const.*
0031 utils.helper.msg(msg.MNAME, 'running %s/%s', mfilename('class'), mfilename);
0032
0033
0034 in_names = cell(size(varargin));
0035 for ii = 1:nargin,in_names{ii} = inputname(ii);end
0036
0037
0038 [as, ao_invars] = utils.helper.collect_objects(varargin(:), 'ao', in_names);
0039 [pl, pl_invars, rest] = utils.helper.collect_objects(varargin(:), 'plist', in_names);
0040
0041
0042 pl = combine(pl, getDefaultPlist);
0043
0044
0045 filename = find(pl, 'filename');
0046 if isempty(filename)
0047 for jj = 1:numel(rest)
0048 if ischar(rest{jj})
0049 filename = rest{jj};
0050 break
0051 end
0052 end
0053 end
0054 if isempty(filename)
0055 error('### You must specify a filename. Either directly, or in a plist');
0056 end
0057
0058 if length(as) > 1
0059 error('### Export can only deal with one AO at a time.');
0060 end
0061
0062 if isreal(as.data.getY)
0063 out = [as.data.getX as.data.getY];
0064 else
0065 out = [as.data.getX real(as.data.getY) imag(as.data.getY)];
0066 end
0067
0068 save(filename, 'out', '-ASCII', '-DOUBLE', '-TABS');
0069
0070 end
0071
0072
0073
0074
0075 function ii = getInfo(varargin)
0076 if nargin == 1 && strcmpi(varargin{1}, 'None')
0077 sets = {};
0078 pl = [];
0079 else
0080 sets = {'Default'};
0081 pl = getDefaultPlist;
0082 end
0083
0084 ii = minfo(mfilename, 'ao', '', utils.const.categories.output, '$Id: export.m,v 1.15 2008/09/05 11:05:29 ingo Exp $', sets, pl);
0085 end
0086
0087
0088
0089
0090 function pl_default = getDefaultPlist()
0091 pl_default = plist('filename', '');
0092 end
0093
0094