From 6c4f0b9ab9bbef077a979773d50bf35b8c08eca9 Mon Sep 17 00:00:00 2001 From: cherierm Date: Fri, 13 Apr 2007 09:32:55 +0000 Subject: [PATCH] a script of the sg test on windows git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3408 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- .../mutual_exclusion/simple_token/test_sg.vbs | 29 +++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 examples/gras/mutual_exclusion/simple_token/test_sg.vbs diff --git a/examples/gras/mutual_exclusion/simple_token/test_sg.vbs b/examples/gras/mutual_exclusion/simple_token/test_sg.vbs new file mode 100644 index 0000000000..8d5de0dea1 --- /dev/null +++ b/examples/gras/mutual_exclusion/simple_token/test_sg.vbs @@ -0,0 +1,29 @@ +Dim oShell +Dim sInstallDirectory ' The install directory of the simulator Simgrid +Dim sCurrentDirectory ' The current directory of the script +Dim sCommandLine ' The command line of the application to launch +Dim iExitCode ' The exit code of the application to launch + +Set oShell = WScript.CreateObject ("WSCript.shell") +Set oUseEnv = oShell.Environment("USER") + +' Get the install directory of Simgrid from the environment variable SG_INSTALL_DIR +sInstallDirectory = oUseEnv("SG_INSTALL_DIR") +sCurrentDirectory = GetCurrentDirectory() +' Construct the command line of the application to launch +sCommandLine = "cmd /K " & sCurrentDirectory & "bin\simple_token_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "simple_token.xml" + +iRetVal = oShell.run(sCommandLine,1,True) + +Set oShell = Nothing +Set oWshShell = Nothing + +' This function returns the directory of the script +Function GetCurrentDirectory() + Dim sScriptFullName + + sScriptFullName = WScript.ScriptFullName + GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) + +End Function + -- 2.20.1