Fixed bug.

time-shift
Stéphane Adjemian (Charybdis) 2011-09-02 12:28:49 +02:00 committed by Stéphane Adjemian (Scylla)
parent 3545be0226
commit 9b9fb7df3a
2 changed files with 13 additions and 8 deletions

View File

@ -8,24 +8,24 @@ function dynInfo(fun)
%! @strong{Inputs} %! @strong{Inputs}
%! @table @var %! @table @var
%! @item fun %! @item fun
%! string, name of the matlab/octave routine for which internal documentation is needed. %! string, name of the matlab/octave routine for which internal documentation is needed.
%! @end table %! @end table
%! %!
%! @strong{Outputs} %! @strong{Outputs}
%! None %! None
%! %!
%! @strong{This function is called by:} %! @strong{This function is called by:}
%! @ref{dynare}, @ref{build_internal_documentation} %! @ref{dynare}, @ref{build_internal_documentation}
%! %!
%! @strong{This function calls:} %! @strong{This function calls:}
%! @ref{get_internal_doc_block}. %! @ref{get_internal_doc_block}.
%! %!
%! @end deftypefn %! @end deftypefn
%@eod: %@eod:
% Copyright (C) 2011 Dynare Team % Copyright (C) 2011 Dynare Team
% stephane DOT adjemian AT univ DASH lemans DOT fr % stephane DOT adjemian AT univ DASH lemans DOT fr
% %
% This file is part of Dynare. % This file is part of Dynare.
% %
% Dynare is free software: you can redistribute it and/or modify % Dynare is free software: you can redistribute it and/or modify
@ -40,7 +40,9 @@ function dynInfo(fun)
% %
% You should have received a copy of the GNU General Public License % You should have received a copy of the GNU General Public License
% along with Dynare. If not, see <http://www.gnu.org/licenses/>. % along with Dynare. If not, see <http://www.gnu.org/licenses/>.
dynare_config([],0);
[pathstr, name, ext] = fileparts(which(fun)); [pathstr, name, ext] = fileparts(which(fun));
if strcmp(ext(2:end),'m') if strcmp(ext(2:end),'m')
block = get_internal_doc_block(name,pathstr); block = get_internal_doc_block(name,pathstr);

View File

@ -41,7 +41,10 @@ function dynTest(fun)
% You should have received a copy of the GNU General Public License % You should have received a copy of the GNU General Public License
% along with Dynare. If not, see <http://www.gnu.org/licenses/>. % along with Dynare. If not, see <http://www.gnu.org/licenses/>.
dynare_config([],0);
[pathstr, name, ext] = fileparts(which(fun)); [pathstr, name, ext] = fileparts(which(fun));
if ~( isempty(pathstr) || isempty(name) || isempty(ext) ) && strcmp(ext(2:end),'m') if ~( isempty(pathstr) || isempty(name) || isempty(ext) ) && strcmp(ext(2:end),'m')
check = mtest(name,pathstr); check = mtest(name,pathstr);
if check if check