Mercurial > octave
annotate scripts/strings/strtrunc.m @ 33617:ec2635a02328 bytecode-interpreter tip
maint: Merge default to bytecode-interpreter.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Tue, 21 May 2024 18:29:03 +0200 |
parents | 2e484f9f1f18 |
children |
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 ## |
32632
2e484f9f1f18
maint: update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
31706
diff
changeset
|
3 ## Copyright (C) 2006-2024 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/>. |
5674 | 7 ## |
8 ## This file is part of Octave. | |
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 |
5674 | 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. |
5674 | 14 ## |
15 ## Octave is distributed in the hope that it will be useful, but | |
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. |
5674 | 19 ## |
20 ## You should have received a copy of the GNU General Public License | |
7016 | 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 ######################################################################## |
5674 | 25 |
26 ## -*- texinfo -*- | |
30875
5d3faba0342e
doc: Ensure documentation lists output argument when it exists for all m-files.
Rik <rik@octave.org>
parents:
30564
diff
changeset
|
27 ## @deftypefn {} {@var{s} =} strtrunc (@var{s}, @var{n}) |
20164
df437a52bcaf
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
28 ## Truncate the character string @var{s} to length @var{n}. |
df437a52bcaf
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
29 ## |
df437a52bcaf
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
30 ## If @var{s} is a character matrix, then the number of columns is adjusted. |
20181
aa36fb998a4d
maint: Remove unnecessary whitespace at end of lines.
Rik <rik@octave.org>
parents:
20164
diff
changeset
|
31 ## |
5674 | 32 ## If @var{s} is a cell array of strings, then the operation is performed |
13301
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
33 ## on each cell element and the new cell array is returned. |
5674 | 34 ## @end deftypefn |
35 | |
36 function s = strtrunc (s, n) | |
37 | |
38 if (nargin != 2) | |
6046 | 39 print_usage (); |
5674 | 40 endif |
41 | |
13306
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
42 n = fix (n); |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
43 if (! isscalar (n) || n < 0) |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
44 error ("strtrunc: length N must be a positive integer (N >= 0)"); |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
45 endif |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
46 |
5674 | 47 if (ischar (s)) |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
48 if (n < columns (s)) |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
49 s = s(:, 1:n); |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
50 endif |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
51 elseif (iscellstr (s)) |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
52 ## Convoluted approach converts cellstr to char matrix, trims the character |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
53 ## matrix using indexing, and then converts back to cellstr with mat2cell. |
13301
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
54 ## This approach is 24X faster than using cellfun with call to strtrunc |
13306
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
55 idx = cellfun ("size", s, 2) > n; |
13301
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
56 rows = cellfun ("size", s(idx), 1); |
13306
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
57 if (! isempty (rows)) |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
58 s(idx) = mat2cell (char (s(idx))(:, 1:n), rows); |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
59 endif |
5674 | 60 else |
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
9036
diff
changeset
|
61 error ("strtrunc: S must be a character string or a cell array of strings"); |
5674 | 62 endif |
63 | |
64 endfunction | |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
65 |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
66 |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
67 %!assert (strtrunc ("abcdefg", 4), "abcd") |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
68 %!assert (strtrunc ("abcdefg", 10), "abcdefg") |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
69 %!assert (strtrunc (char ("abcdef", "fedcba"), 3), ["abc"; "fed"]) |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
70 %!assert (strtrunc ({"abcdef", "fedcba"}, 3), {"abc", "fed"}) |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
71 %!assert (strtrunc ({"", "1", "21", "321"}, 1), {"", "1", "2", "3"}) |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
72 %!assert (strtrunc ({"1", "", "2"}, 1), {"1", "", "2"}) |
13301
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
73 %!test |
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
74 %! cstr = {"line1"; ["line2"; "line3"]; "line4"}; |
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
75 %! y = strtrunc (cstr, 4); |
19593
446c46af4b42
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
76 %! assert (size (y), [3, 1]); |
446c46af4b42
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
77 %! assert (size (y{2}), [2, 4]); |
13301
29a4d3b4211e
strtrunc.m: Add support and %!test for char arrays as cellstr elements
Rik <octave@nomad.inbox5.com>
parents:
13300
diff
changeset
|
78 %! assert (y{2}, repmat ("line", 2, 1)); |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
79 |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
80 ## Test input validation |
28886
d8318c12d903
test: remove unnecessary BIST tests in m-files checking for excessive number of inputs.
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
81 %!error <Invalid call> strtrunc () |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
82 %!error strtrunc ("abcd") |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
83 %!error strtrunc ("abcd", 4, 5) |
13306
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
84 %!error <N must be a positive integer> strtrunc ("abcd", ones (2,2)) |
ad9b78544a22
strtrunc.m: Add input validation and tests for length argument n.
Rik <octave@nomad.inbox5.com>
parents:
13304
diff
changeset
|
85 %!error <N must be a positive integer> strtrunc ("abcd", -1) |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
86 %!error <S must be a character string or a cell array of strings> strtrunc (1, 1) |