octave: libinterp/corefcn/regexp.cc annotate

annotate libinterp/corefcn/regexp.cc @ 16816:12005245b645

doc: Periodic grammarcheck of documentation. * doc/interpreter/basics.txi, doc/interpreter/container.txi, doc/interpreter/contrib.txi, doc/interpreter/diagperm.txi, doc/interpreter/errors.txi, doc/interpreter/install.txi, doc/interpreter/sparse.txi, libinterp/corefcn/ellipj.cc, libinterp/corefcn/mappers.cc, libinterp/corefcn/regexp.cc, libinterp/corefcn/tril.cc, libinterp/dldfcn/__init_fltk__.cc, libinterp/dldfcn/fftw.cc, libinterp/interpfcn/dirfns.cc, libinterp/interpfcn/input.cc, libinterp/octave-value/ov-fcn-inline.cc, libinterp/octave-value/ov-struct.cc, scripts/@ftp/cd.m, scripts/general/interp1.m, scripts/general/num2str.m, scripts/image/ind2rgb.m, scripts/image/rgb2ind.m, scripts/io/importdata.m, scripts/io/textread.m, scripts/java/javamem.m, scripts/linear-algebra/condest.m, scripts/linear-algebra/onenormest.m, scripts/miscellaneous/error_ids.m, scripts/miscellaneous/getfield.m, scripts/miscellaneous/setfield.m, scripts/plot/area.m, scripts/plot/pcolor.m, scripts/plot/stairs.m, scripts/set/powerset.m, scripts/sparse/bicg.m, scripts/sparse/bicgstab.m, scripts/sparse/cgs.m, scripts/specfun/ellipke.m, scripts/special-matrix/gallery.m, scripts/strings/strjoin.m, scripts/strings/strsplit.m, scripts/testfun/__have_feature__.m, scripts/testfun/__printf_assert__.m, scripts/testfun/__prog_output_assert__.m, scripts/testfun/__run_test_suite__.m: grammarcheck documentation.

author	Rik <rik@octave.org>
date	Sat, 22 Jun 2013 19:47:32 -0700
parents	7eff3032d144
children	ab46b5c77669

