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

v4 dynare.m: cosmetic changes 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1942 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
sebastien 2008-07-08 15:52:55 +00:00
parent 57f4d42a5b
commit d9ffbb3e79
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
matlab/dynare.m
View File

@ -31,10 +31,6 @@ else
end
end
if nargin < 1
error('You must provide the name of the MOD file in argument');
end
% disable output paging (it is on by default on Octave)
more off
@ -43,11 +39,16 @@ if exist('OCTAVE_VERSION')
default_save_options('-mat')
end
if ~ischar(fname)
error ('The argument in DYNARE must be a text string.') ;
% detect if MEX files are present; if not, use alternative M-files
dynareroot = dynare_config();
if nargin < 1
error('DYNARE: you must provide the name of the MOD file in argument')
end
dynareroot = dynare_config();
if ~ischar(fname)
error('DYNARE: argument of dynare must be a text string')
end
% Testing if file have extension
% If no extension defalut .mod is added
@ -62,13 +63,12 @@ if isempty(strfind(fname,'.'))
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');
error('DYNARE: argument must be a filename with .mod or .dyn extension')
end;
end;
d = dir(fname);
if length(d) == 0
disp(['DYNARE: can''t open ' fname])
return
error(['DYNARE: can''t open ' fname])
end
command = ['"' dynareroot 'dynare_m" ' fname] ;
@ -79,10 +79,10 @@ end
disp(result)
if status
% Should not use "error(result)" since message will be truncated if too long
error('Preprocessing failed')
error('DYNARE: preprocessing failed')
end
if ~ isempty(find(abs(fname) == 46))
fname = fname(:,1:find(abs(fname) == 46)-1) ;
end
evalin('base',fname) ;
evalin('base',fname) ;