0001 function [FamilyType, FamilyName] = getfamilytype(FamilyName)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018 AO = getao;
0019
0020 if nargin < 1
0021 FamilyName = getfamilylist;
0022 AOFamilyCell = fieldnames(AO);
0023 else
0024 if isstruct(FamilyName)
0025 FamilyName = FamilyName.FamilyName;
0026 end
0027 AOFamilyCell = {FamilyName};
0028 end
0029
0030 if isempty(AO)
0031 error('Initialization is needed (aoinit)');
0032 end
0033
0034 FamilyType = [];
0035 for i = 1:size(FamilyName,1)
0036 if isfield(AO,deblank(FamilyName(i,:)))
0037 FamilyType = strvcat(FamilyType, AO.(AOFamilyCell{i}).FamilyType);
0038 else
0039 FamilyType = strvcat(FamilyType, ' ');
0040 end
0041 end
0042
0043 if nargout == 0
0044
0045 BlankSpaces = ' ';
0046 if length(FamilyName(1,:)) > 3
0047 BlankSpaces(1:length(FamilyName(1,:))-2) = ' ';
0048 end
0049 fprintf(' # Name%sType\n', BlankSpaces);
0050 for i = 1:size(FamilyType,1)
0051 fprintf(' %2d. %s %s\n', i, FamilyName(i,:), FamilyType(i,:));
0052 end
0053 end
0054