rev	line source
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1 /*
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	2
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 14024 diff changeset	3 Copyright (C) 2005-2012 David Bateman
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 11045 diff changeset	4 Copyright (C) 2002-2005 Paul Kienzle
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	5
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	6 This file is part of Octave.
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	7
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	9 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	11 option) any later version.
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	12
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	13 Octave is distributed in the hope that it will be useful, but WITHOUT
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	16 for more details.
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	17
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	18 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7007 diff changeset	20 <http://www.gnu.org/licenses/>.
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	21
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	22 */
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	23
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	24 #ifdef HAVE_CONFIG_H
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	25 #include <config.h>
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	26 #endif
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	27
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	28 #include <list>
5765 7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	29 #include <sstream>
7ba9ad1fec11 [project @ 2006-04-17 05:05:15 by jwe] jwe parents: 5760 diff changeset	30
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	31 #include <pcre.h>
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	32
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	33 #include "base-list.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	34 #include "oct-locbuf.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	35 #include "quit.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	36 #include "regexp.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	37 #include "str-vec.h"
8093 dcc31f473596 Treat PCRE lookbehind operators in a manner that is approximately correct David Bateman <dbateman@free.fr> parents: 8021 diff changeset	38
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	39 #include "defun.h"
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	40 #include "Cell.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	41 #include "error.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	42 #include "gripes.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	43 #include "oct-map.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	44 #include "oct-obj.h"
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	45 #include "utils.h"
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	46
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	47 // Replace backslash escapes in a string with the real values. We need
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	48 // two special functions instead of the one in utils.cc because the set
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	49 // of escape sequences used for regexp patterns and replacement strings
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	50 // is different from those used in the *printf functions.
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	51
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	52 static std::string
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	53 do_regexp_ptn_string_escapes (const std::string& s)
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	54 {
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	55 std::string retval;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	56
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	57 size_t i = 0;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	58 size_t j = 0;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	59 size_t len = s.length ();
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	60
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	61 retval.resize (len);
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	62
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	63 while (j < len)
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	64 {
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	65 if (s[j] == '\\' && j+1 < len)
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	66 {
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	67 switch (s[++j])
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	68 {
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	69 case 'b': // backspace
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	70 retval[i] = '\b';
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	71 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	72
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	73 #if 0
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	74 // FIXME : To be complete, we need to handle \oN, \o{N}.
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	75 // The PCRE library already handles \N where N
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	76 // is an octal number. New code needs to merely
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	77 // replace \oN or \o{N} with \N.
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	78 case 'o': // octal number
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	79 #endif
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	80
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	81 default: // pass escape sequence through
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	82 retval[i] = '\\';
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	83 retval[++i] = s[j];
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	84 break;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	85 }
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	86 }
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	87 else
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	88 {
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	89 retval[i] = s[j];
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	90 }
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	91
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	92 i++;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	93 j++;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	94 }
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	95
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	96 retval.resize (i);
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	97
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	98 return retval;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	99 }
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	100
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	101 static std::string
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	102 do_regexp_rep_string_escapes (const std::string& s)
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	103 {
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	104 std::string retval;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	105
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	106 size_t i = 0;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	107 size_t j = 0;
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	108 size_t len = s.length ();
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	109
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	110 retval.resize (len);
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	111
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	112 while (j < len)
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	113 {
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	114 if (s[j] == '\\' && j+1 < len)
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	115 {
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	116 switch (s[++j])
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	117 {
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	118 case 'a': // alarm
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	119 retval[i] = '\a';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	120 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	121
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	122 case 'b': // backspace
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	123 retval[i] = '\b';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	124 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	125
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	126 case 'f': // formfeed
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	127 retval[i] = '\f';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	128 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	129
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	130 case 'n': // newline
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	131 retval[i] = '\n';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	132 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	133
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	134 case 'r': // carriage return
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	135 retval[i] = '\r';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	136 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	137
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	138 case 't': // horizontal tab
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	139 retval[i] = '\t';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	140 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	141
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	142 case 'v': // vertical tab
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	143 retval[i] = '\v';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	144 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	145
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	146 #if 0
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	147 // FIXME -- to be complete, we need to handle \oN, \o{N}, \xN, and
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	148 // \x{N}. Hex digits may be upper or lower case. Brackets are
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	149 // optional, so \x5Bz is the same as \x{5B}z.
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	150
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	151 case 'o': // octal number
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	152 case 'x': // hex number
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	153 #endif
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	154
9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	155 default: // pass escape sequence through
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	156 retval[i] = '\\';
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	157 retval[++i] = s[j];
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	158 break;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	159 }
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	160 }
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	161 else
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	162 {
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	163 retval[i] = s[j];
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	164 }
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	165
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	166 i++;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	167 j++;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	168 }
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	169
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	170 retval.resize (i);
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	171
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	172 return retval;
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	173 }
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	174
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	175 static void
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	176 parse_options (regexp::opts& options, const octave_value_list& args,
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	177 const std::string& who, int skip, bool& extra_args)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	178 {
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	179 int nargin = args.length ();
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	180
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	181 extra_args = false;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	182
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	183 for (int i = skip; i < nargin; i++)
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	184 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	185 std::string str = args(i).string_value ();
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	186
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	187 if (error_state)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	188 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	189 error ("%s: optional arguments must be character strings",
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	190 who.c_str ());
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	191 break;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	192 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	193
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	194 std::transform (str.begin (), str.end (), str.begin (), tolower);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	195
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	196 if (str.find ("once", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	197 options.once (true);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	198 else if (str.find ("matchcase", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	199 options.case_insensitive (false);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	200 else if (str.find ("ignorecase", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	201 options.case_insensitive (true);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	202 else if (str.find ("dotall", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	203 options.dotexceptnewline (false);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	204 else if (str.find ("stringanchors", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	205 options.lineanchors (false);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	206 else if (str.find ("literalspacing", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	207 options.freespacing (false);
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	208 else if (str.find ("noemptymatch", 0) == 0)
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	209 options.emptymatch (false);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	210 else if (str.find ("dotexceptnewline", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	211 options.dotexceptnewline (true);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	212 else if (str.find ("lineanchors", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	213 options.lineanchors (true);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	214 else if (str.find ("freespacing", 0) == 0)
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	215 options.freespacing (true);
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	216 else if (str.find ("emptymatch", 0) == 0)
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	217 options.emptymatch (true);
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	218 else if (str.find ("start", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	219 \|\| str.find ("end", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	220 \|\| str.find ("tokenextents", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	221 \|\| str.find ("match", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	222 \|\| str.find ("tokens", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	223 \|\| str.find ("names", 0) == 0
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	224 \|\| str.find ("split", 0) == 0)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	225 extra_args = true;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	226 else
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	227 error ("%s: unrecognized option", who.c_str ());
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	228 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	229 }
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	230
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	231 static octave_value_list
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	232 octregexp (const octave_value_list &args, int nargout,
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	233 const std::string &who, bool case_insensitive = false)
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	234 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	235 octave_value_list retval;
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	236
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	237 int nargin = args.length ();
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	238
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	239 // Make sure we have string, pattern
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	240 const std::string buffer = args(0).string_value ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	241 if (error_state)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	242 return retval;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	243
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	244 std::string pattern = args(1).string_value ();
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	245 if (error_state)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	246 return retval;
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	247 // Matlab compatibility.
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	248 if (args(1).is_sq_string ())
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	249 pattern = do_regexp_ptn_string_escapes (pattern);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	250
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	251 regexp::opts options;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	252 options.case_insensitive (case_insensitive);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	253 bool extra_options = false;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	254 parse_options (options, args, who, 2, extra_options);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	255 if (error_state)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	256 return retval;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	257
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	258 regexp::match_data rx_lst = regexp_match (pattern, buffer, options, who);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	259
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	260 string_vector named_pats = rx_lst.named_patterns ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	261
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	262 size_t sz = rx_lst.size ();
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	263
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	264 if (! error_state)
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	265 {
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	266 // Converted the linked list in the correct form for the return values
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	267
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	268 octave_idx_type i = 0;
11045 cc3aad9dd3ef dispatch.cc, fltk_backend.cc, regexp.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11032 diff changeset	269 octave_scalar_map nmap;
12464 dfeea9cae79e require PCRE to build Octave John W. Eaton <jwe@octave.org> parents: 12462 diff changeset	270
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	271 retval.resize (7);
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	272
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	273 if (sz == 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	274 {
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14543 diff changeset	275 string_vector named_tokens = rx_lst.begin ()->named_tokens ();
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	276
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	277 for (int j = 0; j < named_pats.length (); j++)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	278 nmap.assign (named_pats(j), named_tokens(j));
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	279
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	280 retval(5) = nmap;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	281 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	282 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	283 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	284 for (int j = 0; j < named_pats.length (); j++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	285 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	286 Cell tmp (dim_vector (1, sz));
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	287
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	288 i = 0;
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	289 for (regexp::match_data::const_iterator p = rx_lst.begin ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	290 p != rx_lst.end (); p++)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	291 {
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	292 string_vector named_tokens = p->named_tokens ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	293
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	294 tmp(i++) = named_tokens(j);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	295 }
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	296
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	297 nmap.assign (named_pats(j), octave_value (tmp));
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	298 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	299
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	300 retval(5) = nmap;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	301 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	302
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	303 if (options.once ())
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	304 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	305 regexp::match_data::const_iterator p = rx_lst.begin ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	306
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	307 retval(4) = sz ? p->tokens () : Cell ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	308 retval(3) = sz ? p->match_string () : std::string ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	309 retval(2) = sz ? p->token_extents () : Matrix ();
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	310
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	311 if (sz)
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	312 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	313 double start = p->start ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	314 double end = p->end ();
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	315
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	316 Cell split (dim_vector (1, 2));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	317 split(0) = buffer.substr (0, start-1);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	318 split(1) = buffer.substr (end);
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	319
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	320 retval(6) = split;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	321 retval(1) = end;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	322 retval(0) = start;
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	323 }
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	324 else
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	325 {
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	326 retval(6) = buffer;
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	327 retval(1) = Matrix ();
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	328 retval(0) = Matrix ();
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	329 }
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	330 }
7893 eb9ccb44ea41 make regexp(...,'once') matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 7520 diff changeset	331 else
eb9ccb44ea41 make regexp(...,'once') matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 7520 diff changeset	332 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	333 Cell tokens (dim_vector (1, sz));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	334 Cell match_string (dim_vector (1, sz));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	335 Cell token_extents (dim_vector (1, sz));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	336 NDArray end (dim_vector (1, sz));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	337 NDArray start (dim_vector (1, sz));
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	338 Cell split (dim_vector (1, sz+1));
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	339 size_t sp_start = 0;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	340
7893 eb9ccb44ea41 make regexp(...,'once') matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 7520 diff changeset	341 i = 0;
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	342 for (regexp::match_data::const_iterator p = rx_lst.begin ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	343 p != rx_lst.end (); p++)
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	344 {
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	345 double s = p->start ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	346 double e = p->end ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	347
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	348 string_vector tmp = p->tokens ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	349 tokens(i) = Cell (dim_vector (1, tmp.length ()), tmp);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	350 match_string(i) = p->match_string ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	351 token_extents(i) = p->token_extents ();
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	352 end(i) = e;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	353 start(i) = s;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	354 split(i) = buffer.substr (sp_start, s-sp_start-1);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	355 sp_start = e;
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	356 i++;
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	357 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	358
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	359 split(i) = buffer.substr (sp_start);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	360
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	361 retval(6) = split;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	362 retval(4) = tokens;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	363 retval(3) = match_string;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	364 retval(2) = token_extents;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	365 retval(1) = end;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	366 retval(0) = start;
7893 eb9ccb44ea41 make regexp(...,'once') matlab compatible Jaroslav Hajek <highegg@gmail.com> parents: 7520 diff changeset	367 }
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	368
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	369 // Alter the order of the output arguments
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	370
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	371 if (extra_options)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	372 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	373 int n = 0;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	374 octave_value_list new_retval;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	375 new_retval.resize (nargout);
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	376
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	377 OCTAVE_LOCAL_BUFFER (int, arg_used, 6);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	378 for (int j = 0; j < 6; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	379 arg_used[j] = false;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	380
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	381 for (int j = 2; j < nargin; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	382 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	383 int k = 0;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	384 std::string str = args(j).string_value ();
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	385 std::transform (str.begin (), str.end (), str.begin (), tolower);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	386
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	387 if (str.find ("once", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	388 \|\| str.find ("stringanchors", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	389 \|\| str.find ("lineanchors", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	390 \|\| str.find ("matchcase", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	391 \|\| str.find ("ignorecase", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	392 \|\| str.find ("dotall", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	393 \|\| str.find ("dotexceptnewline", 0) == 0
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	394 \|\| str.find ("literalspacing", 0) == 0
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	395 \|\| str.find ("freespacing", 0) == 0
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	396 \|\| str.find ("noemptymatch", 0) == 0
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	397 \|\| str.find ("emptymatch", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	398 continue;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	399 else if (str.find ("start", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	400 k = 0;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	401 else if (str.find ("end", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	402 k = 1;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	403 else if (str.find ("tokenextents", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	404 k = 2;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	405 else if (str.find ("match", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	406 k = 3;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	407 else if (str.find ("tokens", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	408 k = 4;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	409 else if (str.find ("names", 0) == 0)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	410 k = 5;
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	411 else if (str.find ("split", 0) == 0)
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	412 k = 6;
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	413
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	414 new_retval(n++) = retval(k);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	415 arg_used[k] = true;
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	416
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	417 if (n == nargout)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	418 break;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	419 }
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	420
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	421 // Fill in the rest of the arguments
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	422 if (n < nargout)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	423 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	424 for (int j = 0; j < 6; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	425 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	426 if (! arg_used[j])
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	427 new_retval(n++) = retval(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	428 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	429 }
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	430
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	431 retval = new_retval;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	432 }
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	433 }
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	434
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	435 return retval;
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	436 }
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	437
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	438 static octave_value_list
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	439 octcellregexp (const octave_value_list &args, int nargout,
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	440 const std::string &who, bool case_insensitive = false)
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	441 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	442 octave_value_list retval;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	443
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	444 if (args(0).is_cell ())
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	445 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	446 OCTAVE_LOCAL_BUFFER (Cell, newretval, nargout);
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	447 octave_value_list new_args = args;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	448 Cell cellstr = args(0).cell_value ();
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	449 if (args(1).is_cell ())
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	450 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	451 Cell cellpat = args(1).cell_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	452
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	453 if (cellpat.numel () == 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	454 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	455 for (int j = 0; j < nargout; j++)
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	456 newretval[j].resize (cellstr.dims ());
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	457
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	458 new_args(1) = cellpat(0);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	459
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	460 for (octave_idx_type i = 0; i < cellstr.numel (); i++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	461 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	462 new_args(0) = cellstr(i);
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	463 octave_value_list tmp = octregexp (new_args, nargout, who,
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	464 case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	465
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	466 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	467 break;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	468
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	469 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	470 newretval[j](i) = tmp(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	471 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	472 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	473 else if (cellstr.numel () == 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	474 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	475 for (int j = 0; j < nargout; j++)
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	476 newretval[j].resize (cellpat.dims ());
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	477
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	478 new_args(0) = cellstr(0);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	479
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	480 for (octave_idx_type i = 0; i < cellpat.numel (); i++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	481 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	482 new_args(1) = cellpat(i);
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	483 octave_value_list tmp = octregexp (new_args, nargout, who,
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	484 case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	485
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	486 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	487 break;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	488
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	489 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	490 newretval[j](i) = tmp(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	491 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	492 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	493 else if (cellstr.numel () == cellpat.numel ())
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	494 {
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	495
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	496 if (cellstr.dims () != cellpat.dims ())
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	497 error ("%s: inconsistent cell array dimensions", who.c_str ());
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	498 else
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	499 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	500 for (int j = 0; j < nargout; j++)
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	501 newretval[j].resize (cellstr.dims ());
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	502
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	503 for (octave_idx_type i = 0; i < cellstr.numel (); i++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	504 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	505 new_args(0) = cellstr(i);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	506 new_args(1) = cellpat(i);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	507
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	508 octave_value_list tmp = octregexp (new_args, nargout, who,
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	509 case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	510
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	511 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	512 break;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	513
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	514 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	515 newretval[j](i) = tmp(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	516 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	517 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	518 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	519 else
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	520 error ("regexp: cell array arguments must be scalar or equal size");
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	521 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	522 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	523 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	524 for (int j = 0; j < nargout; j++)
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	525 newretval[j].resize (cellstr.dims ());
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	526
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	527 for (octave_idx_type i = 0; i < cellstr.numel (); i++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	528 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	529 new_args(0) = cellstr(i);
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	530 octave_value_list tmp = octregexp (new_args, nargout, who,
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	531 case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	532
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	533 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	534 break;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	535
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	536 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	537 newretval[j](i) = tmp(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	538 }
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	539 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	540
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	541 if (!error_state)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	542 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	543 retval(j) = octave_value (newretval[j]);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	544 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	545 else if (args(1).is_cell ())
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	546 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	547 OCTAVE_LOCAL_BUFFER (Cell, newretval, nargout);
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	548 octave_value_list new_args = args;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	549 Cell cellpat = args(1).cell_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	550
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	551 for (int j = 0; j < nargout; j++)
14854 5ae9f0f77635 maint: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	552 newretval[j].resize (cellpat.dims ());
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	553
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	554 for (octave_idx_type i = 0; i < cellpat.numel (); i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	555 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	556 new_args(1) = cellpat(i);
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	557 octave_value_list tmp = octregexp (new_args, nargout, who,
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	558 case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	559
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	560 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	561 break;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	562
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	563 for (int j = 0; j < nargout; j++)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	564 newretval[j](i) = tmp(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	565 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	566
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	567 if (!error_state)
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	568 {
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	569 for (int j = 0; j < nargout; j++)
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	570 retval(j) = octave_value (newretval[j]);
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	571 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	572 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	573 else
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	574 retval = octregexp (args, nargout, who, case_insensitive);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	575
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	576 return retval;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	577
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	578 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	579
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	580 DEFUN (regexp, args, nargout,
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	581 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	582 @deftypefn {Built-in Function} {[@var{s}, @var{e}, @var{te}, @var{m}, @var{t}, @var{nm}, @var{sp}] =} regexp (@var{str}, @var{pat})\n\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	583 @deftypefnx {Built-in Function} {[@dots{}] =} regexp (@var{str}, @var{pat}, \"@var{opt1}\", @dots{})\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	584 Regular expression string matching. Search for @var{pat} in @var{str} and\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	585 return the positions and substrings of any matches, or empty values if there\n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	586 are none.\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	587 \n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	588 The matched pattern @var{pat} can include any of the standard regex\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	589 operators, including:\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	590 \n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	591 @table @code\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	592 @item .\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	593 Match any character\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	594 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	595 @item * + ? @{@}\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	596 Repetition operators, representing\n\
14366 b76f0740940e doc: Periodic grammar check of documentation. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	597 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	598 @table @code\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	599 @item *\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	600 Match zero or more times\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	601 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	602 @item +\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	603 Match one or more times\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	604 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	605 @item ?\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	606 Match zero or one times\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	607 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	608 @item @{@var{n}@}\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	609 Match exactly @var{n} times\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	610 \n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	611 @item @{@var{n},@}\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	612 Match @var{n} or more times\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	613 \n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	614 @item @{@var{m},@var{n}@}\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	615 Match between @var{m} and @var{n} times\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	616 @end table\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	617 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	618 @item [@dots{}] [^@dots{}]\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	619 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	620 List operators. The pattern will match any character listed between \"[\"\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	621 and \"]\". If the first character is \"^\" then the pattern is inverted and\n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	622 any character except those listed between brackets will match.\n\
c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	623 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	624 Escape sequences defined below can also be used inside list\n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	625 operators. For example, a template for a floating point number might be\n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	626 @code{[-+.\\d]+}.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	627 \n\
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	628 @item () (?:)\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	629 Grouping operator. The first form, parentheses only, also creates a token.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	630 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	631 @item \|\n\
9036 58604c45ca74 Cleanup of data types related documentation Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	632 Alternation operator. Match one of a choice of regular expressions. The\n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	633 alternatives must be delimited by the grouping operator @code{()} above.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	634 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	635 @item ^ $\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	636 Anchoring operators. Requires pattern to occur at the start (@code{^}) or\n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	637 end (@code{$}) of the string.\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	638 @end table\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	639 \n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	640 In addition, the following escaped characters have special meaning.\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	641 \n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	642 @table @code\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	643 @item \\b\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	644 Match a word boundary\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	645 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	646 @item \\B\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	647 Match within a word\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	648 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	649 @item \\w\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	650 Match any word character\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	651 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	652 @item \\W\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	653 Match any non-word character\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	654 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	655 @item \\<\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	656 Match the beginning of a word\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	657 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	658 @item \\>\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	659 Match the end of a word\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	660 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	661 @item \\s\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	662 Match any whitespace character\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	663 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	664 @item \\S\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	665 Match any non-whitespace character\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	666 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	667 @item \\d\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	668 Match any digit\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	669 \n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	670 @item \\D\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	671 Match any non-digit\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	672 @end table\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	673 \n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	674 Implementation Note: For compatibility with @sc{matlab}, ordinary escape\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	675 sequences (e.g., \"\\n\" => newline) are processed in @var{pat}\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	676 regardless of whether @var{pat} has been defined within single quotes. Use\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	677 a second backslash to stop interpolation of the escape sequence (e.g.,\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	678 \"\\\\n\") or use the @code{regexptranslate} function.\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	679 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	680 The outputs of @code{regexp} default to the order given below\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	681 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	682 @table @var\n\
c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	683 @item s\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	684 The start indices of each matching substring\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	685 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	686 @item e\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	687 The end indices of each matching substring\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	688 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	689 @item te\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	690 The extents of each matched token surrounded by @code{(@dots{})} in\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	691 @var{pat}\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	692 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	693 @item m\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	694 A cell array of the text of each match\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	695 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	696 @item t\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	697 A cell array of the text of each token matched\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	698 \n\
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	699 @item nm\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	700 A structure containing the text of each matched named token, with the name\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	701 being used as the fieldname. A named token is denoted by\n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	702 @code{(?<name>@dots{})}.\n\
13929 9cae456085c2 Grammarcheck of documentation before 3.6.0 release. Rik <octave@nomad.inbox5.com> parents: 13759 diff changeset	703 \n\
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	704 @item sp\n\
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	705 A cell array of the text not returned by match, i.e., what remains if you\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	706 split the string based on @var{pat}.\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	707 @end table\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	708 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	709 Particular output arguments, or the order of the output arguments, can be\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	710 selected by additional @var{opt} arguments. These are strings and the\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	711 correspondence between the output arguments and the optional argument\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	712 are\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	713 \n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	714 @multitable @columnfractions 0.2 0.3 0.3 0.2\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	715 @item @tab 'start' @tab @var{s} @tab\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	716 @item @tab 'end' @tab @var{e} @tab\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	717 @item @tab 'tokenExtents' @tab @var{te} @tab\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	718 @item @tab 'match' @tab @var{m} @tab\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	719 @item @tab 'tokens' @tab @var{t} @tab\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	720 @item @tab 'names' @tab @var{nm} @tab\n\
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	721 @item @tab 'split' @tab @var{sp} @tab\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	722 @end multitable\n\
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	723 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	724 Additional arguments are summarized below.\n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	725 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	726 @table @samp\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	727 @item once\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	728 Return only the first occurrence of the pattern.\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	729 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	730 @item matchcase\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	731 Make the matching case sensitive. (default)\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	732 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	733 Alternatively, use (?-i) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	734 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	735 @item ignorecase\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	736 Ignore case when matching the pattern to the string.\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	737 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	738 Alternatively, use (?i) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	739 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	740 @item stringanchors\n\
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 12464 diff changeset	741 Match the anchor characters at the beginning and end of the string.\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	742 (default)\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	743 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	744 Alternatively, use (?-m) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	745 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	746 @item lineanchors\n\
12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	747 Match the anchor characters at the beginning and end of the line.\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	748 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	749 Alternatively, use (?m) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	750 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	751 @item dotall\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	752 The pattern @code{.} matches all characters including the newline character.\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	753 (default)\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	754 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	755 Alternatively, use (?s) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	756 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	757 @item dotexceptnewline\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	758 The pattern @code{.} matches all characters except the newline character.\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	759 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	760 Alternatively, use (?-s) in the pattern.\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	761 \n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	762 @item literalspacing\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	763 All characters in the pattern, including whitespace, are significant and are\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	764 used in pattern matching. (default)\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	765 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	766 Alternatively, use (?-x) in the pattern.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	767 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	768 @item freespacing\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	769 The pattern may include arbitrary whitespace and also comments beginning with\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	770 the character @samp{#}.\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	771 \n\
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	772 Alternatively, use (?x) in the pattern.\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	773 \n\
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	774 @item noemptymatch\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	775 Zero-length matches are not returned. (default)\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	776 \n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	777 @item emptymatch\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	778 Return zero-length matches.\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	779 \n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	780 @code{regexp ('a', 'b*', 'emptymatch'} returns @code{[1 2]} because there are\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	781 zero or more 'b' characters at positions 1 and end-of-string.\n\
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	782 \n\
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	783 @end table\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11553 diff changeset	784 @seealso{regexpi, strfind, regexprep}\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	785 @end deftypefn")
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	786 {
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	787 octave_value_list retval;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	788
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	789 int nargin = args.length ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	790
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	791 if (nargin < 2)
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	792 print_usage ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	793 else if (args(0).is_cell () \|\| args(1).is_cell ())
14454 2232931f2494 Return regexp output when input is a cellstr and there is no return variable assignment. Rik <octave@nomad.inbox5.com> parents: 14453 diff changeset	794 retval = octcellregexp (args, (nargout > 0 ? nargout : 1), "regexp");
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	795 else
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	796 retval = octregexp (args, nargout, "regexp");
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	797
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	798 return retval;
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	799 }
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	800
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	801 /*
8140 cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	802 ## PCRE_ERROR_MATCHLIMIT test
cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	803 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	804 %! s = sprintf ('\t4\n0000\t-0.00\t-0.0000\t4\t-0.00\t-0.0000\t4\n0000\t-0.00\t-0.0000\t0\t-0.00\t-');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	805 %! ws = warning ("query");
8140 cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	806 %! unwind_protect
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	807 %! warning ("off");
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	808 %! regexp (s, '(\s-\d+[.]\d\s*)+\n');
8140 cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	809 %! unwind_protect_cleanup
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	810 %! warning (ws);
8140 cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	811 %! end_unwind_protect
cdd05e46f6c9 Increase pcre's match_limit for difficult regexps Thomas Weber <thomas.weber.mail@gmail.com> parents: 8093 diff changeset	812
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	813 ## segfault test
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	814 %!assert (regexp ("abcde", "."), [1,2,3,4,5])
13759 c4b6ea833fa5 Fix infinite loop with null patterns in regexp (Bug #34101, Bug #33258) Rik <octave@nomad.inbox5.com> parents: 13311 diff changeset	815 ## Infinite loop test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	816 %!assert (isempty (regexp ("abcde", "")))
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	817
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	818 ## Check that anchoring of pattern works correctly
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	819 %!assert (regexp ('abcabc', '^abc'), 1)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	820 %!assert (regexp ('abcabc', 'abc$'), 4)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	821 %!assert (regexp ('abcabc', '^abc$'), zeros (1,0))
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	822
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	823 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	824 %! [s, e, te, m, t] = regexp (' No Match ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	825 %! assert (s, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	826 %! assert (e, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	827 %! assert (te, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	828 %! assert (m, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	829 %! assert (t, cell (1,0));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	830
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	831 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	832 %! [s, e, te, m, t] = regexp (' FiRetrUck ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	833 %! assert (s, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	834 %! assert (e, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	835 %! assert (te, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	836 %! assert (m, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	837 %! assert (t, cell (1,0));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	838
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	839 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	840 %! [s, e, te, m, t] = regexp (' firetruck ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	841 %! assert (s, 2);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	842 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	843 %! assert (te{1}, [3, 7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	844 %! assert (m{1}, 'firetruck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	845 %! assert (t{1}{1}, 'iretr');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	846
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	847 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	848 %! [s, e, te, m, t] = regexp ('short test string', '\wr\w');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	849 %! assert (s, [1, 12]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	850 %! assert (e, [5, 17]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	851 %! assert (size (te), [1, 2]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	852 %! assert (isempty (te{1}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	853 %! assert (isempty (te{2}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	854 %! assert (m{1}, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	855 %! assert (m{2}, 'string');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	856 %! assert (size (t), [1, 2]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	857 %! assert (isempty (t{1}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	858 %! assert (isempty (t{2}));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	859
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	860 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	861 %! [s, e, te, m, t] = regexp ('short test string', '\wr\w', 'once');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	862 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	863 %! assert (e, 5);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	864 %! assert (isempty (te));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	865 %! assert (m, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	866 %! assert (isempty (t));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	867
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	868 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	869 %! [m, te, e, s, t] = regexp ('short test string', '\wr\w', 'once', 'match', 'tokenExtents', 'end', 'start', 'tokens');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	870 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	871 %! assert (e, 5);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	872 %! assert (isempty (te));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	873 %! assert (m, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	874 %! assert (isempty (t));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	875
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	876 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	877 %! [s, e, te, m, t, nm] = regexp ('short test string', '(?<word1>\wt)\s(?<word2>\w*t)');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	878 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	879 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	880 %! assert (size (te), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	881 %! assert (te{1}, [1,5; 7,10]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	882 %! assert (m{1}, 'short test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	883 %! assert (size (t), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	884 %! assert (t{1}{1}, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	885 %! assert (t{1}{2}, 'test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	886 %! assert (size (nm), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	887 %! assert (! isempty (fieldnames (nm)));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	888 %! assert (sort (fieldnames (nm)), {'word1';'word2'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	889 %! assert (nm.word1, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	890 %! assert (nm.word2, 'test');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	891
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	892 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	893 %! [nm, m, te, e, s, t] = regexp ('short test string', '(?<word1>\wt)\s(?<word2>\w*t)', 'names', 'match', 'tokenExtents', 'end', 'start', 'tokens');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	894 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	895 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	896 %! assert (size (te), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	897 %! assert (te{1}, [1,5; 7,10]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	898 %! assert (m{1}, 'short test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	899 %! assert (size (t), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	900 %! assert (t{1}{1}, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	901 %! assert (t{1}{2}, 'test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	902 %! assert (size (nm), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	903 %! assert (!isempty (fieldnames (nm)));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	904 %! assert (sort (fieldnames (nm)), {'word1';'word2'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	905 %! assert (nm.word1, 'short');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	906 %! assert (nm.word2, 'test');
5619 e9112ff172b1 [project @ 2006-02-13 20:05:36 by dbateman] dbateman parents: 5582 diff changeset	907
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	908 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	909 %! [t, nm] = regexp ("John Davis\nRogers, James", '(?<first>\w+)\s+(?<last>\w+)\|(?<last>\w+),\s+(?<first>\w+)', 'tokens', 'names');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	910 %! assert (size (t), [1, 2]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	911 %! assert (t{1}{1}, 'John');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	912 %! assert (t{1}{2}, 'Davis');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	913 %! assert (t{2}{1}, 'Rogers');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	914 %! assert (t{2}{2}, 'James');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	915 %! assert (size (nm), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	916 %! assert (nm.first{1}, 'John');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	917 %! assert (nm.first{2}, 'James');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	918 %! assert (nm.last{1}, 'Davis');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	919 %! assert (nm.last{2}, 'Rogers');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	920
14452 721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	921 ## Tests for named tokens
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	922 %!test
10518 fcafe0e9bd58 Handle repeated matches in matches returned by pcre David Bateman <dbateman@free.fr> parents: 10504 diff changeset	923 %! # Parenthesis in named token (ie (int)) causes a problem
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	924 %! assert (regexp ('qwe int asd', ['(?<typestr>(int))'], 'names'), struct ('typestr', 'int'));
10518 fcafe0e9bd58 Handle repeated matches in matches returned by pcre David Bateman <dbateman@free.fr> parents: 10504 diff changeset	925
14452 721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	926 %!test
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	927 %! ## Mix of named and unnamed tokens can cause segfault (bug #35683)
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	928 %! str = "abcde";
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	929 %! ptn = '(?<T1>a)(\w+)(?<T2>d\w+)';
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	930 %! tokens = regexp (str, ptn, "names");
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	931 %! assert (isstruct (tokens) && numel (tokens) == 1);
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	932 %! assert (tokens.T1, "a");
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	933 %! assert (tokens.T2, "de");
721be41ea988 Stop segfault when using regular expressions with named capture buffers (bug #35683). Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	934
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	935 %!assert (regexp ("abc\nabc", '.'), [1:7])
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	936 %!assert (regexp ("abc\nabc", '.', 'dotall'), [1:7])
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	937 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	938 %! assert (regexp ("abc\nabc", '(?s).'), [1:7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	939 %! assert (regexp ("abc\nabc", '.', 'dotexceptnewline'), [1,2,3,5,6,7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	940 %! assert (regexp ("abc\nabc", '(?-s).'), [1,2,3,5,6,7]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	941
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	942 %!assert (regexp ("caseCaSe", 'case'), 1)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	943 %!assert (regexp ("caseCaSe", 'case', "matchcase"), 1)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	944 %!assert (regexp ("caseCaSe", 'case', "ignorecase"), [1,5])
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	945 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	946 %! assert (regexp ("caseCaSe", '(?-i)case'), 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	947 %! assert (regexp ("caseCaSe", '(?i)case'), [1, 5]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	948
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	949 %!assert (regexp ("abc\nabc", 'c$'), 7)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	950 %!assert (regexp ("abc\nabc", 'c$', "stringanchors"), 7)
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	951 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	952 %! assert (regexp ("abc\nabc", '(?-m)c$'), 7);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	953 %! assert (regexp ("abc\nabc", 'c$',"lineanchors"), [3, 7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	954 %! assert (regexp ("abc\nabc", '(?m)c$'), [3,7]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	955
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	956 %!assert (regexp ("this word", 's w'), 4)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	957 %!assert (regexp ("this word", 's w', 'literalspacing'), 4)
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	958 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	959 %! assert (regexp ("this word", '(?-x)s w', 'literalspacing'), 4);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	960 %! assert (regexp ("this word", 's w', 'freespacing'), zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	961 %! assert (regexp ("this word", '(?x)s w'), zeros (1,0));
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	962
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	963 %!test
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	964 %! [s, e, te, m, t, nm, sp] = regexp ('OCTAVE', '[VOCT]*', 'noemptymatch');
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	965 %! assert (s, [1 5]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	966 %! assert (e, [3 5]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	967 %! assert (te, { zeros(0,2), zeros(0,2) });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	968 %! assert (m, { "OCT", "V" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	969 %! assert (t, { cell(1,0), cell(1,0) });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	970 %! assert (isempty (fieldnames (nm)));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	971 %! assert (sp, { "", "A", "E" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	972
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	973 %!test
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	974 %! [s, e, te, m, t, nm, sp] = regexp ('OCTAVE', '([VOCT]*)', 'noemptymatch');
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	975 %! assert (s, [1 5]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	976 %! assert (e, [3 5]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	977 %! assert (te, { [1 3], [5 5] });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	978 %! assert (m, { "OCT", "V" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	979 %! assert (t, { {"OCT"}, {"V"} });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	980 %! assert (isempty (fieldnames (nm)));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	981 %! assert (sp, { "", "A", "E" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	982
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	983 %!test
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	984 %! [s, e, te, m, t, nm, sp] = regexp ('OCTAVE', '[VOCT]*', 'emptymatch');
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	985 %! assert (s, [1 4 5 6 7]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	986 %! assert (e, [3 3 5 5 6]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	987 %! assert (te, repmat ({zeros(0,2)}, [1, 5]));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	988 %! assert (m, { "OCT", "", "V", "", "" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	989 %! assert (t, repmat({cell(1,0)}, [1, 5]));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	990 %! assert (isempty (fieldnames (nm)));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	991 %! assert (sp, { "", "", "A", "", "E", "" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	992
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	993 %!test
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	994 %! [s, e, te, m, t, nm, sp] = regexp ('OCTAVE', '([VOCT]*)', 'emptymatch');
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	995 %! assert (s, [1 4 5 6 7]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	996 %! assert (e, [3 3 5 5 6]);
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	997 %! assert (te, { [1 3], [4 3], [5 5], [6 5], [7 6] });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	998 %! assert (m, { "OCT", "", "V", "", "" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	999 %! assert (t, { {"OCT"}, {""}, {"V"}, {""}, {""} });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1000 %! assert (isempty (fieldnames (nm)));
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1001 %! assert (sp, { "", "", "A", "", "E", "" });
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1002
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1003 %!error regexp ('string', 'tri', 'BadArg')
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1004 %!error regexp ('string')
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1005
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1006 %!assert (regexp ({'asdfg-dfd';'-dfd-dfd-';'qasfdfdaq'}, '-'), {6;[1,5,9];zeros(1,0)})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1007 %!assert (regexp ({'asdfg-dfd';'-dfd-dfd-';'qasfdfdaq'}, {'-';'f';'q'}), {6;[3,7];[1,9]})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1008 %!assert (regexp ('Strings', {'t','s'}), {2, 7})
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1009
8093 dcc31f473596 Treat PCRE lookbehind operators in a manner that is approximately correct David Bateman <dbateman@free.fr> parents: 8021 diff changeset	1010 ## Test case for lookaround operators
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1011 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1012 %! assert (regexp ('Iraq', 'q(?!u)'), 4);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1013 %! assert (regexp ('quit', 'q(?!u)'), zeros (1, 0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1014 %! assert (regexp ('quit', 'q(?=u)' , 'match'), {'q'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1015 %! assert (regexp ("quit", 'q(?=u+)', 'match'), {'q'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1016 %! assert (regexp ("qit", 'q(?=u+)', 'match'), cell (1, 0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1017 %! assert (regexp ("qit", 'q(?=u*)', 'match'), {'q'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1018 %! assert (regexp ('thingamabob', '(?<=a)b'), 9);
8093 dcc31f473596 Treat PCRE lookbehind operators in a manner that is approximately correct David Bateman <dbateman@free.fr> parents: 8021 diff changeset	1019
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1020 ## Tests for split option.
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1021 %!shared str
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1022 %! str = "foo bar foo";
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1023 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1024 %! [a, b] = regexp (str, "f..", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1025 %! assert (a, {"foo", "foo"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1026 %! assert (b, {"", " bar ", ""});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1027 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1028 %! [a, b] = regexp (str, "f..", "match", "split", "once");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1029 %! assert (a, "foo");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1030 %! assert (b, {"", " bar foo"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1031 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1032 %! [a, b] = regexp (str, "fx.", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1033 %! assert (a, cell (1, 0));
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1034 %! assert (b, {"foo bar foo"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1035 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1036 %! [a, b] = regexp (str, "fx.", "match", "split", "once");
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1037 %! assert (a, "");;
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1038 %! assert (b, "foo bar foo");
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1039
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1040 %!shared str
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1041 %! str = "foo bar";
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1042 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1043 %! [a, b] = regexp (str, "f..", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1044 %! assert (a, {"foo"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1045 %! assert (b, {"", " bar"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1046 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1047 %! [a, b] = regexp (str, "b..", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1048 %! assert (a, {"bar"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1049 %! assert (b, {"foo ", ""});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1050 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1051 %! [a, b] = regexp (str, "x", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1052 %! assert (a, cell (1, 0));
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1053 %! assert (b, {"foo bar"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1054 %!test
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1055 %! [a, b] = regexp (str, "[o]+", "match", "split");
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1056 %! assert (a, {"oo"});
583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1057 %! assert (b, {"f", " bar"});
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1058
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1059 %!assert (regexp ("\n", '\n'), 1);
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1060 %!assert (regexp ("\n", "\n"), 1);
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1061 */
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1062
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1063 DEFUN (regexpi, args, nargout,
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1064 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1065 @deftypefn {Built-in Function} {[@var{s}, @var{e}, @var{te}, @var{m}, @var{t}, @var{nm}, @var{sp}] =} regexpi (@var{str}, @var{pat})\n\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1066 @deftypefnx {Built-in Function} {[@dots{}] =} regexpi (@var{str}, @var{pat}, \"@var{opt1}\", @dots{})\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1067 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1068 Case insensitive regular expression string matching. Search for @var{pat} in\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1069 @var{str} and return the positions and substrings of any matches, or empty\n\
16772 7eff3032d144 Fix seealso HTML links when using Texinfo 4.X (bug #38862). Rik <rik@octave.org> parents: 15541 diff changeset	1070 values if there are none. @xref{docXregexp,,regexp}, for details on the\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1071 syntax of the search pattern.\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1072 @seealso{regexp}\n\
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1073 @end deftypefn")
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1074 {
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1075 octave_value_list retval;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1076
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1077 int nargin = args.length ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1078
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1079 if (nargin < 2)
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1080 print_usage ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1081 else if (args(0).is_cell () \|\| args(1).is_cell ())
14454 2232931f2494 Return regexp output when input is a cellstr and there is no return variable assignment. Rik <octave@nomad.inbox5.com> parents: 14453 diff changeset	1082 retval = octcellregexp (args, (nargout > 0 ? nargout : 1), "regexpi", true);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1083 else
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1084 retval = octregexp (args, nargout, "regexpi", true);
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1085
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1086 return retval;
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1087 }
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1088
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1089 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1090 ## segfault test
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1091 %!assert (regexpi ("abcde", "."), [1,2,3,4,5])
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1092
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1093 ## Check that anchoring of pattern works correctly
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1094 %!assert (regexpi ('abcabc', '^ABC'), 1)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1095 %!assert (regexpi ('abcabc', 'ABC$'), 4)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1096 %!assert (regexpi ('abcabc', '^ABC$'), zeros (1,0))
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1097
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1098 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1099 %! [s, e, te, m, t] = regexpi (' No Match ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1100 %! assert (s, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1101 %! assert (e, zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1102 %! assert (te, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1103 %! assert (m, cell (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1104 %! assert (t, cell (1,0));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1105
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1106 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1107 %! [s, e, te, m, t] = regexpi (' FiRetrUck ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1108 %! assert (s, 2);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1109 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1110 %! assert (te{1}, [3, 7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1111 %! assert (m{1}, 'FiRetrUck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1112 %! assert (t{1}{1}, 'iRetr');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1113
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1114 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1115 %! [s, e, te, m, t] = regexpi (' firetruck ', 'f(.*)uck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1116 %! assert (s, 2);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1117 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1118 %! assert (te{1}, [3, 7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1119 %! assert (m{1}, 'firetruck');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1120 %! assert (t{1}{1}, 'iretr');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1121
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1122 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1123 %! [s, e, te, m, t] = regexpi ('ShoRt Test String', '\wr\w');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1124 %! assert (s, [1, 12]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1125 %! assert (e, [5, 17]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1126 %! assert (size (te), [1, 2]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1127 %! assert (isempty (te{1}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1128 %! assert (isempty (te{2}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1129 %! assert (m{1}, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1130 %! assert (m{2}, 'String');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1131 %! assert (size (t), [1, 2]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1132 %! assert (isempty (t{1}));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1133 %! assert (isempty (t{2}));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1134
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1135 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1136 %! [s, e, te, m, t] = regexpi ('ShoRt Test String', '\wr\w', 'once');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1137 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1138 %! assert (e, 5);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1139 %! assert (isempty (te));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1140 %! assert (m, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1141 %! assert (isempty (t));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1142
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1143 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1144 %! [m, te, e, s, t] = regexpi ('ShoRt Test String', '\wr\w', 'once', 'match', 'tokenExtents', 'end', 'start', 'tokens');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1145 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1146 %! assert (e, 5);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1147 %! assert (isempty (te));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1148 %! assert (m, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1149 %! assert (isempty (t));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1150
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1151 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1152 %! [s, e, te, m, t, nm] = regexpi ('ShoRt Test String', '(?<word1>\wt)\s(?<word2>\w*t)');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1153 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1154 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1155 %! assert (size (te), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1156 %! assert (te{1}, [1,5; 7,10]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1157 %! assert (m{1}, 'ShoRt Test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1158 %! assert (size (t), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1159 %! assert (t{1}{1}, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1160 %! assert (t{1}{2}, 'Test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1161 %! assert (size (nm), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1162 %! assert (! isempty (fieldnames (nm)));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1163 %! assert (sort (fieldnames (nm)), {'word1';'word2'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1164 %! assert (nm.word1, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1165 %! assert (nm.word2, 'Test');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1166
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1167 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1168 %! [nm, m, te, e, s, t] = regexpi ('ShoRt Test String', '(?<word1>\wt)\s(?<word2>\w*t)', 'names', 'match', 'tokenExtents', 'end', 'start', 'tokens');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1169 %! assert (s, 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1170 %! assert (e, 10);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1171 %! assert (size (te), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1172 %! assert (te{1}, [1,5; 7,10]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1173 %! assert (m{1}, 'ShoRt Test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1174 %! assert (size (t), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1175 %! assert (t{1}{1}, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1176 %! assert (t{1}{2}, 'Test');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1177 %! assert (size (nm), [1, 1]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1178 %! assert (!isempty (fieldnames (nm)));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1179 %! assert (sort (fieldnames (nm)), {'word1';'word2'});
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1180 %! assert (nm.word1, 'ShoRt');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1181 %! assert (nm.word2, 'Test');
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1182
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1183 %!assert (regexpi ("abc\nabc", '.'), [1:7])
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1184 %!assert (regexpi ("abc\nabc", '.', 'dotall'), [1:7])
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1185 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1186 %! assert (regexpi ("abc\nabc", '(?s).'), [1:7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1187 %! assert (regexpi ("abc\nabc", '.', 'dotexceptnewline'), [1,2,3,5,6,7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1188 %! assert (regexpi ("abc\nabc", '(?-s).'), [1,2,3,5,6,7]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	1189
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1190 %!assert (regexpi ("caseCaSe", 'case'), [1, 5])
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1191 %!assert (regexpi ("caseCaSe", 'case', "matchcase"), 1)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1192 %!assert (regexpi ("caseCaSe", 'case', "ignorecase"), [1, 5])
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1193 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1194 %! assert (regexpi ("caseCaSe", '(?-i)case'), 1);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1195 %! assert (regexpi ("caseCaSe", '(?i)case'), [1, 5]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	1196
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1197 %!assert (regexpi ("abc\nabc", 'C$'), 7)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1198 %!assert (regexpi ("abc\nabc", 'C$', "stringanchors"), 7)
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1199 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1200 %! assert (regexpi ("abc\nabc", '(?-m)C$'), 7);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1201 %! assert (regexpi ("abc\nabc", 'C$', "lineanchors"), [3, 7]);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1202 %! assert (regexpi ("abc\nabc", '(?m)C$'), [3, 7]);
5779 12eeebfa7ead [project @ 2006-04-27 19:30:14 by dbateman] dbateman parents: 5775 diff changeset	1203
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1204 %!assert (regexpi ("this word", 'S w'), 4)
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1205 %!assert (regexpi ("this word", 'S w', 'literalspacing'), 4)
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1206 %!test
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1207 %! assert (regexpi ("this word", '(?-x)S w', 'literalspacing'), 4);
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1208 %! assert (regexpi ("this word", 'S w', 'freespacing'), zeros (1,0));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1209 %! assert (regexpi ("this word", '(?x)S w'), zeros (1,0));
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1210
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1211 %!error regexpi ('string', 'tri', 'BadArg')
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1212 %!error regexpi ('string')
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1213
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1214 %!assert (regexpi ({'asdfg-dfd';'-dfd-dfd-';'qasfdfdaq'}, '-'), {6;[1,5,9];zeros(1, 0)})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1215 %!assert (regexpi ({'asdfg-dfd', '-dfd-dfd-', 'qasfdfdaq'}, '-'), {6, [1,5,9], zeros(1,0)})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1216 %!assert (regexpi ({'asdfg-dfd';'-dfd-dfd-';'qasfdfdaq'}, {'-';'f';'q'}), {6;[3,7];[1,9]})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1217 %!assert (regexpi ('Strings', {'t', 's'}), {2, [1, 7]})
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1218
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1219 %!assert (regexpi ("\n", '\n'), 1);
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1220 %!assert (regexpi ("\n", "\n"), 1);
5582 6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1221 */
6bf56668b01a [project @ 2005-12-15 01:08:20 by jwe] jwe parents: diff changeset	1222
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1223 static octave_value
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1224 octregexprep (const octave_value_list &args, const std::string &who)
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1225 {
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1226 octave_value retval;
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1227
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1228 int nargin = args.length ();
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1229
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1230 // Make sure we have string, pattern, replacement
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1231 const std::string buffer = args(0).string_value ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1232 if (error_state)
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1233 return retval;
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1234
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1235 std::string pattern = args(1).string_value ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1236 if (error_state)
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1237 return retval;
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1238 // Matlab compatibility.
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1239 if (args(1).is_sq_string ())
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	1240 pattern = do_regexp_ptn_string_escapes (pattern);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1241
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1242 std::string replacement = args(2).string_value ();
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1243 if (error_state)
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1244 return retval;
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1245 // Matlab compatibility.
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1246 if (args(2).is_sq_string ())
15541 9db32cabeacf Fix backslash handling in regexp pattern (Bug #37092) Rik <rik@octave.org> parents: 15195 diff changeset	1247 replacement = do_regexp_rep_string_escapes (replacement);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	1248
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1249 // Pack options excluding 'tokenize' and various output
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1250 // reordering strings into regexp arg list
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1251 octave_value_list regexpargs (nargin-3, octave_value ());
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1252
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1253 int len = 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	1254 for (int i = 3; i < nargin; i++)
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1255 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1256 const std::string opt = args(i).string_value ();
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1257 if (opt != "tokenize" && opt != "start" && opt != "end"
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1258 && opt != "tokenextents" && opt != "match" && opt != "tokens"
13310 583940a28bfd handle "split" option for regexp John W. Eaton <jwe@octave.org> parents: 13227 diff changeset	1259 && opt != "names" && opt != "split" && opt != "warnings")
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1260 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1261 regexpargs(len++) = args(i);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1262 }
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1263 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1264 regexpargs.resize (len);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11572 diff changeset	1265
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1266 regexp::opts options;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1267 bool extra_args = false;
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1268 parse_options (options, regexpargs, who, 0, extra_args);
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1269 if (error_state)
fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1270 return retval;
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1271
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1272 return regexp_replace (pattern, buffer, replacement, options, who);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1273 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1274
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1275 DEFUN (regexprep, args, ,
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1276 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1277 @deftypefn {Built-in Function} {@var{outstr} =} regexprep (@var{string}, @var{pat}, @var{repstr})\n\
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14854 diff changeset	1278 @deftypefnx {Built-in Function} {@var{outstr} =} regexprep (@var{string}, @var{pat}, @var{repstr}, \"@var{opt1}\", @dots{})\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1279 Replace occurrences of pattern @var{pat} in @var{string} with @var{repstr}.\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1280 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1281 The pattern is a regular expression as documented for @code{regexp}.\n\
16772 7eff3032d144 Fix seealso HTML links when using Texinfo 4.X (bug #38862). Rik <rik@octave.org> parents: 15541 diff changeset	1282 @xref{docXregexp,,regexp}.\n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1283 \n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1284 The replacement string may contain @code{$i}, which substitutes\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1285 for the ith set of parentheses in the match string. For example,\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	1286 \n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1287 @example\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	1288 regexprep (\"Bill Dunn\", '(\\w+) (\\w+)', '$2, $1')\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1289 @end example\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10551 diff changeset	1290 \n\
10846 a4f482e66b65 Grammarcheck more of the documentation. Rik <octave@nomad.inbox5.com> parents: 10840 diff changeset	1291 @noindent\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1292 returns \"Dunn, Bill\"\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1293 \n\
11025 df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1294 Options in addition to those of @code{regexp} are\n\
df2152514429 Update docstrings for regular expression functions Rik <octave@nomad.inbox5.com> parents: 11018 diff changeset	1295 \n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1296 @table @samp\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1297 \n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1298 @item once\n\
7001 8b0cfeb06365 [project @ 2007-10-10 18:02:59 by jwe] jwe parents: 6678 diff changeset	1299 Replace only the first occurrence of @var{pat} in the result.\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1300 \n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1301 @item warnings\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1302 This option is present for compatibility but is ignored.\n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1303 \n\
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1304 @end table\n\
15173 8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	1305 \n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	1306 Implementation Note: For compatibility with @sc{matlab}, ordinary escape\n\
8593bed236f1 doc: Document escape character processing within single quotes for regexp, warning, error. Rik <rik@octave.org> parents: 15039 diff changeset	1307 sequences (e.g., \"\\n\" => newline) are processed in both @var{pat}\n\
16816 12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16772 diff changeset	1308 and @var{repstr} regardless of whether they were defined within single\n\
12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16772 diff changeset	1309 quotes. Use a second backslash to stop interpolation of the escape sequence\n\
12005245b645 doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 16772 diff changeset	1310 (e.g., \"\\\\n\") or use the @code{regexptranslate} function.\n\
11572 7d6d8c1e471f Grammarcheck Texinfo for files in src directory. Rik <octave@nomad.inbox5.com> parents: 11553 diff changeset	1311 @seealso{regexp, regexpi, strrep}\n\
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1312 @end deftypefn")
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1313 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1314 octave_value_list retval;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1315 int nargin = args.length ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1316
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1317 if (nargin < 3)
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1318 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1319 print_usage ();
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1320 return retval;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1321 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1322
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1323 if (args(0).is_cell () \|\| args(1).is_cell () \|\| args(2).is_cell ())
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1324 {
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1325 Cell str;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1326 Cell pat;
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1327 Cell rep;
6495 fd09c7e8c4c9 [project @ 2007-04-05 16:18:20 by dbateman] dbateman parents: 6361 diff changeset	1328 dim_vector dv0;
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1329 dim_vector dv1 (1, 1);
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1330
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1331 if (args(0).is_cell ())
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1332 str = args(0).cell_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1333 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1334 str = Cell (args(0));
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1335
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1336 if (args(1).is_cell ())
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1337 pat = args(1).cell_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1338 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1339 pat = Cell (args(1));
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1340
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1341 if (args(2).is_cell ())
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1342 rep = args(2).cell_value ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1343 else
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1344 rep = Cell (args(2));
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1345
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1346 dv0 = str.dims ();
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1347 if (pat.numel () != 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1348 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1349 dv1 = pat.dims ();
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1350 if (rep.numel () != 1 && dv1 != rep.dims ())
14024 fc9f204faea0 refactor regexp (bug #34440) John W. Eaton <jwe@octave.org> parents: 13929 diff changeset	1351 error ("regexprep: inconsistent cell array dimensions");
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1352 }
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1353 else if (rep.numel () != 1)
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1354 dv1 = rep.dims ();
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1355
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1356 if (!error_state)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1357 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1358 Cell ret (dv0);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1359 octave_value_list new_args = args;
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1360
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1361 for (octave_idx_type i = 0; i < dv0.numel (); i++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1362 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1363 new_args(0) = str(i);
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14543 diff changeset	1364 if (pat.numel () == 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1365 new_args(1) = pat(0);
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14543 diff changeset	1366 if (rep.numel () == 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1367 new_args(2) = rep(0);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1368
9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1369 for (octave_idx_type j = 0; j < dv1.numel (); j++)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1370 {
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1371 if (pat.numel () != 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1372 new_args(1) = pat(j);
13227 9559417aa965 maint: regexp.cc style fixes John W. Eaton <jwe@octave.org> parents: 12642 diff changeset	1373 if (rep.numel () != 1)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1374 new_args(2) = rep(j);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1375 new_args(0) = octregexprep (new_args, "regexprep");
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1376
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1377 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1378 break;
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1379 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1380
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1381 if (error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1382 break;
6495 fd09c7e8c4c9 [project @ 2007-04-05 16:18:20 by dbateman] dbateman parents: 6361 diff changeset	1383
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1384 ret(i) = new_args(0);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1385 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1386
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1387 if (!error_state)
13311 d590d9df5596 regexprep: only return cell array if first arg is cell array John W. Eaton <jwe@octave.org> parents: 13310 diff changeset	1388 retval = args(0).is_cell ()
d590d9df5596 regexprep: only return cell array if first arg is cell array John W. Eaton <jwe@octave.org> parents: 13310 diff changeset	1389 ? octave_value (ret) : octave_value (ret(0));
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9064 diff changeset	1390 }
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1391 }
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1392 else
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1393 retval = octregexprep (args, "regexprep");
776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1394
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1395 return retval;
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1396 }
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1397
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1398 /*
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1399 %!test # Replace with empty
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1400 %! xml = '<!-- This is some XML --> <tag v="hello">some stuff<!-- sample tag--></tag>';
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1401 %! t = regexprep (xml, '<[!?][^>]*>', '');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1402 %! assert (t, ' <tag v="hello">some stuff</tag>');
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1403
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1404 %!test # Replace with non-empty
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1405 %! xml = '<!-- This is some XML --> <tag v="hello">some stuff<!-- sample tag--></tag>';
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1406 %! t = regexprep (xml, '<[!?][^>]*>', '?');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1407 %! assert (t, '? <tag v="hello">some stuff?</tag>');
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1408
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1409 %!test # Check that 'tokenize' is ignored
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1410 %! xml = '<!-- This is some XML --> <tag v="hello">some stuff<!-- sample tag--></tag>';
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1411 %! t = regexprep (xml, '<[!?][^>]*>', '', 'tokenize');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1412 %! assert (t, ' <tag v="hello">some stuff</tag>');
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1413
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	1414 ## Test capture replacement
12462 e4dbfe3019b1 Use PCRE regular expressions throughout Octave. Rik <octave@nomad.inbox5.com> parents: 12433 diff changeset	1415 %!test
7242 e4398e3903be [project @ 2007-12-03 23:52:07 by dbateman] dbateman parents: 7237 diff changeset	1416 %! data = "Bob Smith\nDavid Hollerith\nSam Jenkins";
e4398e3903be [project @ 2007-12-03 23:52:07 by dbateman] dbateman parents: 7237 diff changeset	1417 %! result = "Smith, Bob\nHollerith, David\nJenkins, Sam";
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1418 %! t = regexprep (data, '(?m)^(\w+)\s+(\w+)$', '$2, $1');
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1419 %! assert (t, result);
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1420
11032 c9b0a75b02e8 Make all regexp in Octave compatible with both POSIX and PCRE. Rik <octave@nomad.inbox5.com> parents: 11025 diff changeset	1421 ## Return the original if no match
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1422 %!assert (regexprep ('hello', 'world', 'earth'), 'hello')
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1423
14536 6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1424 ## Test emptymatch
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1425 %!assert (regexprep ('World', '^', 'Hello '), 'World')
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1426 %!assert (regexprep ('World', '^', 'Hello ', 'emptymatch'), 'Hello World')
6d5c951ec520 Add 'emptymatch', 'noemptymatch' options to regular expressions. Rik <octave@nomad.inbox5.com> parents: 14501 diff changeset	1427
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1428 ## Test a general replacement
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1429 %!assert (regexprep ("a[b]c{d}e-f=g", "[^A-Za-z0-9_]", "_"), "a_b_c_d_e_f_g")
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1430
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1431 ## Make sure it works at the beginning and end
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1432 %!assert (regexprep ("a[b]c{d}e-f=g", "a", "_"), "_[b]c{d}e-f=g")
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1433 %!assert (regexprep ("a[b]c{d}e-f=g", "g", "_"), "a[b]c{d}e-f=_")
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1434
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1435 ## Options
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1436 %!assert (regexprep ("a[b]c{d}e-f=g", "[^A-Za-z0-9_]", "_", "once"), "a_b]c{d}e-f=g")
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1437 %!assert (regexprep ("a[b]c{d}e-f=g", "[^A-Z0-9_]", "_", "ignorecase"), "a_b_c_d_e_f_g")
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1438
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1439 ## Option combinations
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1440 %!assert (regexprep ("a[b]c{d}e-f=g", "[^A-Z0-9_]", "_", "once", "ignorecase"), "a_b]c{d}e-f=g")
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1441
6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1442 ## End conditions on replacement
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1443 %!assert (regexprep ("abc", "(b)", ".$1"), "a.bc");
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1444 %!assert (regexprep ("abc", "(b)", "$1"), "abc");
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1445 %!assert (regexprep ("abc", "(b)", "$1."), "ab.c");
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1446 %!assert (regexprep ("abc", "(b)", "$1.."), "ab..c");
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1447
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1448 ## Test cell array arguments
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1449 %!assert (regexprep ("abc", {"b","a"}, "?"), "??c")
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1450 %!assert (regexprep ({"abc","cba"}, "b", "?"), {"a?c","c?a"})
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1451 %!assert (regexprep ({"abc","cba"}, {"b","a"}, {"?","!"}), {"!?c","c?!"})
6361 776e657c9422 [project @ 2007-02-27 09:45:03 by dbateman] dbateman parents: 5866 diff changeset	1452
8093 dcc31f473596 Treat PCRE lookbehind operators in a manner that is approximately correct David Bateman <dbateman@free.fr> parents: 8021 diff changeset	1453 # Nasty lookbehind expression
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14496 diff changeset	1454 %!assert (regexprep ('x^(-1)+y(-1)+z(-1)=0', '(?<=[a-z]+)$\-[1-9]*$', '_minus1'),'x^(-1)+y_minus1+z_minus1=0')
14543 e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1455
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1456 %!assert (regexprep ("\n", '\n', "X"), "X");
e47d929fde8f process backslash string escapes in regexp pattern and regexprep replacement (bug #35911) John W. Eaton <jwe@octave.org> parents: 14536 diff changeset	1457 %!assert (regexprep ("\n", "\n", "X"), "X");
5785 6b9cec830d72 [project @ 2006-05-03 19:32:46 by dbateman] dbateman parents: 5779 diff changeset	1458 */

Mercurial > octave

annotate libinterp/corefcn/regexp.cc @ 16816:12005245b645