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
87060e50
Commit
87060e50
authored
Dec 20, 2001
by
Diederik van Arkel
Browse files
Ensure project is saved before prover is launched.
parent
37ebeee6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/tools.icl
View file @
87060e50
...
@@ -2,7 +2,7 @@ implementation module tools
...
@@ -2,7 +2,7 @@ implementation module tools
import
StdBool
,
StdFunc
,
StdFile
,
StdPStClass
,
StdSystem
import
StdBool
,
StdFunc
,
StdFile
,
StdPStClass
,
StdSystem
import
ExtNotice
,
StdPathname
import
ExtNotice
,
StdPathname
import
IdeState
,
UtilIO
,
PmPath
import
IdeState
,
UtilIO
,
PmPath
,
projwin
//-- call out to supporting applications...
//-- call out to supporting applications...
...
@@ -71,6 +71,8 @@ shoheapfun ps
...
@@ -71,6 +71,8 @@ shoheapfun ps
provefun
::
!*(
PSt
General
)
->
*
PSt
General
provefun
::
!*(
PSt
General
)
->
*
PSt
General
provefun
ps
provefun
ps
#
ps
=
pm_save
ps
// ensure project file is recent...
#
(
pathname
,
ps
)
=
getPath
ps
#
(
pathname
,
ps
)
=
getPath
ps
#
pr_path
=
quoted_string
(
RemoveSuffix`
pathname
+++.
proofsuf
)
#
pr_path
=
quoted_string
(
RemoveSuffix`
pathname
+++.
proofsuf
)
#
(
prefs
,
ps
)
=
getPrefs
ps
#
(
prefs
,
ps
)
=
getPrefs
ps
...
...
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