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.
97 lines
4.1 KiB
Lua
97 lines
4.1 KiB
Lua
-- Copyright 2011-13 Paul Kulchenko, ZeroBrane LLC
|
|
|
|
local corona
|
|
local win = ide.osname == "Windows"
|
|
local mac = ide.osname == "Macintosh"
|
|
|
|
return {
|
|
name = "Corona",
|
|
description = "Corona SDK mobile framework",
|
|
api = {"baselib", "corona"},
|
|
frun = function(self,wfilename,rundebug)
|
|
corona = corona or ide.config.path.corona -- check if the path is configured
|
|
if not corona then
|
|
local sep = win and ';' or ':'
|
|
local default =
|
|
win and ([[C:\Program Files\Corona SDK]]..sep..[[D:\Program Files\Corona SDK]]..sep..
|
|
[[C:\Program Files\Corona Labs\Corona SDK]]..sep..[[D:\Program Files\Corona Labs\Corona SDK]]..sep..
|
|
[[C:\Program Files (x86)\Corona SDK]]..sep..[[D:\Program Files (x86)\Corona SDK]]..sep..
|
|
[[C:\Program Files (x86)\Corona Labs\Corona SDK]]..sep..[[D:\Program Files (x86)\Corona Labs\Corona SDK]]..sep)
|
|
or mac and ('/Applications/CoronaSDK/Corona Simulator.app/Contents/MacOS'..sep)
|
|
or ''
|
|
local path = default
|
|
..(os.getenv('PATH') or '')..sep
|
|
..(os.getenv('HOME') and os.getenv('HOME') .. '/bin' or '')
|
|
local paths = {}
|
|
for p in path:gmatch("[^"..sep.."]+") do
|
|
corona = corona or GetFullPathIfExists(p, win and 'Corona Simulator.exe' or 'Corona Simulator')
|
|
table.insert(paths, p)
|
|
end
|
|
if not corona then
|
|
DisplayOutput("Can't find corona executable in any of the folders in PATH: "
|
|
..table.concat(paths, ", ").."\n")
|
|
return
|
|
end
|
|
end
|
|
|
|
local file = GetFullPathIfExists(self:fworkdir(wfilename), 'main.lua')
|
|
if not file then
|
|
DisplayOutput("Can't find 'main.lua' file in the current project folder.\n")
|
|
return
|
|
end
|
|
|
|
if rundebug then
|
|
-- start running the application right away
|
|
DebuggerAttachDefault({startwith = file, redirect = mac and "r" or "c",
|
|
runstart = ide.config.debugger.runonstart ~= false})
|
|
|
|
local function needRefresh(mdbl, mdbc)
|
|
return not wx.wxFileExists(mdbc)
|
|
or GetFileModTime(mdbc):GetTicks() < GetFileModTime(mdbl):GetTicks()
|
|
end
|
|
|
|
-- copy mobdebug.lua to Resources/ folder on Win and to the project folder on OSX
|
|
-- as copying it to Resources/ folder seems to break the signature of the app.
|
|
local mdbc = mac and MergeFullPath(self:fworkdir(wfilename), "mobdebug.lua")
|
|
or MergeFullPath(GetPathWithSep(corona), "Resources/mobdebug.lua")
|
|
local mdbl = MergeFullPath(GetPathWithSep(ide.editorFilename), "lualibs/mobdebug/mobdebug.lua")
|
|
local needed = needRefresh(mdbl, mdbc)
|
|
if needed then
|
|
local copied = FileCopy(mdbl, mdbc)
|
|
-- couldn't copy to the Resources/ folder; not have permissions?
|
|
if not copied and win then
|
|
mdbc = MergeFullPath(wx.wxStandardPaths.Get():GetUserLocalDataDir(),
|
|
"../../Roaming/Corona Labs/Corona Simulator/Plugins/mobdebug.lua")
|
|
needed = needRefresh(mdbl, mdbc)
|
|
copied = needed and FileCopy(mdbl, mdbc)
|
|
end
|
|
if needed then
|
|
local message = copied
|
|
and ("Copied debugger ('mobdebug.lua') to '%s'."):format(mdbc)
|
|
or ("Failed to copy debugger ('mobdebug.lua') to '%s': %s")
|
|
:format(mdbc, wx.wxSysErrorMsg())
|
|
DisplayOutputLn(message)
|
|
if not copied then return end
|
|
end
|
|
end
|
|
end
|
|
|
|
local debugopt = mac and "-debug 1 -project " or "-debug "
|
|
local skin = ide.config.corona and ide.config.corona.skin
|
|
and (" -skin "..ide.config.corona.skin) or ""
|
|
local cmd = ('"%s" %s"%s"%s')
|
|
:format(corona, rundebug and debugopt or "", file, skin)
|
|
-- CommandLineRun(cmd,wdir,tooutput,nohide,stringcallback,uid,endcallback)
|
|
return CommandLineRun(cmd,self:fworkdir(wfilename),true,false)
|
|
end,
|
|
fprojdir = function(self,wfilename)
|
|
return wfilename:GetPath(wx.wxPATH_GET_VOLUME)
|
|
end,
|
|
fworkdir = function(self,wfilename)
|
|
return ide.config.path.projectdir or wfilename:GetPath(wx.wxPATH_GET_VOLUME)
|
|
end,
|
|
hasdebugger = true,
|
|
fattachdebug = function(self) DebuggerAttachDefault() end,
|
|
scratchextloop = true,
|
|
}
|