-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathstrjoin.m
More file actions
55 lines (52 loc) · 2.37 KB
/
strjoin.m
File metadata and controls
55 lines (52 loc) · 2.37 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
function output = strjoin(input, separator)
% http://www.mathworks.com/matlabcentral/fileexchange/31862-strjoin
%
% Copyright (c) 2011, Kota Yamaguchi
% All rights reserved.
%
% Redistribution and use in source and binary forms, with or without
% modification, are permitted provided that the following conditions are
% met:
%
% * Redistributions of source code must retain the above copyright
% notice, this list of conditions and the following disclaimer.
% * Redistributions in binary form must reproduce the above copyright
% notice, this list of conditions and the following disclaimer in
% the documentation and/or other materials provided with the distribution
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
if nargin < 2, separator = ','; end
assert(ischar(separator), 'Invalid separator input: %s', class(separator));
separator = strrep(separator, '%', '%%');
output = '';
if ~isempty(input)
if ischar(input)
input = cellstr(input);
end
if isnumeric(input) || islogical(input)
output = [repmat(sprintf(['%.15g', separator], input(1:end-1)), ...
1, ~isscalar(input)), ...
sprintf('%.15g', input(end))];
elseif iscellstr(input)
output = [repmat(sprintf(['%s', separator], input{1:end-1}), ...
1, ~isscalar(input)), ...
sprintf('%s', input{end})];
elseif iscell(input)
output = strjoin(cellfun(@(x)strjoin(x, separator), input, ...
'UniformOutput', false), ...
separator);
else
error('strjoin:invalidInput', 'Unsupported input: %s', class(input));
end
end
end