From d9ffbb3e7941a0cfd9988baaf7c5fc35f4cbbab0 Mon Sep 17 00:00:00 2001 From: sebastien <sebastien@ac1d8469-bf42-47a9-8791-bf33cf982152> Date: Tue, 8 Jul 2008 15:52:55 +0000 Subject: [PATCH] v4 dynare.m: cosmetic changes git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1942 ac1d8469-bf42-47a9-8791-bf33cf982152 --- matlab/dynare.m | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/matlab/dynare.m b/matlab/dynare.m index 1e80d79efa..c5f1d5c512 100644 --- a/matlab/dynare.m +++ b/matlab/dynare.m @@ -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) ; \ No newline at end of file +evalin('base',fname) ; -- GitLab