Приложения > Приложение 1. Пример скрипта на языке Lua

В данном приложении приведен пример скрипта на языке Lua для создания таблицы в Рабочем месте QUIK.

Файл table_object.lua:

dofile (getScriptPath() .. "\\quik_table_wrapper.lua")
dofile (getScriptPath() .. "\\ntime.lua")
stopped = false
function format1(data)
return string.format("0x%08X", data)
end
function format2(data)
return string.format("%06d", data)
end
function OnStop(s)
stopped = true
end
function main()
-- поворачивающиеся «палочки» в заголовке таблицы
local palochki = {"-","\\", "|", "/"}
-- создать экземпляр QTable
t = QTable.new()
if not t then
  message("error!", 3)
  return
else
  message("table with id = " ..t.t_id .. " created", 1)
end
-- добавить два столбца с функциями форматирования
-- в первом столбце – hex-значения, во втором – целые числа
t:AddColumn("test1", QTABLE_INT_TYPE, 10,format1)
t:AddColumn("test2", QTABLE_INT_TYPE, 10, format2)
-- добавить столбцы без форматирования
t:AddColumn("test3", QTABLE_CACHED_STRING_TYPE, 50)
t:AddColumn("test4", QTABLE_TIME_TYPE, 50)
t:AddColumn("test5", QTABLE_CACHED_STRING_TYPE, 50)
t:SetCaption("Test")
t:Show()
i=1
-- исполнять цикл, пока пользователь не остановит скрипт из диалога управления
while not stopped do
  -- если таблица закрыта, то показать ее заново
  -- при этом все предыдущие данные очищаются
  if t:IsClosed() then
   t:Show()
  end
  -- на каждой итерации повернуть «палочку» на 45 градусов
  t:SetCaption("QLUA TABLE TEST " .. palochki[i%4 +1])
  -- метод добавит в таблицу новую строчку и вернет ее номер
  local row = t:AddLine()
  t:SetValue(row, "test1", row, i)
  t:SetValue(row, "test2", row, i)
  -- заполнить ячейку текущим заголовком таблицы
  -- тип столбца – строковый, поэтому последний параметр пропускается
  SetCell(t.t_id, row, 3, GetWindowCaption(t.t_id))
  _date = os.date("*t")
  -- 4-й столбец заполнить данными типа время (число в формате <ЧЧММСС>)
  -- Функция для строкового представления времени определена в файле ntime.lua
  -- Функция NiceTime возвращает строку
  SetCell(t.t_id, row, 4,
  NiceTime(_date) .. string.format(" (%02d:%02d:%02d)", _date.hour, _date.min, _date.sec),
  _date.hour*10000+_date.min*100 +_date.sec)
  -- пятый столбец имеет строковый тип и заполняется результатом выполнения функции NiceTime
  -- исходный код функции взят из виджета Conky Lua для Ubuntu
  SetCell(t.t_id, row, 5, NiceTime(_date))
  sleep(1000)
  i=i+1
end
message("finished")
end

Файл quik_table_wrapper.lua:

-- Перегрузка функции message с необязательным вторым параметром
old_message = message
function message(v, i)
old_message(tostring(v), i or 1)
end
QTable ={}
QTable.__index = QTable
-- Создать и инициализировать экземпляр таблицы QTable
function QTable.new()
local t_id = AllocTable()
if t_id ~= nil then
  q_table = {}
  setmetatable(q_table, QTable)
  q_table.t_id=t_id
  q_table.caption = ""
  q_table.created = false
  q_table.curr_col=0
  -- таблица с описанием параметров столбцов
  q_table.columns={}
  return q_table
else
  return nil
end
end
function QTable:Show()
-- отобразить в терминале окно с созданной таблицей
CreateWindow(self.t_id)
if self.caption ~="" then
  -- задать заголовок для окна
  SetWindowCaption(self.t_id, self.caption)
end
self.created = true
end
function QTable:IsClosed()
-- если окно с таблицей закрыто, возвращает «true»
return IsWindowClosed(self.t_id)
end
function QTable:delete()
-- удалить таблицу
DestroyTable(self.t_id)
end
function QTable:GetCaption()
if IsWindowClosed(self.t_id) then
  return self.caption
else
  -- возвращает строку, содержащую заголовок таблицы
  return GetWindowCaption(self.t_id)
end
end
-- Задать заголовок таблицы
function QTable:SetCaption(s)
self.caption = s
if not IsWindowClosed(self.t_id) then
  res = SetWindowCaption(self.t_id, tostring(s))
