home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / PASS3.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  804 b   |  31 lines
  1. function [out,err] = pass3(j,od,odl)
  2.   var = od(j,1:odl(j));
  3.   err = 0;
  4.   out = [];
  5.   commas = find(var==',');
  6.   commas = [0 commas length(var)+1];
  7.   if length(find(diff(commas)==1)) > 0
  8.     err = 1;
  9.   else
  10.     for jj=1:length(commas)-1
  11.     chunk = var(commas(jj)+1:commas(jj+1)-1);
  12.       colons = find(chunk==':');
  13.       if length(colons) == 0
  14.         exp = ['value =' chunk ';'];
  15.         eval(exp);
  16.         out = [out ; value];
  17.       elseif length(colons) == 1
  18.         exp = ['start = ' chunk(1:colons(1)-1) ';'];
  19.         eval(exp);
  20.         exp = ['stop = ' chunk(colons(1)+1:length(chunk)) ';'];
  21.         eval(exp)
  22.         tmp = start:stop;
  23.         out = [out ; tmp'];
  24.       else
  25.         err = 2;
  26.       end
  27.     end
  28.   end
  29. %
  30. % Copyright MUSYN INC 1991,  All Rights Reserved
  31.