Fixed bug.
parent
f3652af938
commit
c0faa2ccb8
|
@ -41,11 +41,18 @@ 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);
|
if isempty(strfind(fun,'@')) & (~isempty(strfind(fun,'/')) || ~isempty(strfind(fun,'\')) )
|
||||||
|
[pathstr1, name, ext] = fileparts(fun);
|
||||||
|
addpath(pathstr1);
|
||||||
|
rm_path = 1;
|
||||||
|
else
|
||||||
|
rm_path = 0;
|
||||||
|
end
|
||||||
|
|
||||||
|
[pathstr2, 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,pathstr2);
|
||||||
if ~isempty(block)
|
if ~isempty(block)
|
||||||
fid = fopen([fun '.texi'],'wt');
|
fid = fopen([fun '.texi'],'wt');
|
||||||
for i=1:size(block,1)
|
for i=1:size(block,1)
|
||||||
|
@ -61,4 +68,8 @@ if strcmp(ext(2:end),'m')
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
disp('Not a known matlab/octave routine!')
|
disp('Not a known matlab/octave routine!')
|
||||||
|
end
|
||||||
|
|
||||||
|
if rm_path
|
||||||
|
rmpath(pathstr1)
|
||||||
end
|
end
|
|
@ -41,15 +41,25 @@ 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);
|
if isempty(strfind(fun,'@')) & (~isempty(strfind(fun,'/')) || ~isempty(strfind(fun,'\')) )
|
||||||
|
[pathstr1, name, ext] = fileparts(fun);
|
||||||
|
addpath(pathstr1);
|
||||||
|
rm_path = 1;
|
||||||
|
else
|
||||||
|
rm_path = 0;
|
||||||
|
end
|
||||||
|
|
||||||
[pathstr, name, ext] = fileparts(which(fun));
|
[pathstr2, name, ext] = fileparts(which(fun));
|
||||||
|
|
||||||
if ~( isempty(pathstr) || isempty(name) || isempty(ext) ) && strcmp(ext(2:end),'m')
|
if ~( isempty(pathstr2) || isempty(name) || isempty(ext) ) && strcmp(ext(2:end),'m')
|
||||||
check = mtest(name,pathstr);
|
check = mtest(name,pathstr2);
|
||||||
if check
|
if check
|
||||||
disp(['Succesfull test(s) for ' fun ' routine!'])
|
disp(['Succesfull test(s) for ' fun ' routine!'])
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
disp([fun 'is not a known matlab/octave routine!'])
|
disp([fun 'is not a known matlab/octave routine!'])
|
||||||
|
end
|
||||||
|
|
||||||
|
if rm_path
|
||||||
|
rmpath(pathstr1)
|
||||||
end
|
end
|
Loading…
Reference in New Issue