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 (file)
index 51e2fd6..0000000
--- 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 (file)
index ab5590b..0000000
--- 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 (file)
index 8b3a709..0000000
--- 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 (file)
index 61e5e38..0000000
--- 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 (file)
index 3b44c23..0000000
--- 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 (file)
index a8da237..0000000
--- 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 (file)
index d1f96fc..0000000
--- 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 (file)
index 8d5de0d..0000000
--- 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 (file)
index af360cc..0000000
--- 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 (file)
index 20bb0d1..0000000
--- 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 (file)
index 346fcfd..0000000
--- 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 (file)
index ccfbaa5..0000000
--- 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 (file)
index 346fcfd..0000000
--- 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 (file)
index 5dac44a..0000000
--- 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 (file)
index cb8387d..0000000
--- 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 (file)
index 4c023b0..0000000
--- 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
-