#################################################
class Master < MSG::Process
- # main : that function that will be executed when Running Simulation
+ # main : that function that will be executed when running simulation
+
def main(args) # args is an array containing arguments for function master
size = args.size
for i in 0..size-1
slaveCount = Integer(args[3])
# Creates and sends the tasks
- for i in 0..numberOfTask-1
+ for i in 0..numberOfTask-1
task = MSG::Task.new("Task_"+ i.to_s, taskComputeSize , taskCommunicationSize);
- mailbox = "slave " + (i%slaveCount).to_s
- MSG::info("Master Sending "+ MSG::Task.name(task) + " to " + mailbox + " with Comput Size " +
- MSG::Task.compSize(task).to_s)
-# task.compSize.to_s) # FIXME: This version creates a deadlock. Interesting
- MSG::Task.send(task,mailbox)
- MSG::info("Master Done Sending " +MSG::Task.name(task) + " to " + mailbox)
- end
+ mailbox = "slave " + (i%slaveCount).to_s
+ MSG::debug("Master Sending "+ task.name + " to " + mailbox + " with Comput Size " +
+ task.compSize.to_s)
+ task.send(mailbox)
+ MSG::debug("Master Done Sending " + task.name + " to " + mailbox)
+ end
# Sending Finalize MSG::Tasks
+ #MSG::info("Master: All "+numberOfTask+" tasks have been dispatched. Let's tell everybody the computation is over.")
MSG::info("Master: All tasks have been dispatched. Let's tell everybody the computation is over.")
for i in 0..slaveCount-1
mailbox = "slave " + i.to_s
- MSG::info("Master Sending Finalize to " + mailbox)
- MSG::Task.send(Task.new("finalize",0,0),mailbox)
+ finalize_task = Task.new("finalize",0,0)
+ finalize_task.send(mailbox)
end
MSG::info("Master : Everything's Done")
end
# Class Slave
#################################################
class Slave < MSG::Process
+
def main(args)
mailbox = "slave " + args[0]
+ for i in 0..args.size-1
+ MSG::debug("args["+String(i)+"]="+args[i])
+ end
while true
- info("Ready to Receive Task")
task = MSG::Task.receive(mailbox)
- task_name = MSG::Task.name(task)
- MSG::info("Task Received : " + task.name)
- if (task_name == "finalize")
- MSG::info("Slave" + s_mailbox + "got finalize msg")
+ if (task.name == "finalize")
break
end
- MSG::info("Slave " + s_mailbox + " ...Processing" + MSG::Task.name(task))
- MSG::Task.execute(task)
+ task.execute
+ MSG::debug("Slave '" + mailbox + "' done executing task "+ task.name + ".")
end
- MSG::info("Slave " + s_mailbox + "I'm Done , See You !!")
+ MSG::info("I'm done, see you")
end
end
-
#################################################
# main chunck
#################################################
MSG.deployApplication(ARGV[1])
else
MSG.createEnvironment("platform.xml")
- MSG.deployApplication("deploy2.xml")
- #Thread.list.each {|t| p t}
+ MSG.deployApplication("deploy.xml")
end
-# Thread.list.each {|t| p t}
MSG.run
-MSG.getClock #FIXME: write "puts MSG.getClock" instead
-# exit()
+puts "Simulation time : " + MSG.getClock .to_s
+MSG.exit