51c872a87452e0b5db78e5d8787025c2c76c7850
[scilab.git] / scilab / tools / innosetup / code_modules.iss
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) DIGITEO - 2010 - Allan CORNET
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 //
11 //------------------------------------------------------------------------------
12 // Inno Setup Script (5.3 and more) for Scilab (UNICODE version required)
13 //
14 //------------------------------------------------------------------------------
15 function CreateModulesFile: Boolean;
16     Var ModuleFileName : String;
17     i : Integer;
18     d : Integer;
19     ModulesXmlFileLines: TArrayOfString;
20     begin
21         i := 0;
22
23         setArrayLength(ModulesXmlFileLines, 256);
24         for d := 0 to GetArrayLength(ModulesXmlFileLines)-1 do
25           begin
26             ModulesXmlFileLines[d] := '';
27           end;
28
29         ModuleFileName := ExpandConstant('{app}') +'\etc\modules.xml';
30
31         ModulesXmlFileLines[i] := '<?xml version="1.0" encoding="UTF-8" standalone="no"?>'; i := i + 1;
32         ModulesXmlFileLines[i] := '<!DOCTYPE modules SYSTEM "../modules/core/xml/modules.dtd">'; i := i + 1;
33         ModulesXmlFileLines[i] := '<!-- =================== -->'; i := i + 1;
34         ModulesXmlFileLines[i] := '<!--'; i := i + 1;
35         ModulesXmlFileLines[i] := ' Modules list for Scilab'; i := i + 1;
36         ModulesXmlFileLines[i] := ' @author Allan CORNET'; i := i + 1;
37         ModulesXmlFileLines[i] := ' @date DIGITEO 2010'; i := i + 1;
38         ModulesXmlFileLines[i] := ' ==================='; i := i + 1;
39         ModulesXmlFileLines[i] := ' Do not touch if you do not know what you are doing'; i := i + 1;
40         ModulesXmlFileLines[i] := ' Warning "core" module must be always the first module'; i := i + 1;
41         ModulesXmlFileLines[i] := ' activate="yes" module will be launched ( or not "no")'; i := i + 1;
42         ModulesXmlFileLines[i] := ' -->'; i := i + 1;
43         ModulesXmlFileLines[i] := '<!-- =================== -->'; i := i + 1;
44         ModulesXmlFileLines[i] := '<modules>'; i := i + 1;
45
46         ModulesXmlFileLines[i] := '<module name="core" activate="yes"/>'; i := i + 1;
47         ModulesXmlFileLines[i] := '<module name="types" activate="yes"/>'; i := i + 1;
48         ModulesXmlFileLines[i] := '<module name="double" activate="yes"/>'; i := i + 1;
49         ModulesXmlFileLines[i] := '<module name="elementary_functions" activate="yes"/>'; i := i + 1;
50         ModulesXmlFileLines[i] := '<module name="boolean" activate="yes"/>'; i := i + 1;
51         ModulesXmlFileLines[i] := '<module name="integer" activate="yes"/>'; i := i + 1;
52         ModulesXmlFileLines[i] := '<module name="io" activate="yes"/>'; i := i + 1;
53         ModulesXmlFileLines[i] := '<module name="functions" activate="yes"/>'; i := i + 1;
54         ModulesXmlFileLines[i] := '<module name="output_stream" activate="yes"/>'; i := i + 1;
55         ModulesXmlFileLines[i] := '<module name="matio" activate="yes"/>'; i := i + 1;
56         ModulesXmlFileLines[i] := '<module name="fileio" activate="yes"/>'; i := i + 1;
57         ModulesXmlFileLines[i] := '<module name="development_tools" activate="yes"/>'; i := i + 1;
58         ModulesXmlFileLines[i] := '<module name="gui" activate="yes"/>'; i := i + 1;
59         ModulesXmlFileLines[i] := '<module name="time" activate="yes"/>'; i := i + 1;
60         ModulesXmlFileLines[i] := '<module name="overloading" activate="yes"/>'; i := i + 1;
61         ModulesXmlFileLines[i] := '<module name="string" activate="yes"/>'; i := i + 1;
62         ModulesXmlFileLines[i] := '<module name="scinotes" activate="yes"/>'; i := i + 1;
63         ModulesXmlFileLines[i] := '<module name="data_structures" activate="yes"/>'; i := i + 1;
64         ModulesXmlFileLines[i] := '<module name="localization" activate="yes"/>'; i := i + 1;
65         ModulesXmlFileLines[i] := '<module name="windows_tools" activate="yes"/>'; i := i + 1;
66         ModulesXmlFileLines[i] := '<module name="jvm" activate="yes"/>'; i := i + 1;
67         ModulesXmlFileLines[i] := '<module name="helptools" activate="yes"/>'; i := i + 1;
68         ModulesXmlFileLines[i] := '<module name="hdf5" activate="yes"/>'; i := i + 1;
69         ModulesXmlFileLines[i] := '<module name="dynamic_link" activate="yes"/>'; i := i + 1;
70         ModulesXmlFileLines[i] := '<module name="action_binding" activate="yes"/>'; i := i + 1;
71         ModulesXmlFileLines[i] := '<module name="mexlib" activate="yes"/>'; i := i + 1;
72         ModulesXmlFileLines[i] := '<module name="history_manager" activate="yes"/>'; i := i + 1;
73         ModulesXmlFileLines[i] := '<module name="console" activate="yes"/>'; i := i + 1;
74         ModulesXmlFileLines[i] := '<module name="modules_manager" activate="yes"/>'; i := i + 1;
75         ModulesXmlFileLines[i] := '<module name="signal_processing" activate="yes"/>'; i := i + 1;
76         ModulesXmlFileLines[i] := '<module name="linear_algebra" activate="yes"/>'; i := i + 1;
77         ModulesXmlFileLines[i] := '<module name="statistics" activate="yes"/>'; i := i + 1;
78         ModulesXmlFileLines[i] := '<module name="javasci" activate="yes"/>'; i := i + 1;
79                 ModulesXmlFileLines[i] := '<module name="operations" activate="yes"/>'; i := i + 1;
80
81         ModulesXmlFileLines[i] := '</modules>'; i := i + 1;
82
83     Result := SaveStringsToFile(ModuleFileName, ModulesXmlFileLines, False);
84
85     end;
86 //------------------------------------------------------------------------------