Mercurial > octave-antonio
annotate scripts/strings/strjust.m @ 11563:3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Tue, 18 Jan 2011 20:55:01 -0800 |
parents | fd0a3ac60b0e |
children | c792872f8942 |
rev | line source |
---|---|
11523 | 1 ## Copyright (C) 2000-2011 Paul Kienzle |
10020 | 2 ## Copyright (C) 2009 Jaroslav Hajek |
3789 | 3 ## |
4 ## This file is part of Octave. | |
5 ## | |
6 ## Octave is free software; you can redistribute it and/or modify it | |
7 ## under the terms of the GNU General Public License as published by | |
7016 | 8 ## the Free Software Foundation; either version 3 of the License, or (at |
9 ## your option) any later version. | |
3789 | 10 ## |
11 ## Octave is distributed in the hope that it will be useful, but | |
12 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
14 ## General Public License for more details. | |
15 ## | |
16 ## You should have received a copy of the GNU General Public License | |
7016 | 17 ## along with Octave; see the file COPYING. If not, see |
18 ## <http://www.gnu.org/licenses/>. | |
3789 | 19 |
20 ## -*- texinfo -*- | |
11150 | 21 ## @deftypefn {Function File} {} strjust (@var{s}, @var{pos}) |
22 ## Return the text, @var{s}, justified according to @var{pos}, which may | |
23 ## be @samp{"left"}, @samp{"center"}, or @samp{"right"}. If @var{pos} | |
24 ## is omitted, @samp{"right"} is assumed. | |
11096
04c3aacbbc46
strjust.m: Clarify that justification applies to spaces and null characters.
Ben Abbott <bpabbott@mac.com>
parents:
10635
diff
changeset
|
25 ## |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
26 ## Null characters are replaced by spaces. All other character |
11096
04c3aacbbc46
strjust.m: Clarify that justification applies to spaces and null characters.
Ben Abbott <bpabbott@mac.com>
parents:
10635
diff
changeset
|
27 ## data are treated as non-white space. |
04c3aacbbc46
strjust.m: Clarify that justification applies to spaces and null characters.
Ben Abbott <bpabbott@mac.com>
parents:
10635
diff
changeset
|
28 ## |
04c3aacbbc46
strjust.m: Clarify that justification applies to spaces and null characters.
Ben Abbott <bpabbott@mac.com>
parents:
10635
diff
changeset
|
29 ## Example: |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
30 ## |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
31 ## @example |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
32 ## @group |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
33 ## strjust (["a"; "ab"; "abc"; "abcd"]) |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
34 ## @result{} ans = |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
35 ## a |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
36 ## ab |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
37 ## abc |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
38 ## abcd |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
39 ## @end group |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
40 ## @end example |
11114
f7079e3b0227
strjust.m: Add "untabify" and "strrep" to @seealso{} in the doc-string.
Ben Abbott <bpabbott@mac.com>
parents:
11096
diff
changeset
|
41 ## @seealso{deblank, strrep, strtrim, untabify} |
3789 | 42 ## @end deftypefn |
43 | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
44 function y = strjust (s, pos) |
3789 | 45 |
46 if (nargin < 1 || nargin > 2) | |
6046 | 47 print_usage (); |
3789 | 48 endif |
49 | |
50 if (nargin == 1) | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
51 pos = "right"; |
10018 | 52 else |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
53 pos = tolower (pos); |
3789 | 54 endif |
55 | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
56 if (ndims (s) != 2) |
10635
d1978e7364ad
Print name of function in error() string messages.
Rik <octave@nomad.inbox5.com>
parents:
10020
diff
changeset
|
57 error ("strjust: input must be a string or character matrix"); |
10018 | 58 endif |
3789 | 59 |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
60 if (isempty (s)) |
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
61 y = s; |
10020 | 62 else |
63 ## Apparently, Matlab considers nulls to be blanks as well; however, does | |
64 ## not preserve the nulls, but rather converts them to blanks. That's a | |
65 ## bit unexpected, but it allows simpler processing, because we can move | |
66 ## just the nonblank characters. So we'll do the same here. | |
67 | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
68 [nr, nc] = size (s); |
10020 | 69 ## Find the indices of all nonblanks. |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
70 nonbl = s != " " & s != "\0"; |
10020 | 71 [idx, jdx] = find (nonbl); |
3789 | 72 |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
73 if (strcmp (pos, "right")) |
10020 | 74 ## We wish to find the maximum column index for each row. Because jdx is |
75 ## sorted, we can take advantage of the fact that assignment is processed | |
76 ## sequentially and for duplicate indices the last value will remain. | |
77 maxs = nc * ones (nr, 1); | |
78 maxs(idx) = jdx; | |
79 shift = nc - maxs; | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
80 elseif (strcmp (pos, "left")) |
10020 | 81 ## See above for explanation. |
82 mins = ones (nr, 1); | |
83 mins(flipud (idx(:))) = flipud (jdx(:)); | |
84 shift = 1 - mins; | |
85 else | |
86 ## Use both of the above. | |
87 mins = ones (nr, 1); | |
88 mins(flipud (idx(:))) = flipud (jdx(:)); | |
89 maxs = nc * ones (nr, 1); | |
90 maxs(idx) = jdx; | |
91 shift = floor ((nc + 1 - maxs - mins) / 2); | |
92 endif | |
10018 | 93 |
10020 | 94 ## Adjust the column indices. |
95 jdx += shift (idx); | |
10018 | 96 |
10020 | 97 ## Create a blank matrix and position the nonblank characters. |
98 y = " "(ones (1, nr), ones (1, nc)); | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11150
diff
changeset
|
99 y(sub2ind ([nr, nc], idx, jdx)) = s(nonbl); |
5568 | 100 endif |
3789 | 101 |
102 endfunction | |
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
103 |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
104 %!error <Invalid call to strjust> strjust(); |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
105 %!error <Invalid call to strjust> strjust(["a";"ab"], "center", 1); |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
106 %!assert (strjust (["a"; "ab"; "abc"; "abcd"]), |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
107 %! [" a";" ab"; " abc"; "abcd"]); |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
108 %!assert (strjust (["a"; "ab"; "abc"; "abcd"], "center"), |
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7017
diff
changeset
|
109 %! [" a "; " ab"; "abc "; "abcd"]); |