Mercurial > hg > octave-lyh
diff scripts/strings/blanks.m @ 2325:b5568c31ee2c
[project @ 1996-07-15 22:20:21 by jwe]
author | jwe |
---|---|
date | Mon, 15 Jul 1996 22:20:21 +0000 |
parents | 949ab8eba8bc |
children | 7ffb2a630708 |
line wrap: on
line diff
--- a/scripts/strings/blanks.m +++ b/scripts/strings/blanks.m @@ -1,5 +1,5 @@ ## Copyright (C) 1996 Kurt Hornik -## +## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it @@ -24,21 +24,21 @@ ## Author: jwe function s = blanks (n) - + ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>. if (nargin != 1) usage ("blanks (n)"); endif - + if (is_scalar (n) && n > 0 && n == round (n)) s = setstr (ones (1, n) * toascii (" ")); else error ("blanks: n must be a positive integer"); endif - + endfunction - +