1548 posts
That dark shadow under your bed...
463 posts
Germany
coroutine.create(function)coroutine.resume(thread)coroutine.state(thread)coroutine.yield(string)
1548 posts
That dark shadow under your bed...
mycoroutine=coroutine.create(print("test"))
coroutine.resume(mycoroutine)
992 posts
--[[
Windows style OS
With multi tasking
By Big Shiny Toys
]]--
local tFunck = {
taskMan = function()
local mywin = newWin("Task Man",20,12,1,1,"slim") -- "classic" "slim"
local h = 1
while true do
local i,i1,i2,i3,i4,i5 = coroutine.yield()
wSetCursorPos(mywin,1,1)
wPrint(mywin,"tasks :"..tostring(#routines).." win :"..tostring(#windata))
for i = 1, #routines do
h = h +1
wSetCursorPos(mywin,1,h)
wPrint(mywin,i.." :"..coroutine.status(routines[i]))
h = h +1
wSetCursorPos(mywin,1,h)
wPrint(mywin,tostring(coroutine.running(routines[i])))
end
h = 1
end
end,
move = function()
while true do
local win = 1
local i,i1,i2,i3,i4,i5 = coroutine.yield()
if i == "char" and i1 == "w" then
break
end
local winX,winY = location(win)
if i == "key" then
if i1 == 200 then -- up key
winY = winY-1
end
if i1 == 208 then -- down key
winY = winY+1
end
if i1 == 203 then -- left key
winX = winX-1
end
if i1 == 205 then -- right key
winX = winX+1
end
moveWin(win,winX,winY)
end
end
end,
cmd = function()
local wn = newWin("CMD",20,12,4,4,"slim") -- "classic" "slim"
wSetCursorPos(wn,1,1)
wPrint(wn,"test")
test = wRead(wn)
wSetCursorPos(wn,1,2)
wPrint(wn,test)
end
}
test = nil
-- start of OS --
windata = {} -- windata[1] = {} -- windata[1][1] = "Task Manager" windata[1][2] = xpos
local focused = 0
routines = {}
local border = ""
local border2 = ""
function newWin(name,xsiz,ysiz,xpos,ypos,style)
if style == "classic" or style == "slim" then
elseif style == nil then
style = "classic"
end
if xpos == nil or ypos == nil then
xpos,ypos = 1,1
end
if xsiz == nil or ysiz == nil then
xsiz,ysiz = 20,4
end
local maxn = #windata + 1
windata[maxn] = {}
windata[maxn][1] = tostring(name)
windata[maxn][2] = xpos
windata[maxn][3] = ypos
windata[maxn][4] = xsiz
windata[maxn][5] = ysiz
windata[maxn][6] = {}
-- windata[maxn][6][1] = {} -- y lines needs work
for y = 1, windata[maxn][5] do
windata[maxn][6][y] = {}
for x = 1, windata[maxn][4] do
windata[maxn][6][y][x] = " "
end
end
-- windata[maxn][6][1][1] = {} -- x lines needs work
windata[maxn][7] = style
windata[maxn][8] = 1 -- curX
windata[maxn][9] = 1 -- curY
return(maxn)
end
function wRead(win)
local temp = {}
local sIn = ""
local it,it1,it2,it3,it4,it5
while true do
it,it1,it2,it3,it4,it5 = coroutine.yield()
if i == "char" then
table.insert(temp,il)
end
if i == "key" then
if il == 28 then
break
end
if il == 14 then
if #temp < 0 then
else
table.remove(temp)
end
end
end
for i = 1, #temp do
sIn = sIn..temp[i]
end
end
return sIn
end
function wSetCursorPos(win,ax,ay)
windata[win][8] = ax
windata[win][9] = ay
end
function wPrint(win,inval)
for i = 1,string.len(inval) do
windata[win][6][windata[win][9]][windata[win][8]] = string.sub(inval,i,i)
windata[win][8] = windata[win][8]+1
if windata[win][8] == windata[win][4]+1 then
windata[win][8] = 1
windata[win][9] = windata[win][9]+1
end
end
end
local function draw(win)
local function safeWrite(this)
local termX,termY = term.getSize()
local curX,curY = term.getCursorPos()
if termX-curX-1 < 0 then
return
else
write (string.sub(this,1,termX-curX-1))
return
end
end
local wasx,wasy = term.getCursorPos()
local termX,termY = term.getSize()
if win == nil then
return
end
border = ""
border2 = ""
for q = 1, windata[win][4]+2 do
if q == 1 or q == windata[win][4]+2 then
border = border.."+"
else
border = border.."-"
end
end
for q = 1,windata[win][4]+2 do
if q == 1 or q == windata[win][4]+2 then
border2 = border2.."|"
else
border2 = border2.." "
end
end
if windata[win][7] == "classic" then
for i = 1, windata[win][5]+4 do
term.setCursorPos(windata[win][2],windata[win][3]+i-1)
if i == 1 or i == 3 or i == windata[win][5]+4 then
safeWrite(border) -- here
else
safeWrite(border2) -- here
end
end
term.setCursorPos(windata[win][2]+1,windata[win][3]+1)
safeWrite(string.sub(windata[win][1],1,windata[win][4]-1))
for y = 1, #windata[win][6] do
for x = 1, #windata[win][6][y] do
term.setCursorPos(windata[win][2]+x,windata[win][3]+y+2)
safeWrite(tostring(windata[win][6][y][x]))
end
end
term.setCursorPos(wasx,wasy)
elseif windata[win][7] == "slim" then
for i = 1, windata[win][5]+2 do
term.setCursorPos(windata[win][2],windata[win][3]+i-1)
if i == 1 or i == windata[win][5]+2 then
safeWrite(border) -- here
else
safeWrite(border2) -- here
end
end
term.setCursorPos(windata[win][2]+2,windata[win][3])
safeWrite(string.sub(windata[win][1],1,windata[win][4]-1)) -- here
for y = 1, #windata[win][6] do
for x = 1, #windata[win][6][y] do
term.setCursorPos(windata[win][2]+x,windata[win][3]+y)
safeWrite(tostring(windata[win][6][y][x]))
end
end
term.setCursorPos(wasx,wasy)
end
end
local function run(fFun)
local a = #routines+1
routines[a] = coroutine.create(tFunck[fFun])
end
function location(win)
if win == nil then
return
else
return windata[win][2],windata[win][3]
end
end
function moveWin(win,posx,posy)
if win == nil or posx == nil or posy == nil then
return
else
windata[win][2],windata[win][3] = posx,posy
end
end
--[[
local mywin = newWin("Hello World",40,7,1,1,"slim")
local mywin2 = newWin("Hello World",10,2,1,1,"slim")
local sel = 3
local tempX,tempY = location(mywin)
draw(mywin)
]]--
-- boot here --
run("taskMan")
run("move")
run("cmd")
-- end boot --
while true do
local e,e1,e2,e3,e4,e5 = os.pullEvent()
term.clear()
term.setCursorPos(1,1)
if e == "char" and e1 == "q" or e1 == "Q" then
break
end
for i = 1, #routines do
coroutine.resume(routines[i],e,e1,e2,e3,e4,e5)
end
for p = 1, #windata do
draw(p)
end
end
-- end os --
--[[
while true do -- test scrip
e,e1,e2,e3,e4,e5 = os.pullEvent()
if e == "char" then
if e1 == "w" then
sel = sel+1
if sel < 1 then sel = 3 end
if sel > 3 then sel = 1 end
tempX,tempY = location(sel)
end
end
if e == "key" then
if e1 == 200 then -- up
tempY = tempY-1
end
if e1 == 208 then -- down
tempY = tempY+1
end
if e1 == 203 then -- left
tempX = tempX-1
end
if e1 == 205 then -- right
tempX = tempX+1
end
end
if sel == 3 then
else
moveWin(sel,tempX,tempY)
end
term.clear()
draw(mywin2)
draw(mywin)
end
]]--
463 posts
Germany
No, because if you run a function (add the () to a function name to run it)) it will get the return of a function, not the function. if you want to print test in a coroutine then here is the code:Ok, so you saythen when you saymycoroutine=coroutine.create(print("test"))it prints 'test'?coroutine.resume(mycoroutine)
function theprint()
print("test")
end
local a=coroutine.create(theprint) --will give the function itself as a param, not the return
coroutine.resume(a) --will start the Thread a
right, you can terminate the shell, and terminate the bios and the Thread will run more.what is the point of that, can you include a loop and have it running while you run other programs?
yes, that can beand I think any other args you put into resume get put into the function somehow
1548 posts
That dark shadow under your bed...
1548 posts
That dark shadow under your bed...
local function go()
turtle.forward()
turtle.back()
end
local function mover()
while true do
turtle.forward()
turtle.back()
end
end
co=coroutine.create(go)
coroutine.resume(co)
co=coroutine.create(mover)
coroutine.resume(co)
1548 posts
That dark shadow under your bed...
Yes thats right
PS.: Nice picture :(/>/>
463 posts
Germany
Try to clear the co var, like co=nil and then try again… I don't know why it should stop the Thread…I got that far before but if I made the simple functions:local function go() turtle.forward() turtle.back() end local function mover() while true do turtle.forward() turtle.back() end end
and calledit moved forwards and ended successfullyco=coroutine.create(go) coroutine.resume(co)
andjust returned success and did nothingco=coroutine.create(mover) coroutine.resume(co)
1548 posts
That dark shadow under your bed...
839 posts
England
I got that far before but if I made the simple functions:local function go() turtle.forward() turtle.back() end local function mover() while true do turtle.forward() turtle.back() end end
and calledit moved forwards and ended successfullyco=coroutine.create(go) coroutine.resume(co)
andjust returned success and did nothingco=coroutine.create(mover) coroutine.resume(co)
1548 posts
That dark shadow under your bed...
839 posts
England
You do realise you never actually started mover right?yeah but the first one when called just moved forward, that is noticeable, the second one maybe you're right, but it ended the thread, said it ended successfully…. makes 0 sense
second one resumes co, not mover.co=coroutine.create(go) coroutine.resume(co)co=coroutine.create(mover) coroutine.resume(co)
1548 posts
That dark shadow under your bed...
co=coroutine.create(mover)
coroutine.resume(co)
839 posts
England
What are you using to test it's return value?no, take another look, I restarted the PC and then ranco=coroutine.create(mover) coroutine.resume(co)
which redefines co as the coroutine/thread of mover
1548 posts
That dark shadow under your bed...
for _,w in pairs({coroutine.resume(co)}) do
print(w)
end
839 posts
England
In that case I know your problem.you just call it in the lua prompt and it prints out all output or you can run it like thisI haven't tried the second method but it's something I thought aboutfor _,w in pairs({coroutine.resume(co)}) do print(w) end
1548 posts
That dark shadow under your bed...
839 posts
England
Hang on, I have just realised the obvious.yes but there is a long delay in moving forwards and backwards isn't there? long enough to prevent a yield error and that still doesn't explain why the first function only moves forward
1548 posts
That dark shadow under your bed...
839 posts
England
In that case your coroutines are just being weird.um dude…. there is…. I am running CC 1.3 and it works, I just did it right now
1548 posts
That dark shadow under your bed...
function mover()
while true do
turtle.forward()
turtle.back()
end
end
test=coroutine.create(mover)
true
turtle_response
992 posts
local function mover()
while true do
sleep(0.1) -- this creats a yeild point
turtle.forward()
turtle.back()
end
end
local function userInput()
while true do
term.clear()
term.setCursorPos(1,1)
local input = read()
end
end
local function rednetCon()
while true do
local event,id,sender = os.pullEvent()
if event == "rednet_message" then
turtle.turnLeft()
local curX,curY = term.getCurosrPos()
term.setCursorPos(1,3)
print("rednet message")
term.setCursorPos(curX,curY)
end
end
end
rednet.open("right")
local threads = {}
table.insert(threads,coroutine.create(mover))
table.insert(threads,coroutine.create(userInput))
table.insert(threads,coroutine.create(rednetCon))
while true do
local tEvents = {os.pullEvent()}
for i = 1,#threads do
coroutine.resume(threads[i],unpack(tEvents))
end
end
1548 posts
That dark shadow under your bed...
1548 posts
That dark shadow under your bed...
coroutine.resume(co,unpack({os.pullEvent()}))
1604 posts
local function f1()
print("Hello")
end
local function f2()
while true do
print("Hello!")
coroutine.yield()
print("Some other message here...")
end
end
local co = coroutine.create(f1)
coroutine.resume(co)
co = coroutine.create(f2)
coroutine.resume(co)
print("Hello to you")
sleep(1)
while coroutine.status(co) ~= "dead" do
coroutine.resume(co)
sleep(1)
end
Hello
Hello!
Hello to you
Some other message here...
Hello!
Some other message here...
Hello!
Some other message here...
...
1548 posts
That dark shadow under your bed...
8543 posts
Hang on, I have just realised the obvious.yes but there is a long delay in moving forwards and backwards isn't there? long enough to prevent a yield error and that still doesn't explain why the first function only moves forward
THERE IS NO TURTLE.BACK()
1548 posts
That dark shadow under your bed...
2447 posts
Hmm I wonder if turtle.native.back() yields
1548 posts
That dark shadow under your bed...
445 posts
haha well IIRC the native commands queue-up so if you call it 10 times it wll move 10 times now since it probably moves slower than once every 0.1 seconds they pile upyeah, it's actually quite interesting, if you make a function that uses native movements to make a turtle move in a loop without any sleep(0.1) and then launch it with the coroutines it works and eventually aborts due to too much time without yielding but the turtle keeps moving, you can shut the turtle down and it keeps moving… very strange right?
3790 posts
Lincoln, Nebraska
1548 posts
That dark shadow under your bed...
2447 posts
2447 posts
WAIT A SECOND!!!
Thank you cloudy, you are now my hero lol, with this we can make functions that continue after exit, I will never lose a turtle in a mine again B)/>/> I can't believe I never thought of this
1548 posts
That dark shadow under your bed...