home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / NAMSTUFF.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  738 b   |  26 lines
  1. % function [numsys,names,namelen,maxlen] = namstuff(systemnames);
  2.  
  3. function [numsys,names,namelen,maxlen] = namstuff(systemnames);
  4.   maxlen = 0;
  5.   names = [];
  6.   tmpln = length(systemnames);
  7.   iloc = find(systemnames ~= ']' & systemnames ~= '[');
  8.   tmp = [' ' systemnames(iloc) ' '];
  9.   blks = find(tmp == ' ');
  10.   blksd = diff(blks);
  11.   imp = find(blksd>1);
  12.   numsys = length(imp);
  13.   namelen = zeros(numsys,1);
  14.   for i=1:numsys
  15.      nn = tmp(blks(imp(i))+1:blks(imp(i)+1)-1);
  16.      if length(nn) > maxlen
  17.        maxlen = length(nn);
  18.      end
  19.      namelen(i) = length(nn);
  20.      names = [names ; [nn mtblanks(tmpln-length(nn))]];
  21.   end
  22.   names = names(:,1:maxlen);
  23.   
  24. %
  25. % Copyright MUSYN INC 1991,  All Rights Reserved
  26.