From: Christophe ThiƩry Date: Tue, 8 Nov 2011 09:48:40 +0000 (+0100) Subject: These files have nothing to do here X-Git-Tag: exp_20120216~436 X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/8c3462c8bb7fb8cd5d73b25eb67bee75dafca7aa?ds=inline These files have nothing to do here --- diff --git a/src/bindings/lua/master_slave.lua b/src/bindings/lua/master_slave.lua deleted file mode 100644 index 248d8c842f..0000000000 --- a/src/bindings/lua/master_slave.lua +++ /dev/null @@ -1,83 +0,0 @@ - ---Master Function -function Master(...) - -simgrid.info("Hello from lua, I'm the master") -for i,v in ipairs(arg) do - simgrid.info("Got "..v) -end - -nb_task = arg[1]; -comp_size = arg[2]; -comm_size = arg[3]; -slave_count = arg[4] - -if (#arg ~= 4) then - error("Argc should be 4"); -end -simgrid.info("Argc="..(#arg).." (should be 4)") - --- Dispatch the tasks - -for i=1,nb_task do - tk = simgrid.Task.new("Task "..i,comp_size,comm_size); - alias = "slave "..(i%slave_count); - simgrid.info("Master sending '" .. simgrid.Task.name(tk) .."' To '" .. alias .."'"); - simgrid.Task.send(tk,alias); -- C user data set to NULL - simgrid.info("Master done sending '".. simgrid.Task.name(tk) .."' To '" .. alias .."'"); -end - --- Sending Finalize Message To Others - -simgrid.info("Master: All tasks have been dispatched. Let's tell everybody the computation is over."); -for i=0,slave_count-1 do - alias = "slave "..i; - simgrid.info("Master: sending finalize to "..alias); - simgrid.Task.send(simgrid.Task.new("finalize",0,0),alias); -end -simgrid.info("Master: Everything's done."); - - -end - --- Slave Function --------------------------------------------------------- -function Slave(...) - -local my_mailbox="slave "..arg[1] -simgrid.info("Hello from lua, I'm a poor slave with mbox: "..my_mailbox) - - -while true do --- tk = simgrid.Task.new("",0,0); --?? --- simgrid.Task.recv2(tk,my_mailbox); - local tk = simgrid.Task.recv(my_mailbox); - - local tk_name = simgrid.Task.name(tk) - - if (tk_name == "finalize") then - simgrid.info("Slave '" ..my_mailbox.."' got finalize msg"); - break - end - - simgrid.info("Slave '" ..my_mailbox.."' processing "..simgrid.Task.name(tk)) - simgrid.Task.execute(tk); - - simgrid.info("Slave '" ..my_mailbox.."': task "..simgrid.Task.name(tk) .. " done") -end -- while - -simgrid.info("Slave '" ..my_mailbox.."': I'm Done . See You !!"); - -end -- function ---------------------------------------------------------- ---]] - -function doyield() - coroutine.yield() -end - -require "simgrid" - -simgrid.platform("../../../examples/msg/small_platform.xml") -simgrid.application("../ruby/deploy.xml") -simgrid.run() -simgrid.info("Simulation's over. See you.") -simgrid.clean() \ No newline at end of file diff --git a/src/bindings/lua/mult_matrix.lua b/src/bindings/lua/mult_matrix.lua deleted file mode 100644 index 755e6659b0..0000000000 --- a/src/bindings/lua/mult_matrix.lua +++ /dev/null @@ -1,100 +0,0 @@ -function Sender(...) - - simgrid.info("Hello From Sender") - receiver = simgrid.Host.getByName(arg[1]) - task_comp = arg[2] - task_comm = arg[3] - rec_alias = arg[4] - - size = 4 - m1 = mkmatrix(size, size) - m2 = mkmatrix(size, size) - - if (#arg ~= 4) then - error("Argc should be 4"); - end - simgrid.info("Argc="..(#arg).." (should be 4)") - - -- Sending Task - task = simgrid.Task.new("matrix_task",task_comp,task_comm); - task['matrix_1'] = m1; - task['matrix_2'] = m2; - task['size'] = size; - simgrid.info("Sending "..simgrid.Task.name(task).." to "..simgrid.Host.name(receiver)); - simgrid.Task.send(task,rec_alias); - simgrid.info("Done Sending "..simgrid.Task.name(task)); - mm = task['matrix_res'] - simgrid.info("Receiving the Multiplication result of my two matrix :"); - mprint(size,size,mm); - -end ------------------------------------------------------- -function Receiver(...) - - simgrid.info("Hello From Receiver") - sender = simgrid.Host.getByName(arg[1]) - send_alias = arg[2] - simgrid.info("Sending to alias "..send_alias) - recv_alias = "Receiver"; - simgrid.info("Receiving The Matrix..."); - task = simgrid.Task.recv(recv_alias); - mm = mmult(task['size'],task['size'],task['matrix_1'],task['matrix_2']); - --mprint(task['size'],task['size'],mm) - task['matrix_res'] = mm; - simgrid.info("Calcul is done ... Bye"); - - -end ------------------------------------------------------ - -local n = tonumber((arg and arg[1]) or 1) - - - -function mkmatrix(rows, cols) - local count = 1 - local mx = {} - for i=0,(rows - 1) do - local row = {} - for j=0,(cols - 1) do - row[j] = count - count = count + 1 - end - mx[i] = row - end - return(mx) -end - -function mmult(rows, cols, m1, m2) - local m3 = {} - for i=0,(rows-1) do - m3[i] = {} - for j=0,(cols-1) do - local rowj = 0 - for k=0,(cols-1) do - rowj = rowj + m1[i][k] * m2[k][j] - end - m3[i][j] = rowj - end - end - return(m3) -end - -function mprint(rows,cols,m) - for i=0,(cols-1)do - for j=0,(rows-1)do - print (m[i][j]) - end - end -end - - ---end -require "simgrid" -simgrid.platform("../ruby/quicksort_platform.xml") -simgrid.application("../ruby/quicksort_deployment.xml") -simgrid.run() -simgrid.info("Simulation's over.See you.") -simgrid.clean() - -