Mercurial > octave
annotate scripts/strings/validatestring.m @ 29290:d3c1e6f5ac85
validatestring.m: Overhaul function.
* validatestring.m: Wrap documentation to 80 columns.
Correctly require that POSITION argument be >= 1 (not 0).
Consolidate input validation in to fewer tests and update
error messages. Change output format to be more informative
when FUNCNAME, VARNAME inputs are given. Update BIST tests.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 13 Jan 2021 14:50:15 -0800 |
parents | a4268efb7334 |
children | 7854d5752dd2 |
rev | line source |
---|---|
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
1 ######################################################################## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
2 ## |
27919
1891570abac8
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
27918
diff
changeset
|
3 ## Copyright (C) 2008-2020 The Octave Project Developers |
27918
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
4 ## |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
5 ## See the file COPYRIGHT.md in the top-level directory of this |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
6 ## distribution or <https://octave.org/copyright/>. |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
7 ## |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
8 ## This file is part of Octave. |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
9 ## |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
10 ## Octave is free software: you can redistribute it and/or modify it |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
11 ## under the terms of the GNU General Public License as published by |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
12 ## the Free Software Foundation, either version 3 of the License, or |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
13 ## (at your option) any later version. |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
14 ## |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
15 ## Octave is distributed in the hope that it will be useful, but |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
18 ## GNU General Public License for more details. |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
19 ## |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
20 ## You should have received a copy of the GNU General Public License |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
21 ## along with Octave; see the file COPYING. If not, see |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
22 ## <https://www.gnu.org/licenses/>. |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
23 ## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
24 ######################################################################## |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
25 |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
26 ## -*- texinfo -*- |
20852
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20726
diff
changeset
|
27 ## @deftypefn {} {@var{validstr} =} validatestring (@var{str}, @var{strarray}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20726
diff
changeset
|
28 ## @deftypefnx {} {@var{validstr} =} validatestring (@var{str}, @var{strarray}, @var{funcname}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20726
diff
changeset
|
29 ## @deftypefnx {} {@var{validstr} =} validatestring (@var{str}, @var{strarray}, @var{funcname}, @var{varname}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20726
diff
changeset
|
30 ## @deftypefnx {} {@var{validstr} =} validatestring (@dots{}, @var{position}) |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
31 ## Verify that @var{str} is an element, or substring of an element, in |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
32 ## @var{strarray}. |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
33 ## |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
34 ## When @var{str} is a character string to be tested, and @var{strarray} is a |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
35 ## cell array of strings of valid values, then @var{validstr} will be the |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
36 ## validated form of @var{str} where validation is defined as @var{str} being |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
37 ## a member or substring of @var{validstr}. This is useful for both verifying |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
38 ## and expanding short options, such as @qcode{"r"}, to their longer forms, such |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
39 ## as @qcode{"red"}. If @var{str} is a substring of @var{validstr}, and there |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
40 ## are multiple matches, the shortest match will be returned if all matches are |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
41 ## substrings of each other. Otherwise, an error will be raised because the |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
42 ## expansion of @var{str} is ambiguous. All comparisons are case insensitive. |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
43 ## |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
44 ## The additional inputs @var{funcname}, @var{varname}, and @var{position} |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
45 ## are optional and will make any generated validation error message more |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
46 ## specific. |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
47 ## |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
48 ## Examples: |
14093
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
49 ## @c Set example in small font to prevent overfull line |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
50 ## |
14093
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
51 ## @smallexample |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
52 ## @group |
13708
ee28bf4c3c29
doc: Use @{ macro for curly brace in validatestring Texinfo docstring
Rik <octave@nomad.inbox5.com>
parents:
13707
diff
changeset
|
53 ## validatestring ("r", @{"red", "green", "blue"@}) |
14093
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
54 ## @result{} "red" |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
55 ## |
13708
ee28bf4c3c29
doc: Use @{ macro for curly brace in validatestring Texinfo docstring
Rik <octave@nomad.inbox5.com>
parents:
13707
diff
changeset
|
56 ## validatestring ("b", @{"red", "green", "blue", "black"@}) |
14093
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
57 ## @result{} error: validatestring: multiple unique matches were found for 'b': |
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
58 ## blue, black |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
59 ## @end group |
14093
050bc580cb60
doc: Various docstring improvements before 3.6.0 release.
Rik <octave@nomad.inbox5.com>
parents:
13708
diff
changeset
|
60 ## @end smallexample |
17405
3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
61 ## |
19069
efd5cf93013b
doc: Move validatestrings into function chapter of manual.
Rik <rik@octave.org>
parents:
18579
diff
changeset
|
62 ## @seealso{strcmp, strcmpi, validateattributes, inputParser} |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
63 ## @end deftypefn |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
64 |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
65 function str = validatestring (str, strarray, varargin) |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
66 |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
67 if (nargin < 2 || nargin > 5) |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
68 print_usage (); |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
69 endif |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
70 |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
71 ## Process input arguments |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
72 position = 0; |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
73 if (! isempty (varargin) && isnumeric (varargin{end})) |
19725
5f2c0ca0ef51
Ensure that numbers passed to integer *printf format codes are integers (bug #44245).
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
74 position = fix (varargin{end}); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
75 varargin(end) = []; |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
76 if (position < 1) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
77 error ("validatestring: POSITION must be >= 1"); |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
78 endif |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
79 endif |
17405
3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
80 |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
81 funcname = varname = ""; |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
82 char_idx = cellfun ("isclass", varargin, "char"); |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
83 n_chararg = sum (char_idx); |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
84 if (n_chararg > 2) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
85 error ("validatestring: invalid number of character inputs (> 3)"); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
86 elseif (n_chararg == 2) |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
87 [funcname, varname] = deal (varargin{char_idx}); |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
88 elseif (n_chararg == 1) |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
89 funcname = varargin{char_idx}; |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
90 endif |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
91 |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
92 ## Validate the inputs |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
93 if (! (ischar (str) && isrow (str))) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
94 error ("validatestring: STR must be a single character string"); |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
95 elseif (! iscellstr (strarray)) |
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
96 error ("validatestring: STRARRAY must be a cellstr"); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
97 elseif (! isempty (funcname) && ! isrow (funcname)) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
98 error ("validatestring: FUNCNAME must be a single character string"); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
99 elseif (! isempty (varname) && ! isrow (varname)) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
100 error ("validatestring: VARNAME must be a single character string"); |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
101 endif |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
102 |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
103 ## Make static part of error string that uses funcname, varname, and position |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
104 if (isempty (funcname)) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
105 funcname = "validatestring"; |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
106 endif |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
107 errstr = [funcname ": '" str "' "]; |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
108 if (! isempty (varname)) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
109 if (position > 0) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
110 errstr = sprintf ("%s(variable %s, argument #%i) ", ... |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
111 errstr, varname, position); |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
112 else |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
113 errstr = sprintf ("%s(variable %s) ", errstr, varname); |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
114 endif |
18579
d227178a0d40
validatestring.m: Change error message to follow Octave guidelines (bug #41484).
Eugenio Gianniti <eugenio.gianniti@mail.polimi.it>
parents:
17744
diff
changeset
|
115 else |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
116 if (position > 0) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
117 errstr = sprintf ("%s(argument #%i) ", errstr, position); |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
118 endif |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
119 endif |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
120 |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
121 matches = strncmpi (str, strarray(:), numel (str)); |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
122 nmatches = sum (matches); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
123 if (nmatches == 0) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
124 error ("%sdoes not match any of\n%s", errstr, |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
125 sprintf ("'%s', ", strarray{:})(1:end-2)); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
126 elseif (nmatches == 1) |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
127 str = strarray{matches}; |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
128 else |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
129 ## Are the matches substrings of each other? |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
130 ## If true, choose the shortest. If not, raise an error. |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
131 match_idx = find (matches); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
132 match_len = cellfun ("length", strarray(match_idx)); |
17405
3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
133 [min_len, min_idx] = min (match_len); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
134 short_str = strarray{match_idx(min_idx)}; |
17405
3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
135 submatch = strncmpi (short_str, strarray(match_idx), min_len); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
136 if (all (submatch)) |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
137 str = short_str; |
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
138 else |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
139 error ("%smatches multiple possible values:\n%s", errstr, |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
140 sprintf ("'%s', ", strarray{match_idx})(1:end-2)); |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
141 endif |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
142 endif |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
143 |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
144 endfunction |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
145 |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
146 |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
147 %!shared strarray |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
148 %! strarray = {"octave" "Oct" "octopus" "octaves"}; |
7658
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
149 %!assert (validatestring ("octave", strarray), "octave") |
1ce6460aebdf
nargoutchk.m, validatestring.m, addtodate.m: new functions
bill@denney.ws
parents:
diff
changeset
|
150 %!assert (validatestring ("oct", strarray), "Oct") |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
151 %!assert (validatestring ("octa", strarray), "octave") |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
152 %! strarray = {"abc1" "def" "abc2"}; |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
153 %!assert (validatestring ("d", strarray), "def") |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
154 |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
155 %!error <'xyz' does not match any> validatestring ("xyz", strarray) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
156 %!error <DUMMY_TEST: 'xyz' does not match any> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
157 %! validatestring ("xyz", strarray, "DUMMY_TEST") |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
158 %!error <DUMMY_TEST: 'xyz' \(variable DUMMY_VAR\) does not match> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
159 %! validatestring ("xyz", strarray, "DUMMY_TEST", "DUMMY_VAR") |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
160 %!error <DUMMY_TEST: 'xyz' \(variable DUMMY_VAR, argument #5\) does> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
161 %! validatestring ("xyz", strarray, "DUMMY_TEST", "DUMMY_VAR", 5) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
162 %!error <'abc' matches multiple possible values:> validatestring ("abc", strarray) |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
163 |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
164 ## Test input validation |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
165 %!error <Invalid call> validatestring ("xyz") |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
166 %!error <Invalid call> validatestring ("xyz", {"xyz"}, "3", "4", 5, 6) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
167 %!error <POSITION must be .= 1> validatestring ("xyz", {"xyz"}, "3", "4", -5) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
168 %!error <invalid number of character inputs> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
169 %! validatestring ("xyz", {"xyz"}, "3", "4", "5") |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
170 %!error <STR must be a single character string> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
171 %! validatestring (1, {"xyz"}, "3", "4", 5) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
172 %!error <STR must be a single character string> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
173 %! validatestring (['xyz';'def'], {"xyz"}, "3", "4", 5) |
13707
35f7cbf09c77
validatestring.m: Overhaul code for Matlab compatability and performance.
Rik <octave@nomad.inbox5.com>
parents:
12931
diff
changeset
|
174 %!error <STRARRAY must be a cellstr> validatestring ("xyz", "xyz", "3", "4", 5) |
29290
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
175 %!error <FUNCNAME must be a single character string> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
176 %! validatestring ("xyz", {"xyz"}, ["3";"3"], "4", 5) |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
177 %!error <VARNAME must be a single character string> |
d3c1e6f5ac85
validatestring.m: Overhaul function.
Rik <rik@octave.org>
parents:
27978
diff
changeset
|
178 %! validatestring ("xyz", {"xyz"}, "3", ["4";"4"], 5) |