Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[c785b5]: @dataframe / private / df_strjust.m Maximize Restore History

Download this file

df_strjust.m    37 lines (31 with data), 1.2 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
function [a, b] = df_strjust(a, b)
%# small auxiliary function: make two char arrays the same width
%% Copyright (C) 2009-2010 Pascal Dupuis <Pascal.Dupuis@uclouvain.be>
%%
%% This file is part of Octave.
%%
%% Octave is free software; you can redistribute it and/or
%% modify it under the terms of the GNU General Public
%% License as published by the Free Software Foundation;
%% either version 2, or (at your option) any later version.
%%
%% Octave is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied
%% warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
%% PURPOSE. See the GNU General Public License for more
%% details.
%%
%% You should have received a copy of the GNU General Public
%% License along with Octave; see the file COPYING. If not,
%% write to the Free Software Foundation, 59 Temple Place -
%% Suite 330, Boston, MA 02111-1307, USA.
%#
%# $Id: df_strjust.m 852 2010-07-22 10:47:55Z dupuis $
%#
indi = size(a, 2) - size(b, 2);
if indi < 0
a = horzcat(repmat(' ', size(a, 1), -indi), a);
elseif indi > 0,
b = horzcat(repmat(' ', size(b, 1), indi), b);
endif
endfunction