1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
property bochs_path : "Contents/MacOS/bochs"
property bochs_app : ""
on run
tell application "Finder" to get container of (path to me) as string
set script_path to POSIX path of result
-- Locate bochs
set bochs_alias to findBochs()
-- Tell Terminal to run bochs from the command line
--Use the script's directory as the current directory
tell application "Terminal"
activate
do script "cd '" & script_path & "';exec '" & (POSIX path of bochs_app) & bochs_path&"'"
-- Wait for Terminal to change the name first, then change it to ours
delay 1
set AppleScript's text item delimiters to "/"
set the text_item_list to every text item of the script_path
set AppleScript's text item delimiters to ""
set next_to_last to ((count of text_item_list) - 1)
set the folder_name to item next_to_last of text_item_list
set name of front window to "Running bochs in ../" & folder_name & "/"
end tell
end run
-- Taken from examples at http://www.applescriptsourcebook.com/tips/findlibrary.html
to Hunt for itemName at folderList
--Returns path to itemName as string, or empty string if not found
repeat with aFolder in folderList
try
if class of aFolder is constant then
return alias ((path to aFolder as string) & itemName) as string
else if folder of (info for alias aFolder) then
return alias (aFolder & itemName) as string
end if
on error number -43 --item not there, go to next folder
end try
end repeat
return "" --return empty string if item not found
end Hunt
on findBochs()
try
if bochs_app is "" then error number -43
return alias bochs_app
on error number -43
-- bochs_app no good, go hunting
try
tell application "Finder" to get container of (path to me) as string
set this_dir_alias to alias result
tell application "Finder" to get container of (this_dir_alias) as string
set one_up_dir_alias to alias result
set TheUsualPlaces to {this_dir_alias as string, one_up_dir_alias as string}
Hunt for "bochs.app" at TheUsualPlaces
set result_alias to result
if result_alias is "" then error number -43
set bochs_app to result_alias as string
return result_alias
on error number -43
--Give up seeking, Ask the user
choose application with prompt "Please locate Bochs:" as alias
set result_alias to result
set bochs_app to result_alias as string
return result_alias
end try
end try
end findBochs
|
