ATTACHM attach the m file being executes to the analysis object. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: ATTACHM attach the m file being executes to the analysis object. CALL: VERSION: $Id: attachm.m,v 1.2 2007/06/20 15:19:54 ingo Exp $ HISTORY: 31-03-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function a = attachm(a, mfile) 0002 % ATTACHM attach the m file being executes to the analysis object. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: ATTACHM attach the m file being executes to the analysis object. 0007 % 0008 % CALL: 0009 % 0010 % VERSION: $Id: attachm.m,v 1.2 2007/06/20 15:19:54 ingo Exp $ 0011 % 0012 % HISTORY: 31-03-07 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 [pathstr,name,ext,vers] = fileparts(mfile); 0018 if isempty(ext) 0019 mfile = [mfile '.m']; 0020 end 0021 a.mfile = textread(mfile,'%s','delimiter','\n','whitespace',''); 0022 a.mfilename = mfile; 0023 0024