+
−function s = wrapstring(s, n)
+
−% WRAPSTRING wraps a string to a cell array of strings with each cell less than n characters long.
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: WRAPSTRING wraps a string to a cell array of strings with each
+
−%              cell less than n characters long.
+
−%
+
−% CALL:       s = wrapstring(s, n)
+
−%
+
−% INPUTS:     s  - String
+
−%             n  - max length of each cell
+
−%
+
−% OUTPUTS:    s  - the wrapped cell string
+
−%
+
−% VERSION: $Id: wrapstring.m,v 1.1 2008/06/18 13:35:11 hewitson Exp $
+
−%
+
−% HISTORY: 05-02-2007 M Hewitson
+
−%             Creation
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−% convert to a cell if necessary
+
−if ischar(s)
+
−  s = [cellstr(s)];
+
−end
+
−
+
−% check it makes sense to proceed.
+
−x = splitstring(s{end}, n);
+
−if strcmp(char(x), char(s))
+
−  return
+
−end
+
−
+
−% now keep splitting until we are happy.
+
−while length(s{end}) >= n
+
−  if length(s) > 1
+
−    s1 = s(1:end-1);
+
−  else
+
−    s1 = [];
+
−  end
+
−  s2 = splitstring(s{end},n);
+
−  if isempty(s2)
+
−    break
+
−  end
+
−  s = [s1 s2];
+
−end
+
−
+
−%--------------------------------------------------------------------------
+
−% split string at first ' ' or ','
+
−function s = splitstring(s,n)
+
−
+
−
+
−% disp(sprintf('- splitting %s', s))
+
−fi = 0;
+
−idx = find(s==' ' | s == ',' | s == '(' | s == '=');
+
−if max(idx) > n
+
−  for i=1:length(idx)
+
−    if idx(i) > n & fi==0
+
−      fi = i;
+
−    end
+
−  end
+
−  j = idx(fi);
+
−  s = [cellstr(strtrim(s(1:j))) cellstr(strtrim(s(j+1:end)))];
+
−else
+
−  s = [];
+
−  return;
+
−end