Mercurial > hg > octave-lyh

comparison scripts/strings/strtrunc.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 86adc85cc471
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
27 ## @end deftypefn 27 ## @end deftypefn
28 28
29 function s = strtrunc (s, n) 29 function s = strtrunc (s, n)
30 30
31 if (nargin != 2) 31 if (nargin != 2)
32 usage ("strtrunc (s, n)"); 32 print_usage ();
33 endif 33 endif
34 34
35 if (ischar (s)) 35 if (ischar (s))
36 s_was_char = true; 36 s_was_char = true;
37 s = {s}; 37 s = {s};