Mercurial > octave
annotate scripts/strings/strtrunc.m @ 13300:ceda1714a4ad
Fix reversion introduced by changeset 86d18a3cc911.
* scripts/strings/strtrunc.m: Fix reversion in changeset 86d18a3cc911.
author | Ben Abbott <bpabbott@mac.com> |
---|---|
date | Sat, 08 Oct 2011 20:33:50 -0400 |
parents | 86d18a3cc911 |
children | 29a4d3b4211e |
rev | line source |
---|---|
11523 | 1 ## Copyright (C) 2006-2011 William Poetra Yoga Hadisoeseno |
5674 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
5674 | 9 ## |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
5674 | 18 |
19 ## -*- texinfo -*- | |
20 ## @deftypefn {Function File} {} strtrunc (@var{s}, @var{n}) | |
9036
58604c45ca74
Cleanup of data types related documentation
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
21 ## Truncate the character string @var{s} to length @var{n}. If @var{s} |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
22 ## is a char matrix, then the number of columns is adjusted. |
5674 | 23 ## |
24 ## If @var{s} is a cell array of strings, then the operation is performed | |
25 ## on its members and the new cell array is returned. | |
26 ## @end deftypefn | |
27 | |
28 function s = strtrunc (s, n) | |
29 | |
30 if (nargin != 2) | |
6046 | 31 print_usage (); |
5674 | 32 endif |
33 | |
34 if (ischar (s)) | |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
35 if (n < columns (s)) |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
36 s = s(:, 1:n); |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
37 endif |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
38 elseif (iscellstr (s)) |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
39 ## 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
|
40 ## matrix using indexing, and then converts back to cellstr with mat2cell. |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
41 ## This approach is 28X faster than using cellfun and recursive call to strtrunc |
13300
ceda1714a4ad
Fix reversion introduced by changeset 86d18a3cc911.
Ben Abbott <bpabbott@mac.com>
parents:
13298
diff
changeset
|
42 idx = cellfun ("length", s) >= n; |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
43 s(idx) = mat2cell (char (s(idx))(:, 1:n), ones (sum (idx), 1)); |
5674 | 44 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
|
45 error ("strtrunc: S must be a character string or a cell array of strings"); |
5674 | 46 endif |
47 | |
48 endfunction | |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
49 |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
50 |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
51 %!assert (strtrunc("abcdefg", 4), "abcd"); |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
52 %!assert (strtrunc("abcdefg", 10), "abcdefg"); |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
53 %!assert (strtrunc(char ("abcdef", "fedcba"), 3), ["abc"; "fed"]); |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
54 %!assert (strtrunc({"abcdef", "fedcba"}, 3), {"abc", "fed"}); |
13300
ceda1714a4ad
Fix reversion introduced by changeset 86d18a3cc911.
Ben Abbott <bpabbott@mac.com>
parents:
13298
diff
changeset
|
55 %!assert (strtrunc({"1", "21", "321"}, 1), {"1", "2", "3"}) |
13298
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
56 |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
57 %% Test input validation |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
58 %!error strtrunc () |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
59 %!error strtrunc ("abcd") |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
60 %!error strtrunc ("abcd", 4, 5) |
86d18a3cc911
strtrunc.m: Recode for 28X speedup for cellstr inputs
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
61 %!error <S must be a character string or a cell array of strings> strtrunc (1, 1) |