CMSCOPE changed

1 files changed, 47 insertions, 0 deletions

diff --git a/Visual-Studio-settings/tovsexpress.sce b/Visual-Studio-settings/tovsexpress.sce
new file mode 100755
index 000000000..6ac31ff24
--- /dev/null
+++ b/Visual-Studio-settings/tovsexpress.sce
@@ -0,0 +1,47 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011-2012 - 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.1-en.txt
+// =============================================================================
+function generatef2csln(defaultSLNpath)
+
+    // generates scilab_f2c.sln from scilab.sln
+    // scilab_f2c.sln for visual studio express 2010
+
+    C_GUID = "{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}";
+    FORTRAN_GUID = "{6989167D-11E4-40FE-8C1A-2192A86A7E90}";
+    VFPROJ = "_f.vfproj";
+    VCPROJ = "_f2c.vcxproj";
+    SLN_NAME_F2C = "Scilab_f2c.sln";
+    SLN_NAME = "Scilab.sln";
+
+    if ~isdef("defaultSLNpath") then
+        defaultSLNpath = SCI;
+    else
+        if (type(defaultSLNpath) <> 10) then
+            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A String expected.\n"),"generatef2csln",1));
+        end
+    end
+
+    if ~isdir(defaultSLNpath) then
+        error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid path expected.\n"),"generatef2csln",1));
+    end
+
+    fullFilenameSLN = fullfile(defaultSLNpath, SLN_NAME);
+    if ~isfile(fullFilenameSLN) then
+        error(999, msprintf(gettext("%s: Wrong value for input argument #%d: %s not found.\n"),"generatef2csln",1,SLN_NAME));
+    end
+
+    SLN = mgetl(fullFilenameSLN);
+    F2CSLN = strsubst(SLN, FORTRAN_GUID, C_GUID);
+    F2CSLN = strsubst(F2CSLN, VFPROJ, VCPROJ);
+    mputl(F2CSLN, fullfile(defaultSLNpath, SLN_NAME_F2C));
+endfunction
+// =============================================================================
+// main
+generatef2csln();
+// =============================================================================