Commit 003a6852 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏢
Browse files

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

to start the profilers
parent cb4ec5c2
implementation module tools implementation module tools
import StdBool, StdFunc, StdFile, StdPStClass, StdSystem, StdInt import StdBool, StdFunc, StdFile, StdPStClass, StdSystem, StdInt
import ExtNotice, StdPathname import ExtNotice, StdPathname, PmPath
import IdeState, UtilIO import IdeState, UtilIO
//-- call out to supporting applications... //-- call out to supporting applications...
...@@ -23,7 +23,9 @@ shoprofun :: !*(PSt General) -> *PSt General ...@@ -23,7 +23,9 @@ shoprofun :: !*(PSt General) -> *PSt General
shoprofun ps shoprofun ps
# (prj,ps) = getProject ps # (prj,ps) = getProject ps
# execpath = PR_GetExecPath prj # 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 # docpath = execpath +++ timepsuf
# (err,ps) = LaunchTheDocument # (err,ps) = LaunchTheDocument
docpath docpath
...@@ -50,11 +52,14 @@ shoprofun ps ...@@ -50,11 +52,14 @@ shoprofun ps
= openNotice (Notice ["Unable to launch " +++ sp +++ ".",stup] (NoticeButton "OK" id) []) ps = openNotice (Notice ["Unable to launch " +++ sp +++ ".",stup] (NoticeButton "OK" id) []) ps
= ps = ps
*/ */
shoheapfun :: !*(PSt General) -> *PSt General shoheapfun :: !*(PSt General) -> *PSt General
shoheapfun ps shoheapfun ps
# (prj,ps) = getProject ps # (prj,ps) = getProject ps
# execpath = PR_GetExecPath prj # 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 # docpath = execpath +++ heappsuf
# (err,ps) = LaunchTheDocument # (err,ps) = LaunchTheDocument
docpath docpath
...@@ -84,7 +89,9 @@ shoheapfun ps ...@@ -84,7 +89,9 @@ shoheapfun ps
provefun :: !*(PSt General) -> *PSt General provefun :: !*(PSt General) -> *PSt General
provefun ps provefun ps
# (pathname,ps) = getPath 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 # docpath = RemoveSuffix` pathname +++ proofsuf
# (err,ps) = LaunchTheDocument # (err,ps) = LaunchTheDocument
docpath docpath
......
Supports Markdown
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