/usr/share/octave/packages/dataframe-1.0.1/@dataframe/repmat.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 53 54 55 56 57 58 59 60 61 62 63 64 65 | function resu = repmat(df, varargin)
%% 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$
%#
resu = df; idx = horzcat (varargin{:});
%# for the second dim, use either 1 either the 3rd one
dummy = idx;
if (length (dummy) > 2)
dummy(2) = [];
else
dummy(2) = 1;
endif
%# operate on first dim
if (idx(1) > 1)
resu = df_mapper (@repmat, df, [idx(1) 1]);
if (~isempty (df._name{1})),
resu._name{1} = feval (@repmat, df._name{1}, [idx(1) 1]);
resu._over{1} = feval (@repmat, df._over{1}, [idx(1) 1]);
endif
resu._cnt(1) = resu._cnt(1) * idx(1);
endif
if (dummy(2) > 1)
for indi = (1:resu._cnt(2))
resu._rep{indi} = feval (@repmat, resu._rep{indi}, [1 dummy(2)]);
endfor
endif
%# operate on ridx
resu._ridx = feval (@repmat, resu._ridx, idx);
%# operate on second dim
if (length (idx) > 1 && idx(2) > 1)
resu._data = feval (@repmat, resu._data, [1 idx(2)]);
resu._name{2} = feval (@repmat, df._name{2}, [idx(2) 1]);
resu._over{2} = feval (@repmat, df._over{2}, [1 idx(2)]);
resu._type = feval (@repmat, df._type, [1 idx(2)]);
resu._cnt(2) = resu._cnt(2) * idx(2);
endif
resu = df_thirddim (resu);
endfunction
|