end
end
-- Добавить описание столбца <name> типа <c_type> в таблицу
-- <ff> – функция форматирования данных для отображения
function QTable:AddColumn(name, c_type, width, ff )
local col_desc={}
self.curr_col=self.curr_col+1
col_desc.c_type = c_type
col_desc.format_function = ff
col_desc.id = self.curr_col
self.columns[name] = col_desc
-- <name> используется в качестве заголовка таблицы
AddColumn(self.t_id, self.curr_col, name, true, c_type, width)
end
function QTable:Clear()
-- очистить таблицу
Clear(self.t_id)
end
-- Установить значение в ячейке
function QTable:SetValue(row, col_name, data)
local col_ind = self.columns[col_name].id or nil
if col_ind == nil then
  return false
end
-- если для столбца задана функция форматирования, то она используется
local ff = self.columns[col_name].format_function
if type(ff) == "function" then
  -- в качестве строкового представления используется
  -- результат выполнения функции форматирования
  SetCell(self.t_id, row, col_ind, ff(data), data)
  return true
else
  SetCell(self.t_id, row, col_ind, tostring(data), data)
end
end
function QTable:AddLine()
-- добавляет в конец таблицы пустую строчку и возвращает ее номер
return InsertRow(self.t_id, -1)
end
function QTable:GetSize()
-- возвращает размер таблицы
return GetTableSize(self.t_id)
end
-- Получить данные из ячейки по номеру строки и имени столбца
function QTable:GetValue(row, name)
local t={}
local col_ind = self.columns[name].id
if col_ind == nil then
  return nil
end
t = GetCell(self.t_id, row, col_ind)
return t
end
-- Задать координаты окна
function QTable:SetPosition(x, y, dx, dy)
return SetWindowPos(self.t_id, x, y, dx, dy)
end
-- Функция возвращает координаты окна
function QTable:GetPosition()
top, left, bottom, right = GetWindowRect(self.t_id)
return top, left, right-left, bottom-top
end

Файл ntime.lua:

words = {"one ", "two ", "three ", "four ", "five ", "six ", "seven ", "eight ", "nine "}
levels = {"thousand ", "million ", "billion ", "trillion ", "quadrillion ", "quintillion ", "sextillion ", "septillion ", "octillion ", [0] = ""}
iwords = {"ten ", "twenty ", "thirty ", "forty ", "fifty ", "sixty ", "seventy ", "eighty ", "ninety "}
twords = {"eleven ", "twelve ", "thirteen ", "fourteen ", "fifteen ", "sixteen ", "seventeen ", "eighteen ", "nineteen "}
function digits(n)
local i, ret = -1
return function()
i, ret = i + 1, n % 10
if n > 0 then
n = math.floor(n / 10)
return i, ret
end
end
end
level = false
function getname(pos, dig)
level = level or pos % 3 == 0
if(dig == 0) then return "" end
local name = (pos % 3 == 1 and iwords[dig] or words[dig]) .. (pos % 3 == 2 and "hundred " or "")
if(level) then name, level = name .. levels[math.floor(pos / 3)], false end
return name
end
function numberToWord(number)
if(number == 0) then return "zero" end
vword = ""
for i, v in digits(number) do
vword = getname(i, v) .. vword
end
for i, v in ipairs(words) do
vword = vword:gsub("ty " .. v, "ty-" .. v)
vword = vword:gsub("ten " .. v, twords[i])
end
return vword
end
function _Time(t)
hour = t.hour
minute = t.min
hour = hour % 12
if(hour == 0) then
hour, nextHourWord = 12, "one "
else
nextHourWord = numberToWord(hour+1)
end
hourWord = numberToWord(hour)
if(minute == 0 ) then
return hourWord .. "o'clock"
elseif(minute == 30) then
return "half past " .. hourWord
elseif(minute == 15) then
return "a quarter past " .. hourWord
elseif(minute == 45) then
return "a quarter to " .. nextHourWord
else
if(minute < 30) then
return numberToWord(minute) .. "past " .. hourWord
else
return numberToWord(60-minute) .. "to " .. nextHourWord
end
end
end
function _Seconds(s)
return numberToWord(s)
end
function NiceTime(t)
return _Time(t) .."and ".. _Seconds(t.sec) .. "second"
end

В результате выполнения скрипта в Рабочем месте QUIK создается таблица вида:

app1