CMSCOPE changed

4 files changed, 62 insertions, 0 deletions

diff --git a/modules/windows_tools/macros/buildmacros.bat b/modules/windows_tools/macros/buildmacros.bat
new file mode 100755
index 000000000..c4e35ec40
--- /dev/null
+++ b/modules/windows_tools/macros/buildmacros.bat
@@ -0,0 +1 @@
+@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file
diff --git a/modules/windows_tools/macros/buildmacros.sce b/modules/windows_tools/macros/buildmacros.sce
new file mode 100755
index 000000000..73bc47e15
--- /dev/null
+++ b/modules/windows_tools/macros/buildmacros.sce
@@ -0,0 +1,16 @@
+//------------------------------------
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 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
+//------------------------------------
+if (isdef("genlib") == %f) then
+    exec(SCI+"/modules/functions/scripts/buildmacros/loadgenlib.sce");
+end
+//------------------------------------
+genlib("windows_toolslib","SCI/modules/windows_tools/macros",%f,%t);
+//------------------------------------
diff --git a/modules/windows_tools/macros/cleanmacros.bat b/modules/windows_tools/macros/cleanmacros.bat
new file mode 100755
index 000000000..5079dfd71
--- /dev/null
+++ b/modules/windows_tools/macros/cleanmacros.bat
@@ -0,0 +1,3 @@
+@del *.bin 2>NUL
+@del lib 2>NUL
+@del names 2>NUL
\ No newline at end of file
diff --git a/modules/windows_tools/macros/powershell.sci b/modules/windows_tools/macros/powershell.sci
new file mode 100755
index 000000000..c9c6f13d5
--- /dev/null
+++ b/modules/windows_tools/macros/powershell.sci
@@ -0,0 +1,42 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007 - INRIA - Allan CORNET
+// Copyright (C) 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.1-en.txt
+
+// start a command PowerShell
+function [resultat, status] = powershell(varargin)
+    Chainecmd = "";
+    Chainecmdbegin = "powershell.exe -nologo -inputformat text -outputformat text -Noninteractive ";
+    resultat = [gettext("Error(s) : see help powershell");gettext("Please verify your powershell command without Scilab.")];
+    status = %f;
+
+    [lhs, rhs] = argn(0);
+
+    if (getos() <> "Windows") then
+        resultat = [gettext("Only for Microsoft Windows.")];
+        return;
+    end
+
+    try
+        winqueryreg("HKEY_LOCAL_MACHINE", "SOFTWARE\Microsoft\PowerShell\1", "Install");
+    catch
+        resultat = [gettext("Powershell 1.0 not found.")];
+        return;
+    end
+
+    if (rhs == 1) then
+        if ( (type(varargin(1)) == 10) & and(size(varargin(1)) == [1 1]) ) then
+            Chainecmd = Chainecmdbegin + "-command """ + varargin(1) + """";
+            [resultat, status] = dos(Chainecmd);
+        else
+            error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "powershell", 1));
+        end
+    else
+        error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"), "powershell", 1));
+    end
+endfunction