Mercurial > octave-nkf

comparison scripts/strings/strtok.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 58604c45ca74
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
56 elseif (length (delim) > 3) 56 elseif (length (delim) > 3)
57 start = 1; 57 start = 1;
58 len = length (str); 58 len = length (str);
59 while (start <= len) 59 while (start <= len)
60 if (all (str(start) != delim)) 60 if (all (str(start) != delim))
61 break; 61 break;
62 endif 62 endif
63 start++; 63 start++;
64 endwhile 64 endwhile
65 stop = start; 65 stop = start;
66 while (stop <= len) 66 while (stop <= len)
67 if (any (str(stop) == delim)) 67 if (any (str(stop) == delim))
68 break; 68 break;
69 endif 69 endif
70 stop++; 70 stop++;
71 endwhile 71 endwhile
72 tok = str(start:stop-1); 72 tok = str(start:stop-1);
73 rem = str(stop:len); 73 rem = str(stop:len);
84 rem = ""; 84 rem = "";
85 else 85 else
86 ## Find first non-leading delimiter. 86 ## Find first non-leading delimiter.
87 skip = find (idx(:)' != 1:length(idx)); 87 skip = find (idx(:)' != 1:length(idx));
88 if (isempty (skip)) 88 if (isempty (skip))
89 tok = str(idx(length(idx))+1:length(str)); 89 tok = str(idx(length(idx))+1:length(str));
90 rem = ""; 90 rem = "";
91 else 91 else
92 tok = str(skip(1):idx(skip(1))-1); 92 tok = str(skip(1):idx(skip(1))-1);
93 rem = str(idx(skip(1)):length(str)); 93 rem = str(idx(skip(1)):length(str));
94 endif 94 endif
95 endif 95 endif
96 endif 96 endif
97 97
98 endfunction 98 endfunction