Странник
Posted 26.06.2013 - 13:07
Зачарователь
Добытчик дерева
Posted 27.06.2013 - 11:11
Главная
Форум
FAQ
Карта 
Статьи 
Wiki 
Галерея
local file=io[paste][/paste]open(cmd,"r") if not file then print("No such file") return false end local line=file:read() while line do if not shell[paste][/paste]run(line) then print("[paste][/paste][paste][/paste][paste][/paste]",line) break end line=file:read() end file:close()for line in io[paste][/paste]lines(cmd) do if not shell[paste][/paste]run(line) then error("Error in execution line", 2) endendВообще-то бред
Странник
Posted 27.06.2013 - 11:53
Это что за функция?io.line(cmd)
Добытчик дерева
Posted 27.06.2013 - 12:00
it = io[paste][/paste]lines(file)print(it())print(it())print(it())>первая строка >вторая строка >третья строка
Странник
Добытчик дерева
Posted 27.06.2013 - 16:04
function io[paste][/paste]lines(_file) local __file, _file = io[paste][/paste]open(_file), nil return coroutine[paste][/paste]wrap( function() repeat local _s = __file:read() coroutine[paste][/paste]yield(_s) until _s == nil __file:close() end )endЕсли в конце добавить
for line in io[paste][/paste]lines(os[paste][/paste]getRunningProgram()) do print(line)end, получится
Странник
Posted 28.06.2013 - 08:59
Странник
Posted 28.06.2013 - 09:08
Странник
Posted 28.06.2013 - 09:16
Похоже обычный sleep тормозит только вызывающую его функцию. Вот пример:Всем привет, как сделать задержку функции, но только одной, что бы все остальные работали.
function A() print('Begin of A') sleep(10) print('End of A')endfunction B() for i=1,10 do print('B is working') sleep(1) endendparallel[paste][/paste]waitForAll(A,B)
Странник
Posted 28.06.2013 - 09:31
Нет, я пробовал sleep, он тормозит всю программу.Похоже обычный sleep тормозит только вызывающую его функцию.
Зачарователь
Posted 28.06.2013 - 10:10
Добытчик дерева
Posted 28.06.2013 - 10:20
Просто удалил переменную. Никто в коде ошибки не заметилА зачем local __file, _file = io.open(_file), nil ? Почему не local __file = io.open(_file) ?
io[paste][/paste]open(_file)должно быть
io[paste][/paste]open(_file, "r")Самое интересное - всё работает.
Странник
Posted 28.06.2013 - 12:57
Если программа ожидает завершения функции, то разумеется, sleep внутри функции затормозит и программу. При параллельном выполнении такого быть не должно.sleep, он тормозит всю программу.
Странник
Posted 28.06.2013 - 21:24
local function a() sleep(5) shell[paste][/paste]run("file") endendlocal function b() event, m = os[paste][/paste]pullEvent("key") mp=30 if m==mp then shell[paste][/paste]run("file") endendwhile true do parallel[paste][/paste]waitForAll(a, b)end
Добытчик дерева
Posted 29.06.2013 - 01:30
local _time = os[paste][/paste]startTimer(5)repeat local event, p1 = os[paste][/paste]pullEvent()until (event == "key" and p1 == 30) or (event == "timer" and p1 == _timer)shell[paste][/paste]run("file")
Странник
Posted 29.06.2013 - 17:41
Не работает, просто завис комп...У меня норм работает. Я бы сделал так
local _time = os[paste][/paste]startTimer(5)repeat local event, p1 = os[paste][/paste]pullEvent()until (event == "key" and p1 == 30) or (event == "timer" and p1 == _timer)shell[paste][/paste]run("file")
Добытчик дерева
Странник
Posted 29.06.2013 - 18:41
Добытчик дерева
Posted 29.06.2013 - 19:18
local _time = os[paste][/paste]startTimer(5)local filewhile true do local e, p1 = os[paste][/paste]pullEvent() if e == "key" and p1 == 30 then file = "file1" break elseif e == "timer" and p1 == _time then file = "file2" break endendshell[paste][/paste]run(file)
0 members, 3 guests, 0 anonymous users
