Как определить абсолютный путь к исполняемому файлу lua?

В этом конкретном случае квики путает винда. Квик просто открывает стандартный диалог, а тот сам помнит, кто что открывал последнее. Но помнит абы как, по имени программы без полного пути, вот и получается путаница. По-хорошему надо к диалогу прицеплять уникальный идентификатор, но квик этого не делает.

2.2.25 OnInit
Функция вызывается терминалом QUIK перед вызовом функции main(). В качестве параметра принимает значение полного пути к запускаемому скрипту.

Anton, Может, и Винда - она написана не менее коряво, чем Квик. Впрочем, фиг с ними обоими - у меня сейчас идёт финальная зачистка уже моего алгоритма - все "квиковские" штучки считаю отлаженными. Последняя правка была вчера: как известно, эта скотина теряет управление при остановке скрипта, поэтому файл результатов я записываю прямо в OnStop (благо запись не обращается к утилитам основного потока), а теперь там же стал ещё и убивать окно своей таблицы. Окно-то она убивает, "зато" влетает в режим этого дурацкого ожидания, так что теперь у меня OnStop возвращает 500, чтобы не мучился свои 5 секунд, и для юзера это (аварийное) завершение смотрится как нормальное. Комедия!

Anton, И что бы это значило?    

Anton, А нафига? Последний оператор в работе скрипта - пущай сами деструктурируют.  

А ООП-религия у меня сложилась давно, ещё от Маккарти. И не всяким Страуструпам её поколебать!    

Финализатор не хочет с файлами работать:

В логе:

Увидел..  от скобочек глаза заслезились ))


вообще qlua при завершении скрипта сама закрывает файлы.  Видимо файл был закрыт до __gc

но это неточно )

Похоже так оно и есть.

<code>
local run = true
local tid = nil
local file

---  Создание деструктора  скрипта  -----
gcrunner = {}   ---  Если   gcrunner  = {} (глобальная переменная), то  __gc срабатывает только по завершению скрипта (обычно это и требуется).
                  ---  !!!  А если  local gcrunner = {} (локальная переменная) то __gc  срабатывает при при любом запуске collectgarbage  (в том числе, и до завершения скрипта).
setmetatable(gcrunner, { __gc = function()
                                              if tid then DestroyTable(tid) end  
                                              ----    Выделенный ниже фрагмент срабатывает при запуске collectgarbage до завершения скрипта если gcrunner локальная переменная.
                                              --      При запуске функции по заверщению скрипта, выделенный фрагмент не выполняется.  Функция завершается на первом операторе
                                              ---    без его выполнения, но ошибка не выдается ??
                                               file:write("__gc\n")  
                                               file:close()
                                  ---- Похоже при завершении скрипта файлы открепляются раньше, чем запускается финальная уборка мусора----
  end })
---------------------------------------------------            

function OnInit(script_path)
 file = io.open(script_path .. ".log", "w")
 file:write("OnInit\n")
end

function main()
 file:write("main\n")
 tid = AllocTable()
 AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
 CreateWindow(tid)
-- collectgarbage ()  ---  Если эту строку раскомментировать и при этом local gcrunner = {}, то при запуске collectgarbage () сработает __gc.
 while run do sleep(300) end
 file:write("main stopped\n")
end

function OnStop()
 run = nil
 file:write("OnStop\n")
end
<code>

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

Насчет функций. Если gcrunner глобальный, то выскочит сообщение, мол используете прибитый файл, а это значит, что io еще не выгружена, это ее сообщение. Получается, файл прибит не в результате выгрузки библиотеки. Я не нашел, чтобы квик явно где-то файлы закрывал или даже чтобы явно выгружал библиотеки, хотя может где и есть. Принимаем как данность. Строго говоря, финализаторы это не деструкторы, никакой порядок их выполнения не гарантируется, так что теоретически все ок, а как практически это обходить, надо думать.

А выхода два: написать новый идеологически выдержанный квик (займитесь?) или лечить имеющийся, сначала поняв, рэзать ему отростки или это все же ухи.

Оно все фигня, даже если кажется, что не фигня. На конструктивную фигню арка, глядишь, и патчик сделает, а на вопли "тут все неправильно, все в топку" - нет.

Вроде, не срабатывает.

__gc срабатывает до вызова collectgarbage, возможно при автоматической сборке.

Так __gc вызывается до OnInit

Скрытый текст

Код local run = true local tid = nil local gcrunner = {} setmetatable(gcrunner, { __gc = function()   if tid then DestroyTable(tid) end   message('__gc', 2) end }) function OnInit(script_path)   file = io.open(script_path .. ".log", "w")   file:write("OnInit\n")   message("OnInit") end function main()   message("main")   tid = AllocTable()   AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)   CreateWindow(tid)   collectgarbage()   while run do sleep(300) end end function OnStop()   run = nil end

Убираем какую-нибудь строку, например
и срабатывает при вызове collectgarbage. Как-то так.

Без collectgarbage сработает и для финализации.