octave: libinterp/corefcn/strfind.cc annotate

annotate libinterp/corefcn/strfind.cc @ 20801:a542a9bf177e

eliminate return statements after calls to print_usage * graphics.cc, hess.cc, input.cc, kron.cc, load-save.cc, lsode.cc, luinc.cc, matrix_type.cc, md5sum.cc, nproc.cc, pager.cc, pr-output.cc, psi.cc, quadcc.cc, rand.cc, regexp.cc, sighandlers.cc, sqrtm.cc, strfind.cc, sub2ind.cc, sylvester.cc: Eliminate return statements after calls to print_usage.

author	John W. Eaton <jwe@octave.org>
date	Thu, 03 Dec 2015 19:22:54 -0500
parents	4f45eaf83908
children	35241c4b696c

rev	line source
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	1 /*
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	2
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19597 diff changeset	3 Copyright (C) 2009-2015 Jaroslav Hajek
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	4 Copyright (C) 2009-2010 VZLU Prague
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	5
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	6 This file is part of Octave.
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	7
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	9 under the terms of the GNU General Public License as published by the
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	10 Free Software Foundation; either version 3 of the License, or (at your
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	11 option) any later version.
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	12
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but WITHOUT
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	16 for more details.
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	17
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	18 You should have received a copy of the GNU General Public License
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	19 along with Octave; see the file COPYING. If not, see
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	20 <http://www.gnu.org/licenses/>.
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	21
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	22 */
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	23
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	24 #ifdef HAVE_CONFIG_H
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	25 #include <config.h>
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	26 #endif
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	27
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	28 #include <algorithm>
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	29 #include <deque>
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	30 #include <limits>
9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	31 #include <string>
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	32
19269 65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19062 diff changeset	33 #include "oct-locbuf.h"
65554f5847ac don't include oct-locbuf.h in header files unnecessarily John W. Eaton <jwe@octave.org> parents: 19062 diff changeset	34
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	35 #include "Cell.h"
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	36 #include "ov.h"
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	37 #include "defun.h"
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	38 #include "unwind-prot.h"
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	39 #include "gripes.h"
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	40 #include "utils.h"
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	41
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	42 // This allows safe indexing with char.
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	43 // In C++, char may be (and often is) signed!
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	44 #define ORD(ch) static_cast<unsigned char>(ch)
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	45 #define TABSIZE (std::numeric_limits<unsigned char>::max () + 1)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	46
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	47 // This is the quick search algorithm, as described at
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	48 // http://www-igm.univ-mlv.fr/~lecroq/string/node19.html
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	49 static void
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	50 qs_preprocess (const Array<char>& needle,
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	51 octave_idx_type *table)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	52 {
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	53 const char *x = needle.data ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	54 octave_idx_type m = needle.numel ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	55
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	56 for (octave_idx_type i = 0; i < TABSIZE; i++)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	57 table[i] = m + 1;
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	58 for (octave_idx_type i = 0; i < m; i++)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	59 table[ORD(x[i])] = m - i;
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	60 }
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	61
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	62
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	63 static Array<octave_idx_type>
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	64 qs_search (const Array<char>& needle,
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	65 const Array<char>& haystack,
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	66 const octave_idx_type *table,
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	67 bool overlaps = true)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	68 {
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	69 const char *x = needle.data ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	70 octave_idx_type m = needle.numel ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	71 const char *y = haystack.data ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	72 octave_idx_type n = haystack.numel ();
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	73
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	74 // We'll use deque because it typically has the most favorable properties for
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	75 // the operation we need.
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	76 std::deque<octave_idx_type> accum;
10133 2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	77 if (m == 1)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	78 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	79 // Looking for a single character.
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	80 for (octave_idx_type i = 0; i < n; i++)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	81 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	82 if (y[i] == x[0])
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	83 accum.push_back (i);
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	84 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	85 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	86 else if (m == 2)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	87 {
10133 2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	88 // Two characters.
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	89 if (overlaps)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	90 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	91 for (octave_idx_type i = 0; i < n-1; i++)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	92 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	93 if (y[i] == x[0] && y[i+1] == x[1])
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	94 accum.push_back (i);
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	95 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	96 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	97 else
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	98 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	99 for (octave_idx_type i = 0; i < n-1; i++)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	100 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	101 if (y[i] == x[0] && y[i+1] == x[1])
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	102 accum.push_back (i++);
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	103 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	104 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	105 }
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	106 else if (n >= m)
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	107 {
2e4fc7fdba15 optimize strfind with 1 or 2 characters Jaroslav Hajek <highegg@gmail.com> parents: 10086 diff changeset	108 // General case.
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	109 octave_idx_type j = 0;
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	110
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	111 if (overlaps)
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	112 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	113 while (j < n - m)
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	114 {
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	115 if (std::equal (x, x + m, y + j))
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	116 accum.push_back (j);
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	117 j += table[ORD(y[j + m])];
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	118 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	119 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	120 else
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	121 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	122 while (j < n - m)
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	123 {
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	124 if (std::equal (x, x + m, y + j))
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	125 {
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	126 accum.push_back (j);
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	127 j += m;
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	128 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	129 else
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	130 j += table[ORD(y[j + m])];
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	131 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	132 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	133
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	134 if (j == n - m && std::equal (x, x + m, y + j))
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	135 accum.push_back (j);
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	136 }
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	137
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	138 octave_idx_type nmatch = accum.size ();
10258 e317791645c4 64-bit fixes John W. Eaton <jwe@octave.org> parents: 10133 diff changeset	139 octave_idx_type one = 1;
e317791645c4 64-bit fixes John W. Eaton <jwe@octave.org> parents: 10133 diff changeset	140 Array<octave_idx_type> result (dim_vector (std::min (one, nmatch), nmatch));
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	141 octave_idx_type k = 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	142 for (std::deque<octave_idx_type>::const_iterator iter = accum.begin ();
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	143 iter != accum.end (); iter++)
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	144 {
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	145 result.xelem (k++) = *iter;
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	146 }
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	147
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	148 return result;
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	149 }
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	150
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	151 DEFUN (strfind, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	152 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	153 @deftypefn {Built-in Function} {@var{idx} =} strfind (@var{str}, @var{pattern})\n\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	154 @deftypefnx {Built-in Function} {@var{idx} =} strfind (@var{cellstr}, @var{pattern})\n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	155 @deftypefnx {Built-in Function} {@var{idx} =} strfind (@dots{}, \"overlaps\", @var{val})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	156 Search for @var{pattern} in the string @var{str} and return the starting\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	157 index of every such occurrence in the vector @var{idx}.\n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	158 \n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	159 If there is no such occurrence, or if @var{pattern} is longer than\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	160 @var{str}, or if @var{pattern} itself is empty, then @var{idx} is the empty\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	161 array @code{[]}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	162 \n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	163 The optional argument @qcode{\"overlaps\"} determines whether the pattern\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	164 can match at every position in @var{str} (true), or only for unique\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	165 occurrences of the complete pattern (false). The default is true.\n\
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	166 \n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	167 If a cell array of strings @var{cellstr} is specified then @var{idx} is a\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19957 diff changeset	168 cell array of vectors, as specified above.\n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	169 \n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	170 Examples:\n\
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	171 \n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	172 @example\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	173 @group\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	174 strfind (\"abababa\", \"aba\")\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	175 @result{} [1, 3, 5]\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	176 \n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	177 strfind (\"abababa\", \"aba\", \"overlaps\", false)\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	178 @result{} [1, 5]\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	179 \n\
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	180 strfind (@{\"abababa\", \"bebebe\", \"ab\"@}, \"aba\")\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	181 @result{}\n\
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	182 @{\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	183 [1,1] =\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	184 \n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	185 1 3 5\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	186 \n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	187 [1,2] = [](1x0)\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	188 [1,3] = [](1x0)\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	189 @}\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	190 @end group\n\
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	191 @end example\n\
19957 e78c0514523d restore strmatch function; backout changeset f9959972949a John W. Eaton <jwe@octave.org> parents: 19697 diff changeset	192 @seealso{findstr, strmatch, regexp, regexpi, find}\n\
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	193 @end deftypefn")
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	194 {
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	195 octave_value retval;
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	196
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	197 int nargin = args.length ();
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	198
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	199 if (nargin != 4 && nargin != 2)
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	200 print_usage ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	201
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	202 bool overlaps = true;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	203
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	204 if (nargin == 4)
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	205 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	206 if (args(2).is_string () && args(3).is_scalar_type ())
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	207 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	208 std::string opt = args(2).string_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	209
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	210 if (opt == "overlaps")
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	211 overlaps = args(3).bool_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	212 else
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	213 error ("strfind: unknown option: %s", opt.c_str ());
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	214 }
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	215 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	216 error ("strfind: invalid optional arguments");
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	217 }
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	218
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	219 octave_value argstr = args(0);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	220 octave_value argpat = args(1);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	221
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	222 if (argpat.is_string ())
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	223 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	224 Array<char> needle = argpat.char_array_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	225 OCTAVE_LOCAL_BUFFER (octave_idx_type, table, TABSIZE);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	226 qs_preprocess (needle, table);
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	227
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	228 if (argstr.is_string ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	229 if (argpat.is_empty ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	230 // Return a null matrix for null pattern for MW compatibility
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	231 retval = Matrix ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	232 else
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	233 retval = octave_value (qs_search (needle,
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	234 argstr.char_array_value (),
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	235 table, overlaps),
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	236 true, true);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	237 else if (argstr.is_cell ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	238 {
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	239 const Cell argsc = argstr.cell_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	240 Cell retc (argsc.dims ());
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	241 octave_idx_type ns = argsc.numel ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	242
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	243 for (octave_idx_type i = 0; i < ns; i++)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	244 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	245 octave_value argse = argsc(i);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	246 if (argse.is_string ())
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	247 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	248 if (argpat.is_empty ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	249 retc(i) = Matrix ();
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	250 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	251 retc(i) = octave_value (qs_search (needle,
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	252 argse.char_array_value (),
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	253 table, overlaps),
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	254 true, true);
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	255 }
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	256 else
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	257 {
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	258 error ("strfind: each element of CELLSTR must be a string");
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	259 break;
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	260 }
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	261 }
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	262
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	263 retval = retc;
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	264 }
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	265 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	266 error ("strfind: first argument must be a string or cell array of strings");
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	267 }
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	268 else if (argpat.is_cell ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	269 retval = do_simple_cellfun (Fstrfind, "strfind", args);
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	270 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	271 error ("strfind: PATTERN must be a string or cell array of strings");
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	272
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	273 return retval;
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	274 }
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	275
a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	276 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	277 %!assert (strfind ("abababa", "aba"), [1, 3, 5])
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	278 %!assert (strfind ("abababa", "aba", "overlaps", false), [1, 5])
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	279 %!assert (strfind ({"abababa", "bla", "bla"}, "a"), {[1, 3, 5, 7], 3, 3})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	280 %!assert (strfind ("Linux _is_ user-friendly. It just isn't ignorant-friendly or idiot-friendly.", "friendly"), [17, 50, 68])
19386 f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	281 %!assert (strfind ("abc", ""), [])
f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	282 %!assert (strfind ("abc", {"", "b", ""}), {[], 2, []})
f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	283 %!assert (strfind ({"abc", "def"}, ""), {[], []})
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	284
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	285 %!error strfind ()
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	286 %!error strfind ("foo", "bar", 1)
19386 f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	287 %!error <unknown option: foobar> strfind ("foo", 100, "foobar", 1)
f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	288 %!error <each element of CELLSTR must be a string> strfind ({"A", 1}, "foo")
f054112912df Change strfind to return empty array for empty pattern for compatibility (bug #43649). Rik <rik@octave.org> parents: 19269 diff changeset	289 %!error <first argument must be a string> strfind (100, "foo")
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	290 %!error <PATTERN must be a string> strfind ("foo", 100)
10022 a14dc255427f omitted file in last patch Jaroslav Hajek <highegg@gmail.com> parents: diff changeset	291 */
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	292
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	293 static Array<char>
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	294 qs_replace (const Array<char>& str, const Array<char>& pat,
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	295 const Array<char>& rep,
15215 9020dddc925a use std::numeric_limits for integer max and min values John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	296 const octave_idx_type *table,
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	297 bool overlaps = true)
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	298 {
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	299 Array<char> ret = str;
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	300
18100 6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	301 octave_idx_type siz = str.numel ();
6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	302 octave_idx_type psiz = pat.numel ();
6a71e5030df5 Follow coding convention of defining and initializing only 1 variable per line in liboctinterp. Rik <rik@octave.org> parents: 17787 diff changeset	303 octave_idx_type rsiz = rep.numel ();
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	304
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	305 if (psiz != 0)
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	306 {
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	307 // Look up matches, without overlaps.
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	308 const Array<octave_idx_type> idx = qs_search (pat, str, table, overlaps);
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	309 octave_idx_type nidx = idx.numel ();
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	310
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	311 if (nidx)
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	312 {
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	313 // Compute result size.
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	314 octave_idx_type retsiz;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	315 if (overlaps)
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	316 {
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	317 retsiz = 0;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	318 // OMG. Is this the "right answer" MW always looks for, or
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	319 // someone was just lazy?
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	320 octave_idx_type k = 0;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	321 for (octave_idx_type i = 0; i < nidx; i++)
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	322 {
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	323 octave_idx_type j = idx(i);
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	324 if (j >= k)
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	325 retsiz += j - k;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	326 retsiz += rsiz;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	327 k = j + psiz;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	328 }
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	329
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	330 retsiz += siz - k;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	331 }
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	332 else
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	333 retsiz = siz + nidx * (rsiz - psiz);
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	334
18763 86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	335 if (retsiz == 0)
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	336 ret.clear (dim_vector (0, 0));
19597 db92e7e28e1f strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19386 diff changeset	337 else
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	338 {
18763 86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	339 ret.clear (dim_vector (1, retsiz));
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	340 const char *src = str.data ();
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	341 const char *reps = rep.data ();
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	342 char *dest = ret.fortran_vec ();
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	343
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	344 octave_idx_type k = 0;
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	345 for (octave_idx_type i = 0; i < nidx; i++)
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	346 {
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	347 octave_idx_type j = idx(i);
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	348 if (j >= k)
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	349 dest = std::copy (src + k, src + j, dest);
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	350 dest = std::copy (reps, reps + rsiz, dest);
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	351 k = j + psiz;
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	352 }
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	353
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	354 std::copy (src + k, src + siz, dest);
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	355 }
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	356 }
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	357 }
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	358
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	359 return ret;
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	360 }
5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	361
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	362 DEFUN (strrep, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	363 "-- texinfo --\n\
17398 67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	364 @deftypefn {Built-in Function} {@var{newstr} =} strrep (@var{str}, @var{ptn}, @var{rep})\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	365 @deftypefnx {Built-in Function} {@var{newstr} =} strrep (@var{cellstr}, @var{ptn}, @var{rep})\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	366 @deftypefnx {Built-in Function} {@var{newstr} =} strrep (@dots{}, \"overlaps\", @var{val})\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	367 Replace all occurrences of the pattern @var{ptn} in the string @var{str}\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	368 with the string @var{rep} and return the result.\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	369 \n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	370 The optional argument @qcode{\"overlaps\"} determines whether the pattern\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	371 can match at every position in @var{str} (true), or only for unique\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	372 occurrences of the complete pattern (false). The default is true.\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	373 \n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	374 @var{s} may also be a cell array of strings, in which case the replacement is\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	375 done for each element and a cell array is returned.\n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	376 \n\
67c6fc2b9f63 doc: Add info about "overlaps" option to strfind, strrep. Rik <rik@octave.org> parents: 15215 diff changeset	377 Example:\n\
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	378 \n\
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	379 @example\n\
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	380 @group\n\
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	381 strrep (\"This is a test string\", \"is\", \"&%$\")\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	382 @result{} \"Th&%$ &%$ a test string\"\n\
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	383 @end group\n\
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	384 @end example\n\
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	385 \n\
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	386 @seealso{regexprep, strfind, findstr}\n\
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	387 @end deftypefn")
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	388 {
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	389 octave_value retval;
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	390
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	391 bool overlaps = true;
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	392
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	393 int nargin = args.length ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	394
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	395 if (nargin != 3 && nargin != 5)
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	396 print_usage ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	397
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	398 if (nargin == 5)
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	399 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	400 if (args(3).is_string () && args(4).is_scalar_type ())
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	401 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	402 std::string opt = args(3).string_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	403 if (opt == "overlaps")
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	404 overlaps = args(4).bool_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	405 else
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	406 error ("strrep: unknown option: %s", opt.c_str ());
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	407 }
21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	408 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	409 error ("strrep: invalid optional arguments");
10677 21defab4207c make strrep not skipping overlaps by default, allow an option in both strfind/strrep Jaroslav Hajek <highegg@gmail.com> parents: 10521 diff changeset	410 }
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	411
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	412 octave_value argstr = args(0);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	413 octave_value argpat = args(1);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	414 octave_value argrep = args(2);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	415
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	416 if (argpat.is_string () && argrep.is_string ())
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	417 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	418 const Array<char> pat = argpat.char_array_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	419 const Array<char> rep = argrep.char_array_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	420
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	421 OCTAVE_LOCAL_BUFFER (octave_idx_type, table, TABSIZE);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	422 qs_preprocess (pat, table);
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	423
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	424 if (argstr.is_string ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	425 retval = qs_replace (argstr.char_array_value (), pat, rep,
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	426 table, overlaps);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	427 else if (argstr.is_cell ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	428 {
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	429 const Cell argsc = argstr.cell_value ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	430 Cell retc (argsc.dims ());
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	431 octave_idx_type ns = argsc.numel ();
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	432
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	433 for (octave_idx_type i = 0; i < ns; i++)
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	434 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	435 octave_value argse = argsc(i);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	436 if (argse.is_string ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	437 retc(i) = qs_replace (argse.char_array_value (), pat, rep,
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	438 table, overlaps);
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	439 else
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	440 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	441 error ("strrep: each element of S must be a string");
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	442 break;
10074 5e2b4b7967cc allow array of strings in strrep Jaroslav Hajek <highegg@gmail.com> parents: 10053 diff changeset	443 }
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	444 }
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	445
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	446 retval = retc;
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	447 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	448 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	449 error ("strrep: S must be a string or cell array of strings");
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	450 }
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	451 else if (argpat.is_cell () \|\| argrep.is_cell ())
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	452 retval = do_simple_cellfun (Fstrrep, "strrep", args);
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	453 else
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20172 diff changeset	454 error ("strrep: PTN and REP arguments must be strings or cell arrays of strings");
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	455
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	456 return retval;
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	457 }
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	458
830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	459 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	460 %!assert (strrep ("This is a test string", "is", "&%$"),
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	461 %! "Th&%$ &%$ a test string")
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	462 %!assert (strrep ("abababc", "abab", "xyz"), "xyzxyzc")
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	463 %!assert (strrep ("abababc", "abab", "xyz", "overlaps", false), "xyzabc")
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	464
18763 86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	465 %!assert (size (strrep ("a", "a", "")), [0 0])
86818f2c4a92 Return 0x0 empty matrix from strrep for Matlab compatibility (bug #42341). Rik <rik@octave.org> parents: 18100 diff changeset	466
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	467 %!error strrep ()
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	468 %!error strrep ("foo", "bar", 3, 4)
10053 830986c43dee implement compiled strrep Jaroslav Hajek <highegg@gmail.com> parents: 10022 diff changeset	469 */

Mercurial > octave

annotate libinterp/corefcn/strfind.cc @ 20801:a542a9bf177e