www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@mdevproject/mdevproject.m
function P= mdevproject(fname,inf,dlist) %MDEVPROJECT % Copyright 2000-2008 The MathWorks, Inc. and Ford Global Technologies, Inc. if nargin==0 % call from Matlab during loading loadstr=1; fname= 'Untitled'; inf=[]; dlist=[]; P = i_defaultstruct(fname,inf,dlist); mdev= modeldev; elseif nargin==1 && isstruct(fname) % call from loadobj loadstr=1; mdev = fname.modeldev; P = rmfield(fname,'modeldev'); else loadstr=0; P = i_defaultstruct(fname,inf,dlist); [PATH,NAME,EXT] = fileparts(fname); mdev= modeldev(NAME,{xregcubic,[],[],'project'}); end P.ProjectVersion = 6; P= class(P,'mdevproject',mdev); if ~loadstr user = getusername(initfromprefs(mbcuser)); P.History= struct('User', initfromapp(mbcuser), 'Action', ['Created by ' user], 'Date', now); ptr=pointer(P); P= info(ptr); end function P = i_defaultstruct(fname,inf,dlist) P= struct('loader', mbcloadstart, ... 'Version',mbcver,... 'Filename',fname,... 'Information',inf,... 'History',[],... 'Modified',0,... 'Datalist',dlist,... 'heap',[],... 'ProjectVersion',[], ... 'SavedMBCVersion', '', ... 'SavedAddonVersions', {cell(0,2)},... 'LastNode',[]);