Mercurial > hg > octave-lojdl
changeset 3450:4b61d9e3c73a
[project @ 2000-01-18 04:43:54 by jwe]
author | jwe |
---|---|
date | Tue, 18 Jan 2000 04:43:55 +0000 |
parents | 858695b3ed62 |
children | a6cc6bc220b3 |
files | scripts/ChangeLog scripts/control/util/strappend.m |
diffstat | 2 files changed, 15 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -59,6 +59,7 @@ * signal/triangle_lw.m: Ditto. * signal/triangle_sw.m: Ditto. * signal/yulewalker.m: Ditto. + * control/util/strappend.m: Ditto. 2000-01-14 John W. Eaton <jwe@bevo.che.wisc.edu>
--- a/scripts/control/util/strappend.m +++ b/scripts/control/util/strappend.m @@ -16,24 +16,25 @@ ## along with Octave; see the file COPYING. If not, write to the Free ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. -## retval = strappend(strlist,suffix); -## append string suffix to each string in the list of strings strlist +## -*- texinfo -*- +## @deftypefn {Function File} strappend (@var{strlist}, @var{suffix}) +## Append string @var{suffix} to each string in the list @var{strlist}. +## @end deftypefn function retval = strappend (strlist, suffix); - if(nargin != 2 | nargout > 1) - usage(" retval = strappend(strlist,suffix)"); - elseif(!is_signal_list(strlist)) - strlist - error("strlist must be a list of strings (see is_signal_list)"); - elseif(!(isstr(suffix) & rows(suffix) == 1)) - suffix - error("suffix must be a single string"); + if (nargin != 2 || nargout > 1) + usage ("retval = strappend (strlist, suffix)"); + elseif (! is_signal_list (strlist)) + error ("strlist must be a list of strings (see is_signal_list)"); + elseif (! (isstr (suffix) && rows (suffix) == 1)) + error ("suffix must be a single string"); endif - retval = list(); - for ii=1:length(strlist) - retval(ii) = sprintf("%s%s",nth(strlist,ii),suffix); + retval = list (); + + for ii = 1:length (strlist) + retval(ii) = sprintf ("%s%s", nth (strlist, ii), suffix); endfor endfunction