Mercurial > octave-nkf

comparison scripts/strings/deblank.m @ 5091:87b0b9a97e40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-12-03 04:41:50 by jwe]
author jwe
date Fri, 03 Dec 2004 04:42:01 +0000
parents d71f92546e45
children 5353ef6ac73c
comparison
equal deleted inserted replaced
5090:c42c90543e36 5091:87b0b9a97e40
33 usage ("deblank (s)"); 33 usage ("deblank (s)");
34 endif 34 endif
35 35
36 if (isstr (s)) 36 if (isstr (s))
37 37
38 k = find (s != " " & s != "\0"); 38 k = find (! isspace (x) & s != "\0");
39 if (isempty (s) || isempty (k)) 39 if (isempty (s) || isempty (k))
40 t = ""; 40 t = "";
41 else 41 else
42 t = s(:,1:ceil (max (k) / rows (s))); 42 t = s(:,1:ceil (max (k) / rows (s)));
43 endif 43 endif