* Bug 16365 fixed: median(m,'r'|'c') was wrong after 5dc990
[scilab.git] / scilab / Visual-Studio-settings / tovsexpress.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2011-2012 - DIGITEO - Allan CORNET
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12 // =============================================================================
13 function generatef2csln(defaultSLNpath)
14
15     // generates scilab_f2c.sln from scilab.sln
16     // scilab_f2c.sln for visual studio express 2010
17
18     C_GUID = "{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}";
19     FORTRAN_GUID = "{6989167D-11E4-40FE-8C1A-2192A86A7E90}";
20     VFPROJ = "_f.vfproj";
21     VCPROJ = "_f2c.vcxproj";
22     SLN_NAME_F2C = "Scilab_f2c.sln";
23     SLN_NAME = "Scilab.sln";
24
25     if ~isdef("defaultSLNpath") then
26         defaultSLNpath = SCI;
27     else
28         if (type(defaultSLNpath) <> 10) then
29             error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A String expected.\n"),"generatef2csln",1));
30         end
31     end
32
33     if ~isdir(defaultSLNpath) then
34         error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid path expected.\n"),"generatef2csln",1));
35     end
36
37     fullFilenameSLN = fullfile(defaultSLNpath, SLN_NAME);
38     if ~isfile(fullFilenameSLN) then
39         error(999, msprintf(gettext("%s: Wrong value for input argument #%d: %s not found.\n"),"generatef2csln",1,SLN_NAME));
40     end
41
42     SLN = mgetl(fullFilenameSLN);
43     F2CSLN = strsubst(SLN, FORTRAN_GUID, C_GUID);
44     F2CSLN = strsubst(F2CSLN, VFPROJ, VCPROJ);
45     mputl(F2CSLN, fullfile(defaultSLNpath, SLN_NAME_F2C));
46 endfunction
47 // =============================================================================
48 // main
49 generatef2csln();
50 // =============================================================================