summaryrefslogtreecommitdiffstats
path: root/scilab/modules/modules_manager/macros/tbx_build_cleaner.sci
blob: 2cab10a4070629d545c518c1049188c37a19a092 (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
57
58
59
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009-2010 - 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 2010",
      "// ====================================================================",
      "try",
      " getversion(""scilab"");",
      "catch",
      " warning(""Scilab 5.3 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;",
      "clear mdelete;",
      "// ===================================================================="
    ];

    mputl(cleaner, "cleaner.sce");

    chdir(oldpath);
endfunction