stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v4 dynare.m: looking automatically for .dyn and .mod files 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@693 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
michel 2006-03-24 12:47:38 +00:00
parent 4da4c9933c
commit 52590d6a65
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
matlab/dynare.m
View File

@ -15,14 +15,24 @@ end
% Testing if file have extension
% If no extension defalut .mod is added
if isempty(strfind(fname,'.'))
fname=[fname '.mod'];
% Checking file extension
fname1 = [fname '.dyn'];
d = dir(fname1);
if length(d) == 0
fname1 = [fname '.mod'];
end
fname = fname1;
% Checking file extension
else
if ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.MOD') ...
&& ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.DYN')
error ('Argument is a file name with .mod or .dyn extension');
end;
if ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.MOD') ...
&& ~strcmp(upper(fname(size(fname,2)-3:size(fname,2))),'.DYN')
error ('Argument is a file name with .mod or .dyn extension');
end;
end;
d = dir(fname);
if length(d) == 0
disp(['DYNARE: can''t open ' fname])
return
end
dynareroot = strrep(which('dynare.m'),'dynare.m','');
command = [dynareroot 'dynare_m ' fname] ;
for i=2:nargin