Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
003a6852
Commit
003a6852
authored
Oct 17, 2003
by
Ronny Wichers Schreur
🏘
Browse files
johnvg: use paths and filenames specified in the config directory of the IDE
to start the profilers
parent
cb4ec5c2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Mac/tools.icl
View file @
003a6852
implementation
module
tools
import
StdBool
,
StdFunc
,
StdFile
,
StdPStClass
,
StdSystem
,
StdInt
import
ExtNotice
,
StdPathname
import
ExtNotice
,
StdPathname
,
PmPath
import
IdeState
,
UtilIO
//-- call out to supporting applications...
...
...
@@ -23,7 +23,9 @@ shoprofun :: !*(PSt General) -> *PSt General
shoprofun
ps
#
(
prj
,
ps
)
=
getProject
ps
#
execpath
=
PR_GetExecPath
prj
#
apppath
=
"Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:ShowTimeProfile"
#
({
reg_prefs
={
tp_path
,
tp_name
}},
ps
)
=
getPrefs
ps
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
apppath
=
fulAppPath
app_path
tp_path
+++
tp_name
#
docpath
=
execpath
+++
timepsuf
#
(
err
,
ps
)
=
LaunchTheDocument
docpath
...
...
@@ -50,11 +52,14 @@ shoprofun ps
= openNotice (Notice ["Unable to launch " +++ sp +++ ".",stup] (NoticeButton "OK" id) []) ps
= ps
*/
shoheapfun
::
!*(
PSt
General
)
->
*
PSt
General
shoheapfun
ps
#
(
prj
,
ps
)
=
getProject
ps
#
execpath
=
PR_GetExecPath
prj
#
apppath
=
"Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:ShowHeapProfile"
#
({
reg_prefs
={
hp_path
,
hp_name
}},
ps
)
=
getPrefs
ps
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
apppath
=
fulAppPath
app_path
hp_path
+++
hp_name
#
docpath
=
execpath
+++
heappsuf
#
(
err
,
ps
)
=
LaunchTheDocument
docpath
...
...
@@ -84,7 +89,9 @@ shoheapfun ps
provefun
::
!*(
PSt
General
)
->
*
PSt
General
provefun
ps
#
(
pathname
,
ps
)
=
getPath
ps
#
apppath
=
"Macintosh HD:Users:diederik:Desktop:CleanImage:Tools:Sparkle"
#
({
reg_prefs
={
pr_path
,
pr_name
}},
ps
)
=
getPrefs
ps
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
apppath
=
fulAppPath
app_path
pr_path
+++
pr_name
#
docpath
=
RemoveSuffix`
pathname
+++
proofsuf
#
(
err
,
ps
)
=
LaunchTheDocument
docpath
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment