1 -- Copyright (c) 2011, 2014. The SimGrid Team.
2 -- All rights reserved.
4 -- This program is free software; you can redistribute it and/or modify it
5 -- under the terms of the license (GNU LGPL) which comes with this package.
10 simgrid.info("Hello from lua, I'm the master")
11 for i,v in ipairs(arg) do
12 simgrid.info("Got "..v)
21 error("Argc should be 4");
23 simgrid.info("Argc="..(#arg).." (should be 4)")
28 tk = simgrid.task.new("Task "..i,comp_size,comm_size);
29 alias = "slave "..(i%slave_count);
30 simgrid.info("Master sending '" .. simgrid.task.get_name(tk) .."' To '" .. alias .."'");
31 simgrid.task.send(tk,alias); -- C user data set to NULL
32 simgrid.info("Master done sending '".. simgrid.task.get_name(tk) .."' To '" .. alias .."'");
35 -- Sending Finalize Message To Others
37 simgrid.info("Master: All tasks have been dispatched. Let's tell everybody the computation is over.");
38 for i=0,slave_count-1 do
40 simgrid.info("Master: sending finalize to "..alias);
41 finalize = simgrid.task.new("finalize",comp_size,comm_size);
42 simgrid.task.send(finalize,alias)
44 simgrid.info("Master: Everything's done.");