78c44e6060
This was a side-effect of an earlier change that was done to run
end-callbacks before terminating external processes (as those callbacks
may be used, for example, to remove temporary files).
Many of interpreters had logic in those callbacks to reset debugger.pid,
which was useful (at a time) to reset UI after terminatin of a process
(introduced by 4554c67c). However, this logic was unnecesary in
interpreters and interfered with terminating running processes, so this
commit removes it from all the interpreters and does in the IDE itself.
67 lines
2.4 KiB
Lua
67 lines
2.4 KiB
Lua
-- add `lfw = {chdirtofile = true}` to the configuration file to set file
|
|
-- directory as the current one when Running or Debugging LuaForWindows projects.
|
|
|
|
if ide.osname ~= "Windows" or not os.getenv("LUA_DEV") then return end
|
|
|
|
local exe
|
|
|
|
local function exePath()
|
|
local defaultPath = ide.config.path.lfw or os.getenv("LUA_DEV")
|
|
return MergeFullPath(defaultPath, 'lua.exe')
|
|
end
|
|
|
|
return {
|
|
name = "LuaForWindows",
|
|
description = "Lua For Windows interpreter with debugger",
|
|
api = {"baselib"},
|
|
frun = function(self,wfilename,rundebug)
|
|
exe = exe or exePath()
|
|
local filepath = wfilename:GetFullPath()
|
|
local script
|
|
if rundebug then
|
|
DebuggerAttachDefault({basedir = self:fworkdir(wfilename),
|
|
runstart = ide.config.debugger.runonstart == true})
|
|
script = rundebug
|
|
else
|
|
-- if running on Windows and can't open the file, this may mean that
|
|
-- the file path includes unicode characters that need special handling
|
|
local fh = io.open(filepath, "r")
|
|
if fh then fh:close() end
|
|
if ide.osname == 'Windows' and pcall(require, "winapi")
|
|
and wfilename:FileExists() and not fh then
|
|
winapi.set_encoding(winapi.CP_UTF8)
|
|
filepath = winapi.short_path(filepath)
|
|
end
|
|
|
|
script = ('dofile [[%s]]'):format(filepath)
|
|
end
|
|
local code = ([[xpcall(function() io.stdout:setvbuf('no'); %s end,function(err) print(debug.traceback(err)) end)]]):format(script)
|
|
local cmd = '"'..exe..'" -e "'..code..'"'
|
|
|
|
-- add "LUA_DEV\clibs" to PATH to allow required DLLs to load
|
|
local _, path = wx.wxGetEnv("PATH")
|
|
local clibs = MergeFullPath(GetPathWithSep(exe), 'clibs')
|
|
if path and not path:find(clibs, 1, true) then
|
|
wx.wxSetEnv("PATH", path..';'..clibs)
|
|
end
|
|
|
|
-- CommandLineRun(cmd,wdir,tooutput,nohide,stringcallback,uid,endcallback)
|
|
local pid = CommandLineRun(cmd,self:fworkdir(wfilename),true,false)
|
|
|
|
-- restore PATH
|
|
wx.wxSetEnv("PATH", path)
|
|
return pid
|
|
end,
|
|
fprojdir = function(self,wfilename)
|
|
return wfilename:GetPath(wx.wxPATH_GET_VOLUME)
|
|
end,
|
|
fworkdir = function (self,wfilename)
|
|
return (not ide.config.lfw or ide.config.lfw.chdirtofile ~= true)
|
|
and ide.config.path.projectdir or wfilename:GetPath(wx.wxPATH_GET_VOLUME)
|
|
end,
|
|
hasdebugger = true,
|
|
fattachdebug = function(self) DebuggerAttachDefault() end,
|
|
scratchextloop = false,
|
|
unhideanywindow = true,
|
|
}
|