summaryrefslogtreecommitdiffstats
path: root/scilab/modules/development_tools/macros/tbx_build_gateway_clean.sci
blob: 13ae5ccc19aac6d9e33acf8dedf7d9919b720356 (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
// 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_gateway.sce script for the gateway
function tbx_build_gateway_clean(langs, gateway_path)
	oldpath = pwd();
	
	if(exists('gateway_path', 'local')) then
		chdir(gateway_path);
	end
	
	mprintf(gettext('Generating cleaner_gateway.sce...\n'));
	cleaner = [
	  "// This file is released into the public domain",
	  "// Generated by builder_gateway.sce: Please, do not edit this file",
	  "//",
	  "sci_gateway_dir = get_absolute_file_path(''cleaner_gateway.sce'');",
	  "current_dir     = pwd();",
	  ""];
	
	for i = 1:size(langs, "*")
		cleaner = [cleaner, 
		  "chdir(sci_gateway_dir);",
		  "if ( isdir(''"+langs(i)+"'') ) then",
		  "  chdir(''"+langs(i)+"'');",
		  "  exec(''cleaner.sce'');",
		  "  mdelete(''cleaner.sce'');",
		  "end",
		  ""
		];
	end
	
	cleaner = [cleaner,
	  "chdir(current_dir);",
	  "// ====================================================================",
	  "clear sci_gateway_dir;",
	  "clear current_dir;",
	  "// ===================================================================="
	];
	
	mputl(cleaner,'cleaner_gateway.sce');
	
	chdir(oldpath);
endfunction