Mercurial > hg > octave-lyh

comparison scripts/strings/strchr.m @ 8552:3591fe09f3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add the strchr function
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 21 Jan 2009 14:54:20 +0100
parents
children 954b6f69f51d
comparison
equal deleted inserted replaced
8551:906f976d35a8 8552:3591fe09f3b1
1 ## Copyright (C) 2008 Jaroslav Hajek
2 ##
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
7 ## the Free Software Foundation; either version 3 of the License, or (at
8 ## your option) any later version.
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
16 ## along with Octave; see the file COPYING. If not, see
17 ## <http://www.gnu.org/licenses/>.
18
19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {@var{idx} =} strchr (@var{str}, @var{chars})
21 ## @deftypefnx {Function File} {@var{idx} =} strchr (@var{str}, @var{chars}, @var{n})
22 ## @deftypefnx {Function File} {@var{idx} =} strchr (@var{str}, @var{chars},
23 ## @var{n}, @var{direction})
24 ## Search for the string @var{str} for occurences of characters from the set @var{chars}.
25 ## The return value, as well as the @var{n} and @var{direction} arguments behave
26 ## identically as in @code{find}.
27 ##
28 ## This will be faster than using regexp in most cases.
29 ##
30 ## @seealso{find}
31
32 function varargout = strchr (str, chars, varargin)
33 if (nargin < 2 || ! ischar (str) || ! ischar (chars))
34 print_usage ();
35 endif
36 f = false (1, 256);
37 f(chars + 1) = true;
38 varargout = cell (1, nargout);
39 varargout{1} = [];
40 [varargout{:}] = find (reshape (f(str + 1), size (str)), varargin{:});
41 endfunction
42
43 %!assert(strchr("Octave is the best software","best"),[3, 6, 9, 11, 13, 15, 16, 17, 18, 20, 23, 27])