summaryrefslogtreecommitdiffstats
path: root/scilab/modules/development_tools/macros/tbx_build_cleaner.sci
blob: 4f71f74bc2a2b58b61de9a877cf59e05c57cc07e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Allan CORNET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt

// Generate a cleaner.sce script for the toolbox
function tbx_build_cleaner(toolbox_name, toolbox_path)
	oldpath = pwd();
	
	if(exists('toolbox_path', 'local')) then
		chdir(toolbox_path);
	end
	
	mprintf(gettext('Generating cleaner.sce...\n'));
	cleaner = [
	  "// ====================================================================",
	  "// generated by builder.sce",
	  "// Copyright DIGITEO 2009",
	  "// ====================================================================",
	  "try",
	  " getversion(''scilab'');",
	  "catch",
	  " warning(''Scilab 5.0 or more is required.'');",
	  " return;",
	  "end;",
	  "// ====================================================================",
	  "root_tlbx = get_absolute_file_path(''cleaner.sce'');",
	  "",
	  "if isfile(root_tlbx+''/macros/cleanmacros.sce'') then",
	  "  exec(root_tlbx+''/macros/cleanmacros.sce'');",
	  "end",
	  "",
	  "if isfile(root_tlbx+''/src/cleaner_src.sce'') then",
	  "  exec(root_tlbx+''/src/cleaner_src.sce'');",
	  "end",
	  "",
	  "if isfile(root_tlbx+''/sci_gateway/cleaner_gateway.sce'') then",
	  "  exec(root_tlbx+''/sci_gateway/cleaner_gateway.sce'');",
	  "  mdelete(root_tlbx+''/sci_gateway/cleaner_gateway.sce'');",
	  "end",
	  "",
	  "if isfile(root_tlbx+''/loader.sce'') then",
	  "  mdelete(root_tlbx+''/loader.sce'');",
	  "end",
	  "// ====================================================================",
	  "clear root_tlbx;",
	  "// ===================================================================="
	];
	mputl(cleaner,'cleaner.sce');
	
	chdir(oldpath);
endfunction