Commit 003a6852 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur

johnvg: use paths and filenames specified in the config directory of the IDE

to start the profilers
parent cb4ec5c2
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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment