home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fb.zip / octave / SCRIPTS.ZIP / scripts / control / sysgroupn.m < prev    next >
Encoding:
Text File  |  1999-12-15  |  2.0 KB  |  59 lines
  1. ## Copyright (C) 1996,1998 Auburn University.  All Rights Reserved.
  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, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 
  18.  
  19. ## -*- texinfo -*-
  20. ## @deftypefn {Function File } { @var{names} =} sysgroupn (@var{names})
  21. ## names = sysgroupn(names)
  22. ## Locate and mark duplicate names
  23. ## inputs:
  24. ##   names: list of signal names
  25. ##   kind: kind of signal name (used for diagnostic message purposes only)
  26. ## outputs:
  27. ##   returns names with unique suffixes added; diagnostic warning
  28. ##      message is printed to inform the user of the new signal name
  29. ##
  30. ##  used internally in sysgroup and elsewhere. 
  31. ## 
  32. ## @end deftypefn
  33.  
  34. function names = sysgroupn (names, kind)
  35.  
  36.   ## check for duplicate names
  37.   l = length(names);
  38.   ii = 1;
  39.   while(ii <= l-1)
  40.     st1 = nth(names,ii);
  41.     jj = ii+1;
  42.     while ( jj <= l)
  43.       st2 = nth(names,jj);
  44.       if(strcmp(st1,st2))
  45.         suffix = ["_",num2str(jj)];
  46.         warning("sysgroup: %s name(%d) = %s name(%d) = %s", ...
  47.       kind,ii,kind,jj,st1);
  48.         strval = sprintf("%s%s",st2,suffix);
  49.         names(jj) = strval;
  50.         warning("sysgroup:     changed %s name %d to %s",kind,jj,strval);
  51.         ## restart the check (just to be sure there's no further duplications)
  52.         ii = 0; jj = l;
  53.       endif
  54.       jj = jj+1;
  55.     endwhile
  56.     ii = ii+1;
  57.   endwhile
  58. endfunction
  59.