mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-09 18:27:51 -04:00
e37217ddb9
These tools are no longer part of a standard OS X install and would need to be installed via the Xcode commnd line tools. Instead the KVASD binary has been preprocessed and the Mac KVASD installer simply injects the KVASD binary into the target application bundle(s). Merged from wsjtx-1.4 branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4906 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
358 lines
14 KiB
AppleScript
358 lines
14 KiB
AppleScript
--
|
|
-- WSJTAppDelegate.applescript
|
|
-- KVASD-installer
|
|
--
|
|
-- This script is a drag and drop target that expects a WSJT-X app bundle path.
|
|
-- It can also be opened with a file list or by dropping a suitable WSJT-X app
|
|
-- bundle onto it. Alternatively a target WSJT-X application bundle may be
|
|
-- selected by clicking the "Choose target ..." button.
|
|
--
|
|
-- It fetches the KVASD EULA text and displays it in a dialog which the reader
|
|
-- must at least scroll to the end before clicking the Agree button which then
|
|
-- downloads the appropriate KVASD executable. The MD5 hash checksum is checked
|
|
-- on the KVASD executable.
|
|
--
|
|
-- Once the EULA has been accepted the "Install" button is enabled to install
|
|
-- the KVASD executable into the target WSJT-X application bundle(s) and the
|
|
-- RPATHs are modified to reference the libgcc support libraries inside the
|
|
-- WSJT-X application bundle.
|
|
--
|
|
-- Created by Bill Somerville (G4WJS) on 12/11/2014.
|
|
--
|
|
-- The author of this work hereby waives all claim of copyright (economic and moral)
|
|
-- in this work and immediately places it in the public domain; it may be used, distorted
|
|
-- or destroyed in any manner whatsoever without further attribution or notice to the creator.
|
|
--
|
|
|
|
-- curl wraps cURL to download files
|
|
script curl
|
|
on download(|url|, fileName, destination)
|
|
set |file| to destination & fileName
|
|
try
|
|
do shell script "curl --fail --retry 5 --silent --show-error --output " & |file| & " " & |url| & fileName
|
|
on error errorString
|
|
error "An error occurred downloading:" & return & |url| & fileName & return & return & errorString
|
|
end try
|
|
return |file| as POSIX file
|
|
end download
|
|
|
|
on downloadMD5(|url|, fileName)
|
|
set md5Ext to ".md5"
|
|
try
|
|
return do shell script "curl --fail --retry 5 --silent " & |url| & fileName & md5Ext ¬
|
|
& " | awk '{match($0,\"[[:xdigit:]]{32}\"); print substr($0,RSTART,RLENGTH)}'"
|
|
on error errorString
|
|
error "An error occurred downloading" & return & return & fileName & md5Ext & return & return & errorString
|
|
end try
|
|
end downloadMD5
|
|
end script
|
|
|
|
-- kvasd looks after fetching kvasd files from the web source
|
|
script kvasd
|
|
property serverPath : "https://svn.code.sf.net/p/wsjt/wsjt/trunk/kvasd-binary/"
|
|
property targetName : "kvasd"
|
|
|
|
on destination()
|
|
return system attribute "TMPDIR"
|
|
end destination
|
|
|
|
on fetchEULA()
|
|
return curl's download(serverPath,targetName & "_eula.txt",my destination())
|
|
end fetchEULA
|
|
|
|
on fetchBinary()
|
|
set |url| to serverPath & do shell script "echo `uname -s`-`uname -m`" & "/"
|
|
set md5Sum to curl's downloadMD5(|url|,targetName)
|
|
set |file| to curl's download(|url|,targetName,my destination())
|
|
set md5Calc to do shell script "md5 " & (POSIX path of |file|) & " | cut -d' ' -f4"
|
|
if md5Calc ≠ md5Sum then
|
|
error "KVASD download corrupt MD5 hash check" & return & return ¬
|
|
& " expected [" & md5Sum & "]" & return ¬
|
|
& " actual [" & md5Calc & "]" ¬
|
|
number 500
|
|
end if
|
|
end fetchBinary
|
|
|
|
on saveLicense()
|
|
set dest to choose folder ¬
|
|
with prompt "Specify folder to save license to" ¬
|
|
default location (path to documents folder)
|
|
tell application "Finder" to ¬
|
|
duplicate (my destination() & targetName & "_eula.txt") as POSIX file to dest
|
|
end saveLicense
|
|
|
|
on printLicense()
|
|
tell application "Finder" to ¬
|
|
print (my destination() & targetName & "_eula.txt") as POSIX file
|
|
end printLicense
|
|
|
|
on cleanUp()
|
|
tell application "Finder"
|
|
if exists (my destination() & targetName & "_eula.txt") as POSIX file then
|
|
delete (my destination() & targetName & "_eula.txt") as POSIX file
|
|
end if
|
|
if exists (my destination() & targetName) as POSIX file then
|
|
delete (my destination() & targetName) as POSIX file
|
|
end if
|
|
end tell
|
|
end cleanUp
|
|
end script
|
|
|
|
script WSJTAppDelegate
|
|
property parent : class "NSObject"
|
|
|
|
property mainWindow : missing value
|
|
property eulaTextView : missing value
|
|
property progressBar : missing value
|
|
property saveButton : missing value
|
|
property printButton : missing value
|
|
property agreeCheckBox : missing value
|
|
property chooseTargetButton : missing value
|
|
property installButton : missing value
|
|
|
|
property bundlesToProcess : {}
|
|
|
|
global defaultNotificationCentre
|
|
global licenceAgreed
|
|
|
|
on split(theText,theDelimiters)
|
|
set oldDelimiters to AppleScript's text item delimiters
|
|
set AppleScript's text item delimiters to theDelimiters
|
|
set theResult to the text items of theText
|
|
set AppleScript's text item delimiters to oldDelimiters
|
|
return theResult
|
|
end split
|
|
|
|
-- do the install
|
|
on process()
|
|
repeat with bundlePath in bundlesToProcess
|
|
try
|
|
set wsjtxBundle to current application's NSBundle's bundleWithPath_(bundlePath)
|
|
if wsjtxBundle = missing value or wsjtxBundle's bundleIdentifier() as text ≠ "org.k1jt.wsjtx" then
|
|
error "Not an appropriate WSJT-X application bundle: " & return & return ¬
|
|
& bundlePath as text number 501
|
|
end if
|
|
set installRoot to wsjtxBundle's bundlePath() as text
|
|
display dialog "Install KVASD into Aplication Bundle" & return & return ¬
|
|
& installRoot ¬
|
|
buttons {"Ok", "Skip"} default button {"Ok"}
|
|
if button returned of result = "Ok" then
|
|
try
|
|
set target to installRoot & "/Contents/MacOS/" & kvasd's targetName
|
|
do shell script "cp " & kvasd's destination() & kvasd's targetName & space & target
|
|
do shell script "chmod +x " & target
|
|
display alert "KVASD installed into application bundle:" & return & return & installRoot ¬
|
|
buttons {"Ok"} default button "Ok" ¬
|
|
giving up after 5
|
|
on error errorString
|
|
error "Failed to move KVASD into application bundle:" & return & return & installRoot ¬
|
|
& return & return & "Error: " & errorString
|
|
end try
|
|
end if
|
|
on error errorString
|
|
display alert errorString as warning buttons {"Ok"} default button "Ok"
|
|
end try
|
|
end repeat
|
|
end process
|
|
|
|
--
|
|
-- NSApplicationDelegate Protocol
|
|
--
|
|
on applicationWillFinishLaunching_(aNotification)
|
|
try
|
|
-- mainWindow's registerForDraggedTypes_({"public.file-url"})
|
|
|
|
set defaultNotificationCentre to current application's NSNotificationCenter's defaultCenter()
|
|
set licenceAgreed to false
|
|
eulaTextView's setEditable_(false)
|
|
|
|
script downloadEula
|
|
eulaTextView's setString_(read kvasd's fetchEULA())
|
|
end script
|
|
my doWithRetry(downloadEula)
|
|
saveButton's setEnabled_(true)
|
|
printButton's setEnabled_(true)
|
|
|
|
-- add observers for view port changes on EULA text view
|
|
set boundsChangeNotice to current application's NSViewBoundsDidChangeNotification
|
|
set frameChangeNotice to current application's NSViewFrameDidChangeNotification
|
|
defaultNotificationCentre's addObserver_selector_name_object_(me,"viewChanged:",boundsChangeNotice,missing value)
|
|
defaultNotificationCentre's addObserver_selector_name_object_(me,"viewChanged:",frameChangeNotice,missing value)
|
|
on error errorString
|
|
abort(errorString)
|
|
end try
|
|
end applicationWillFinishLaunching_
|
|
|
|
on applicationShouldTerminateAfterLastWindowClosed_(sender)
|
|
return true
|
|
end applicationShouldTerminateAfterLastWindowClosed_
|
|
|
|
on applicationWillTerminate_(sender)
|
|
defaultNotificationCentre's removeObserver_(me)
|
|
kvasd's cleanUp()
|
|
end applicationWillTerminate_
|
|
|
|
--
|
|
-- NSDraggingDestination (NSWindow Delgate) Protocol (Not working on 10.7)
|
|
--
|
|
|
|
-- Accept Generic drag&drop sources
|
|
-- on draggingEntered_(sender)
|
|
-- return current application's NSDragOperationGeneric
|
|
-- end draggingEntered_
|
|
|
|
-- Process a drop on our window
|
|
-- on performDragOperation_(sender)
|
|
-- try
|
|
-- set pb to sender's draggingPasteboard()
|
|
-- if pb's types() as list contains current application's NSURLPboardType then
|
|
-- set options to {NSPasteboardURLReadingContentsConformToTypesKey:{"com.apple.application-bundle"}}
|
|
-- repeat with u in pb's readObjectsForClasses_options_({current application's |NSURL|},options)
|
|
-- copy u's |path| to end of bundlesToProcess
|
|
-- end repeat
|
|
-- if bundlesToProcess ≠ {} and licenceAgreed then
|
|
-- installButton's setEnabled_(true)
|
|
-- end if
|
|
-- return true
|
|
-- end if
|
|
-- on error errorString
|
|
-- abort(errorString)
|
|
-- end try
|
|
-- return false
|
|
-- end performDragOperation_
|
|
|
|
--
|
|
-- UI handlers
|
|
--
|
|
|
|
-- Save EULA
|
|
on doSave_(sender)
|
|
try
|
|
kvasd's saveLicense()
|
|
on error errorString number errorNumber
|
|
if errorNumber is equal to -128 then
|
|
-- just ignore Cancel
|
|
else
|
|
abort(errorString)
|
|
end if
|
|
end try
|
|
end doSave_
|
|
|
|
-- Save EULA
|
|
on doPrint_(sender)
|
|
try
|
|
kvasd's printLicense()
|
|
on error errorString number errorNumber
|
|
if errorNumber is equal to -128 then
|
|
-- just ignore Cancel
|
|
else
|
|
abort(errorString)
|
|
end if
|
|
end try
|
|
end doPrint_
|
|
|
|
-- Agree Button handler
|
|
on doAgree_(sender)
|
|
if agreeCheckBox's state() as boolean then
|
|
try
|
|
script downloadKvasd
|
|
kvasd's fetchBinary()
|
|
end script
|
|
my doWithRetry(downloadKvasd)
|
|
on error errorString
|
|
abort(errorString)
|
|
end try
|
|
agreeCheckBox's setEnabled_(false)
|
|
set licenceAgreed to true
|
|
if bundlesToProcess ≠ {} then
|
|
installButton's setEnabled_(true)
|
|
end if
|
|
end if
|
|
end doAgree_
|
|
|
|
-- Choose target button handler
|
|
on doChooseTarget_(sender)
|
|
try
|
|
repeat with target in choose file ¬
|
|
with prompt "Choose the WSJT-X application bundle you wish to install KVASD into" ¬
|
|
of type "com.apple.application-bundle" ¬
|
|
default location "/Applications" as POSIX file as alias ¬
|
|
invisibles false ¬
|
|
multiple selections allowed true
|
|
copy POSIX path of target to end of bundlesToProcess
|
|
end repeat
|
|
if bundlesToProcess ≠ {} and licenceAgreed then
|
|
installButton's setEnabled_(true)
|
|
end if
|
|
on error number -128
|
|
-- just ignore Cancel
|
|
end try
|
|
end doChooseTarget_
|
|
|
|
-- Install button handler
|
|
on doInstall_(sender)
|
|
try
|
|
process()
|
|
set bundlesToProcess to {}
|
|
installButton's setEnabled_(false)
|
|
on error errorString
|
|
abort(errorString)
|
|
end try
|
|
end doInstall_
|
|
|
|
-- handler called on eulaTextView scroll or view changes
|
|
-- enables agree/install button once the bottom is reached
|
|
on viewChanged_(aNotification)
|
|
try
|
|
set dr to eulaTextView's |bounds| as record
|
|
set vdr to eulaTextView's visibleRect as record
|
|
if height of |size| of dr - (y of origin of vdr + height of |size| of vdr) is less than or equal to 0 ¬
|
|
and not licenceAgreed then
|
|
agreeCheckBox's setEnabled_(true)
|
|
end if
|
|
on error errorString
|
|
abort(errorString)
|
|
end try
|
|
end viewChanged
|
|
|
|
-- Do something with retries
|
|
on doWithRetry(action)
|
|
set done to false
|
|
repeat until done
|
|
try
|
|
my progressAction(action)
|
|
set done to true
|
|
on error errorString
|
|
set userCanceled to false
|
|
try
|
|
set dialogResult to display alert errorString as warning ¬
|
|
buttons {"Cancel", "Retry"} default button "Retry" cancel button "Cancel"
|
|
on error number -128
|
|
set userCanceled to true
|
|
end try
|
|
if userCanceled then
|
|
error "User canceled operation"
|
|
end if
|
|
end try
|
|
end repeat
|
|
end doWithRetry
|
|
|
|
-- execute around handler to display a progress bar during an action
|
|
on progressAction(action)
|
|
progressBar's startAnimation_(me)
|
|
tell action to run
|
|
progressBar's stopAnimation_(me)
|
|
end progressAction
|
|
|
|
-- Abort handler
|
|
on abort(errorString)
|
|
display alert errorString as critical buttons {"Ok"} default button "Ok"
|
|
quit
|
|
end abort
|
|
|
|
-- About menu item
|
|
on doAbout_(sender)
|
|
display alert "KVASD-installer v1.0"
|
|
end onAbout_
|
|
end script
|