script "revSaveAsStandalone"
#####################################################################
# Standalone Application Builder
# @Version: 1.2.1
#
# Developed from Distribution Builder Code by Monte goulding
# @Email: monte@sweattechnologies.com
#
# The Standalone Application Builder relies on a custom property
# set in each stack named cRevStandaloneSettings.
#
# Platform specific properties are in muti-dimensional form
# <platform>,<setting>
#
# Stacks included in the Standalone Application are the stackFiles
# of the standalone and all of their stackFiles recusively. In
# this way the file dependencies in development are transferred into
# the application without user intervention.
#
#####################################################################
private function revListFolders pPath
local tOldFolder, tFolders
put the folder into tOldFolder
set the folder to pPath
put the folders into tFolders
set the folder to tOldFolder
filter tFolders without "[.][.]" -- filter out ".." folder
return tFolders
end revListFolders
private function revListFiles pPath
local tOldFolder, tFiles
put the folder into tOldFolder
set the folder to pPath
put the files into tFiles
set the folder to tOldFolder
return tFiles
end revListFiles
local sPlatformDirectoriesA -- the list of desktop build directories
local sResetA -- stored info for resetting to the pre-build state
local sGenericNumber -- a simple counter for the generic file naming
local sStandaloneSettingsA -- a copy of the cRevStandaloneSettings of stack pFolder
local sIconA -- array for icons
local sPlatformCount -- the total number of platforms to build for
# OK-2007-08-09 : Temporary storage for list of user script libraries. This is required to support building for ialiMac OS Classic
local sUserScriptLibraries
-- list of info fields for the windows engine
constant kVersionFlds = "Comments,CompanyName,FileDescription,FileVersion,InternalName,LegalCopyright,LegalTrademarks,OriginalFilename,PrivateBuild,ProductName,ProductVersion,SpecialBuild"
# AL-2015-01-29: [[ Scriptify revSaveAsStandalone ]] Initialise script locals here to replace custom props of stack
local sWindowsMaxLengthsA
function getWindowsMaxLength pField
return sWindowsMaxLengthsA[pField]
end getWindowsMaxLength
#####################################################################
# Main public API for the Standalone Application Builder
#
# Both parameters are optional.
# @param pStack = the stack to become a standalone to build a stack other than the topStack
# @param pFolder = the build folder to avoid the script asking
#
#####################################################################
local sStubPath
# OK-2009-05-22 : Added ability to remember default folder
private function getBuildFolder pStack, pFolder, pSettings
# If the standalone builder has been passed a folder to build in from outside, we just use this.
if pFolder is not empty then
return pFolder
end if
# This means the user has chosen to build directly to the default folder without prompt (and the folder exists) so we just go for it.
if pSettings["defaultBuildFolder"] is not empty and \
pSettings["automaticallyBuildInDefaultFolder"] and \
there is a folder (pSettings["defaultBuildFolder"]) then
return pSettings["defaultBuildFolder"]
end if
# If a default folder is chosen and exists, but the user does not want to automatically build there, we
# prompt as normal, but with the difference being that we use the specified folder as the default path,
# saving browsing for it.
local tFolder
if pSettings["defaultBuildFolder"] is not empty and \
there is a folder (pSettings["defaultBuildFolder"]) then
if pStack is among the lines of the openStacks and the visible of stack pStack and \
the mode of stack pStack <= 2 then
set the defaultStack to pStack
answer folder "Choose a folder to build in:" with pSettings["defaultBuildFolder"]
else
answer folder "Choose a folder to build in:" with pSettings["defaultBuildFolder"]
end if
else
if pStack is among the lines of the openStacks and the visible of stack pStack and \
the mode of stack pStack <= 2 then
set the defaultStack to pStack
answer folder "Choose a folder to build in:"
else
answer folder "Choose a folder to build in:"
end if
end if
if it is "" or the result is "Cancel" then
--exit to top
return empty
end if
put it into tFolder
return tFolder
end getBuildFolder
on revSaveAsStandalone pStack, pFolder, pPreview, pSuppressSuccessMsg
global gREVStackStatus
if pStack = empty then
put the short name of the topStack into pStack
end if
if the fileName of stack pStack = empty then
put "edited" into gREVStackStatus[pStack]
end if
# OK-2008-03-13 : Bug 5874. Do a complete check to see if the stack needs to be saved here
# so we can remove the later check from revCloseOpenStacks.
local tEdited
put false into tEdited
# Find out if the stack or any substack has been edited
if gREVStackStatus[the short name of stack pStack] is "edited" then
put true into tEdited
else
local tSubstacks
put the substacks of stack pStack into tSubstacks
repeat for each line tSubstack in tSubstacks
if gREVStackStatus[the short name of stack tSubstack] is "edited" then
put true into tEdited
end if
end repeat
end if
local tSettings
put revSBGetSettings(pStack) into tSettings
-- MM-2014-03-21: [[ PPC Support Dropped ]] Assume all mac builds to now be Intel.
if tSettings["MacOSX"] then
delete variable tSettings["MacOSX"]
put true into tSettings["MacOSX x86-32"]
put true into tEdited
end if
if tSettings["MacOSX PowerPC-32"] then
delete variable tSettings["MacOSX PowerPC-32"]
put true into tSettings["MacOSX x86-32"]
put true into tEdited
end if
-- Make sure there is actually something to build..
if revSBNoPlatforms(tSettings) then
local tMessage
put "You have not selected any platforms to build for. Please do so using Standalone Settings." into tMessage
if revSBSuppressDialogs() then
return tMessage
else
answer error tMessage
end if
exit revSaveAsStandalone
end if
# OK-2010-03-31: Ensure that the standalone name doesn't contain stuff that is not allowed in folder names,
# otherwise this could cause problems. In particular a return char at the end of the name causes the cleanup
# routines to try and delete the parent folder, which can result in data loss. The data loss potential has also
# been eliminated at a lower level by redirecting all calls to revDeleteFolder through a wrapper, which checks that
# the folder is safe to delete using some rather strict tests. This may result in ocassional problems with cleanup not
# working.
if folderNameIsIllegal(tSettings["name"]) then
put folderNameMakeLegal(tSettings["name"]) into tSettings["name"]
put true into tEdited
revStandaloneAddWarning "Standalone name was changed because it contained illegal characters"
end if
# OK-2009-05-22 : Added ability to remember default folder. We now do the folder check before saving the stack,
# so that if the user chose a different folder, it can be remembered for next time.
local tFolder
put getBuildFolder(pStack, pFolder, tSettings) into tFolder
if tFolder is empty then
exit to top
end if
# If the folder was changed, then we flag the stack as edited so it gets remembered
if tSettings["defaultBuildFolder"] is not tFolder then
put tFolder into tSettings["defaultBuildFolder"]
put true into tEdited
end if
put tFolder into pFolder
# If any have been edited, force the save dialog by setting edited on the mainstack
if tEdited then
revIDESetEdited pStack
revSBSetSettings pStack, tSettings
end if
local tError
# Do the check and continue building as normal.
if revSaveCheck(pStack) then
local tStandalonePaths
revDoSaveAsStandalone pStack, pFolder, ,tStandalonePaths
put the result into tError
end if
if revStandaloneGetWarnings() is not empty and tError is empty then
set the cWarnings of stack "revBuildResults" to revStandaloneGetWarnings()
else
if not revSBSuppressDialogs() and pSuppressSuccessMsg is not true and tError is empty then
answer information "Standalone application saved successfully."
end if
if pPreview is not "false" and sStubPath is not empty then
launch document sStubPath
end if
end if
return tError
end revSaveAsStandalone
command revDoSaveAsStandalone pStack, pFolder, pSettings, @xStandalonePaths
# OK-2007-12-18 : Bug 3612 Changed sGenericNumber from 1 to 0.
put 0 into sGenericNumber
lock cursor
set cursor to watch
put empty into sUserScriptLibraries
put empty into sStubPath
put the directory into sResetA["Directory"]
put the fileType into sResetA["FileType"]
if pSettings is not an array then
put revSBGetSettings(pStack) into sStandaloneSettingsA
else
put pSettings into sStandaloneSettingsA
end if
put the mainStack of stack pStack into pStack
set the defaultStack to pStack
revStandaloneResetWarnings
local tError, tStandaloneFolder
-- Don't build for any platform we are not licensed for
local tRemoved
put revSBRemoveUnlicensedTargetsFromSettings(sStandaloneSettingsA) into tRemoved
replace return with comma in tRemoved
if revSBNoPlatforms(sStandaloneSettingsA) then
local tMessage
put "You are not licensed to build for any selected platforms." into tMessage
if not revSBSuppressDialogs() then
answer error tMessage
end if
return tMessage
end if
if tRemoved is not empty then
revStandaloneAddWarning "Not licensed to build for the following selected platforms:" && tRemoved
end if
revStandaloneProgress "Preparing to build standalone..."
-- pre build message
local tHasDesktop
repeat for each item tTarget in revSBDesktopTargets()
if sStandaloneSettingsA[tTarget] then
put true into tHasDesktop
exit repeat
end if
end repeat
local tStackFileName, tRestoreFileName
if tHasDesktop then
put the effective filename of stack pStack into tStackFileName
if the mode of stack pStack > 0 then
put the long name of stack pStack & return after sResetA["Reopen"]
end if
__SendSavingStandaloneMessage pStack
--Save copy of stack in its post-savingStandalone message state
__SaveCopyOfStackInTemporaryLocation pStack, tRestoreFileName
end if
try
-- Create an appropriate output dir
local tOutputFolder
revOutputDirectories pFolder & slash
put the result into tOutputFolder
if there is no folder tOutputFolder then
create folder tOutputFolder
if the result is not empty then
throw format("Cannot create a folder '%s'", tOutputFolder)
end if
end if
local tBuildPlatforms, tPlatform
repeat for each item tTarget in revSBDesktopTargets() & comma & revSBAdditionalTargets()
if sStandaloneSettingsA[tTarget] then
put revSBTargetToPlatform(tTarget) into tPlatform
put true into tBuildPlatforms[tPlatform]
end if
end repeat
-- If we're searching for inclusions, do it here
revSearchForInclusions pStack, sStandaloneSettingsA
-- keep a copy of the standalone settings to restore after each build
local tStandaloneSettingsA
put sStandaloneSettingsA into tStandaloneSettingsA
repeat for each key tPlatform in tBuildPlatforms
put tStandaloneSettingsA into sStandaloneSettingsA
local tTargetFolder
-- If we are building for multiple platforms, then build in a platform-specific subfolder
if sPlatformCount > 1 then
put tOutputFolder & slash & tPlatform into tTargetFolder
else
put tOutputFolder into tTargetFolder
end if
-- Make sure folder exists
revSBEnsureFolder tTargetFolder
switch tPlatform
case "iOS"
if not (the platform begins with "MacOS") then
next repeat
end if
put tTargetFolder & slash & sStandaloneSettingsA["name"] & ".app" into xStandalonePaths[tPlatform]
dispatch "revSaveAsMobileStandalone" to stack "revSaveAsIOSStandalone" with \
pStack, xStandalonePaths[tPlatform], "Device", sStandaloneSettingsA
break
case "Android"
put tTargetFolder & slash & sStandaloneSettingsA["name"] & ".apk" into xStandalonePaths[tPlatform]
dispatch "revSaveAsMobileStandalone" to stack "revSaveAsAndroidStandalone" with \
pStack, xStandalonePaths[tPlatform], "Build", sStandaloneSettingsA, xStandalonePaths
break
case "Emscripten"
put tTargetFolder into xStandalonePaths[tPlatform]
dispatch "revSaveAsEmscriptenStandalone" to stack "revSaveAsEmscriptenStandalone" with \
pStack, xStandalonePaths[tPlatform], sStandaloneSettingsA, xStandalonePaths
break
case "MacOSX"
revSaveAsMacStandalone pStack, tRestoreFileName, tTargetFolder, xStandalonePaths
break
case "Windows"
revSaveAsWindowsStandalone pStack, tRestoreFileName, tTargetFolder, xStandalonePaths
break
case "Linux"
revSaveAsLinuxStandalone pStack, tRestoreFileName, tTargetFolder, xStandalonePaths
break
end switch
end repeat
-- post build message
if tHasDesktop then
__ReloadOriginalStackFile tStackFileName, pStack
__SendStandaloneSavedMessage pStack, tOutputFolder
end if
catch tError
revAbort
if word 1 of tError = "Standalone:" then
put word 2 to -1 of tError into tError
if not revSBSuppressDialogs() then
answer error word 2 to -1 of tError
end if
else
if not revSBSuppressDialogs() then
answer error "There was an error while saving the standalone application"&cr&tError
end if
end if
return tError
end try
revReset
return empty
end revDoSaveAsStandalone
private function folderNameIllegalChars
return revFolderNameIllegalChars()
end folderNameIllegalChars
private function folderNameIsIllegal pName
return revFolderNameIsIllegal(pName)
end folderNameIsIllegal
private function folderNameMakeLegal pName
return revFolderNameMakeLegal(pName)
end folderNameMakeLegal
private function revStandalonePlatformDetails pTarget
local tPlatform
put revSBTargetToPlatform(pTarget) into tPlatform
local tDetailsA
-- SN-2015-03-04: [[ IDE Restructure ]] Externals folder contains the externals,
-- and Support contains support libraries (revpdfprinter and revsecurity):
-- they should have their own keys in the details array.
local tArchFolder
switch tPlatform
case "MacOSX"
-- MM-2014-03-21: [[ PPC Support Dropped ]] We now only support intel Mac builds. Assume all mac builds to be intel.
-- MW-2013-06-13: [[ CloneAndRun ]] If not installated type, then take from the binaries folder.
put "Mac OS X/x86-32" into tArchFolder
put ".bundle" into tDetailsA["loadable_extension"]
put ".dylib" into tDetailsA["shared_extension"]
put "MacOSX" into tDetailsA["platform"]
put "x86-32" into tDetailsA["architecture"]
break
case "Windows"
put "Windows/x86-32" into tArchFolder
put ".dll" into tDetailsA["loadable_extension"]
put "Windows" into tDetailsA["platform"]
put "x86-32" into tDetailsA["architecture"]
break
case "Linux"
if pTarget is "Linux" then
put "Linux/x86-32" into tArchFolder
put "x86-32" into tDetailsA["architecture"]
else if pTarget is "Linux x64" then
-- MW-2013-11-06: [[ LinuxX64 ]] Compute the correct path for 64-bit linux.
put "Linux/x86-64" into tArchFolder
put "x86-64" into tDetailsA["architecture"]
else -- if pPlatform is "Linux armv6-hf" then
-- FG-2014-08-19: [[ RPi ]] Compute the correct path for 64-bit Linux
put "Linux/armv6-hf" into tArchFolder
put "armv6-hf" into tDetailsA["architecture"]
end if
put ".so" into tDetailsA["loadable_extension"]
put "Linux" into tDetailsA["platform"]
break
default
throw "invalid target" && pTarget
end switch
-- SN-2015-03-04: [[ CloneAndRun ]] Refactor the setting of externals / support location
local tRuntimeFolder
if revEnvironmentIsInstalled() then
put revEnvironmentRuntimePath() & slash & tArchFolder into tRuntimeFolder
put tRuntimeFolder & slash & "Support" into tDetailsA["support_folder"]
put tRuntimeFolder & slash & "Externals" into tDetailsA["externals_folder"]
else
put revEnvironmentBinariesPath() into tDetailsA["externals_folder"]
put revEnvironmentBinariesPath() into tDetailsA["support_folder"]
end if
return tDetailsA
end revStandalonePlatformDetails
#####################################################################
# Main use-case controller for the Standalone Application Builder
#####################################################################
command revSearchForInclusions pStack, @xSettings
if not xSettings["searchedForInclusions"] then
revSBSearchForInclusions pStack, xSettings
put true into xSettings["searchedForInclusions"]
end if
end revSearchForInclusions
private on revStandalonePreBuild pStack, pFolder, pPlatform, pArchs, @rStackName, @rStackFileList
revStandaloneProgress "Loading settings..."
-- Make sure all dependencies are included
revSBUpdateForDependencies pPlatform, pArchs, , sStandaloneSettingsA
revSBEnsurePerExtensionSettings pPlatform, sStandaloneSettingsA
if the result is not empty then
return the result
end if
local tCount
if there is a file (pFolder & "/" & sStandaloneSettingsA["name"]) then
put " Standalone" after sStandaloneSettingsA["name"]
put empty into tCount
repeat while (there is a file (pFolder & "/" & sStandaloneSettingsA["name"] & tCount) or there is a folder (pFolder & "/" & sStandaloneSettingsA["name"] & tCount))
add 1 to tCount
end repeat
put sStandaloneSettingsA["name"] & tCount into sStandaloneSettingsA["name"]
end if
local tStackFileName, tStackName
put the effective filename of stack pStack into tStackFileName
set the itemdelimiter to slash
put item -1 of tStackFileName into tStackName
local tExtension
set the itemdelimiter to "."
put item -1 of tStackName into tExtension
set the itemdelimiter to comma
if tExtension is not among the items of revIDELiveCodeFileExtensions() then
put ".livecode" after tStackName
end if
local tStackFileList
revSBRelativeStackFilesList pStack, tStackFileList
-- close the open stacks (ask to save if need be)
revCloseOpenStacks tStackFileList, pStack
set the defaultStack to the short name of stack tStackFileName
put tStackName into rStackName
put tStackFileList into rStackFileList
end revStandalonePreBuild
private on revStandalonePostBuild pStack, pFolder
end revStandalonePostBuild
private command revStandaloneCopyInclusions pStack, pStackFileList, pStackSourceFile, \
pTarget, pDirectory, pStackPath, pStandalonePath, pEngineSourceFile
-- copy resources (inclusions) to files
revCopyResources pStack, pStackFileList, pDirectory
revCopyFiles pTarget, pDirectory, pStackPath
-- copy database drivers
revCopyDatabaseDrivers pTarget, pStackSourceFile, pStandalonePath, pEngineSourceFile
-- copy externals
revCopyExternals pTarget, pStackSourceFile, pEngineSourceFile, pStandalonePath
// IM-2015-10-14: [[ BrowserWidget ]] Copy CEF files needed for the browser widget.
// IM-2014-03-20: [[ revBrowserCEF ]] Ensure CEF support files are copied if requested
local tRevBrowser, tLibBrowser
put "Browser (CEF)" is among the lines of sStandaloneSettingsA["scriptLibraries"] into tRevBrowser
put "com.livecode.widget.browser" is among the lines of sStandaloneSettingsA["extensions"] into tLibBrowser
revCopyCEFResources pTarget, pStandalonePath, tRevBrowser, tLibBrowser
end revStandaloneCopyInclusions
local sLastUsedSettingsA
function revStandaloneLastUsedSettings
return sLastUsedSettingsA
end revStandaloneLastUsedSettings
private function revStandaloneInitialDeployParams pTarget, pStackSourceFile, pStandalonePath, pEngineSourceFile
-- This array contains the parameters for the deploy command
local tDeployInfo
-- Set up file references common to all platforms
put pStackSourceFile into tDeployInfo["stackfile"]
put pStandalonePath into tDeployInfo["output"]
put pEngineSourceFile into tDeployInfo["engine"]
-- Store settings used to create deploy params
put sStandaloneSettingsA into sLastUsedSettingsA
# AL-2015-01-29: [[ Scriptify IDE ]] Add the library inclusions to the deploy parameters
revSBUpdateDeployParams pStackSourceFile, pTarget, sStandaloneSettingsA, tDeployInfo
# AL-2015-01-29: [[ Scriptify IDE ]] Add user script libraries to deploy parameters
-- PM-2015-12-07: [[ Bug 15706 ]] Put double quotes around the stack name to avoid confusing the
-- parser when the stack name is 'copy of ...'
repeat for each line tLine in sUserScriptLibraries
put return & "if there is a stack" && quote & tLine & quote && "then library" && quote & tLine & quote after tDeployInfo["startup_script"]
end repeat
return tDeployInfo
end revStandaloneInitialDeployParams
private command __SaveCopyOfStackInTemporaryLocation pStack, @rLocation
local tFilename, tTemp
put the effective filename of stack pStack into tFilename
lock messages
put the tempname into tTemp
save stack pStack as tTemp
set the filename of stack pStack to tFilename
unlock messages
put tTemp into rLocation
end __SaveCopyOfStackInTemporaryLocation
private command __RestoreStackFromTemporaryLocation pStack, pLocation, pOriginalFileName
__ReloadOriginalStackFile pLocation, pStack
set the filename of stack pStack to pOriginalFileName
end __RestoreStackFromTemporaryLocation
private command __SendSavingStandaloneMessage pStack
try
dispatch "savingStandalone" to stack pStack
end try
end __SendSavingStandaloneMessage
private command __SendStandaloneSavedMessage pStack, pFolder
if char -1 of pFolder is not slash then
put slash after pFolder
end if
try
dispatch "standaloneSaved" to stack pStack with pFolder
end try
end __SendStandaloneSavedMessage
command revSaveAsMacStandalone pStack, pRestoreFileName, pFolder, @xStandalonePaths
local tStackFileList, tEngineSourceFile, tCount, tStackName, tStandalonePath
local tDirectory, tStackSourceFile, tName, tOriginalFileName, tStackPath
local tTargetDir
set the itemDelimiter to slash
put the effective filename of stack pStack into tOriginalFileName
put item 1 to -2 of tOriginalFileName into tStackPath
-- icon and resource file relative path handling
if there is a file (tStackPath&"/" & sStandaloneSettingsA["MacOS,includeResources"]) then
put tStackPath & "/" before sStandaloneSettingsA["MacOS,includeResources"]
end if
-- OK-2008-03-24 : Bug 6171. Restructured a little to ensure that the icon can be either relative or absolute.
-- If the icon cannot be found at the exact location, assume its relative to the stack and put the stack path before it.
if there is no file sStandaloneSettingsA["OSX,iconFile"] and sStandaloneSettingsA["OSX,iconFile"] is not empty then
put tStackPath & "/" before sStandaloneSettingsA["OSX,iconFile"]
end if
-- If the icon cannot be found (and we are building for OS X and its not empty) then add a warning.
if sStandaloneSettingsA["MACOSX"] is true and there is no file sStandaloneSettingsA["OSX,iconFile"] and sStandaloneSettingsA["OSX,iconFile"] is not empty then
revStandaloneAddWarning "Icon does not exist:" & tStackPath & "/" & sStandaloneSettingsA["OSX,iconFile"]
end if
if there is a file (tStackPath & "/" & sStandaloneSettingsA["OSX,documenticonFile"]) then
put tStackPath & "/" before sStandaloneSettingsA["OSX,documenticonFile"]
end if
if there is a file (tStackPath & "/" & sStandaloneSettingsA["OSX,plist"]) then
put tStackPath & "/" before sStandaloneSettingsA["OSX,plist"]
end if
-- Architectures
local tArchitectures
if sStandaloneSettingsA["MacOSX x86-32"] then put "i386," after tArchitectures
if sStandaloneSettingsA["MacOSX x86-64"] then put "x86-64," after tArchitectures
delete char -1 of tArchitectures
-- keep a copy of the standalone settings to restore after each build
local tStandaloneSettingsA
put sStandaloneSettingsA into tStandaloneSettingsA
repeat for each key tTarget in sPlatformDirectoriesA["MacOSX"]
put sPlatformDirectoriesA["MacOSX"][tTarget] into tTargetDir
put tTargetDir & sStandaloneSettingsA["name"] & ".app/Contents/MacOS/" into tDirectory
-- Ensure standalone settings script local is reset when building for subsequent targets
put tStandaloneSettingsA into sStandaloneSettingsA
revStandalonePreBuild pStack, pFolder, "macosx", tArchitectures, tStackName, tStackFileList
if the result is not empty then
return the result
end if
-- copy files to each directory
-- put the path to the engine into tEngineSourceFile
put revSBEnginePath(tTarget) into tEngineSourceFile
-- Allows the test system to build a standalone against any version
if revOverrideRuntimePath() is not empty then
put revOverrideRuntimePath() into tEngineSourceFile
end if
-- Ensure executable is at the expected location
if there is not a file tEngineSourceFile then
throw "Standalone: Ensure that you have not renamed the main LiveCode executable file: " \
& return & tEngineSourceFile
end if
put tDirectory & sStandaloneSettingsA["name"] into tStandalonePath
put tStandalonePath into xStandalonePaths[tTarget]
put tDirectory & tStackName into tStackSourceFile
revStandaloneCopyInclusions pStack, tStackFileList, tStackSourceFile, \
tTarget, tDirectory, tStackPath, tStandalonePath, tEngineSourceFile
local tDeployInfo
put revStandaloneInitialDeployParams(tTarget, tStackSourceFile, \
tStandalonePath, tEngineSourceFile) into tDeployInfo
put tArchitectures into tDeployInfo["architectures"]
# AL-2015-01-29: [[ Scriptify IDE ]] Add OSX App icons to deploy parameters
if sStandaloneSettingsA["OSX,appicon"] is not empty then
put return & "revInternal__SetAppIcon" && sStandaloneSettingsA["OSX,appicon"] after tDeployInfo["startup_script"]
end if
if sStandaloneSettingsA["OSX,smallappicon"] is not empty then
put return & "revInternal__SetSmallAppIcon" && sStandaloneSettingsA["OSX,smallappicon"] after tDeployInfo["startup_script"]
end if
-- Add a random uuid to use in the executable's uuid load command.
put uuid() into tDeployInfo["uuid"]
revStandaloneDeployWithParams tTarget, tStackSourceFile, tDeployInfo
-- Make sure we finish off the bundle contents
revSetMacOS tStandalonePath, tTarget, tEngineSourceFile
revRedirectMacOSResources tStandalonePath
--Restore stack to its post-savingStandalone message state
__RestoreStackFromTemporaryLocation pStack, pRestoreFileName, tOriginalFileName
end repeat
revStandalonePostBuild pStack, pFolder
return empty
end revSaveAsMacStandalone
command revSaveAsWindowsStandalone pStack, pRestoreFileName, pFolder, @xStandalonePaths
local tStackFileList, tEngineSourceFile, tCount, tStackName, tStandalonePath
local tDirectory, tStackSourceFile, tName, tStackPath, tOriginalFileName
set the itemDelimiter to slash
put the effective filename of stack pStack into tOriginalFileName
put item 1 to -2 of tOriginalFileName into tStackPath
put revEnvironmentRuntimePath() & "/Windows/x86-32/Support/Sample Icons" into tName
if sStandaloneSettingsA["Windows,iconFile"] = "" then
put tName & "/genericapp.ico" into sStandaloneSettingsA["Windows,iconFile"]
end if
if sStandaloneSettingsA["Windows,documenticonFile"] = "" then
put tName & "/genericdoc.ico" into sStandaloneSettingsA["Windows,documenticonFile"]
end if
if there is a file (tStackPath&"/" & sStandaloneSettingsA["Windows,iconFile"]) then
put tStackPath & "/" before sStandaloneSettingsA["Windows,iconFile"]
end if
if there is not a file (sStandaloneSettingsA["Windows,iconFile"]) and sStandaloneSettingsA["Windows"] is true and sStandaloneSettingsA["Windows,iconFile"] is not empty then
revStandaloneAddWarning "Icon does not exist:" & sStandaloneSettingsA["Windows,iconFile"]
end if
if there is not a file sStandaloneSettingsA["Windows,iconFile"] then
put item 1 to -2 of tName & "/Sample Icons/genericapp.ico" into sStandaloneSettingsA["Windows,iconFile"]
end if
if there is a file (tStackPath & "/" & sStandaloneSettingsA["Windows,documentIconFile"]) then
put tStackPath & "/" before sStandaloneSettingsA["Windows,documentIconFile"]
end if
if there is not a file sStandaloneSettingsA["Windows,documentIconFile"] then
put item 1 to -2 of tName & "/Sample Icons/genericdoc.ico" into sStandaloneSettingsA["Windows,documenticonFile"]
end if
-- keep a copy of the standalone settings to restore after each build
local tStandaloneSettingsA
put sStandaloneSettingsA into tStandaloneSettingsA
repeat for each key tTarget in sPlatformDirectoriesA["Windows"]
put sPlatformDirectoriesA["Windows"][tTarget] into tDirectory
-- Ensure standalone settings script local is reset when building for subsequent targets
put tStandaloneSettingsA into sStandaloneSettingsA
local tArch
if word 2 of tTarget is among the items of "x64,x86-64,x86_64" then
put "x86_64" into tArch
else if word 2 of tTarget is not empty then
put word 2 of tTarget into tArch
else
put "x86" into tArch
end if
revStandalonePreBuild pStack, pFolder, "windows", tArch, tStackName, tStackFileList
if the result is not empty then
return the result
end if
-- copy files to each directory
-- put the path to the engine into tEngineSourceFile
put revSBEnginePath(tTarget) into tEngineSourceFile
-- Allows the test system to build a standalone against any version
if revOverrideRuntimePath() is not empty then
put revOverrideRuntimePath() into tEngineSourceFile
end if
-- Ensure executable is at the expected location
if there is not a file tEngineSourceFile then
throw "Standalone: Ensure that you have not renamed the main LiveCode executable file: " \
& return & tEngineSourceFile
end if
put tDirectory & sStandaloneSettingsA["name"] into tStandalonePath
-- add ".exe" to windows standalone file
put ".exe" after tStandalonePath
put tStandalonePath into xStandalonePaths[tTarget]
put tDirectory & tStackName into tStackSourceFile
revStandaloneCopyInclusions pStack, tStackFileList, tStackSourceFile, \
tTarget, tDirectory, tStackPath, tStandalonePath, tEngineSourceFile
local tDeployInfo
put revStandaloneInitialDeployParams(tTarget, tStackSourceFile, \
tStandalonePath, tEngineSourceFile) into tDeployInfo
-- Set windows-specific info
-- Make sure we include the app icon if any
if sStandaloneSettingsA["Windows,iconFile"] is not empty then
put sStandaloneSettingsA["Windows,iconFile"] into tDeployInfo["appIcon"]
-- MW-2013-06-14: [[ CloneAndRun ]] Use the icon from 'rsrc' if generic.
if not revEnvironmentIsInstalled() and tDeployInfo["appIcon"] contains "genericapp.ico" then
put revEnvironmentRepositoryPath() & slash & "engine/rsrc/standalone.ico" into tDeployInfo["appIcon"]
end if
end if
-- Make sure we include the doc icon if any
if sStandaloneSettingsA["Windows,documentIconFile"] is not empty then
put sStandaloneSettingsA["Windows,documentIconFile"] into tDeployInfo["docIcon"]
-- MW-2013-06-14: [[ CloneAndRun ]] Use the icon from 'rsrc' if generic.
if not revEnvironmentIsInstalled() and tDeployInfo["docIcon"] contains "genericdoc.ico" then
put revEnvironmentRepositoryPath() & slash & "engine/rsrc/document.ico" into tDeployInfo["docIcon"]
end if
end if
-- Make sure we use the user's version info data
put sStandaloneSettingsA["Windows,fileversion1"]&"."&sStandaloneSettingsA["Windows,fileversion2"]&"." & sStandaloneSettingsA["Windows,fileversion3"]&"."&sStandaloneSettingsA["Windows,fileversion4"] into sStandaloneSettingsA["Windows,FileVersion"]
put sStandaloneSettingsA["Windows,productversion1"]&"."&sStandaloneSettingsA["Windows,productversion2"]&"." & sStandaloneSettingsA["Windows,productversion3"]&"."&sStandaloneSettingsA["Windows,productversion4"] into sStandaloneSettingsA["Windows,ProductVersion"]
set the itemDelimiter to comma
repeat for each item tField in kVersionFlds
put sStandaloneSettingsA["Windows", tField] into tDeployInfo["version"][tField]
end repeat
// IM-2014-08-15: [[ Bug 13118 ]] Split manifest sections into separate template files.
local tManifestData, tManifestPath, tManifestNeeded
put empty into tManifestData
put false into tManifestNeeded
put revEnvironmentRuntimePath() & "/Windows/x86-32/w32-manifest-template.xml" into tManifestPath
if there is not a file tManifestPath then
revStandaloneAddWarning "Windows, manifest template not found: " & quote & tManifestPath & quote
else
put url ("file:" & tManifestPath) into tManifestData
end if
# OK-2009-09-25 : UAC Manifest. If the user has choosen "default" from the drop-down, or the stack doesn't have this setting at all, we don't
# include the manifest.
local tManifestTrustInfo
put empty into tManifestTrustInfo
if sStandaloneSettingsA["Windows,uacExecutionLevel"] is not empty and sStandaloneSettingsA["Windows,uacExecutionLevel"] is not "default" then
local tManifestTrustInfoPath
put revEnvironmentRuntimePath() & "/Windows/x86-32/w32-manifest-template-trustinfo.xml" into tManifestTrustInfoPath
if there is not a file tManifestTrustInfoPath then
revStandaloneAddWarning "Windows, manifest trustinfo template not found: " & quote & tManifestTrustInfoPath & quote
else
put url ("file:" & tManifestTrustInfoPath) into tManifestTrustInfo
replace "[[executionLevel]]" with sStandaloneSettingsA["Windows,uacExecutionLevel"] in tManifestTrustInfo
put true into tManifestNeeded
end if
end if
local tManifestApplication
// IM-2014-08-15: [[ Bug 13118 ]] Pull in dpiAware section if set.
if sStandaloneSettingsA["Windows,usePixelScaling"] is empty or sStandaloneSettingsA["Windows,usePixelScaling"] is true then
local tManifestApplicationPath
put revEnvironmentRuntimePath() & "/Windows/x86-32/w32-manifest-template-dpiaware.xml" into tManifestApplicationPath
if there is not a file tManifestApplicationPath then
revStandaloneAddWarning "Windows, manifest dpiaware template not found: " & quote & tManifestApplicationPath & quote
else
put url ("file:" & tManifestApplicationPath) into tManifestApplication
put true into tManifestNeeded
end if
end if
if tManifestNeeded and tManifestData is not empty then
replace "[[trustInfo]]" with tManifestTrustInfo in tManifestData
replace "[[application]]" with tManifestApplication in tManifestData
local tManifestFile
put the tempName into tManifestFile
put tManifestData into url ("binfile:" & tManifestFile)
put tManifestFile into tDeployInfo["manifest"]
end if
revStandaloneDeployWithParams tTarget, tStackSourceFile, tDeployInfo
--Restore stack to its post-savingStandalone message state
__RestoreStackFromTemporaryLocation pStack, pRestoreFileName, tOriginalFileName
end repeat
revStandalonePostBuild pStack, pFolder
return empty
end revSaveAsWindowsStandalone
command revSaveAsLinuxStandalone pStack, pRestoreFileName, pFolder, @xStandalonePaths
local tStackFileList, tEngineSourceFile, tCount, tStackName, tStandalonePath
local tDirectory, tStackSourceFile, tName, tStackPath, tOriginalFileName
set the itemDelimiter to slash
put the effective filename of stack pStack into tOriginalFileName
put item 1 to -2 of tOriginalFileName into tStackPath
-- keep a copy of the standalone settings to restore after each build
local tStandaloneSettingsA
put sStandaloneSettingsA into tStandaloneSettingsA
repeat for each key tTarget in sPlatformDirectoriesA["Linux"]
put sPlatformDirectoriesA["Linux"][tTarget] into tDirectory
-- Ensure standalone settings script local is reset when building for subsequent targets
put tStandaloneSettingsA into sStandaloneSettingsA
local tArch
if word 2 of tTarget is among the items of "x64,x86-64,x86_64" then
put "x86_64" into tArch
else if word 2 of tTarget is not empty then
put word 2 of tTarget into tArch
else
put "x86" into tArch
end if
revStandalonePreBuild pStack, pFolder, "linux", tArch, tStackName, tStackFileList
if the result is not empty then
return the result
end if
-- Always add print dialogs to linux standalones when searching for inclusions
if sStandaloneSettingsA["inclusions"] = "search" then
put true into sStandaloneSettingsA["revolutionPrintDialogs"]
end if
-- copy files to each directory
-- put the path to the engine into tEngineSourceFile
put revSBEnginePath(tTarget) into tEngineSourceFile
-- Allows the test system to build a standalone against any version
if revOverrideRuntimePath() is not empty then
put revOverrideRuntimePath() into tEngineSourceFile
end if
-- Ensure executable is at the expected location
if there is not a file tEngineSourceFile then
throw "Standalone: Ensure that you have not renamed the main LiveCode executable file: " \
& return & tEngineSourceFile
end if
put tDirectory & sStandaloneSettingsA["name"] into tStandalonePath
put tStandalonePath into xStandalonePaths[tTarget]
put tDirectory & tStackName into tStackSourceFile
revStandaloneCopyInclusions pStack, tStackFileList, tStackSourceFile, \
tTarget, tDirectory, tStackPath, tStandalonePath, tEngineSourceFile
local tDeployInfo
put revStandaloneInitialDeployParams(tTarget, tStackSourceFile, \
tStandalonePath, tEngineSourceFile) into tDeployInfo
revStandaloneDeployWithParams tTarget, tStackSourceFile, tDeployInfo
--Restore stack to its post-savingStandalone message state
__RestoreStackFromTemporaryLocation pStack, pRestoreFileName, tOriginalFileName
end repeat
revStandalonePostBuild pStack, pFolder
return empty
end revSaveAsLinuxStandalone
private command __ReloadOriginalStackFile pStackPath, pStack
if there is a stack pStack then
local tOldLock
put the lockMessages into tOldLock
lock messages
set the cantDelete of stack pStack to false
delete stack pStack
set the lockMessages to tOldLock
end if
local tError
try
get the short name of stack pStackPath
catch tError
return "Could not reload stack file" for error
end try
return it for value
end __ReloadOriginalStackFile
#####################################################################
# Check for open stacks, ask to save if need be then close them
#####################################################################
private command revCloseOpenStacks pStackFileList, pStack
local tStackFile,tSubList,tStack,tSubStack
revStandaloneProgress "Closing open stacks..."
# OK-2008-03-13 : Bug 5874. Filter out the stack being built from the list as we have
# already done the save checking on it.
local tCheckList
put pStackFileList["full"] into tCheckList
local tLineNumber
set the wholeMatches to true
put lineOffset(the effective filename of stack pStack, tCheckList) into tLineNumber
if tLineNumber <> 0 then
delete line tLineNumber of tCheckList
end if
repeat for each line tStackFile in tCheckList
if the short name of stack tStackFile is among the lines of the mainStacks then
put the subStacks of stack tStackFile into tSubList
set the itemDel to "/"
repeat for each line tStack in tSubList
if the mode of stack tStack is not 0 then
if not revSaveCheck(tStack) then
revAbort
# OK-2008-03-13 : Bug 5874
exit to top
end if
end if
end repeat
if the mode of stack tStackFile is not 0 then
if not revSaveCheck(the short name of stack tStackFile) then
revAbort
# OK-2008-03-13 : Bug 5874
exit to top
end if
end if
set the itemDel to comma
end if
end repeat
-- remove the stacks from memory and keep a note of them for later
repeat for each line tStack in pStackFileList["full"]
if the short name of stack tStack is among the lines of the mainStacks then
put the subStacks of stack tStack into tSubList
repeat for each line tSubStack in tSubList
if the short name of stack tSubStack is among the lines of openstacks() then
put the long name of stack tSubStack & cr after sResetA["Reopen"]
# OK-2008-11-10 : Bug 7382 - Remember if stacks were in message path
put stackIsInGlobalMessagePath(the long name of stack tSubStack) & return after sResetA["Restore Message Path"]
end if
#LG-2008-01-24
#Bug 5110: Changed code so substacks are closed instead of
#deleted.
--delete stack tSubStack
close stack tSubStack
end repeat
if the short name of stack tStack is among the lines of openstacks() then
put the long name of stack tStack & cr after sResetA["Reopen"]
# OK-2008-11-10 : Bug 7382 - Remember if stacks were in message path
put stackIsInGlobalMessagePath(the long name of stack tStack) & return after sResetA["Restore Message Path"]
end if
close stack tStack
end if
end repeat
end revCloseOpenStacks
# OK-2008-11-10 : Bug 7382 - Remember if stacks were in message path
private function stackIsInGlobalMessagePath pStack
set the wholeMatches to true
if the short name of pStack is among the lines of the stacksInUse then
return "in use"
end if
if pStack is among the lines of the backscripts then
return "backscript"
end if
if pStack is among the lines of the frontscripts then
return "frontscript"
end if
return empty
end stackIsInGlobalMessagePath
private command restoreStackToMessagePath pStack, pMessagePathState
switch pMessagePathState
case empty
exit restoreStackToMessagePath
break
case "in use"
# Messages should be locked in to prevent a libraryStack message being sent to the stack in use.
# The idea being that the standalone builder should intefere as little as possible with the built stacks.
lock messages
start using stack pStack
unlock messages
break
case "backscript"
# Note that the order of backscripts may not be preserved, not sure if this is a problem...
lock messages
insert the script of pStack into back
unlock messages
break
case "frontscript"
lock messages
insert the script of pStack into front
unlock messages
break
default
# Just ignore this for now
end switch
end restoreStackToMessagePath
#####################################################################
# Generate sPlatformDirectoriesA
#####################################################################
private command revOutputDirectories pFolder
local tTarget,tDirectory,tPlatforms,tCount,tOSXCount
revStandaloneProgress "Checking directories..."
if there is a folder (pFolder & sStandaloneSettingsA["name"]) or \
there is a file (pFolder & sStandaloneSettingsA["name"]) then
put 1 into tCount
repeat while there is a folder (pFolder & sStandaloneSettingsA["name"]&tCount) or \
there is a file (pFolder & sStandaloneSettingsA["name"]&tCount)
add 1 to tCount
end repeat
end if
put 0 into tPlatforms
local tTargets
put revSBDesktopTargets() into tTargets
repeat for each item tTarget in tTargets & comma & revSBAdditionalTargets()
if sStandaloneSettingsA[tTarget] = true then
if tTarget contains "MacOSX" then
add 1 to tOSXCount
else
add 1 to tPlatforms
end if
end if
end repeat
if tOSXCount > 0 then add 1 to tPlatforms
repeat for each item tTarget in tTargets
if sStandaloneSettingsA[tTarget] = true then
if not revDownloadEngine(tTarget) then
revStandaloneAddWarning "Could not build for " & tTarget & " because required files are missing."
next repeat
end if
local tPlatform
put revSBTargetToPlatform(tTarget) into tPlatform
# Skip this platform if we've already done OSX building
if tPlatform is "MacOSX" then
if tOSXCount is 0 then next repeat
put 0 into tOSXCount -- Reset the count to zero to force other OSX platforms to be ignored
# As we are doing Universal builds or single slice then use platform as folder name for Mac
put revSBStandaloneOutputDirectory(sStandaloneSettingsA["name"], tCount, pFolder, tPlatform, tPlatforms > 1) into tDirectory
else
put revSBStandaloneOutputDirectory(sStandaloneSettingsA["name"], tCount, pFolder, tTarget, tPlatforms > 1) into tDirectory
end if
put tDirectory into sPlatformDirectoriesA[tPlatform][tTarget]
end if
end repeat
put tPlatforms into sPlatformCount
# Marcus: I need the root directory for U3, so return it here, nothing else uses a return
return (pFolder & sStandaloneSettingsA["name"] & tCount)
end revOutputDirectories
private function revPlatformCount
return sPlatformCount
end revPlatformCount
#####################################################################
# Copies general resources to the standalone stack and then does
# what it needs to to substacks etc.
#
# Note: The major difference between this code and the old DB code is
# here we do every thing to the stacks once then save them to each
# platform directory. In the old DB we repeated everything for each directory
# which meant that the cost of building for multiple platforms was far higher.
#####################################################################
private command revCopyResources pStack, pStackFileList, pDirectory
local tCopyFiles, tLicenseType, tFileName, tLine, tSave, tStackFileSettingsA, tMainStackSubs
local tLibraries, tOrigVisible, tPath, tCount, tRelativePath, tStack, tSubList, tStacksList, tVisibleA
-- engine defaults are correct, except os 9 which is handled platform specific
revStandaloneProgress "Copying resources..."
lock messages
put the visible of stack pStack into tVisibleA[pStack]
set the visible of stack pStack to false
toplevel pStack
if the shadowColor of stack pStack = "" and the shadowPattern of stack pStack = "" then set the shadowColor of stack pStack to 172,172,172
if the bottomColor of stack pStack = "" and the bottomPattern of stack pStack = "" then set the bottomColor of stack pStack to 128,128,128
-- now add stuff to the mainstack
-- need the substacks of the mainStack to avoid exporting all the stacks we're importing now
-- it's better to do it this way than have heaps of extra saves or a separate mainstack script
put the substacks of stack pStack into tMainStackSubs
if sStandaloneSettingsA["answerDialog"] then
put "answer dialog"&cr after tCopyFiles
revAddDialogIcons
end if
if sStandaloneSettingsA["askDialog"] then
revAddDialogIcons
put "ask dialog" &cr after tCopyFiles
end if
if sStandaloneSettingsA["brushes"] then
put "revCompatibilityBrushes1" & return after tCopyFiles
end if
-- PM-2015-06-24: [[ Bug 15535 ]] Make possible to use magnify palette in standalones
if sStandaloneSettingsA["Magnify"] then
put "Magnify" & return after tCopyFiles
end if
if sStandaloneSettingsA["revolutionPrintDialogs"] then
put "Print Dialog" & return after tCopyFiles
put "Page Setup Dialog" & return after tCopyFiles
end if
delete char -1 of tCopyFiles
-- copy the resources into the standalone mainstack
repeat for each line tLine in tCopyFiles
if tLine is empty then next repeat
if tLine is among the lines of the substacks of stack pStack then next repeat
put the visible of stack tLine into tOrigVisible
hide stack tLine
clone stack tLine
set the mainStack of stack ("copy of" && tLine) to pStack
close stack tLine
set the visible of stack tLine to tOrigVisible
close stack ("copy of" && tLine)
show stack ("copy of" && tLine)
set the name of stack ("copy of" && tLine) to tLine
end repeat
put "" into tCopyfiles
-- error reporting
if sStandaloneSettingsA["errorDialog"] then
set the cErrorsList of stack "revErrorReport" to the scriptExecutionErrors
set the cScriptErrors of stack "revErrorReport" to the scriptParsingErrors
set the htmltext of fld "info" of stack "revErrorReport" to sStandaloneSettingsA["errorDialog,htmltext"]
if sStandaloneSettingsA["errorDialog,icon"] is not "" then
set the icon of btn "icon" of stack "revErrorReport" to sStandaloneSettingsA["errorDialog,icon"]
put true into sIconA[sStandaloneSettingsA["errorDialog,icon"]]
show btn "icon" of stack "revErrorReport"
else
hide btn "icon" of stack "revErrorReport"
end if
if sStandaloneSettingsA["errorDialog,comments"] = true then
show group "comments" of stack "revErrorReport"
else
hide group "comments" of stack "revErrorReport"
end if
if sStandaloneSettingsA["errorDialog,email"] is not "" then
show btn "email" of stack "revErrorReport"
set the cEmail of stack "revErrorReport" to sStandaloneSettingsA["errorDialog,email"]
else
hide btn "email" of stack "revErrorReport"
end if
if sStandaloneSettingsA["errorDialog,save"] = true then
show btn "save" of stack "revErrorReport"
else
hide btn "save" of stack "revErrorReport"
end if
-- can leave it as copy of and it's neccesary since it's a substack revStandaloneSettings
put "revErrorReport" & cr after tCopyFiles
end if
set the itemDelimiter to "/"
repeat for each line tLine in tCopyFiles
if tLine is among the lines of the substacks of stack pStack then next repeat
set the visible of stack tLine to false
clone stack tLine
set the mainStack of stack ("copy of "&tLine) to pStack
set the visible of stack tLine to true
close stack ("copy of "&tLine)
set the visible of stack ("copy of "&tLine) to true
put "copy of "&tLine & cr after tLibraries
end repeat
delete char -1 of tLibraries
# OK-2007-08-09 : Because the group "revLibraries" is created on a per-platform basis to support Mac OS Classic,
# we have to defer the setting of this property until after the group is copied, we store this value in a script
# local variable instead, and set the property when the group is actually copied, in revCopyScriptLibraries.
# set the cScriptLibraries of group "revLibraries" of card 1 of stack pStack to tLibraries
put tLibraries into sUserScriptLibraries
# OK-2007-08-09 : Moved to revCopyScriptLibraries
-- set the cAppIcon of group "revLibraries" of cd 1 of stack pStack to sStandaloneSettingsA["OSX,appicon"]
-- set the cSmallAppIcon of group "revLibraries" of cd 1 of stack pStack to sStandaloneSettingsA["OSX,smallappicon"]
put true into sIconA[sStandaloneSettingsA["OSX,appicon"]]
put true into sIconA[sStandaloneSettingsA["OSX,smallappicon"]]
put "" into tCopyFiles
put 1 into tCount
repeat for each line tStackFile in pStackFileList["full"]
--put "" into tCopyFiles
put item 1 to -2 of line tCount of pStackFileList["relative"] into tRelativePath
if tRelativePath is not empty then put "/" after tRelativePath
put item -1 of tStackFile into tFileName
if tRelativePath & tFileName is tStackFile then put empty into tRelativePath
put the mainStack of stack tStackFile into tStack
if tStack is not pStack then
put the subStacks of stack tStackFile into tSubList
put the visible of stack tStack into tVisibleA[tStack]
set the visible of stack tStack to false
toplevel tStack
else
put tMainStackSubs into tSubList
end if
if tSubList is not "" then
put tStack & return & tSubList into tStacksList
else
put tStack into tStacksList
end if
repeat for each line tLine in tStacksList
--export images, remove dev custom props
if the cRevStandaloneSettings["destroyStack"] of stack tLine then
set the destroyStack of stack tLine to true
end if
if the cRevStandaloneSettings["password"] of stack tLine is not "" then
try
set the password of stack tLine to the cRevStandaloneSettings["password"] of stack tLine
catch someError
beep
answer warning "There was an error applying a password to stack" && tLine & "." with "OK"
end try
end if
# OK-2007-10-16 : Bug 5460
revEnumerateIcons tLine
if sStandaloneSettingsA["copyreferencedfiles"] is true then
revCopyReferencedFiles tLine, tRelativePath, sStandaloneSettingsA["ReferencedFilesDestination"], pDirectory
end if
end repeat
-- we need to do the icon stuff before we save the mainstack
if tStack is not pStack then
close stack tStack
set the visible of stack tStack to tVisibleA[tStack]
put revSaveStackFile(tStack, tSubList, tRelativePath, pDirectory) & return after tCopyFiles
end if
add 1 to tCount
end repeat
revCopyIcons pStack
-- set stackFiles of mainStack
delete char -1 of tCopyFiles
set the stackFiles of stack pStack to tCopyFiles
close stack pStack
set the visible of stack pStack to tVisibleA[pStack]
get revSaveStackFile(pStack, tMainStackSubs, "", pDirectory)
end revCopyResources
private command revAddDialogIcons
repeat for each key tPlatform in sPlatformDirectoriesA
switch tPlatform
case "MacOSX"
put true into sIconA[210092]
put true into sIconA[210093]
put true into sIconA[210094]
put true into sIconA[210097]
break
case "Windows"
put true into sIconA[210003]
put true into sIconA[210004]
put true into sIconA[210005]
put true into sIconA[210011]
break
default
put true into sIconA[210006]
put true into sIconA[210007]
put true into sIconA[210008]
put true into sIconA[210010]
end switch
end repeat
end revAddDialogIcons
private function revSaveStackFile pStack, pSubList, pRelativePath, pDirectory
local tStacksList, tLine, tFileName, tCopyFiles, tStackFileSettingsA, tSave
revStandaloneProgress "Saving stack files..."
put the customProperties["cRevStandaloneSettings"] of stack pStack into tStackFileSettingsA
add 1 to sGenericNumber
repeat for each line tLine in pSubList
revSetStackProps tLine
-- move substacks and save into data folders
if tStackFileSettingsA["moveSubstacks"] = true then
set the mainStack of stack tLine to tLine
--cycle through sDirectoryList and build the files in each directory
put pRelativePath into tSave
if tStackFileSettingsA["substackFolder"] is not "" then
put tStackFileSettingsA["substackFolder"] & "/" after tSave
end if
put revSaveToFolder(pDirectory & tSave, tLine, tStackFileSettingsA["renameGeneric"]) into tFileName
if tLine,tSave & "/" & tFileName is not among the lines of tCopyFiles then put tLine,tSave & "/" & tFileName & return after tCopyFiles
-- MM-2013-04-05: [[ Bug 10756 ]] Make sure we're allowed to delete the stack before deleteing.
set the cantDelete of stack tLine to false
delete stack tLine
end if
add 1 to sGenericNumber
end repeat
revSetStackProps pStack
if paramCount() = 2 then
delete char -1 of tCopyFiles
if the stackFiles of stack pStack is not "" then
set the stackFiles of stack pStack to the stackFiles of stack pStack&return&tCopyFiles
else
set the stackFiles of stack pStack to tCopyFiles
end if
end if
-- OK-2008-03-24 : Bug 6208. The mainstack must be saved after the substacks have
-- been saved / deleted, otherwise they remain in the built standalone, causing the wrong
-- stacks to be used and resulting in the stacks not being saveable.
put revSaveToFolder(pDirectory & pRelativePath, pStack, false) into tFileName
put pStack,pRelativePath&tFileName & return after tCopyFiles
if tStackFileSettingsA["moveSubstacks"] is not true then
repeat for each line tLine in pSubList
put tLine,pRelativePath&tFileName & return after tCopyFiles
end repeat
end if
delete char -1 of tCopyFiles
return tCopyFiles
end revSaveStackFile
#####################################################################
# Search the image libraries for images to copy
# Required images are sIconA[<iconNumber>] = true
#
#####################################################################
private command revCopyIcons pStack
local tIconFolder,tSaveDirectory,tStacksList,tCardNum,tImageNum, tEnvironmentIcons, tUserIcons, tFiles
revStandaloneProgress "Copying icons..."
-- create the stack to copy to
lock screen
if keys(sIconA) is not "" then
create invisible stack "revCopiedIcons"
set the destroyStack of stack "revCopiedIcons" to true
set the mainStack of stack "revCopiedIcons" to pStack
-- get the icon libraries
put revAbsoluteFolderListing(revEnvironmentResourcesPath("Icon Libraries")) into tEnvironmentIcons
put revAbsoluteFolderListing(revEnvironmentUserResourcesPath("Icon Libraries")) into tUserIcons
put revCombineFilePaths(tUserIcons,tEnvironmentIcons) into tFiles
put "revGeneralIcons" & return & "revCompatibilityIcons1" & return & "revGeneralPatterns" & return & "revCompatibilityPatterns1" & return & "revCompatibilityPatterns2" & return & "revCustomCursors" into tStacksList
set the itemDel to slash
local tIconA
put sIconA into tIconA
repeat for each line tFile in tFiles
if there is not a stack tFile then next repeat -- windows placeholder
put return & the short name of stack tFile after tStacksList
end repeat
-- loop over each stack and copy any image that needs to be copied to "revCopiedIcons"
repeat for each line tStack in tStacksList
put the number of cds of stack tStack into tCardNum
repeat with tCard =1 to tCardNum
put the number of images of cd tCard of stack tStack into tImageNum
repeat with tImage =1 to tImageNum
if tIconA[the short id of image tImage of cd tCard of stack tStack] then
copy image tImage of cd tCard of stack tStack to stack "revCopiedIcons"
set the id of the last image of stack "revCopiedIcons" to the short id of image tImage of cd tCard of stack tStack
put false into tIconA[the short id of image tImage of cd tCard of stack tStack]
end if
end repeat
end repeat
end repeat
close stack "revCopiedIcons"
end if
unlock screen
end revCopyIcons
#####################################################################
# Copies the user selected files to the application directory
#####################################################################
private command revCopyFiles pTarget, pDirectory, pStackPath
local tFileData
revSBUpdateSettingsForExtensions pTarget, sStandaloneSettingsA
revSBResolveCopyFilesList pStackPath, pTarget, sStandaloneSettingsA, tFileData
local tName,tDir
revStandaloneProgress "Copying files..."
set the itemDelimiter to slash
repeat for each element tFile in tFileData
if revResourceExists(tFile["resolved"]) then
revSBEnsureFolder pDirectory & slash & item 1 to -2 of tFile["name"]
if there is a file tFile["resolved"] then
revSBCopyFileToFile tFile["resolved"], pDirectory & slash & tFile["name"], \
"revStandaloneProgressCallback", the long id of me
else
revSBCopyFolderToDestination tFile["resolved"], pDirectory, \
"revStandaloneProgressCallback", the long id of me
end if
else
revStandaloneAddWarning "File to include in standalone not found:" && quote & tFile & quote
end if
end repeat
end revCopyFiles
#####################################################################
#
# revAbort is called if we need to stop the build process for whatever
# reason.
#
#####################################################################
# OK-2010-03-31: Ensure that user data cannot be lost on cleanup by redirecting all calls to revDeleteFolder
# via this command. The idea is that we check some basic stuff to ensure that if something goes wrong, we
# don't delete anything important.
private command revStandaloneDeleteFolder pFolder
if revStandaloneFolderSafeToDelete(pFolder) then
revDeleteFolder pFolder
return the result
else
# Best not to do anything here, its probably a cleanup issue so may not effect the built application,
# additionally its maybe best if the user didn't know that rev nearly tried to delete the wrong folder...
end if
end revStandaloneDeleteFolder
private function revStandaloneFolderSafeToDelete pFolder
set the itemDelimiter to slash
# If we don't know the name of what we're building, don't risk deleting a folder, this should ever happen unless
# its a bug somewhere else in the builder.
if sStandaloneSettingsA["name"] is empty then
return false
end if
# Folders being deleted should always contain the name of the application being built, if not, something is wrong.
if not (pFolder contains sStandaloneSettingsA["name"]) then
return false
end if
# Finally, don't ever allow a folder with less than 2 items in its path to be deleted. This could be an issue if the user
# tries to build the stack directly to the root of the drive, but its a nice safety check to have...
if the number of items of pFolder < 2 then
return false
end if
# Maybe we should add more checks here, but the above ones seem like they should cover everything
return true
end revStandaloneFolderSafeToDelete
private command revCleanOutputFolders
set the itemDel to "/"
local tPlatform, tTarget, tDirectory
put line 1 of the keys of sPlatformDirectoriesA into tPlatform
put line 1 of the keys of sPlatformDirectoriesA[tPlatform] into tTarget
put sPlatformDirectoriesA[tPlatform][tTarget] into tDirectory
if revPlatformCount() > 1 then
revStandaloneDeleteFolder item 1 to -2 of tDirectory
else
revStandaloneDeleteFolder tDirectory
end if
end revCleanOutputFolders
private command revCleanBuildStacks
repeat for each line tLine in sResetA["Reopen"]
if there is a stack tLine then
if the mode of stack tLine is not 0 then
repeat for each line tSub in the substacks of stack tLine
close stack tSub
end repeat
-- MM-2013-04-05: [[ Bug 10756 ]] Make sure we're allowed to delete the stack before deleteing.
set the cantDelete of stack tLine to false
delete stack tLine
end if
end if
end repeat
end revCleanBuildStacks
private command revAbort
revCleanOutputFolders
revCleanBuildStacks
revReset
end revAbort
command revReset
unlock cursor
lock screen
lock messages
delete variable sPlatformDirectoriesA -- the list of build directories
delete variable sGenericNumber -- a simple counter for the generic file naming
delete variable sStandaloneSettingsA -- a copy of the cRevStandaloneSettings of stack pFolder
delete variable sIconA -- array for icons
set the directory to sResetA["Directory"]
set the fileType to sResetA["fileType"]
unlock messages
try
# TH-2008-07-08 :: Bug 6444, locking messages around this handler to prevent calling of preopencard handlers
# in the stacks being built
local tLineNumber
put 0 into tLineNumber
repeat for each line tLine in sResetA["Reopen"]
add 1 to tLineNumber
go tLine
# OK-2008-11-10 : Bug 7382 - Restores the stack's position in the message path if there was one
restoreStackToMessagePath tLine, line tLineNumber of sResetA["Restore Message Path"]
end repeat
end try
delete variable sResetA -- stored info for resetting to the pre-build state
unlock screen
revStandaloneProgressFinished
end revReset
private command revSetMacOS pWhatFile, pPlatformCode, pEnginePath
local tVers,tSize,tTempPlist,tDocTypeList,tDocExtList
revStandaloneProgress "Building Mac OS components..."
-- for OSX
if pPlatformCode contains "MacOSX" then
-- MW-2013-11-06: [[ Bug 11385 ]] Updated to escape all strings put in the plist (Mavericks
-- doesn't like & - its stricter!)
-- user chose a plist file
if sStandaloneSettingsA["OSX,plist"] is not "" and there is a file sStandaloneSettingsA["OSX,plist"] then
put uniDecode(uniEncode(URL ("file:" & sStandaloneSettingsA["OSX,plist"]), "UTF8")) into tTempPlist
else
set the itemDel to "/"
--setting the different plist variables
put URL ("file:" & item 1 to -3 of pEnginePath&"/Info.plist") into tTempPlist
if sStandaloneSettingsA["OSX,info"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,info"]) & "</string>" into line lineoffset("<key>CFBundleGetInfoString</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,longVersion"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,longVersion"]) & "</string>" into line lineoffset("<key>CFBundleLongVersionString</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,shortVersion"] is not empty then
-- MW-2011-01-28: [[ Bug 9316 ]] Make the bundle version the same as the short version string
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,shortVersion"]) & "</string>" into line lineoffset("<key>CFBundleVersion</key>",tTempPlist) + 1 of tTempPlist
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,shortVersion"]) & "</string>" into line lineoffset("<key>CFBundleShortVersionString</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,copyright"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,copyright"]) & "</string>" into line lineoffset("<key>NSHumanReadableCopyright</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,signature"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,signature"]) & "</string>" into line lineoffset("<key>CFBundleSignature</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,identifier"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,identifier"]) & "</string>" into line lineoffset("<key>CFBundleIdentifier</key>",tTempPlist) + 1 of tTempPlist
end if
if sStandaloneSettingsA["OSX,name"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["OSX,name"]) & "</string>" into line lineoffset("<key>CFBundleName</key>",tTempPlist) + 1 of tTempPlist
end if
put "<string>" & escapeForXml(sStandaloneSettingsA["name"]) & "</string>" into line lineoffset("<key>CFBundleExecutable</key>",tTempPlist) + 1 of tTempPlist
if sStandaloneSettingsA["name"] is not empty then
put "<string>" & escapeForXml(sStandaloneSettingsA["name"]) &&"Files"& "</string>" into line lineoffset("<key>CFBundleTypeName</key>",tTempPlist) + 1 of tTempPlist
end if
set the itemDelimiter to comma
put empty into tDocTypeList
repeat for each item tType in sStandaloneSettingsA["OSX,documentType"]
put "<string>" & escapeForXml(tType) & "</string>" & cr after tDocTypeList
end repeat
if the last char of tDocTypeList is cr then
delete the last char of tDocTypeList
end if
put escapeForXml(tDocTypeList) into line lineoffset("<key>CFBundleTypeOSTypes</key>",tTempPlist) + 2 of tTempPlist
put empty into tDocExtList
repeat for each item tType in sStandaloneSettingsA["OSX,documentExtension"]
put "<string>" & escapeForXml(tType) & "</string>" & cr after tDocExtList
end repeat
if the last char of tDocExtList is cr then
delete the last char of tDocExtList
end if
put escapeForXml(tDocExtList) into line lineoffset("<key>CFBundleTypeExtensions</key>",tTempPlist) + 2 of tTempPlist
end if
set the itemDel to "/"
put uniDecode(uniEncode(tTempPlist), "UTF8") into URL ("file:" & item 1 to -3 of pWhatFile&"/Info.plist")
if sStandaloneSettingsA["OSX,signature"] is not empty then
put "APPL" & sStandaloneSettingsA["OSX,signature"] into URL ("file:" & item 1 to -3 of pWhatFile&"/PkgInfo")
end if
if there is not a folder (item 1 to -3 of pWhatFile & "/Resources") then
create folder (item 1 to -3 of pWhatFile & "/Resources")
end if
-- MM-2014-03-21: [[ PPC Support Dropped ]] We no longer include universal builds so set icon prefix to intel standalone.
local tIconPrefix
put revEnvironmentRuntimePath() & "/Mac OS X/x86-32/Standalone.app/Contents/Resources/Standalone" into tIconPrefix
if sStandaloneSettingsA["OSX,iconFile"] is not empty then
revSBCopyFile sStandaloneSettingsA["OSX,iconFile"], item 1 to -3 of pWhatFile & "/Resources/Standalone.icns", "revStandaloneProgressCallback", the long id of me
else
revSBCopyFile tIconPrefix & ".icns", item 1 to -3 of pWhatFile & "/Resources/Standalone.icns", "revStandaloneProgressCallback", the long id of me
end if
if sStandaloneSettingsA["OSX,documenticonFile"] is not empty then
revSBCopyFile sStandaloneSettingsA["OSX,documenticonFile"], item 1 to -3 of pWhatFile & "/Resources/StandaloneDoc.icns", "revStandaloneProgressCallback", the long id of me
else
revSBCopyFile tIconPrefix & "Doc.icns", item 1 to -3 of pWhatFile & "/Resources/StandaloneDoc.icns", "revStandaloneProgressCallback", the long id of me
end if
constant kLanguagesToSupport = "da Dutch English fi French German Italian Japanese ko no Spanish sv zh_CN zh_TW"
repeat for each word tWord in kLanguagesToSupport
revSBCopyFolder item 1 to -3 of pEnginePath & "/Resources/" & tWord & ".lproj", item 1 to -3 of pWhatFile & "/Resources/" & tWord & ".lproj", "revStandaloneProgressCallback", the long id of me
end repeat
# MW-2011-05-23: [[ Bug 9543 ]] Don't include this - its a security hole.
--if there is a file (item 1 to -3 of pEnginePath & "/Resources/LiveCode.rsrc") then
--revSBCopyFile item 1 to -3 of pEnginePath & "/Resources/LiveCode.rsrc", item 1 to -3 of pWhatFile & "/Resources/" & sStandaloneSettingsA["name"] & ".rsrc", "RevStandaloneProgressCallback", the long id of me
--end if
end if
end revSetMacOS
-- MW-2013-11-06: [[ Bug 11385 ]] Utility function to make sure we don't have & in our
-- plists as Mavericks doesn't like it!
private function escapeForXml pString
replace "&" with "&" in pString
return pString
end escapeForXml
#####################################################################
# revSetStackProps is a combination of revRemoveProps and revSetProfiles
# There's no point walking every object in the distribution twice
# if we can avoid it right???
#
# Uses revSetObjectPorops to reduce maintenance
#
# cRevStandaloneSettings are also deleted here.
######################################################################
private command revSetStackProps pStack
# OK-2009-10-08 : Bug 2217 : This bug requires the addition of a more efficient "repeat for each control" loop to fix properly.
# For now however, I've added this hack to allow users to work around the issue themselves.
if the cREVKeepDevelopmentProperties of stack pStack then
exit revSetStackProps
end if
local tCard,tControl,tSetTo,tRemoveAll,tIncludeList,tCardNum,tControlNum
lock screen
lock messages
revStandaloneProgress "Removing development properties and setting profile options..."
set the wholeMatches to true
--remove profiles from all objects
if sStandaloneSettingsA["setToProfile"] is not "" then put true into tSetTo
-- stack properties
set the customKeys["cREVStandaloneSettings"] of stack pStack to ""
revSetObjectProps the long id of stack pStack,tSetTo,sStandaloneSettingsA["includeProfiles"]
-- card properties
put the number of cds in stack pStack into tCardNum
repeat with tCard = 1 to tCardNum
revSetObjectProps the long id of cd tCard of stack pStack,tSetTo,sStandaloneSettingsA["includeProfiles"]
-- control properties
put the number of controls of cd tCard of stack pStack into tControlNum
repeat with tControl = 1 to tControlNum
revSetObjectProps the long id of control tControl of cd tCard of stack pStack,tSetTo,sStandaloneSettingsA["includeProfiles"],tControl
end repeat
end repeat
unlock screen
end revSetStackProps
#####################################################################
#
# Removes the development properties and sets the profile options of an object
#
#####################################################################
private command revSetObjectProps pObject,pSetTo,pIncludeList
local tKeys,tProfileSets,tLine,tFinalList
revStandaloneProgress "Removing development properties and setting profile options..."
put the customProperties["cREVGeneral"] of pObject into tKeys
if pSetTo then put sStandaloneSettingsA["setToProfile"] into tKeys["profile"]
if pIncludeList = "" then
delete local tKeys["profile"]
delete local tKeys["masterName"]
delete local tKeys["profileList"]
end if
if pIncludeList is not "*" then
--only include specific profiles in pObject
put the customPropertySets of pObject into tProfileSets
put tProfileSets into tFinalList
repeat for each line tLine in tProfileSets
if char 1 to 12 of tLine is "cREVDiverged" then
delete char 1 to 12 of tLine
if tLine is not among the lines of sStandaloneSettingsA["includeProfiles"] then
delete line lineOffset(("cREVDiverged"&tLine),tFinalList) of tFinalList
end if
end if
end repeat
set the customPropertySets of pObject to tFinalList
end if
delete local tKeys["bookmarks"]
delete local tKeys["handlerList"]
delete local tKeys["scriptSelection"]
delete local tKeys["prevHandler"]
delete local tKeys["tempScript"]
delete local tKeys["script"]
delete local tKeys["scriptCheckSum"]
if pSetTo then unlock messages --activate profile libraries
set the customProperties["cREVGeneral"] of pObject to tKeys
if pSetTo then lock messages --activate profile libraries
end revSetObjectProps
#####################################################################
# Loops over all the images and players, copies the referenced
# files to each build directory then sets the filename propety
# of the original stack.
######################################################################
# OK-2007-10-16 : Bug 5460. It seems that the code that populates the sIconA array was moved to revCopyReferencedFiles at some point
# but unfortunately because revCopyReferencedFiles is only called under certain circumstances, the correct icons / patterns are no
# longer copied. I think this was introduced in 2.9.0-dp-1.
# This command finds the icons / patterns in use by the stack being built, and sticks their ids into sIconA.
# Parameters
# pStack : The short name of the stack being built
private command revEnumerateIcons pStack
repeat for each line tIcon in the patterns of stack pStack
if tIcon > 0 and tIcon < 137 then add 136 to tIcon
if sIconA[tIcon] = "" and tIcon is not "" then put true into sIconA[tIcon]
end repeat
local tCardNum
put the number of cards in stack pStack into tCardNum
repeat with tCard = 1 to tCardNum
repeat for each line tIcon in the patterns of cd tCard of stack pStack
if tIcon > 0 and tIcon < 137 then add 136 to tIcon
if sIconA[tIcon] = "" and tIcon is not "" then put true into sIconA[tIcon]
end repeat
local tControlNum
put the number of controls in cd tCard of stack pStack into tControlNum
repeat with tControl = 1 to tControlNum
if word 1 of the long name of control tControl of cd tCard of stack pStack = "button" then
repeat for each item tIcon in "icon,disabledicon,hilitedicon,visitedicon,armedicon"
put the tIcon of control tControl of cd tCard of stack pStack into tIcon
if sIconA[tIcon] = "" and tIcon is not "" then put true into sIconA[tIcon]
end repeat
end if
repeat for each line tIcon in the patterns of control tControl of cd tCard of stack pStack
if tIcon > 0 and tIcon < 137 then
add 136 to tIcon
end if
if sIconA[tIcon] = "" and tIcon is not "" then
put true into sIconA[tIcon]
end if
end repeat
end repeat
end repeat
end revEnumerateIcons
private command revCopyReferencedFiles pStack, pFutureFilePath, pReferencedFilesDestination, pDirectory
local tControl, tCard, tChars, tOldFilePath, tFileName, tFutureFileName, tFutureFilePath, tIcon, \
tCardNum, tControlNum
lock screen
revStandaloneProgress "Copying referenced media..."
set the itemDel to "/"
put item 1 to -2 of the effective fileName of stack pStack & "/" into tOldFilePath
put the number of chars of tOldFilePath into tChars
set the itemDel to ","
put the number of cards in stack pStack into tCardNum
repeat with tCard = 1 to tCardNum
put the number of controls in cd tCard of stack pStack into tControlNum
repeat with tControl = 1 to tControlNum
--repeat for each line tDirectory in sDirectoryList
set the itemDel to "/"
local tObject
put the long id of control tControl of card tCard of stack pStack into tObject
# OK-2010-04-27: Bug 8744 - Check that the filename is not empty before doing this
if word 1 of tObject is "image" and the filename of tObject is not empty then
revCopyReferencedFile tObject, item 1 to -2 of the filename of stack pStack, pFutureFilePath, pReferencedFilesDestination, pDirectory
put false into sIconA[tObject]
end if
if word 1 of tObject is "player" then
revCopyReferencedFile tObject, item 1 to -2 of the filename of stack pSTack, pFutureFilePath, pReferencedFilesDestination
end if
--end repeat
set the itemDel to ","
end repeat
end repeat
unlock screen
end revCopyReferencedFiles
private command revCopyReferencedFile pObject, pStackOwnerFolderOld, pStackOwnerFolderNewRelative, pRefFilesDestination, pDirectory
local tFileName, tRelativeFilename
set the itemDelimiter to "/"
put the filename of pObject into tFileName
local tDestinationFolder
put pDirectory into tDestinationFolder
local tStackOwnerFolderNew
put tDestinationFolder & pStackOwnerFolderNewRelative into tStackOwnerFolderNew
local tReferencedFilesDestination
put tDestinationFolder & pRefFilesDestination into tReferencedFilesDestination
if revSBPathType(tFilename) is "relative" then
put revSBCalculateAbsolutePath(pStackOwnerFolderOld, tFilename) into tFileName
end if
-- tFilename now holds the absolute path to the file to include..
local tNewFilename, tLength
put length(pStackOwnerFolderOld) into tLength
if char 1 to tLength of tFilename is pStackOwnerFolderOld then
-- The +2 offset skips a "/".
put tStackOwnerFolderNew & (char tLength + 2 to -1 of tFilename) into tNewFilename
revSBEnsureFolder (item 1 to -2 of tNewFilename)
revSBCopyFileToFile tFilename, tNewFilename, "revStandaloneProgressCallback", the long id of me
else
local tCount
put empty into tCount
local tLeaf
put item -1 of tFilename into tLeaf
repeat forever
set the itemDelimiter to "."
put item 1 to -2 of tLeaf & tCount & "." & item -1 of tLeaf into tLeaf
set the itemDelimiter to "/"
put tReferencedFilesDestination & "/" & tLeaf into tNewFilename
if there is no file tNewFilename then
exit repeat
end if
add 1 to tCount
end repeat
revSBEnsureFolder tReferencedFilesDestination
revSBCopyFileToFile tFilename, tNewFilename, "revStandaloneProgressCallback", the long id of me
end if
get revSBCalculateRelativePath(tStackOwnerFolderNew, tNewFilename)
set the filename of pObject to it
end revCopyReferencedFile
#####################################################################
# Saves a stack to a folder and if need be creates the folders
# to save into.
#####################################################################
private function revSaveToFolder pFolder, pStack, pGeneric
local tCheckFolder,tFileName
revStandaloneProgress "Checking directory exists..."
revSBEnsureFolder pFolder
set the itemDel to "/"
-- 2007-12-18 Bug 3612 Changed the sGenericNumber from 1 to 0.
if pGeneric and sGenericNumber is not 0 then -- don't rename the first (mainstack) generically
put sGenericNumber into tFileName
else if the effective filename of stack pStack is not "" then
put item -1 of the effective filename of stack pStack into tFileName
else
put the short name of stack pStack & ".rev" into tFileName
end if
# OK-2008-10-31 : Bug 7372 - This asssumes that the name of the stack doesn't
# already contain ".rev". In this case, the stack ends up being called something.rev.rev,
# and the standalone builder breaks further along because it makes assumptions about
# the stack's filename. I'm not 100% sure that this fix is correct...
if not (tFileName ends with ".livecodescript" or tFileName ends with ".livecode" or tFileName ends with ".rev") then
put ".livecode" after tFileName
end if
lock screen
// SN-2015-07-01: [[ Bug 15259 ]] We don't want the saving to be trapped by
// a saveStackRequest handler in the standalone stack
lock messages
save stack pStack as pFolder&tFileName
unlock messages
unlock screen
return tFileName
end revSaveToFolder
#####################################################################
#
# Copies selected database drivers. The database externals are now
# part of the engine so we just need the drivers.
#
# This code assumes there's a file in the database_drivers folder
# for each database type (Valentina,Oracle,ODBC etc). These files
# are named <database type>.txt and have al tab delimited list of
# platforms and driver files (relative to the rev engine directory).
#
# For windows an extra item may be included to identify the location of the
# database DLL to be copied next to the engine.
#
#####################################################################
private function revStandaloneDatabaseDriversPath pPlatform
local tCurrentFolder, tDetailsA
put revStandalonePlatformDetails(pPlatform) into tDetailsA
# There are no legacy drivers for linux as we didn't have a linux version at the time the legacy drivers were current
# If the legacy drivers are turned on but the folder is not present, we default to using the normal drivers, as the user could
# have deleted it.
if the cREVUseLegacyDrivers of stack "revPreferences" and pPlatform is not "Linux" then
local tLegacyFolder
put revEnvironmentUserRuntimePath() & slash & tDetailsA["platform"] & slash & tDetailsA["architecture"] & "/Externals/Legacy" into tLegacyFolder
if there is a folder tLegacyFolder then
return tLegacyFolder
else
# Trigger warning but continue anyway...
revStandaloneAddWarning "Legacy database drivers not found, using latest drivers instead. Location was: " & tLegacyFolder
end if
end if
put tDetailsA["externals_folder"] into tCurrentFolder
if there is no folder tCurrentFolder then
revStandaloneAddWarning "Database drivers not found at location: " & tCurrentFolder
end if
return tCurrentFolder
end revStandaloneDatabaseDriversPath
private command revCopyDatabaseDrivers pPlatform, pStackFilePath, pStandalonePath, pEnginePath
local tOriginalDriverPath,tNewDriverPath,tHomePath,tStandaloneFolder,tPlatformFile,tCurrentFileType
local tDriverPath,tLibPath,tResourceList,i,tDriver,tDriverFile
revStandaloneProgress "Copying database drivers..."
if sStandaloneSettingsA["databaseDrivers"] is empty then
exit revCopyDatabaseDrivers
end if
local tDBLibPath
put revStandaloneDatabaseDriversPath(pPlatform) into tDBLibPath
local tExtension, tSharedExtension, tPlatform, tArch
local tDetailsA
put revStandalonePlatformDetails(pPlatform) into tDetailsA
put tDetailsA["loadable_extension"] into tExtension
if tDetailsA["shared_extension"] is not empty then
put tDetailsA["shared_extension"] into tSharedExtension
else
put tExtension into tSharedExtension
end if
put tDetailsA["platform"] into tPlatform
put tDetailsA["architecture"] into tArch
set the itemDel to "/"
put pStandalonePath into tNewDriverPath
put pStandalonePath into tStandaloneFolder
put "" into item -1 of tStandaloneFolder
put "Externals/database_drivers/" into item -1 of tNewDriverPath
if there is not a folder (tStandaloneFolder&"Externals") then
create folder (tStandaloneFolder&"Externals")
end if
if there is not a folder tNewDriverPath then
create folder tNewDriverPath
end if
-- loop over drivers
repeat for each line tDriver in sStandaloneSettingsA["databaseDrivers"]
# OK-2010-01-13 : No Oracle support
if tPlatform is "Linux" and tDriver is "Oracle" then
revStandaloneAddWarning "Linux, Oracle is not currently supported on this platform"
next repeat
else if tDriver is "Oracle" and line 3 of the revlicenseinfo is "Community" then
-- SN-2015-03-06: [[ DBDriverInclusion ]] Under community, the Oracle database
-- is not visible, and should simply be ignored as it will fail.
next repeat
end if
put revDBDriverPath(tDriver, tPlatform, tArch) into tDriverPath
if tDriverPath is empty then
revStandaloneAddWarning tPlatform && tArch & ", database driver not found:" & quote & tDriver & quote
next repeat
end if
if not revResourceExists(line 1 of tDriverPath) then
revStandaloneAddWarning tPlatform && tArch & ", database driver file not found:" & quote & tDriverPath & quote
next repeat
end if
# Copy the resource for possible two lines of the associated driver path
local tLineCount
put 1 into tLineCount
local tResourceName
put tolower(tDriver) into tResourceName
repeat for each line tLine in tDriverPath
if the number of lines in tDriverPath > 1 then
put tLineCount after tResourceName
end if
revCopyModule tPlatform, tResourceName, item -1 of tLine, item 1 to -2 of tLine, tStandaloneFolder, "Externals/database_drivers", tPlatform is "MacOSX"
if the result is not empty then
revStandaloneAddWarning tPlatform && tArch & ", database driver" && the result & ":" && quote & tDriverPath & quote
else
if tPlatform is "MacOSX" and there is no file (tStandaloneFolder & "Externals/revdb.bundle/Contents/PkgInfo") then
-- missing PkgInfo file, so copy it in quietly
put "BNDL????" into URL ("binfile:" & tStandaloneFolder & "Externals/revdb.bundle/Contents/PkgInfo")
end if
end if
end repeat
# Special case MacOS Valentina driver
if tPlatform is "MacOSX" and tDriver = "Valentina" then
if there is not a folder (item 1 to -2 of tStandaloneFolder&"/Frameworks") then create folder (item 1 to -2 of tStandaloneFolder&"/Frameworks")
revSBCopyFolderToDestination (item 1 to -2 of tStandaloneFolder&"/MacOS/Externals/database_drivers/VXCMD_macho.bundle/Contents/Frameworks/VSDK.framework"),(item 1 to -2 of tStandaloneFolder&"/Frameworks"), "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning ("Mac x86-32, failed to copy Valentina framework")
end if
end if
end repeat
end revCopyDatabaseDrivers
#####################################################################
# Copy all the externals over. MacOS resource numbers are listed
# in the cExternalExternalResValues of this stack. See the note
# about adding external libraries to the build process for MacOS.
#####################################################################
private command revAddExternal pExternalName
if pExternalName is among the lines of sStandaloneSettingsA["externals"] then
exit revAddExternal
end if
// AL-2015-05-07: [[ Bug 15320 ]] Don't duplicate external names in standalone settings
if sStandaloneSettingsA["externals"] is not empty then put return after sStandaloneSettingsA["externals"]
put pExternalName after sStandaloneSettingsA["externals"]
end revAddExternal
private command revAddMapping pPlatform, pName, pLocation
-- The name comes in without 'db' in front of it for the existing database
-- drivers, but it needs to be 'db*'.
if pName is among the items of "sqlite,postgresql,odbc,mysql,oracle" then
put "db" before pName
end if
revSBAddLibraryMapping pPlatform, pName, pLocation, sStandaloneSettingsA
end revAddMapping
# AL-2015-01-29: [[ Scriptify IDE ]] Factor out external copy function to ensure external is included in deploy params
private command revCopyModule pPlatform, pModuleName, pSourceFile, pSourceFolder, pStandaloneRoot, pTargetFolder, pIsFolder
local tSourcePath, tTargetPath, tTargetModule
put pSourceFolder & slash & pSourceFile into tSourcePath
if pTargetFolder is not empty then
put pTargetFolder & slash & pSourceFile into tTargetModule
else
put pSourceFile into tTargetModule
end if
put pStandaloneRoot & slash & tTargetModule into tTargetPath
if pIsFolder then
if there is no folder tSourcePath then
return "not found"
end if
if there is a folder pStandaloneRoot & slash & pTargetFolder then
return empty
end if
revSBCopyFolderToDestination tSourcePath, pStandaloneRoot & slash & pTargetFolder, "revStandaloneProgressCallback", the long id of me, sStandaloneSettingsA
else
if there is no file tSourcePath then
return "not found"
end if
if there is a file tTargetPath then
return empty
end if
revSBCopyFile tSourcePath, tTargetPath, "revStandaloneProgressCallback", the long id of me
end if
if the result is not empty then
return "failed to copy"
end if
revAddMapping pPlatform, pModuleName, tTargetModule
end revCopyModule
private command revCopyCEFResources pPlatform, pStandalonePath, pCopyRevBrowserResources, pCopyLibBrowserResources
if not (pCopyRevBrowserResources or pCopyLibBrowserResources) then
// No CEF resources required
exit revCopyCEFResources
end if
// IM-2014-08-14: [[ LibCef2062 ]] Reorganisation of libcef framework files
local tDetails
put revStandalonePlatformDetails(pPlatform) into tDetails
local tExternalPath
put revExternalPath("Browser", tDetails["platform"], tDetails["architecture"]) into tExternalPath
// AL-2015-03-13: [[ Bug 14936 ]] Switch where case takes an expression should not switch on a value
local tCurrentLocation, tCEFResources, tCEFDest
set the itemdel to slash
put item 1 to -2 of pStandalonePath into tCurrentLocation
switch
case pPlatform = "Windows"
put (item 1 to -2 of tExternalPath) & "/CEF" into tCEFResources
put tCurrentLocation & slash & "Externals/CEF" into tCEFDest
revSBEnsureFolder tCEFDest
if the result is not empty then
revStandaloneAddWarning "Windows, external failed to create folder:" && quote & tCEFDest & quote
end if
local tCEFFiles
// make sure we only copy the required helper process executable
put revListFiles(tCEFResources) into tCEFFiles
filter lines of tCEFFIles not matching "*.exe"
if the last char of tCEFFiles is not return then
put return after tCEFFiles
end if
if pCopyRevBrowserResources then
put "revbrowser-cefprocess.exe" & return after tCEFFiles
end if
if pCopyLibBrowserResources then
put "libbrowser-cefprocess.exe" & return after tCEFFiles
end if
repeat for each line tCEFFile in tCEFFiles
revSBCopyFileToFolder tCefResources & slash & tCEFFile, tCEFDest, "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning "Windows, external failed to copy:" && quote & tCefResources & slash & tCEFFile & quote
end if
end repeat
revSBCopyFolderToDestination tCefResources & slash & "locales", tCEFDest, "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning "Windows, external failed to copy:" && quote & tCefResources & slash & "locales" & quote
end if
revAddMapping pPlatform, "CEF/libcef", "Externals/CEF/libcef"
break
case pPlatform contains "Linux"
if revEnvironmentIsInstalled() then
put (item 1 to -2 of tExternalPath) & "/CEF" into tCEFResources
else
put (item 1 to -2 of tExternalPath) & "/Externals/CEF" into tCEFResources
end if
put tCurrentLocation & slash & "Externals/CEF" into tCEFDest
revSBEnsureFolder tCEFDest
if the result is not empty then
revStandaloneAddWarning "Linux, external failed to create folder:" && quote & tCEFDest & quote
end if
// make sure we only copy the required helper process executable
put revListFiles(tCEFResources) into tCEFFiles
filter lines of tCEFFiles not matching "*-cefprocess"
// The following files need to be placed alongside the executable
local tCefTopLevelFiles = "icudtl.dat,natives_blob.bin,snapshot_blob.bin"
replace comma with return in tCefTopLevelFiles
repeat for each line tFile in tCefTopLevelFiles
filter lines of tCEFFiles not matching tFile
end repeat
// Copy files to CEF resource folder.
repeat for each line tCEFFile in tCEFFiles
revSBCopyFileToFolder tCefResources & slash & tCEFFile, tCEFDest, "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning "Linux, external failed to copy:" && quote & tCefResources & slash & tCEFFile & quote
end if
end repeat
revSBCopyFolderToDestination tCefResources & slash & "locales", tCEFDest, "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning "Linux, external failed to copy:" && quote & tCefResources & slash & "locales" & quote
end if
// Copy files to standalone folder
put tCefTopLevelFiles & return into tCEFFiles
if pCopyRevBrowserResources then
put "revbrowser-cefprocess" & return after tCEFFiles
end if
if pCopyLibBrowserResources then
put "libbrowser-cefprocess" & return after tCEFFiles
end if
repeat for each line tCEFFile in tCEFFiles
revSBCopyFileToFolder tCefResources & slash & ".." & slash & ".." & slash & tCEFFile, tCurrentLocation, "revStandaloneProgressCallback", the long id of me
if the result is not empty then
revStandaloneAddWarning "Linux, external failed to copy:" && quote & tCefResources & slash & tCEFFile & quote
end if
end repeat
revAddMapping pPlatform, "CEF/libcef", "Externals/CEF/libcef"
break
default
break
end switch
end revCopyCEFResources
private command revCopyExternals pPlatform, pStackFilePath, pEnginePath, pStandalonePath
local tExternalRes, tColors, tCursorName, tCurrentLocation, tExternalPath, tExternals, tExternalLibrary
local tCopyFiles, tOrigVisible, tPath, tExternalFile, x, tColor, tPattern, tExternalName
local tScriptLibraries
put sStandaloneSettingsA["scriptLibraries"] into tScriptLibraries
local tAppBundle, tCEFFramework, tCEFResources, tCEFDest
revStandaloneProgress "Copying externals..."
lock screen
-- good time to do the platform specific resource moving
-- because we need to resave the mainstack anyway
set the itemDel to "/"
put item 1 to -2 of pStandalonePath into tCurrentLocation
set the itemDel to ","
local tSupportFolder, tExtension, tSharedExtension, tPlatform, tArch
local tDetailsA
put revStandalonePlatformDetails(pPlatform) into tDetailsA
-- SN-2015-03-04: [[ IDE Restructure ]] revpdfprinter and revsecurity are in the support folder
put tDetailsA["support_folder"] into tSupportFolder
put tDetailsA["loadable_extension"] into tExtension
if tDetailsA["shared_extension"] is not empty then
put tDetailsA["shared_extension"] into tSharedExtension
else
put tExtension into tSharedExtension
end if
put tDetailsA["platform"] into tPlatform
put tDetailsA["architecture"] into tArch
# OK-2010-04-26: Bug 8539 - PDF Printer not included
if sStandaloneSettingsA["pdfPrinter"] then
revCopyModule tPlatform, "revpdfprinter", "revpdfprinter" & tExtension, tSupportFolder, tCurrentLocation, "", tPlatform is "MacOSX"
if the result is not empty then
revStandaloneAddWarning tPlatform && tArch & ", Support, revpdfprinter" & tExtension && the result & ": required for PDF printing."
else
--revAddExternal "revpdfprinter"
local tRevPdfPrinterExecutable
put tCurrentLocation & "/revpdfprinter.bundle/Contents/MacOS/revpdfprinter" into tRevPdfPrinterExecutable
revSBRemoveUnneededSlicesFromMacCode tRevPdfPrinterExecutable, sStandaloneSettingsA
end if
end if
-- MM-2014-01-29: [[ OpenSSL ]] We now build our own version of OpenSSL.
if "SSL & Encryption" is among the lines of sStandaloneSettingsA["scriptLibraries"] then
revCopyModule tPlatform, "revsecurity", "revsecurity" & tSharedExtension, tSupportFolder, tCurrentLocation, "", false
if the result is not empty then
revStandaloneAddWarning tPlatform && tArch & ", Support, revsecurity" & tSharedExtension && the result & ": required for SSL."
else
--revAddExternal "revsecurity"
revSBRemoveUnneededSlicesFromMacCode tCurrentLocation & "/revsecurity.dylib", sStandaloneSettingsA
end if
end if
switch
case pPlatform contains "MacOSX"
if sStandaloneSettingsA["cursors"] then put "revMacCursors" & return after tCopyFiles
break
case pPlatform = "Windows"
if sStandaloneSettingsA["cursors"] then put "revCursors" & return after tCopyFiles
break
default
if sStandaloneSettingsA["cursors"] then
put "revLinuxCursors" & return after tCopyFiles
end if
if sStandaloneSettingsA["UNIX,fileSelector"] then
put "file selector" & return after tCopyFiles
end if
if sStandaloneSettingsA["UNIX,pageSetup"] then
put "page setup" & return after tCopyFiles
end if
if sStandaloneSettingsA["UNIX,printerChooser"] then
put "printer chooser" & return after tCopyFiles
end if
if sStandaloneSettingsA["UNIX,colorChooser"] then
put "color chooser" & return after tCopyFiles
end if
break
end switch
delete char -1 of tCopyFiles
-- copy the resources into the standalone mainstack
local tWaitCount
# OK-2009-12-16 : Bug 8470 - Messages need to be locked here to prevent the IDE going crazy
lock messages
repeat for each line tLine in tCopyFiles
add 1 to tWaitCount
if tWaitCount mod 10 is 0 then wait 0 ticks with messages
if tLine is empty then next repeat
put the visible of stack tLine into tOrigVisible
hide stack tLine
clone stack tLine
set the mainStack of stack ("copy of" && tLine) to the short name of stack pStackFilePath
close stack tLine
set the visible of stack tLine to tOrigVisible
close stack ("copy of" && tLine)
show stack ("copy of" && tLine)
set the name of stack ("copy of" && tLine) to tLine
end repeat
unlock messages
unlock screen
-- sanitise raw list of externals from inclusions pane
revSBSanitiseExternalsList pPlatform, sStandaloneSettingsA["externals"]
-- create list of externals and paths
local tExternalPathsA
repeat for each line tExternalName in sStandaloneSettingsA["externals"]
put revSBIncludedExternalPath(pPlatform, tExternalName) into tExternalPathsA[tExternalName]
end repeat
-- check externals that are added to the 'scriptLibraries' key
repeat for each line tExternalName in revExternalsList()
-- check this item is selected for installation
if tExternalName is not among the lines of tScriptLibraries then
next repeat
end if
-- get the path to the external
put revExternalPath(tExternalName, tPlatform, tArch) into tExternalPathsA[tExternalName]
end repeat
if there is not a folder (tCurrentLocation & slash & "Externals") then
create folder (tCurrentLocation & slash & "Externals")
end if
set the itemDel to slash
repeat for each key tExternalName in tExternalPathsA
put tExternalPathsA[tExternalName] into tExternalPath
-- SN-2015-04-15: [[ Bug 15231 ]] We don't want to copy from an empty path
-- in case we cannot find any Runtime/<platform>/<arch>/Externals/externals.txt file
if tExternalPath is empty then
revStandaloneAddWarning tPlatform && tArch & ", external" && "No externals.txt config file found for" &&tExternalName
next repeat
end if
local tSourceExternal
put item -1 of tExternalPath into tSourceExternal
// AL-2015-05-07: [[ Bug 15320 ]] Make sure universal external name is used.
local tExternal
put revSBExternalNameFromFile(tPlatform, tSourceExternal) into tExternal
revCopyModule tPlatform, tExternal, tSourceExternal, item 1 to -2 of tExternalPath, tCurrentLocation, "Externals", tPlatform is "MacOSX"
if the result is not empty then
revStandaloneAddWarning tPlatform && tArch & ", external" && the result & ":" && quote & tExternalPath & quote
next repeat
else if tPlatform is "MacOSX" and there is no file (tCurrentLocation & slash & "Externals/" & (item -1 of tExternalPath) & "/Contents/PkgInfo") then
if ".bundle" is in item -1 of tExternalPath then
put "BNDL????" into URL ("binfile:" & (tCurrentLocation & slash & "Externals/" & (item -1 of tExternalPath) & "/Contents/PkgInfo"))
end if
end if
revAddExternal tExternal
end repeat
local tSourceFile, tSourceFolder, tTargetFolder, tDestFolder
repeat for each line tLib in sStandaloneSettingsA["jarFiles"]
set the itemdelimiter to slash
put item -1 of tLib into tSourceFile
put item 1 to -2 of tLib into tSourceFolder
put tCurrentLocation & slash & "Externals/JVM" into tDestFolder
revSBEnsureFolder tDestFolder
revCopyModule tPlatform, tSourceFile, tSourceFile, \
tSourceFolder, tCurrentLocation, "Externals/JVM", false
end repeat
repeat for each line tLib in sStandaloneSettingsA["extension_code_resources"]
set the itemdelimiter to slash
put item -1 of tLib into tSourceFile
put item 1 to -2 of tLib into tSourceFolder
put tCurrentLocation & slash & "Externals" into tDestFolder
revSBEnsureFolder tDestFolder
set the itemDelimiter to "."
revCopyModule tPlatform, item 1 to -2 of tSourceFile, tSourceFile, \
tSourceFolder, tCurrentLocation, "Externals", there is a folder tLib
end repeat
// SN-2015-07-01: [[ Bug 15259 ]] We don't want the saving to be trapped by
// a saveStackRequest handler in the standalone stack
lock messages
save stack pStackFilePath
unlock messages
-- MM-2013-04-05: [[ Bug 10756 ]] Make sure we're allowed to delete the stack before deleteing.
set the cantDelete of stack pStackFilePath to false
delete stack pStackFilePath
end revCopyExternals
on tmpLog pMsg
#put pMSg & return after msg
end tmpLog
private command log pMessage
put pMessage & return after msg
end log
#####################################################################
# This is the engine attachment part. Ideally this can be re-used
# by the MetaCard Standalone Builder without much hassle.
#
# MetaCard developers will need to create a handler that loads
# the cRevStandaloneSettings into sStandaloneSettings
#####################################################################
command revStandaloneDeployWithParams pTarget, pStackFilePath, pDeployInfo
-- Resave the stack (not sure what this is for exactly, but was present
-- in the original handler and serves our purposes to guarantee the right
-- origin info).
revStandaloneProgress "Preparing main stackfile..."
lock messages
lock screen
save stack pStackFilePath
-- MM-2013-04-05: [[ Bug 10756 ]] Make sure we're allowed to delete the stack before deleteing.
set the cantDelete of stack pStackFilePath to false
delete stack pStackFilePath
unlock screen
unlock messages
-- Actually do the standalone engine build - we probably need some sort of
-- error handling here :oD
revStandaloneProgress "Attaching engine..."
switch word 1 of pTarget
case "Windows"
_internal deploy windows pDeployInfo
break
case "Linux"
_internal deploy linux pDeployInfo
break
case "MacOSX"
_internal deploy macosx pDeployInfo
break
end switch
if the result is not empty then
throw "Build failed for " & pTarget & ":" && the result
end if
-- Again, present in the original, this will remove the stackfile we saved
-- above.
revDeleteFile pStackFilePath
end revStandaloneDeployWithParams
command revRedirectMacOSResources pStandalonePath
local tOldRFolder, tNewRFolder
set the itemDelimiter to slash
put item 1 to -2 of pStandalonePath into tOldRFolder
put (item 1 to -2 of tOldRFolder) & "/Resources/_MacOS" into tNewRFolder
create folder (tOldRFolder & slash & "../Resources")
create folder (tOldRFolder & slash & "../Resources/_MacOS")
revRedirectMacOSResourcesRecurse tOldRFolder, tNewRFolder
end revRedirectMacOSResources
command revRedirectMacOSResourcesRecurse pSourceFolder, pTargetFolder
create folder pTargetFolder
local tFiles
repeat for each line tFile in files(pSourceFolder)
if tFile ends with ".dylib" then
next repeat
end if
if revRedirectMacOSResourcesIsExecutable(pSourceFolder & slash & tFile) then
next repeat
end if
switch the platform
case "macos"
case "linux"
get shell("mv" && quote & pSourceFolder & slash & tFile & quote && \
quote & pTargetFolder & slash & tFile & quote)
break
case "windows"
--following line does not work properly for symlink folders
rename (pSourceFolder & slash & tFile) to (pTargetFolder & slash & tFile)
break
end switch
end repeat
local tFolder
repeat for each line tFolder in folders(pSourceFolder)
if tFolder is ".." then
next repeat
end if
if tFolder ends with ".bundle" then
next repeat
end if
if tFolder ends with ".app" then
next repeat
end if
if tFolder ends with ".framework" then
next repeat
end if
revRedirectMacOSResourcesRecurse pSourceFolder & slash & tFolder, pTargetFolder & slash & tFolder
end repeat
if files(pSourceFolder) is empty and folders(pSourceFolder) is ".." then
delete folder pSourceFolder
end if
end revRedirectMacOSResourcesRecurse
function revRedirectMacOSResourcesIsExecutable pFile
local tIsExecutable
put false into tIsExecutable
open file pFile for binary read
read from file pFile for 1 int4
if the result is not "eof" then
if it is 0xCAFEBABE or it is 0xBEBAFECA or \
it is 0xFEEDFACE or it is 0xCEFAEDFE or \
it is 0xFEEDFACF or it is 0xCFFAEDFE then
put true into tIsExecutable
end if
end if
close file pFile
return tIsExecutable
end revRedirectMacOSResourcesIsExecutable
private function revResourceExists pResource
# pResource is either a file, folder or bundle.
return (there is a file pResource or there is a folder pResource)
end revResourceExists