From fb75d1e19d3f680e83b9868e716c654b6279b960 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Scylla=29?= Date: Wed, 26 Mar 2014 16:55:34 +0100 Subject: [PATCH] Added a new routine for cleaning up a folder (delete all the files generated by Dynare). --- matlab/utilities/general/clean.m | 34 ++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 matlab/utilities/general/clean.m diff --git a/matlab/utilities/general/clean.m b/matlab/utilities/general/clean.m new file mode 100644 index 000000000..5f1967b30 --- /dev/null +++ b/matlab/utilities/general/clean.m @@ -0,0 +1,34 @@ +function clean() + +% Copyright (C) 2014 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 . + +a = dir('*.mod'); + +for i = 1:length(a) + [junk,basename,extension] = fileparts(a(i).name); + delete([basename '.m']); + delete([basename '.log']); + rmdir(basename,'s'); + if exist([basename '_steadystate.m']) + movefile([basename '_steadystate.m'],['protect_' basename '_steadystate.m']); + end + delete([basename '_*']) + if exist(['protect_' basename '_steadystate.m']) + movefile(['protect_' basename '_steadystate.m'],[basename '_steadystate.m']); + end +end \ No newline at end of file