swg2you

Тебя ждет неприятный сюрприз на сервере, когда твои часики начнут выкидывать околорандомные цифры, потому что на сервере ход времени зависит от лагов.

Нас обычно спасает костыль получения времени через последнюю дату изменения файла - единственный путь в ОС, которым можно узнать реальное время, а не игровое.

Думаю для параллельных вселенных движущихся относительно нас с неравномерной скоростью это норма )

Всегда можно повысить частоту опроса написав local e={computer.pullSignal(.05)}, но в этом случае не лишним будет добавить условие, и выводить время только если оно изменилось,

local ot=''
while true do
  local e={computer.pullSignal(.05)}
  local t=os.date('!%R')
  if t~=ot then
    prnto(1,1,t)
    ot=t
  end
  --...
end

чтобы избежать неоправданных трат драгоценной энергии.

Задумал я значится в своей программульке часики в углу выводить, куда ж без них.

Пишу такой

while true do
  local e={computer.pullSignal(1)}
  prnto(1,1,os.date('!%R'))
  --...
end

ан, нет. Часики то выводятся, но минутки иногда проскакивают через одну. Как оказалось, игровая минута вовсе не равна игровой секунде.

while true do
  local e={computer.pullSignal(.833)}
  prnto(1,1,os.date('!%R'))
  --...
end

а вот так намного лучше.

Изменена строка установки, теперь она выглядит так:

on=component.modem;e=event;on.open(1)on.broadcast(1,"","","getip")function m()r={e.pull(10,"modem_message")}end;m()ud="update"ip=r[6]function sv()on.send(r[3],1,ud,ip,ud,"getFile","client/"..p)m()filesystem.makeDirectory(filesystem.path(p))f=io.open(p,"w")f:write(r[8])f:close()end p="lib/opennet.lua"sv()p="on/update.lua"sv()loadfile(p)("install")

Не зная логики сервера полагаю, что можно сделать как-то так:

M=component.modem;M.open(1)M.broadcast(1,"","","getip")E=load('R={event.pull(10,"modem_message")}')U="update"E()M.send(R[3],1,U,R[6],U,"getFile","client/boot")E()load(R[8])()

--и развернуто
M=component.modem;
M.open(1)
M.broadcast(1,"","","getip")
E=load('R={event.pull(10,"modem_message")}')
U="update"
E()
M.send(R[3],1,U,R[6],U,"getFile","client/boot")
E()
load(R[8])()

В смысле грузить код из "boot" а в нем уже творить все остальное.

ЗЫ

Интерфейс консоли сервера зачотный

    _/_/_/_/  _/_/_/_/  _/_/_/_/  _/_/_/        _/_/       _/_/
   _/    _/  _/        _/        _/    _/    _/    _/   _/    _/
  _/    _/  _/        _/_/_/    _/_/_/      _/    _/   _/    _/
 _/    _/  _/        _/        _/    _/    _/    _/   _/    _/
_/    _/  _/_/_/_/  _/_/_/_/  _/_/_/_/  _/_/_/_/_/_/   _/_/
                                       _/        _/

     _/_/_/_/  _/_/_/      _/_/_/      _/      _/    _/  _/    _/    _/_/_/
    _/        _/    _/  _/    _/  _/_/_/_/_/  _/    _/  _/    _/  _/    _/
   _/        _/_/_/    _/_/_/_/  _/  _/  _/  _/  _/_/  _/_/_/    _/_/_/_/
  _/        _/        _/    _/  _/_/_/_/_/  _/_/  _/  _/    _/  _/    _/
 _/        _/        _/    _/      _/      _/    _/  _/    _/  _/    _/

рулит

Нет, к сожалению такого режима у робота нет. Он движется "линейно", углубляя шахту дальше и дальше, и назад не возвращается. Поэтому он оставляет сундуки по сторонам своей шахты.

 

P.S. Обновил первый пост. Теперь там есть ссылка на последнюю версию программы.

Спираль красивее линии

>Вот это - явно какое то шаманство и запрещенные техники. Я такого еще никогда за 2 года программирования на Lua не видел.

>Кстати, твой код всё еще можно уменьшить не изменив функционал.

А вот здесь поподробней пожалуйста.

Привет all. (после публикации заметил ошибку в названии темы и тегах, код для OpenComputers а не для ComputerCraft, я их постоянно путаю)

код 204 байта:

_=component;m=_.proxy(_.list('modem')())m.open(7)u=table.unpack::r::e={computer.pullSignal()}if e[1]=='modem_message'then;_={load(e[6])}if _[1]then;_={pcall(_[1],u(e,7))}end;m.send(e[3],7,u(_));end;goto r

или код 231 байт:

::r::pcall(load("_=component;m=_.proxy(_.list('modem')())m.open(7)u=table.unpack::r::e={computer.pullSignal()}if e[1]=='modem_message'then;_={load(e[6])}if _[1]then;_={pcall(_[1],u(e,7))}end;m.send(e[3],7,u(_));end;goto r"));goto r

Записать в EEPROM любого устройства имеющего сетевую карту, и включить устройство.

На отдельном компьютере выполняющем роль сервера выполнить код примера:

modem.open(7)
modem.broadcast(7, "return 'Hello ',  _VERSION,  ...", true, 42, 'bebebe')

Прочитать ответ от модема, и понять что произошло.

=============================================

Дополнительные примеры:

