Mercurial > hg > octave-nkf
annotate scripts/strings/index.m @ 12329:5f203b5bbf98
Use testif to only run some sparse tests when necessary libraries are installed.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Wed, 02 Feb 2011 21:31:33 -0800 |
| parents | c792872f8942 |
| children | cefd568ea073 |
| rev | line source |
|---|---|
| 11523 | 1 ## Copyright (C) 1996-2011 Kurt Hornik |
| 2325 | 2 ## |
| 2313 | 3 ## This file is part of Octave. |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 2313 | 9 ## |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 2271 | 18 |
| 3361 | 19 ## -*- texinfo -*- |
|
10793
be55736a0783
Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents:
10409
diff
changeset
|
20 ## @deftypefn {Function File} {} index (@var{s}, @var{t}) |
| 6139 | 21 ## @deftypefnx {Function File} {} index (@var{s}, @var{t}, @var{direction}) |
| 3361 | 22 ## Return the position of the first occurrence of the string @var{t} in the |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
23 ## string @var{s}, or 0 if no occurrence is found. For example: |
| 3426 | 24 ## |
| 3361 | 25 ## @example |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
26 ## @group |
| 3361 | 27 ## index ("Teststring", "t") |
| 28 ## @result{} 4 | |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
29 ## @end group |
| 3361 | 30 ## @end example |
| 3426 | 31 ## |
| 6139 | 32 ## If @var{direction} is @samp{"first"}, return the first element found. |
| 33 ## If @var{direction} is @samp{"last"}, return the last element found. | |
| 34 ## The @code{rindex} function is equivalent to @code{index} with | |
| 35 ## @var{direction} set to @samp{"last"}. | |
| 36 ## | |
| 37 ## @strong{Caution:} This function does not work for arrays of | |
| 38 ## character strings. | |
| 39 ## @seealso{find, rindex} | |
| 3361 | 40 ## @end deftypefn |
| 2271 | 41 |
| 5428 | 42 ## Author: Kurt Hornik <Kurt.Hornik@wu-wien.ac.at> |
| 2355 | 43 ## Adapted-By: jwe |
| 2314 | 44 |
| 6139 | 45 function n = index (s, t, direction) |
| 2271 | 46 |
| 2303 | 47 ## This is patterned after the AWK function of the same name. |
| 2271 | 48 |
| 6139 | 49 if (nargin < 2 || nargin > 3) |
| 6046 | 50 print_usage (); |
| 6139 | 51 elseif (nargin < 3) |
| 52 direction = "first"; | |
| 2271 | 53 endif |
| 6139 | 54 direction = lower (direction); |
| 55 | |
|
10409
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
56 f = strfind (s, t); |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
57 if (iscell (f)) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
58 f(cellfun ("isempty", f)) = {0}; |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
59 elseif (isempty (f)) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
60 f = 0; |
| 2271 | 61 endif |
| 2325 | 62 |
|
10409
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
63 if (strcmp (direction, "last")) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
64 if (iscell (f)) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
65 n = cellfun (@min, f); |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
66 else |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
67 n = f(end); |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
68 endif |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
69 elseif (strcmp (direction, "first")) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
70 if (iscell (f)) |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
71 n = cellfun (@max, f); |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
72 else |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
73 n = f(1); |
|
a87afd063e7d
optimize index (call strfind)
Jaroslav Hajek <highegg@gmail.com>
parents:
9051
diff
changeset
|
74 endif |
| 3911 | 75 else |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
76 error ("index: DIRECTION must be either \"first\" or \"last\""); |
| 3911 | 77 endif |
| 2271 | 78 endfunction |
| 6139 | 79 |
| 80 ## Test the function out | |
| 81 %!assert(index("astringbstringcstring", "s"), 2) | |
| 82 %!assert(index("astringbstringcstring", "st"), 2) | |
| 83 %!assert(index("astringbstringcstring", "str"), 2) | |
| 84 %!assert(index("astringbstringcstring", "string"), 2) | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
85 %!assert(index("abc---", "abc+++"), 0) |
| 6139 | 86 |
| 87 ## test everything out in reverse | |
| 88 %!assert(index("astringbstringcstring", "s", "last"), 16) | |
| 89 %!assert(index("astringbstringcstring", "st", "last"), 16) | |
| 90 %!assert(index("astringbstringcstring", "str", "last"), 16) | |
| 91 %!assert(index("astringbstringcstring", "string", "last"), 16) | |
| 6901 | 92 %!assert(index("abc---", "abc+++", "last"), 0) |
| 7411 | 93 |
| 94 | |
| 95 %!assert(index ("foobarbaz", "b") == 4 && index ("foobarbaz", "z") == 9); | |
| 96 | |
| 97 %!error index (); | |
| 98 | |
| 99 %!error index ("foo", "bar", 3); | |
| 100 |