This file is indexed.

/usr/share/octave/packages/miscellaneous-1.2.0/truncate.m is in octave-miscellaneous 1.2.0-2build1.

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
%% Copyright (c) 2012 Juan Pablo Carbajal <carbajal@ifi.uzh.ch>
%%
%%    This program 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 3 of the License, or
%%    any later version.
%%
%%    This program 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 this program. If not, see <http://www.gnu.org/licenses/>.

%% -*- texinfo -*-
%% @deftypefn  {Function File} {@var{y} =} truncate (@var{x}, @var{order}, @var{method})
%% @deftypefnx {Function File} {@var{y} =} truncate (@dots{}, @var{method})
%% Truncates @var{X} to @var{order} of magnitude.
%%
%% The optional argument @var{method} can be a hanlde to a function used to
%% truncate the number. Default is @code{round}.
%%
%% Examples:
%% @example
%%    format long
%%    x = 987654321.123456789;
%%    order = [3:-1:0 -(1:3)]';
%%    y = truncate (x,order)
%% y =
%%   987654000.000000
%%   987654300.000000
%%   987654320.000000
%%   987654321.000000
%%   987654321.100000
%%   987654321.120000
%%   987654321.123000
%%
%%    format
%%    [truncate(0.127,-2), truncate(0.127,-2,@@floor)]
%% ans =
%%    0.13000   0.12000
%%
%% @end example
%%
%% @seealso{round,fix,ceil,floor}
%% @end deftypefn

function y = truncate (x,order,method=@round)
  ino = 0.1.^order;
  o = 10.^order;
  y = method (x.*ino).*o;
end