Merged initialization routines (dates and dseries).

parent 9b33971f
function initialize_dseries_toolbox()
function initialize()
% Copyright (C) 2015-2018 Dynare Team
%
......@@ -15,15 +15,8 @@ function initialize_dseries_toolbox()
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
% Check that the dates module is available.
try
initialize_dates_toolbox;
catch
error('Missing dependency: dates module is not available.')
end
% Get the path to the dseries toolbox.
dseries_src_root = strrep(which('initialize_dseries_toolbox'),'initialize_dseries_toolbox.m','');
dseries_src_root = strrep(which('dseries.initialize'),'+dseries/initialize.m','');
% Check that the x13 binary is available
nox13 = false;
......@@ -48,57 +41,79 @@ if nox13
end
% Set the subfolders to be added in the path.
p = {'/read'; ...
'/utilities/is'; ...
'/utilities/str'; ...
'/utilities/insert'; ...
'/utilities/file'; ...
'/utilities/from'; ...
'/utilities/print'; ...
'/utilities/variables'; ...
'/utilities/cumulate'; ...
'/utilities/struct'};
p = {'read'; ...
'utilities/is'; ...
'utilities/op'; ...
'utilities/convert'; ...
'utilities/str'; ...
'utilities/insert'; ...
'utilities/file'; ...
'utilities/from'; ...
'utilities/print'; ...
'utilities/variables'; ...
'utilities/cumulate'; ...
'utilities/struct'};
% Add /utilities/x13' if x13 binary is available.
if ~nox13
p{end+1} = '/utilities/x13';
p{end+1} = 'utilities/x13';
end
% Add missing routines if dynare is not in the path
if ~exist('isint','file')
p{end+1} = 'utilities/missing/isint';
end
if ~exist('isoctave','file')
p{end+1} = 'utilities/missing/isoctave';
end
if ~exist('shiftS','file')
p{end+1} = 'utilities/missing/shiftS';
end
if ~exist('matlab_ver_less_than','file')
p{end+1} = 'utilities/missing/matlab_ver_less_than';
end
if ~exist('demean','file')
p{end+1} = '/utilities/missing/demean';
p{end+1} = 'utilities/missing/demean';
end
if ~exist('ndim','file')
p{end+1} = '/utilities/missing/ndim';
p{end+1} = 'utilities/missing/ndim';
end
if ~isoctave && (~exist('rows','file') || ~exist('columns','file'))
p{end+1} = 'utilities/missing/dims';
end
if ~exist('sample_hp_filter','file')
p{end+1} = '/utilities/missing/sample_hp_filter';
p{end+1} = 'utilities/missing/sample_hp_filter';
end
if ~exist('get_file_extension','file')
p{end+1} = '/utilities/missing/get_file_extension';
p{end+1} = 'utilities/missing/get_file_extension';
end
if isoctave && ~exist('user_has_octave_forge_package','file')
p{end+1} = '/utilities/missing/user_has_octave_forge_package';
p{end+1} = 'utilities/missing/user_has_octave_forge_package';
end
if ~exist('get_cells_id','file')
p{end+1} = '/utilities/missing/get_cells_id';
p{end+1} = 'utilities/missing/get_cells_id';
end
if ~exist('randomstring','file')
p{end+1} = '/utilities/missing/randomstring';
p{end+1} = 'utilities/missing/randomstring';
end
if ~exist('one_sided_hp_filter','file')
p{end+1} = '/utilities/missing/one_sided_hp_filter';
p{end+1} = 'utilities/missing/one_sided_hp_filter';
end
% Set path
P = cellfun(@(c)[dseries_src_root(1:end-1) c], p, 'uni', false);
P = cellfun(@(c)[dseries_src_root c], p, 'uni', false);
addpath(P{:});
assignin('caller', 'dseries_src_root', dseries_src_root);
\ No newline at end of file
% Copyright (C) 2014-2017 Dynare Team
%
% This code is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare dates submodule is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
% Get the path to the dates/src folder.
dates_src_root = strrep(which('initialize_dates_toolbox'),'initialize_dates_toolbox.m','');
% Set the subfolders to be added in the path.
p = {'/utilities/is'; ...
'/utilities/op'; ...
'/utilities/convert'};
% Add missing routines if dynare is not in the path
if ~exist('isint','file')
p{end+1} = '/utilities/missing/isint';
end
if ~exist('isoctave','file')
p{end+1} = '/utilities/missing/isoctave';
end
if ~exist('shiftS','file')
p{end+1} = '/utilities/missing/shiftS';
end
if ~exist('matlab_ver_less_than','file')
p{end+1} = '/utilities/missing/matlab_ver_less_than';
end
% Set path
P = cellfun(@(c)[dates_src_root(1:end-1) c], p, 'uni', false);
addpath(P{:});
if ~isoctave && (~exist('rows','file') || ~exist('columns','file'))
addpath([dates_src_root(1:end-1) '/utilities/missing/dims']);
end
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment