Mercurial > hg > ltpda
view m-toolbox/m/gui/gltpda/buildLibrary.m @ 9:fbbfcd56e449 database-connection-manager
Remove dead code
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Mon, 05 Dec 2011 16:20:06 +0100 |
parents | f0afece42f48 |
children |
line wrap: on
line source
function buildLibrary(varargin) % Function to update the library with all the methods functions. % $Id: buildLibrary.m,v 1.12 2009/01/22 21:40:14 nicola Exp $ % clear all bdclose('all'); disp('=====================================================') disp('Updating the LTPDA Library...'); % Retrieve the list of all functions and methods: ltpda_versions % This creates a variable named 'versions', so structured: % | 1.filename | 2.functionName | 3.version | 4.date | 5.hour | 6.author | 7.folder | 8.hash | 9.category | 10.class | % [The 'class' is set to None if it's not a method] origSize = size(versions,1); %#ok<NODEF> disp(['The overall number of LTPDA functions is ',num2str(origSize),'.']) % ========================================================================= %% Remove functions not meant for the library: % ========================================================================= % Remove all test functions: for i=origSize:-1:1 if numel(versions{i,2})>4 && strcmpi(versions{i,2}(1:5),'test_') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' test functions ignored']) origSize = newSize; % Remove all Internal functions: for i=origSize:-1:1 if numel(versions{i,9})>7 && strcmpi(versions{i,9}(1:8),'Internal') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' Internal functions ignored']) origSize = newSize; % Remove all private functions: for i=origSize:-1:1 x = numel(versions{i,10}); if x>8 && strcmpi(versions{i,10}(x-7:x),'/private') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' private functions ignored']) origSize = newSize; % Remove all remaining examples: for i=origSize:-1:1 x = numel(versions{i,7}); if x>10 && strcmpi(versions{i,7}(x-9:x),'/examples/') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' examples ignored']) origSize = newSize; % Remove templates: for i=origSize:-1:1 funcName = versions{i,2}; x = numel(funcName); if x>9 && strcmpi(funcName(x-8:x),'_template') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' templates ignored']) origSize = newSize; % Remove all uncategorized functions: for i=origSize:-1:1 if isempty(versions{i,9}) versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' uncategorized functions ignored']) origSize = newSize; % Remove all functions with category 'GUI function': for i=origSize:-1:1 if strcmpi(versions{i,9},'GUI function') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' GUI functions ignored']) origSize = newSize; % Remove all functions with no class: for i=origSize:-1:1 if strcmp(versions{i,10},'None') versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' functions with class ''None'' ignored']) origSize = newSize; % Remove all functions with non user classes: for i=origSize:-1:1 if numel(versions{i,10})>5 && strncmpi(versions{i,10},'ltpda_',6) versions(i,:)=[]; elseif numel(versions{i,10})>3 && strncmpi(versions{i,10},'data',4) versions(i,:)=[]; end end newSize = size(versions,1); disp(['--- ',num2str(origSize-newSize),' functions with class ''ltpda_***'' ignored']) origSize = newSize; % ========================================================================= %% Prepare the library for update: % ========================================================================= disp(['The number of LTPDA functions for the library is ',num2str(origSize),'.']) numbFunctions = 0; funcCategories = {}; for i=1:origSize if numel(versions{i,10})>3 && strcmpi(versions{i,10}(1:4),'None') numbFunctions = numbFunctions +1; if ~ismember(versions{i,9},funcCategories) funcCategories = [funcCategories,versions{i,9}]; end end end % These are the root level subsystems: funcCategories = [funcCategories,'Methods']; disp([num2str(numbFunctions),' are functions, ',num2str(origSize-numbFunctions),' are methods.']) disp('=====================================================') load_system libraryBase.mdl open ltpda_library.mdl set(get_param(gcs,'Handle'),'Lock','off') % Delete all functions/methods folders in the root and create them anew: for i=1:numel(funcCategories) try %#ok<ALIGN> subsystem = find_system(bdroot,'Name',funcCategories{i}); subsysPos = get(get_param(subsystem{1},'Handle'),'Position'); delete_block(subsystem); catch end %#ok<CTCH> SubSystemBlock = add_block('libraryBase/SubSystName',['ltpda_library/',funcCategories{i}]); disp(['-- ',funcCategories{i},' updated']) if ~isempty(subsystem), set(SubSystemBlock,'Position',subsysPos); end set(SubSystemBlock,'LinkStatus','inactive') set(SubSystemBlock,'MaskDisplay',['disp(''',funcCategories{i},''')']) clear subsysPos subsystem SubSystemBlock end % Creating the Methods/<class> folder for each class anew: classes = utils.helper.ltpda_classes; % Remove improper classes: for i=numel(classes):-1:1 if (numel(classes{i})>5 && strncmpi(classes{i},'ltpda_',6)) || (numel(classes{i})>3 && strncmpi(classes{i},'data',4)), classes(i)=[]; end; end for i=1:numel(classes) classFolder = add_block('libraryBase/SubSystName',['ltpda_library/Methods/',classes{i}]); set(classFolder,'LinkStatus','inactive') set(classFolder,'MaskDisplay',['disp(''',classes{i},''')']) % Cycle to set proper position: x=1;y=1; while ~isempty(find_system('ltpda_library/Methods','SearchDepth',1,'Position',[30+80*(y-1) , 30+80*(x-1) , 80+80*(y-1) , 80+80*(x-1)])) y=y+1; if y==6, x=x+1; y=1; end end set(classFolder,'Position',[30+80*(y-1) , 30+80*(x-1) , 80+80*(y-1) , 80+80*(x-1)]) end % ========================================================================= %% Rebuild the library contents: % ========================================================================= for i=1:origSize currMethod = versions{i,2}; currCateg = versions{i,9}; currClass = versions{i,10}; % Check to verify whether a folder for this category exists: categFolder = find_system(['ltpda_library/Methods/',currClass],'SearchDepth',1,'Name',currCateg); try categFolder = categFolder{1}; catch end %#ok<CTCH> if isempty(categFolder) categFolder = add_block('libraryBase/SubSystName',['ltpda_library/Methods/',currClass,'/',currCateg]); set(categFolder,'LinkStatus','inactive') set(categFolder,'MaskDisplay',['disp(''',currCateg,''')']) % Cycle to set proper position: x=1;y=1; while ~isempty(find_system(['ltpda_library/Methods/',currClass],'SearchDepth',1,'Position',[30+80*(y-1) , 30+80*(x-1) , 80+80*(y-1) , 80+80*(x-1)])) aaa = find_system(['ltpda_library/Methods/',currClass],'SearchDepth',1,'Position',[30+80*(y-1) , 30+80*(x-1) , 80+80*(y-1) , 80+80*(x-1)]); if (strcmp(aaa{1},['ltpda_library/Methods/',currClass]) && numel(aaa)==1), break; end y=y+1; if y==5, x=x+1; y=1; end end set(categFolder,'Position',[30+80*(y-1) , 30+80*(x-1) , 80+80*(y-1) , 80+80*(x-1)]) end % Adding the proper method block: if strcmp(currCateg,'Constructor') blockH = add_block('libraryBase/constructor',['ltpda_library/Methods/',currClass,'/',currCateg,'/',currMethod]); elseif strcmp(currCateg,'Output') blockH = add_block('libraryBase/output',['ltpda_library/Methods/',currClass,'/',currCateg,'/',currMethod]); elseif ~strcmp(currMethod,'Contents') blockH = add_block('libraryBase/function',['ltpda_library/Methods/',currClass,'/',currCateg,'/',currMethod]); end % Cycle to set proper position: x=1;y=1; while ~isempty(find_system(['ltpda_library/Methods/',currClass,'/',currCateg],'SearchDepth',1,'Position',[30+70*(y-1) , 30+70*(x-1) , 80+70*(y-1) , 60+70*(x-1)])) aaa = find_system(['ltpda_library/Methods/',currClass,'/',currCateg],'SearchDepth',1,'Position',[30+70*(y-1) , 30+70*(x-1) , 80+70*(y-1) , 60+70*(x-1)]); if (strcmp(aaa{1},['ltpda_library/Methods/',currClass,'/',currCateg]) && numel(aaa)==1), break; end y=y+1; if y==5, x=x+1; y=1; end end set(blockH,'Position',[30+70*(y-1) , 30+70*(x-1) , 80+70*(y-1) , 60+70*(x-1)]) set(blockH,'LinkStatus','inactive') set(blockH,'MaskDisplay',['disp(''',currMethod,''')']) set(blockH,'Tag',['method ',currClass]) set(blockH,'Description','') maskText = eval(['help(''',currClass,'/',currMethod,''');']); maskText = strtok(maskText,'%%'); set(blockH,'MaskDescription',maskText); set(blockH,'OpenFcn','ltpdagui(''callback'',1,''redraw'',2); if (~strcmp(bdroot,''ltpda_library'') && ~isempty(findobj(''Tag'',''LTPDAGUI''))), figure(findobj(''Tag'',''LTPDAGUI'')); end'); set(blockH,'CopyFcn','GUIprefs = getappdata(0, ''GUIpreferences''); GUIprefs.Copied = 1; setappdata(0, ''GUIpreferences'',GUIprefs);'); childpath = find_system(blockH,'LookUnderMasks','all','BlockType','M-S-Function'); set(childpath,'Tag',currMethod) set(childpath,'Name',currMethod) set(childpath,'Description','') argsMin = str2double(versions{i,11}); if argsMin >1 setInports(blockH,argsMin); set(blockH,'Position',[30+70*(y-1) , 30+70*(x-1) , 80+70*(y-1) , 60+70*(x-1)]); end end % Setting proper position and size for subsystem folders in the root: subsystems = find_system(bdroot,'LookUnderMasks','all','SearchDepth',1,'BlockType','SubSystem'); x=1; y=1; for i=1:numel(subsystems) set_param(subsystems{i},'Position',[30+100*(y-1) , 30+100*(x-1) , 95+100*(y-1) , 90+100*(x-1)]) y=y+1; if y==4, x=x+1; y=1; end end close_system libraryBase.mdl % Update the annotation: annotationHandle = find_system(bdroot,'FindAll','on','SearchDepth',1,'type','annotation'); caption1 = 'LTPDA Library'; caption2 = ['v3.0 - ',datestr(now,1)]; caption = strvcat(caption1,caption2); %#ok<VCAT> set_param(annotationHandle, 'HorizontalAlignment','center','Text',caption) warning off all save_system ltpda_library.mdl warning on all close_system ltpda_library.mdl %---------------------------------------------------------------------- function setInports(varargin) % Called whenever the block to be added has argsmin>1, so it needs % multiple data inputs: currBlock = varargin{1}; newInports = varargin{2}; prevInport = find_system(currBlock,'SearchDepth',1,'LookUnderMasks','all','BlockType','Inport'); % To remove previous data inport and line: try %#ok<ALIGN> blockLines = get_param(prevInport,'LineHandles'); if (blockLines.Outport(1)~=-1 && ~isempty(blockLines.Outport(1))), delete_line(blockLines.Outport(1)); end delete_block(prevInport); catch end % To add new inports, mux and lines: if newInports>1 muxblock = add_block('built-in/Mux', [getfullname(currBlock),'/Mux']); set(muxblock,'Position',[70 , 10 , 73 , 150]) set(muxblock,'Inputs',num2str(newInports)) end for ii=1:newInports newBlock = add_block('built-in/Inport', [getfullname(currBlock),'/Inport1'],'MakeNameUnique','on'); set_param(newBlock,'Port',num2str(ii)); newBlock = get_param(newBlock,'Handle'); set(newBlock,'Position',[10 , 10+30*(ii-1) , 30 , 30+30*(ii-1)]) set(newBlock,'Tag',num2str(ii)) add_line(currBlock,[get(newBlock,'Name'),'/1'],[get(muxblock,'Name'),'/',num2str(ii)]); end funcBlock = find_system(currBlock,'SearchDepth',1,'LookUnderMasks','all','BlockType','M-S-Function'); funcBlock = get_param(funcBlock,'Name'); add_line(currBlock,[get(muxblock,'Name'),'/1'],[funcBlock,'/1']); end %---------------------------------------------------------------------- end