/usr/share/octave/packages/dataframe-1.0.1/@dataframe/private/df_check_char_array.m is in octave-dataframe 1.0.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | function resu = df_check_char_array(x, nelem, required)
%# auxiliary function: pad a char array to some width
%% Copyright (C) 2009-2012 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, 51 Franklin Street -
%% Fifth Floor, Boston, MA 02110-1301, USA.
%#
%# $Id$
%#
if (2 == nargin) required = [nelem 1]; endif
if (nelem < required(1))
error ("Too many elements to assign");
endif
%# a zero-length element is still considered as a space by char
if (isempty (x)) x = ' '; endif
if (size (x, 1) < max (required(1), nelem))
%# pad vertically
dummy = repmat (' ', nelem-size (x, 1), 1);
resu = char (x, dummy);
else
resu = x;
endif
if (size (resu, 2) < required(2))
%# pad horizontally
dummy = repmat (' ', nelem, required(2)-size (resu, 2));
resu = horzcat (resu, dummy);
endif
endfunction
|