Pausing A Program Using Coroutine Api

local pause = false
local runprogram = true
local pausekey = 123 -- I don't know the post key id
function programloop()
while runprogram do
  while not pause do -- do stuff when the program is not paused, you can replace this with anything, only the sleep(0) is important
   sleep(0)
  
   -- do turtle stuff
  
  end
  while pause do
   sleep(0)
  end
end
end
function waitforspace()
while runprogram do
  while not pause do
   local ev = {os.pullEvent("key")}
   if ev[2] == pausekey then
    pause = true
    break
   end
  end
  while pause do
   local ev = {os.pullEvent("key")}
   if ev[2] == pausekey then
    pause = false
    break
   end
  end
end
end
parallel.waitForAny(waitforspace, programloop)

ardera, on 18 November 2013 - 12:45 PM said:

My implementation of a pause functionality would be like that:

local pause = false
local runprogram = true
local pausekey = 123 -- I don't know the post key id
function programloop()
while runprogram do
  while not pause do -- do stuff when the program is not paused, you can replace this with anything, only the sleep(0) is important
   sleep(0)
  
   -- do turtle stuff
  
  end
  while pause do
   sleep(0)
  end
end
end
function waitforspace()
while runprogram do
  while not pause do
   local ev = {os.pullEvent("key")}
   if ev[2] == pausekey then
	pause = true
	break
   end
  end
  while pause do
   local ev = {os.pullEvent("key")}
   if ev[2] == pausekey then
	pause = false
	break
   end
  end
end
end
parallel.waitForAny(waitforspace, programloop)

function waitforspace() --# make another function to run along side to wait for a pause key
while runprogram do --# this is here so even while paused this will still run
  while not pause do --# if it is not paused continue
   local ev = {os.pullEvent("key")} --# capture a key press
   if ev[2] == pausekey then --# see if key was pause key
		pause = true --# pause program
		break
   end
  end
  while pause do --# if its paused run this loop because of the runprogram loop still running
   local ev = {os.pullEvent("key")} --# capture a key press
   if ev[2] == pausekey then --# see if key is pause key
		pause = false --#unpause it
		break
   end
  end
end
end

local pause,runprogram = false,true

function programloop()
  while runprogram do
    if pause then os.pullEvent("unpause") end

    -- Perform turtle tasks.
  end
end

function waitforspace()
  local ev
  while runprogram do
    ev = {os.pullEvent("key")}
    if ev[2] == keys.space then pause = not pause end
    if not pause then os.queueEvent("unpause") end
  end 
end

parallel.waitForAny(waitforspace, programloop)

Lyqyd, on 18 November 2013 - 06:04 PM said:

Instead of the above suggestions, you should create a program that manages the actual program in a coroutine. It would watch the events coming through, and when it saw the space key event come through, it would stop resuming the program, and keep track of any other events it received in a table, until it got the space key again. Then it would play back the stored events (so as not to miss any turtle movement events, but maybe you only want to store those and no others, up to you) and then resume cycling events into the controlled coroutine as usual. Trying to use parallel for this is like trying to put a square peg in a round hole.

local eventsCache = {}
local args = {...}
if #args < 1 then
  print("Usage:"
  print(fs.getName(shell.getRunningProgram()).." <program> [arguments]")
  return
end

local co = coroutine.create(function() shell.run(unpack(args)) end)
local paused = false
local event = {}
local filter

local function resume(ev)
  if coroutine.status(co) == "dead" then return false end
  if not filter or (filter and filter == ev[1]) or ev[1] == "terminate" then
    ret, filter = coroutine.resume(unpack(ev))
    return ret
  end
  return "skipped"
end

while true do
  if not paused then 
    if not resume(event) then return end
  else
    table.insert(eventCache, event)
  end
  event = {os.pullEventRaw()}
  if event[1] == "char" and event[2] == " " then
    paused = not paused
    if not paused then
    for i = 1, #eventCache do
      resume(table.remove(eventCache, 1))
    end
  end
end