function L = loadstr(fname,varargin)
%LOADSTR   load ASCII file in cellstr
%
%   string = LOADSTR(filename)
%
% where each line becomes a cellstr.
%
%See also: SAVESTR, CHAR

%   --------------------------------------------------------------------
%   This library is free software: you can redistribute it and/or modify
%   it under the terms of the GNU General Public License as published by
%   the Free Software Foundation, either version 3 of the License, or
%   (at your option) any later version.
%
%   This library is distributed in the hope that it will be useful,
%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%   GNU General Public License for more details.
%
%   You should have received a copy of the GNU General Public License
%   along with this library.  If not, see <http://www.gnu.org/licenses/>.
%   -------------------------------------------------------------------

% $Id$
% $Date$
% $Author$
% $Revision$
% $HeadURL$
% $Keywords$

OPT.strtrim = 1;

OPT = setproperty(OPT,varargin);

fid = fopen(fname);
L   = textscan(fid,'%s','Delimiter',''); % EOL will always be Delimiter
L   = L{1};
fclose(fid);

if OPT.strtrim
   L = cellfun(@(x) strtrim(x),L,'UniformOutput',false);
end