Mercurial > hg > octave-nkf

diff scripts/strings/upper.m @ 6023:75a828280d68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-03 02:14:21 by jwe]
author jwe
date Tue, 03 Oct 2006 02:14:21 +0000
parents 9c9eac3a6513
children 34f96dd5441b
line wrap: on
line diff
--- a/scripts/strings/upper.m
+++ b/scripts/strings/upper.m
@@ -35,10 +35,7 @@
   if (ischar (s))
     retval = toupper (s);
   elseif (iscellstr (s))
-    retval = cell (size (s));
-    for i = 1:(numel (s))
-      retval{i} = toupper(s{i});
-    endfor
+    retval = cellfun (@toupper, s, "UniformOutput", false);
   else
     error ("upper: `s' must be a string or cell array of strings");
   endif