From: cherierm <cherierm@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Fri, 13 Apr 2007 09:30:06 +0000 (+0000)
Subject: a script to launch the rl test on Windows
X-Git-Tag: v3.3~1955
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/d888500227e4cbf0fbe2c24ff90241027975d273

a script to launch the rl test on Windows


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3405 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/examples/gras/chrono/test_rl.vbs b/examples/gras/chrono/test_rl.vbs
new file mode 100644
index 0000000000..8b3a709058
--- /dev/null
+++ b/examples/gras/chrono/test_rl.vbs
@@ -0,0 +1,18 @@
+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/mmrpc/test_rl.vbs b/examples/gras/mmrpc/test_rl.vbs
new file mode 100644
index 0000000000..3b44c23406
--- /dev/null
+++ b/examples/gras/mmrpc/test_rl.vbs
@@ -0,0 +1,20 @@
+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