home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts.fat / control / syschnal.m < prev    next >
Text File  |  1999-04-29  |  4KB  |  134 lines
  1. # Copyright (C) 1996 A. Scottedward Hodel 
  2. #
  3. # This file is part of Octave. 
  4. #
  5. # Octave is free software; you can redistribute it and/or modify it 
  6. # under the terms of the GNU General Public License as published by the 
  7. # Free Software Foundation; either version 2, or (at your option) any 
  8. # later version. 
  9. # 
  10. # Octave is distributed in the hope that it will be useful, but WITHOUT 
  11. # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
  12. # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
  13. # for more details.
  14. # 
  15. # You should have received a copy of the GNU General Public License 
  16. # along with Octave; see the file COPYING.  If not, write to the Free 
  17. # Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 
  18.  
  19. function old_names = syschnaml(olist,old_names,inames,listname)
  20.   # used internally in syschnam
  21.   # olist: index list
  22.   # old_names: original list names
  23.   # inames: new names
  24.   # listname: name of index list
  25.   #
  26.   # combines the two string lists old_names and inames
  27.  
  28.   # $Revision: 1.2 $
  29.   # $Log: syschnaml.m,v $
  30.   # Revision 1.2  1998/07/01 16:23:39  hodelas
  31.   # Updated c2d, d2c to perform bilinear transforms.
  32.   # Updated several files per bug updates from users.
  33.   #
  34.   # Revision 1.5  1997/02/28 23:47:26  hodel
  35.   # fixed bug in checking parameters; (inames dimension not checked against olist)
  36.   # a.s.hodel@eng.auburn.edu
  37.   #
  38.   # Revision 1.4  1997/02/13 15:56:37  hodel
  39.   # added code to convert zeros in the name matrix to blanks
  40.   # a.s.hodel@eng.auburn.edu
  41.   #
  42.   # Revision 1.3  1997/02/13 15:11:17  hodel
  43.   # fixed bug when len_my < len_out a.s.hodel@eng.auburn.edu
  44.   #
  45.   # Revision 1.2  1997/02/12 22:54:50  hodel
  46.   # fixed string matrix <-> numerical matrix problem
  47.   #
  48.   
  49.   probstr = [];
  50.   if( max(olist) > rows(old_names) )
  51.     probstr = ["index list value(s) exceed(s) number of signals (", ...
  52.       num2str(rows(old_names)),")"];
  53.  
  54.   elseif( length(olist) > rows(inames) )
  55.     probstr = ["index list dimension exceeds number of replacement names (", ...
  56.       num2str(rows(inames)),")"];
  57.  
  58.   elseif(isempty(olist))
  59.     probstr = [];    # do nothing, no changes
  60.  
  61.   elseif(min(size(olist)) != 1 )
  62.     probstr = "index list must be either a vector or an empty matrix";
  63.  
  64.   elseif(max(olist) > rows(old_names))
  65.     probstr = ["max(",listname,")=",num2str(max(olist))," > ", ...
  66.     num2str(rows(old_names)),", too big"];
  67.  
  68.   elseif(min(olist) < 1)
  69.     probstr = ["min(",listname,")=",num2str(min(olist))," < 1, too small"];
  70.  
  71.   else
  72.     if( length(olist)  == 1)
  73.     len_in = columns(inames);
  74.     len_out = columns(old_names);
  75.  
  76.       if (len_in < len_out)
  77.         inames(1,(len_in+1):(len_out)) = zeros(1,(len_out - len_in));
  78.       endif
  79.  
  80.       old_names(olist,1:length(inames)) = inames;
  81.     elseif(length(olist) > 1)
  82.       for ii=1:length(olist)
  83.         mystr = inames(ii,:);
  84.     len_my = columns(mystr);
  85.         len_out = columns(old_names);
  86.        
  87.         if (len_my < len_out)
  88.           mystr(1,(len_my+1):(len_out)) = " "*ones(1,(len_out - len_my));
  89.       len_my = len_out;
  90.         endif
  91.  
  92.         old_names(olist(ii),1:len_my) = mystr;
  93.       endfor
  94.     endif
  95.   endif
  96.   if(!isempty(probstr))
  97.     # the following lines are NOT debugging code!
  98.     disp("Problem in syschnam: old names are")
  99.     outlist(old_names,"    ")
  100.     disp("new names are")
  101.     outlist(inames,"    ")
  102.     disp("list indices are")
  103.     disp(olist)
  104.     error(sprintf("syschnam: \"%s\" dim=(%d x %d)--\n\t%s\n", ...
  105.     listname, rows(olist), columns(olist),probstr));
  106.   endif
  107.  
  108.   # change zeros  to blanks
  109.   if( find(old_names == 0) )
  110.     #disp("syschnaml: old_names contains zeros ")
  111.     #old_names
  112.     #disp("/syschnaml");
  113.  
  114.     [ii,jj] = find(old_names == 0);
  115.     for idx=1:length(ii)
  116.       old_names(ii(idx),jj(idx)) = " ";
  117.     endfor
  118.  
  119.     #disp("syschnaml: old_names fixed zeros ")
  120.     #old_names
  121.     #disp("/syschnaml");
  122.   endif
  123.  
  124.   # just in case it's not a string anymore
  125.   if( !isstr(old_names) )
  126.     old_names = setstr(old_names);
  127.   endif
  128.   
  129.   #disp("syschnaml: exit, old_names=")
  130.   #old_names
  131.   #disp("/syschnaml: exiting")
  132.   
  133. endfunction
  134.