This file is indexed.

/usr/share/psychtoolbox-3/PsychCal/FlushCalFile.m is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-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
66
67
68
function FlushCalFile(filespec,nKeep)
% FlushCalFile([filespec],[nKeep])
%
% Flush all but the most recent calibrations in a file.
%
% If no filespec is given, flushes file default.mat.  If
% a an integer is given, flushes file screenN.mat.  If
% a string is given, loads from string.mat.
%
% Argument nKeep specifies how many calibrations to
% keep.  If fewer than nKeep are in the file, all are
% kept.  If nKeep is zero, file is emptied.  nKeep
% defaults to 1.
%
% If specified file cannot be found does nothing.
%
% 8/26/97  dhb  Wrote it.
% 8/21/00  dhb  Update for dual cal dir scheme.  Not tested hard.

% Set nKeep
if (nargin < 2 || isempty(nKeep))
	nKeep = 1;
end

% Set the filename
if (nargin < 1 || isempty(filespec))
	filename = [CalDataFolder 'default.mat'];
elseif (ischar(filespec))
	filename = [CalDataFolder filespec '.mat'];
else
	filename = [CalDataFolder sprintf('screen%d.mat',filespec)];
end

% Make sure file is present before calling load
file=fopen(filename);

% If not, make sure to try secondary directory.
if (file == -1 && (nargin < 3 || isempty(dir)))
	useDir = CalDataFolder(1);
	if (nargin < 1 || isempty(filespec))
		filename = [useDir 'default.mat'];
	elseif (ischar(filespec))
		filename = [useDir filespec '.mat'];
	else
		filename = [useDir sprintf('screen%d.mat',filespec)];
	end
	file = fopen(filename);
end

% Now read the sucker if it is there.
if (file ~= -1)
	fclose(file);
	eval(['load ' QuoteString(filename)])
	nCals = size(cals,2);
	cal = cals{nCals};
	if (nCals < nKeep)
		return;
	elseif (nKeep == 0)
		cals = {};
	elseif (nKeep == 1)
		cals = {cals{nCals}};
	else
		cals = {cals{nCals-nKeep+1:nCals}};
	end

	% Save the flushed calibration file
	eval(['save ' QuoteString(filename) ' cals']);
end