% Build file for Dynare MEX Librairies under Matlab % Copyright (C) 2007-2010 Dynare Team % % This file is part of Dynare. % % Dynare 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 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 . addpath '../../matlab'; % For matlab_ver_less_than MATLAB_PATH = matlabroot; COMPILE_OPTIONS = ''; if strcmpi('GLNX86', computer) || strcmpi('GLNXA64', computer) ... || strcmpi('MACI', computer) || strcmpi('MAC', computer) ... || strcmpi('MACI64', computer) % GNU/Linux (x86-32 or x86-64) or MacOS (Intel or PPC) LAPACK_PATH = '-lmwlapack'; if matlab_ver_less_than('7.5') BLAS_PATH = LAPACK_PATH; % On <= 7.4, BLAS in included in LAPACK else BLAS_PATH = '-lmwblas'; end DL_PATH = '-ldl'; COMPILE_OPTIONS = [ COMPILE_OPTIONS ' -DHAVE_PTHREAD' ]; elseif strcmpi('PCWIN', computer) || strcmpi('PCWIN64', computer) % Windows (x86-32 or x86-64) with Microsoft or gcc compiler if strcmpi('PCWIN', computer) LIBRARY_PATH = [MATLAB_PATH '/extern/lib/win32/microsoft/']; else LIBRARY_PATH = [MATLAB_PATH '/extern/lib/win64/microsoft/']; end LAPACK_PATH = ['"' LIBRARY_PATH 'libmwlapack.lib"']; if matlab_ver_less_than('7.5') BLAS_PATH = LAPACK_PATH; % On <= 7.4, BLAS in included in LAPACK else BLAS_PATH = ['"' LIBRARY_PATH 'libmwblas.lib"']; end DL_PATH = ''; else error('Unsupported platform') end % Pass MATLAB_VERSION to C preprocessor in hexadecimal form verstruct = ver('matlab'); matver = sscanf(verstruct.Version, '%d.%d.%d')'; COMPILE_OPTIONS = [ COMPILE_OPTIONS ' -DMATLAB_MEX_FILE -DMATLAB_VERSION=0x' sprintf('%02d%02d', matver(1), matver(2)) ]; % Large array dims for 64 bits platforms appeared in Matlab 7.3 if (strcmpi('GLNXA64', computer) || strcmpi('PCWIN64', computer) ... || strcmpi('MACI64', computer)) ... && ~matlab_ver_less_than('7.3') COMPILE_OPTIONS = [ COMPILE_OPTIONS ' -largeArrayDims' ]; end OUTPUT_DIR = '../matlab'; disp(' ') if exist(OUTPUT_DIR,'dir') disp('Delete old mex files.') delete([OUTPUT_DIR '/*.' mexext]); else whereami = pwd; disp(['Create directory ' whereami(1:end-7) OUTPUT_DIR(4:end) '.']) mkdir(OUTPUT_DIR); end disp(' ') % Set Optimization and Debug flags CXXOPTIMFLAGS = ' CXXOPTIMFLAGS=-O3 '; COPTIMFLAGS = ' COPTIMFLAGS=-O3 '; CXXDEBUGFLAGS = ' CXXDEBUGFLAGS= '; CDEBUGFLAGS = ' CDEBUGFLAGS= '; LDOPTIMFLAGS = ' LDOPTIMFLAGS=-O3 '; LDDEBUGFLAGS = ' LDDEBUGFLAGS= '; COMPILE_OPTIONS = [ COMPILE_OPTIONS CDEBUGFLAGS COPTIMFLAGS CXXDEBUGFLAGS CXXOPTIMFLAGS LDDEBUGFLAGS LDOPTIMFLAGS]; % Comment next line to suppress compilation debugging info COMPILE_OPTIONS = [ COMPILE_OPTIONS ' -v' ]; COMPILE_COMMAND = [ 'mex ' COMPILE_OPTIONS ' -outdir ' OUTPUT_DIR ]; disp('Compiling mjdgges...') eval([ COMPILE_COMMAND ' -I. mjdgges/mjdgges.c ' LAPACK_PATH ]); disp('Compiling sparse_hessian_times_B_kronecker_C...') eval([ COMPILE_COMMAND ' -I. kronecker/sparse_hessian_times_B_kronecker_C.cc' ]); disp('Compiling A_times_B_kronecker_C...') eval([ COMPILE_COMMAND ' -I. kronecker/A_times_B_kronecker_C.cc ' BLAS_PATH]); disp('Compiling objects from dynare++...') LIBDYNAREPP_DIR = [ OUTPUT_DIR '/libdynare++' ]; if exist(LIBDYNAREPP_DIR,'dir') delete([ LIBDYNAREPP_DIR '/*' ]) else mkdir(LIBDYNAREPP_DIR) end eval([ 'mex ' COMPILE_OPTIONS ' -c -outdir ' LIBDYNAREPP_DIR ... ' -I../../dynare++/src -I../../dynare++/kord -I../../dynare++/tl/cc -I../../dynare++/utils/cc -I../../dynare++/sylv/cc -I../../dynare++/integ/cc -I. ' ... '../../dynare++/kord/faa_di_bruno.cpp ' ... '../../dynare++/kord/korder_stoch.cpp ' ... '../../dynare++/kord/journal.cpp ' ... '../../dynare++/kord/decision_rule.cpp ' ... '../../dynare++/kord/dynamic_model.cpp ' ... '../../dynare++/kord/random.cpp ' ... '../../dynare++/kord/first_order.cpp ' ... '../../dynare++/kord/normal_conjugate.cpp ' ... '../../dynare++/kord/approximation.cpp ' ... '../../dynare++/kord/global_check.cpp ' ... '../../dynare++/kord/korder.cpp ' ... '../../dynare++/sylv/cc/IterativeSylvester.cpp ' ... '../../dynare++/sylv/cc/QuasiTriangular.cpp ' ... '../../dynare++/sylv/cc/QuasiTriangularZero.cpp ' ... '../../dynare++/sylv/cc/GeneralMatrix.cpp ' ... '../../dynare++/sylv/cc/GeneralSylvester.cpp ' ... '../../dynare++/sylv/cc/SimilarityDecomp.cpp ' ... '../../dynare++/sylv/cc/SylvException.cpp ' ... '../../dynare++/sylv/cc/SchurDecompEig.cpp ' ... '../../dynare++/sylv/cc/Vector.cpp ' ... '../../dynare++/sylv/cc/TriangularSylvester.cpp ' ... '../../dynare++/sylv/cc/SylvParams.cpp ' ... '../../dynare++/sylv/cc/BlockDiagonal.cpp ' ... '../../dynare++/sylv/cc/KronVector.cpp ' ... '../../dynare++/sylv/cc/SylvMemory.cpp ' ... '../../dynare++/sylv/cc/SymSchurDecomp.cpp ' ... '../../dynare++/sylv/cc/SylvMatrix.cpp ' ... '../../dynare++/sylv/cc/SchurDecomp.cpp ' ... '../../dynare++/sylv/cc/KronUtils.cpp ' ... '../../dynare++/tl/cc/normal_moments.cpp ' ... '../../dynare++/tl/cc/int_sequence.cpp ' ... '../../dynare++/tl/cc/tensor.cpp ' ... '../../dynare++/tl/cc/ps_tensor.cpp ' ... '../../dynare++/tl/cc/pyramid_prod2.cpp ' ... '../../dynare++/tl/cc/equivalence.cpp ' ... '../../dynare++/tl/cc/fine_container.cpp ' ... '../../dynare++/tl/cc/kron_prod.cpp ' ... '../../dynare++/tl/cc/t_polynomial.cpp ' ... '../../dynare++/tl/cc/symmetry.cpp ' ... '../../dynare++/tl/cc/stack_container.cpp ' ... '../../dynare++/tl/cc/twod_matrix.cpp ' ... '../../dynare++/tl/cc/sparse_tensor.cpp ' ... '../../dynare++/tl/cc/sthread.cpp ' ... '../../dynare++/tl/cc/gs_tensor.cpp ' ... '../../dynare++/tl/cc/pyramid_prod.cpp ' ... '../../dynare++/tl/cc/fs_tensor.cpp ' ... '../../dynare++/tl/cc/permutation.cpp ' ... '../../dynare++/tl/cc/rfs_tensor.cpp ' ... '../../dynare++/tl/cc/t_container.cpp ' ... '../../dynare++/tl/cc/tl_static.cpp ' ... '../../dynare++/integ/cc/product.cpp ' ... '../../dynare++/integ/cc/quadrature.cpp ' ... '../../dynare++/integ/cc/quasi_mcarlo.cpp ' ... '../../dynare++/integ/cc/smolyak.cpp ' ... '../../dynare++/integ/cc/vector_function.cpp ' ... '../../dynare++/src/nlsolve.cpp']) LIBDYNAREPP_O = ''; tmp = dir([ LIBDYNAREPP_DIR '/*.o*' ]); % Need to support .o and .obj for i = 1:size(tmp, 1) LIBDYNAREPP_O = [ LIBDYNAREPP_O ' ' LIBDYNAREPP_DIR '/' tmp(i).name ]; end disp('Compiling gensylv...') eval([ COMPILE_COMMAND ' -I. -I../../dynare++/sylv/cc ' ... '../../dynare++/sylv/matlab/gensylv.cpp ' ... LIBDYNAREPP_DIR '/BlockDiagonal.o* ' ... LIBDYNAREPP_DIR '/GeneralMatrix.o* ' ... LIBDYNAREPP_DIR '/GeneralSylvester.o* ' ... LIBDYNAREPP_DIR '/IterativeSylvester.o* ' ... LIBDYNAREPP_DIR '/KronUtils.o* ' ... LIBDYNAREPP_DIR '/KronVector.o* ' ... LIBDYNAREPP_DIR '/QuasiTriangular.o* ' ... LIBDYNAREPP_DIR '/QuasiTriangularZero.o* ' ... LIBDYNAREPP_DIR '/SchurDecomp.o* ' ... LIBDYNAREPP_DIR '/SchurDecompEig.o* ' ... LIBDYNAREPP_DIR '/SimilarityDecomp.o* ' ... LIBDYNAREPP_DIR '/SylvException.o* ' ... LIBDYNAREPP_DIR '/SylvMatrix.o* ' ... LIBDYNAREPP_DIR '/SylvMemory.o* ' ... LIBDYNAREPP_DIR '/SylvParams.o* ' ... LIBDYNAREPP_DIR '/TriangularSylvester.o* ' ... LIBDYNAREPP_DIR '/Vector.o* ' ... BLAS_PATH ' ' LAPACK_PATH ]); disp('Compiling bytecode...') eval([ COMPILE_COMMAND ' -Ibytecode -I../../preprocessor bytecode/bytecode.cc bytecode/Interpreter.cc bytecode/Mem_Mngr.cc bytecode/SparseMatrix.cc']); disp('Compiling k_order_perturbation') eval([ COMPILE_COMMAND ... ' -I../../dynare++/src -I../../dynare++/kord -I../../dynare++/tl/cc -I../../dynare++/utils/cc -I../../dynare++/sylv/cc -I../../dynare++/integ/cc -I. ' ... ' -DMEXEXT=' mexext ' ' ... '-output k_order_perturbation ' ... 'k_order_perturbation/k_order_perturbation.cc ' ... 'k_order_perturbation/k_ord_dynare.cc ' ... 'k_order_perturbation/dynamic_dll.cc ' ... LIBDYNAREPP_O ' ' ... DL_PATH ' ' BLAS_PATH ' ' LAPACK_PATH]); disp('Compiling dynare_simul_') eval([ COMPILE_COMMAND ... ' -I../../dynare++/kord -I../../dynare++/tl/cc -I../../dynare++/sylv/cc -I. ' ... '-output dynare_simul_ ' ... '../../dynare++/extern/matlab/dynare_simul.cpp ' ... LIBDYNAREPP_O ' ' ... BLAS_PATH ' ' LAPACK_PATH]); rmdir(LIBDYNAREPP_DIR, 's')