Skip to content
GitLab
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
0588974c
Commit
0588974c
authored
Feb 13, 2002
by
Diederik van Arkel
Browse files
move tools to platform directory
parent
f4b18d57
Changes
2
Show whitespace changes
Inline
Side-by-side
Win/tools.dcl
0 → 100644
View file @
0588974c
definition
module
tools
// launch supporting tools
import
IdeState
shoprofun
::
!*(
PSt
General
)
->
*
PSt
General
// launch time profiler for active project
shoheapfun
::
!*(
PSt
General
)
->
*
PSt
General
// launch heap profiler for active project
provefun
::
!*(
PSt
General
)
->
*
PSt
General
// launch theorem prover for active project
Win/tools.icl
0 → 100644
View file @
0588974c
implementation
module
tools
import
StdBool
,
StdFunc
,
StdFile
,
StdPStClass
,
StdSystem
import
ExtNotice
,
StdPathname
import
IdeState
,
UtilIO
,
PmPath
,
projwin
//-- call out to supporting applications...
timepsuf
=:
" Time Profile.pcl"
timeparg
=:
" -h 4M "
heappsuf
=:
" Heap Profile0.hcl"
heapparg
=:
" -h 4M "
proofsuf
=:
".prj"
proofarg
=:
" "
shoprofun
::
!*(
PSt
General
)
->
*
PSt
General
shoprofun
ps
#
(
prj
,
ps
)
=
getProject
ps
#
execpath
=
PR_GetExecPath
prj
// approximate name mangling done by RTE
// should still take into account max filename length
#
profpath
=
quoted_string
(
RemoveSuffix`
execpath
+++
timepsuf
)
#
(
prefs
,
ps
)
=
getPrefs
ps
#
pcl_path
=
prefs
.
reg_prefs
.
tp_path
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
app_path
=
GetLongPathName
app_path
#
pcl_path
=
fulAppPath
app_path
pcl_path
#
pcl_path
=
case
GetShortPathName
pcl_path
of
(
True
,
pcl_path
)
->
pcl_path
_
->
pcl_path
#
timepapp
=
quoted_string
(
pcl_path
+++
prefs
.
reg_prefs
.
tp_name
)
#
sp
=
timepapp
+++
timeparg
+++
profpath
#
stup
=
RemoveFilename
execpath
#
(
ok
,
ps
)
=
accFiles
(
FExists
stup
)
ps
#
stup
=
if
ok
(
stup
+++
"
\\
"
)
(
applicationpath
""
)
#
(
ok
,
ps
)
=
accFiles
(
LaunchApplication
sp
stup
False
)
ps
|
not
ok
=
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
// approximate name mangling done by RTE
// should still take into account max filename length
#
profpath
=
quoted_string
(
RemoveSuffix`
execpath
+++
heappsuf
)
#
(
prefs
,
ps
)
=
getPrefs
ps
#
pcl_path
=
prefs
.
reg_prefs
.
hp_path
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
app_path
=
GetLongPathName
app_path
#
pcl_path
=
fulAppPath
app_path
pcl_path
#
pcl_path
=
case
GetShortPathName
pcl_path
of
(
True
,
pcl_path
)
->
pcl_path
_
->
pcl_path
#
heappapp
=
quoted_string
(
pcl_path
+++
prefs
.
reg_prefs
.
hp_name
)
#
sp
=
heappapp
+++
heapparg
+++
profpath
#
stup
=
RemoveFilename
execpath
#
(
ok
,
ps
)
=
accFiles
(
FExists
stup
)
ps
#
stup
=
if
ok
(
stup
+++
"
\\
"
)
(
applicationpath
""
)
#
(
ok
,
ps
)
=
accFiles
(
LaunchApplication
sp
stup
False
)
ps
|
not
ok
=
openNotice
(
Notice
[
"Unable to launch "
+++
sp
+++
"."
,
stup
]
(
NoticeButton
"OK"
id
)
[])
ps
=
ps
provefun
::
!*(
PSt
General
)
->
*
PSt
General
provefun
ps
#
ps
=
pm_save
ps
// ensure project file is recent...
#
(
pathname
,
ps
)
=
getPath
ps
#
pr_path
=
quoted_string
(
RemoveSuffix`
pathname
+++.
proofsuf
)
#
(
prefs
,
ps
)
=
getPrefs
ps
#
pcl_path
=
prefs
.
reg_prefs
.
pr_path
#
(
app_path
,
ps
)
=
accFiles
GetFullApplicationPath
ps
#
app_path
=
GetLongPathName
app_path
#
pcl_path
=
fulAppPath
app_path
pcl_path
#
pcl_path
=
case
GetShortPathName
pcl_path
of
(
True
,
pcl_path
)
->
pcl_path
_
->
pcl_path
#
proofapp
=
quoted_string
(
pcl_path
+++
prefs
.
reg_prefs
.
pr_name
)
#
cps
=
proofapp
+++
proofarg
+++
pr_path
#
stup
=
RemoveFilename
pathname
#
(
ok
,
ps
)
=
accFiles
(
FExists
stup
)
ps
#
stup
=
if
ok
(
stup
+++
"
\\
"
)
(
applicationpath
""
)
#
(
ok
,
ps
)
=
accFiles
(
LaunchApplication
cps
stup
False
)
ps
|
not
ok
=
openNotice
(
Notice
[
"Unable to launch "
+++
cps
+++
"."
]
(
NoticeButton
"OK"
id
)
[])
ps
=
ps
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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