This file is indexed.

/usr/share/psychtoolbox-3/PsychAlpha/PrintStruct.m is in psychtoolbox-3-common 3.0.14.20170103+git6-g605ff5c.dfsg1-1build1.

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
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
function PrintStruct(dataStruct, filePtr, indentChar, numIndentSpaces, numberFormat, nestLevel)
% function PrintStruct(dataStruct, [filePtr], [indentChar], [numIndentSpaces], [numberFormat])
% 
% Display the contents of struct arrays to arbitrary nesting depth.  By
% default PrintStruct prints to the MATLAB command window. If a file
% pointer argument is supplied then it prints the contents of the struct
% to a file.  
%
% Nested fields within the struct are indented numIndentSpaces for each level
% of nesting.  numIndenSpace is equal to one space.  The indentation character 
% by default is the space character.  
%
% Pass the empty vector, "[ ]" for either optional argument to specify
% the default.
%
% PrintStruct was suggested by Marialuisa Martelli as a convenient way to 
% display experiment parameters and results stored in struct. It's still 
% experimental.  The readability of the output could be improved by 
% including array indices in the output along with the struct field  names.
% Communicating that by using indentiation and spacing does not work well
% for complicated structures and large arrays.  
%  

% History
% 
% 05/03/03  awi Wrote it. 
% 07/02/04  awi Cosmetic changes to comments and added caveats at bottom.

% If the user invoked PrintStruct (instead of PrintStruct itself) then 
% print the name of the struct variable, fill in defaults and call yourself in this form:
% PrintStruct(dataStruct, filePtr, indentChar, numIndentSpaces, doubleFormat, nestLevel)
defaultNumberFormat='%f';
defaultFilePtr=1;
defaultIndentChar=' ';
defaultNumIndentSpaces=1;
defaultDoubleFormat='%f';
if (nargin <6)
	nestLevel=1;
	if nargin==5
		if isempty(doubleFormat)
			doubleFormat=defaultNumberFormat;
		end
	end
	if nargin <5 
		numberFormat=defaultNumberFormat;
	end
	if nargin >= 4 
		if isempty(numIndentSpaces)
			numIndentSpaces=defaultNumIndentSpaces;
		end
	end
	if nargin < 4 
		numIndentSpaces=defaultNumIndentSpaces;
	end
	if nargin >=3
		if and(isEmpty(indentChar), ~isChar(indentChar))
			indentChar=defaultIndentChar;
		end
	end
	if nargin < 3
		indentChar=defaultIndentChar;
	end
	if nargin >=2
		if isEmpty(filePtr)
			filePtr=defaultFilePtr;
		end
	end
	if nargin < 2
		filePtr=defaultFilePtr;
	end
	if(nargin < 1)
		error('dataStruct argument required but not provided')
	end
	dataStructName=inputname(1);
	fprintf(filePtr, '%s', dataStructName);
	fprintf(filePtr, '\n');
	PrintStruct(dataStruct, filePtr, indentChar, numIndentSpaces, numberFormat, nestLevel)
end %if


% recursively descend the structure, identifying each field type and dimensions and 
% printing

% recursion terminates when dataStruct is neither a cell array nor a struct. 
% if dataStruct is a double or a string, then display the contents of the string

	
% if this is a struct then loop over the dimensions and loop over the fields 
% indenting, printing the field name, and calling PrintStruct on the content of each field 
if strcmp('struct', class(dataStruct))
	numStructElements=prod(size(dataStruct));
	numStructDims= length(size(dataStruct));
	structDims= size(dataStruct);
	isStructVector=and(numStructDims==2, min(structDims) == 1);
	isStructSingleElement=max(structDims)==1;
	currentNestLevel=nestLevel;
	for ii=1:numStructElements;
		%the formatting  of the index depends on the dimensions of the struct matrix 
		if ~isStructSingleElement
			fprintf(filePtr, '%s', repmat(indentChar, 1, currentNestLevel*numIndentSpaces));
			currentNestLevel=nestLevel + 1; 
			if(isStructVector)
				structIndices=ii; 
				indexString=int2str(ii);
			else 
				structIndices=ReshapeIndex(vectorIndex, structDims);  
				indexString=sprintf([repmat('%d ', 1, length(structIndices) -1) '%d'], structIndices);
			end 
			fprintf(filePtr, '%s%s', 'STRUCT ARRAY INDEX: ', indexString);
			fprintf(filePtr, '\n');
		else
			structIndices=1;
		end
		%loop over the fields, printing the name of each and calling PrintStruct on the contents
		structFieldNames=fieldnames(dataStruct);
		numStructFieldNames=length(structFieldNames);
		for fi=1:numStructFieldNames;
			fprintf(filePtr, '%s', repmat(indentChar, 1, currentNestLevel*numIndentSpaces));
			fprintf(filePtr, '%s', structFieldNames{fi});
			fprintf(filePtr, '\n');
			PrintStruct(getfield(dataStruct, num2cell(structIndices),structFieldNames{fi}), filePtr, indentChar, numIndentSpaces, numberFormat, currentNestLevel+1);
		end
	end
end

% handles character vectors 
if strcmp('char', class(dataStruct)) 
	fprintf(filePtr, '%s', repmat(indentChar, 1, nestLevel*numIndentSpaces));
	fprintf(filePtr, '%s', dataStruct);
	fprintf(filePtr, '\n');
end

% handles matrices	
if strcmp('double', class(dataStruct))
	matDims= size(dataStruct);
	numMatDims=length(matDims);
	if numMatDims > 3
		error('PrintStruct does not know how do dislay matrices with more than 3 dimensions');
	end
	if numMatDims == 2
		matDims = [matDims 1];
	end
	for iZ=1:matDims(3)
		%begin plane
		for iY=1:matDims(1)
			%begin row
			fprintf(filePtr, '%s', repmat(indentChar, 1, nestLevel*numIndentSpaces));
			for iX=1:matDims(2)
				%begin element
				fprintf(filePtr, numberFormat, dataStruct(iX, iY, iZ));
				fprintf(filePtr, ' '); 
				%end element
		    end
			fprintf(filePtr, '\n');
			%end row
		end 
		fprintf(filePtr, '\n');
		%end plane
	end 
	%end matrix
end

% handle cell arrays