+++ /dev/null
--- Copyright (c) 2011, 2013-2014. The SimGrid Team.
--- All rights reserved.
-
--- This program is free software; you can redistribute it and/or modify it
--- under the terms of the license (GNU LGPL) which comes with this package.
-
--- Slave Function ---------------------------------------------------------
-function Slave(...)
-
- if select("#", ...) ~= 1 then
- error("Wrong number of arguments (got " .. #arg .. ", expected 1: slave_id)")
- end
-
- local my_mailbox = "slave " .. select(1, ...)
- simgrid.info("Hello from lua, I'm a poor slave with mbox: " .. my_mailbox)
-
- while true do
-
- local task = simgrid.task.recv(my_mailbox);
- --print(task)
- local task_name = task:get_name()
- if (task:get_name() == "finalize") then
- simgrid.info("Slave '" .. my_mailbox .. "' got finalize msg");
- break
- end
- --local tk_name = simgrid.task.get_name(tk)
- simgrid.info("Slave '" .. my_mailbox .. "' processing " .. task:get_name())
- simgrid.task.execute(task)
- simgrid.info("Slave '" .. my_mailbox .. "': task " .. task:get_name() .. " done")
- end -- while
-
- simgrid.info("Slave '" .. my_mailbox .. "': I'm Done . See You !!");
-
-end
--- end_of_slave