1. broadcast(7, 'bebebe')
2. broadcast(7, 'bebebe()')
3. broadcast(7, 'return {}') 
4. broadcast(7, true)
5. broadcast(7)
6. broadcast(7, 'return computer.pullSignal()' )
7. code=[[ --my super puper long program nice code ]]; broadcast(7, сode)
8. broadcast(7, 'component.proxy(component.list("eeprom")()).set(...)', codeforflashing)
9. и прочие извращения

1,2 покажут обработку ошибок на стадии компиляции и выполнения; 3,4,5 покажут различие в коде 204 и 231 и ограничения передачи данных; 6,... - некоторые возможности

Для самых бегемотов:

1. Можно Хранить код 204 в setData
2. Можно добавить аутентиикацию, чтоб вражина за стенкой не broadcast-ил нам тут с планшета
3. Можно построить SCADA-систему из дронов, роботов, контроллеров и компьютеров.
4. Что-то еще...

ЗЫ

mods/OpenComputers-MC1.7.10-1.5.12.26-universal.jar

примеры не проверял, писал здесь сходу.

... всякие нетривиальные изменения кода в пользу компактности и эстетической красоты строк. Как картину рисовать.

...

В твоем случае подойдет парсинг кода.

...

Код — это поэзия!

Я думал реализовать что-то подобное в отдельной утилите. Убирать форматирование/комментарии, заменять имена переменных/функций на короткие (при включении сжатия с потерями), заменять повторяющиеся части ссылками на словарь и сохранять результат упаковки в файл вместе с кодом распаковки. Этакий UPX для Lua.

К теме сжимателей.

http://oc.cil.li/index.php?/topic/511-crunch-break-the-4k-limit/

Любопытный код. Спасибо за ссылку. 

local a,b=1,2

local c,d=load('return a,b')

print©;--print (  c  )

print(d)

 

 

то есть думаю в итоге local e,f,_,k,env = load('return a','return b', '', 't', _ENV)

Основная мысль в том, что количество возвращаемых переменных в присвоении должно равняться. Если значение не нужно, можно его пропустить символом _.

load (ld [, source [, mode [, env]]]) это стандартная функция Lua, которая берет переданную ей текстовую строчку с кодом, и если в нем нет ошибок - возвращает скомпилированный чанк в виде функции содержащей этот код.

Т.е. код 

  local f = load('return a, b') 

эквивалентен объявлению

за тем исключением, что функция созданная с помощью load получает свое собственное локальное окружение и перестает видеть локальные переменные a и b объявленные в основном коде.

Loadfile не поможет. Мой код выполняется из eeprom когда loadfile еще не существует. Я сегодня пол дня потратил на исследования и поиски решения )

Пожалуйста!

 

Не, ну правда, что за задача? Мне даже интересно стало, что тебя привело к такому продвинутому вопросу?

Да увлекся lua и играю с кодом. Пишу пока непонятно что, и в этом непонятно чём есть обработка событий от клавиатуры.

Но код вида:

local e = {computer.pullSignal()}
if e[1] == 'key_down' then
  if e[4] == 28 then  
    cls(); t=t["os"] 
  elseif e[4] == 208 then 
    cy=cy+1
  elseif e[4] == 200 then 
    cy=cy-1
  elseif e[4] == 41 then 
    computer.shutdown(true)
  end
end

громоздкий и некрасивый, на мой взгляд.

Lua позволяет сделать это красивее и компактней, поэтому обработчик был переписан:

local k = {
  [41] = function () computer.shutdown(true) end; 
  [208] = function () cy=cy+1 end; 
  [200] = function () cy=cy-1 end; 
  [28] = function () cls(); t=t["os"] end;
}
 
local e = {computer.pullSignal()}
if e[1] == 'key_down' and k[e[4]] then k[e[4]]() end

который мне тоже не понравился своей избыточностью.

Ладно если у нас 3-4 кнопочки должны обрабатываться, а если больше? Для каждой кнопочки писать "function ()" и "end" - непозволительная трата байтов.

Поэтому код был переписан так:

local k = {
  [41] = 'computer.shutdown(true)'; 
  [208] = 'cy=cy+1'; 
  [200] = 'cy=cy-1'; 
  [28] = 'cls(); t=t["os"]';
}
for i,s in pairs(k) do k[i]=load(s) end
 
local e = {computer.pullSignal()}
if e[1] == 'key_down' and k[e[4]] then k[e[4]]() end

что экономило бы по десятку байт на каждую следующую кнопочку.

Но тут я столкнулся с проблемой. Чанки загруженные с помощью load(s) теряли связь с локальным окружением.

У меня был точно такой же вопрос где то месяц назад, когда я хотел сделать точки останова в коде.

 

Я долго рылся в интернете, расспрашивал всех знакомых программеров. Смог только выяснить, что все локальные переменные являются так называемыми upvalue. Но функции получения upvalue доступны только из стандартных функций луа debug, которые в ОС отключены.

 

Так что ответ - никак.

Печально. Отличный инструмент оказался неработоспособным.

Спасибо за содержательный ответ.

local a,b=1,2

local c,d=load('return a,b')

print©;--print (  c  )

print(d)

И что это даст?

Вопрос исследуется из спортивного интереса, или есть какая-то конкретная задача, где без этого не обойтись?

Конкретная задача.

q all

есть следующий код:

a = 1; local b = 2
local f = load('return a, b')
print(f())

который дает вывод:

1      nil

а нужно:

1      2

как сделать, чтобы функция f видела локальную переменную b ?

upd: это в OpenComputers, т.е. Lua 5.2

upd2:

теоретически нужно при загрузке чанка указать окружение, что-то вроде: local f = load('return a, b', '', 't', _ENV)

но трабла в том, что _ENV это ни разу не локальное окружение. print(_ENV==_G) дает true