From: mquinson Date: Thu, 1 Apr 2010 14:51:33 +0000 (+0000) Subject: kill windows cruft. Should use tesh2 when it works instead of visualbasic shit X-Git-Tag: SVN~315 X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/0c2ff3268deebf7a4ccc059a3142ca129353f9e2 kill windows cruft. Should use tesh2 when it works instead of visualbasic shit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@7425 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- diff --git a/examples/gras/all2all/test_rl.vbs b/examples/gras/all2all/test_rl.vbs deleted file mode 100644 index 51e2fd6c9d..0000000000 --- a/examples/gras/all2all/test_rl.vbs +++ /dev/null @@ -1,24 +0,0 @@ -Dim oShell -Dim iExitCode - -Set oShell = WScript.CreateObject ("WSCript.shell") - - -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4000 5,1,false" -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4001 5,1,false" -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4002 5,1,false" -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4003 5,1,false" -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4004 5,1,false" - -WScript.Sleep 1000 - -cmd = "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_sender spinnaker.loria.fr:4000 spinnaker.loria.fr:4001 spinnaker.loria.fr:4002 spinnaker.loria.fr:4003 spinnaker.loria.fr:4004 512" - -iExitCode = oShell.run(cmd,1,False) -iExitCode = oShell.run(cmd,1,False) -iExitCode = oShell.run(cmd,1,False) -iExitCode = oShell.run(cmd,1,False) -iExitCode = oShell.run(cmd,1,False) - - -Set oShell = Nothing diff --git a/examples/gras/all2all/test_sg.vbs b/examples/gras/all2all/test_sg.vbs deleted file mode 100644 index ab5590bc6f..0000000000 --- a/examples/gras/all2all/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\all2all_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "all2all.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 - diff --git a/examples/gras/chrono/test_rl.vbs b/examples/gras/chrono/test_rl.vbs deleted file mode 100644 index 8b3a709058..0000000000 --- a/examples/gras/chrono/test_rl.vbs +++ /dev/null @@ -1,18 +0,0 @@ -Dim oShell -Dim iExitCode - -Set oShell = WScript.CreateObject ("WSCript.shell") - -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\chrono_multiplier",1,False) - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/chrono/test_sg.vbs b/examples/gras/chrono/test_sg.vbs deleted file mode 100644 index 61e5e38d04..0000000000 --- a/examples/gras/chrono/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\chrono_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "chrono.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 - diff --git a/examples/gras/mmrpc/test_rl.vbs b/examples/gras/mmrpc/test_rl.vbs deleted file mode 100644 index 3b44c23406..0000000000 --- a/examples/gras/mmrpc/test_rl.vbs +++ /dev/null @@ -1,20 +0,0 @@ -Dim oShell -Dim iExitCode - -Set oShell = WScript.CreateObject ("WSCript.shell") - -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_server 4002",1,False) -WScript.Sleep 1000 -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_client 127.0.0.1 4002",1,False) - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/mmrpc/test_sg.vbs b/examples/gras/mmrpc/test_sg.vbs deleted file mode 100644 index a8da2372e6..0000000000 --- a/examples/gras/mmrpc/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\mmrpc_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "mmrpc.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 - diff --git a/examples/gras/mutual_exclusion/simple_token/test_rl.vbs b/examples/gras/mutual_exclusion/simple_token/test_rl.vbs deleted file mode 100644 index d1f96fc0cd..0000000000 --- a/examples/gras/mutual_exclusion/simple_token/test_rl.vbs +++ /dev/null @@ -1,23 +0,0 @@ -Dim oShell -Dim iExitCode - -Set oShell = WScript.CreateObject ("WSCript.shell") - -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4000 127.0.0.1 4010 --create-token",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4010 127.0.0.1 4020",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4020 127.0.0.1 4030",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4030 127.0.0.1 4040",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4040 127.0.0.1 4050",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\simple_token_node 4050 127.0.0.1 4000",1,False) - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/mutual_exclusion/simple_token/test_sg.vbs b/examples/gras/mutual_exclusion/simple_token/test_sg.vbs deleted file mode 100644 index 8d5de0dea1..0000000000 --- a/examples/gras/mutual_exclusion/simple_token/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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 - diff --git a/examples/gras/p2p/can/test_rl.vbs b/examples/gras/p2p/can/test_rl.vbs deleted file mode 100644 index af360ccae0..0000000000 --- a/examples/gras/p2p/can/test_rl.vbs +++ /dev/null @@ -1,11 +0,0 @@ -Dim oShell - -Set oShell = WScript.CreateObject ("WSCript.shell") - -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\p2p\can\bin\_can_node 4002,1,false" - -WScript.Sleep 1000 - -oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\p2p\can\bin\_can_node 127.0.0.1 4002,1,false" - -Set oShell = Nothing \ No newline at end of file diff --git a/examples/gras/ping/test_rl.vbs b/examples/gras/ping/test_rl.vbs deleted file mode 100644 index 20bb0d1443..0000000000 --- a/examples/gras/ping/test_rl.vbs +++ /dev/null @@ -1,22 +0,0 @@ -Dim oShell -Dim iExitCode1 -Dim iExitCode2 - -Set oShell = WScript.CreateObject ("WSCript.shell") - -iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_server 4002",1,False) -'WScript.Sleep 1000 -iExitCode2 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_client 127.0.0.1 4002",1,False) - - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/ping/test_sg.vbs b/examples/gras/ping/test_sg.vbs deleted file mode 100644 index 346fcfd110..0000000000 --- a/examples/gras/ping/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\ping_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "ping.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 - diff --git a/examples/gras/pmm/test_rl.vbs b/examples/gras/pmm/test_rl.vbs deleted file mode 100644 index ccfbaa5eeb..0000000000 --- a/examples/gras/pmm/test_rl.vbs +++ /dev/null @@ -1,32 +0,0 @@ -Dim oShell -Dim iExitCode - -Set oShell = WScript.CreateObject ("WSCript.shell") - -'run the slaves - -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) -'iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False) - - -'run the master -iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_master 4242",1,False) - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/pmm/test_sg.vbs b/examples/gras/pmm/test_sg.vbs deleted file mode 100644 index 346fcfd110..0000000000 --- a/examples/gras/pmm/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\ping_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "ping.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 - diff --git a/examples/gras/rpc/test_rl.vbs b/examples/gras/rpc/test_rl.vbs deleted file mode 100644 index 5dac44a967..0000000000 --- a/examples/gras/rpc/test_rl.vbs +++ /dev/null @@ -1,23 +0,0 @@ -Dim oShell - -Set oShell = WScript.CreateObject ("WSCript.shell") - -oShell.run "cmd /K " & "bin\rpc_server.exe 4002,1,false" -WScript.Sleep 1000 -oShell.run "cmd /K " & "bin\rpc_forwarder.exe 4003 spinnaker.loria.fr 4002,1,false" -WScript.Sleep 1000 -oShell.run "cmd /K " & "bin\rpc_client.exe spinnaker.loria.fr 4002 spinnaker.loria.fr 4003,1,false" - -Set oShell = Nothing - - - -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/timer/test_rl.vbs b/examples/gras/timer/test_rl.vbs deleted file mode 100644 index cb8387d0fc..0000000000 --- a/examples/gras/timer/test_rl.vbs +++ /dev/null @@ -1,18 +0,0 @@ -Dim oShell -Dim iExitCode1 - -Set oShell = WScript.CreateObject ("WSCript.shell") - -iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\timer_client",1,False) - -Set oShell = Nothing - -'This function returns the current directory of the script -Function GetCurrentDirectory() - - Dim sScriptFullName - - sScriptFullName = WScript.ScriptFullName - GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\")) - -End Function diff --git a/examples/gras/timer/test_sg.vbs b/examples/gras/timer/test_sg.vbs deleted file mode 100644 index 4c023b00c5..0000000000 --- a/examples/gras/timer/test_sg.vbs +++ /dev/null @@ -1,29 +0,0 @@ -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\timer_simulator " & sInstallDirectory & "\simgrid\examples\msg\small_platform.xml " & sCurrentDirectory & "timer.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 -