Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
aac152c9
Commit
aac152c9
authored
Jan 21, 2009
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add function start and move cont and stop to PmCallBack
parent
fd5b6042
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
27 additions
and
16 deletions
+27
-16
Ide/PmCallBack.dcl
Ide/PmCallBack.dcl
+4
-0
Ide/PmCallBack.icl
Ide/PmCallBack.icl
+22
-0
Pm/PmDriver.icl
Pm/PmDriver.icl
+1
-16
No files found.
Ide/PmCallBack.dcl
View file @
aac152c9
...
...
@@ -3,3 +3,7 @@ definition module PmCallBack
from
IdeState
import
::
General
,::
PSt
::
*
GeneralSt
:==
PSt
General
start
::
!.
a
!(.
Bool
->
.(.
a
->
.(*
GeneralSt
->
*(.
a
,*
GeneralSt
))))
!*
GeneralSt
->
*
GeneralSt
cont
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
stop
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
Ide/PmCallBack.icl
View file @
aac152c9
implementation
module
PmCallBack
from
IdeState
import
::
General
,::
PSt
,::
Id
,
getInterrupt
from
interrupt
import
StartIntr
,
ContIntr
,
StopIntr
::
*
GeneralSt
:==
PSt
General
start
::
!.
a
!(.
Bool
->
.(.
a
->
.(*
GeneralSt
->
*(.
a
,*
GeneralSt
))))
!*
GeneralSt
->
*
GeneralSt
start
ini_step
step
ps
#!
(
intr_info
,
ps
)
=
getInterrupt
ps
=
StartIntr
intr_info
ini_step
step
ps
cont
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
cont
(
ls
,
ps
)
#
(
intr_info
,
ps
)
=
getInterrupt
ps
#
ps
=
ContIntr
intr_info
ps
=
(
ls
,
ps
)
stop
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
stop
(
ls
,
ps
)
#
(
intr_info
,
ps
)
=
getInterrupt
ps
#
ps
=
StopIntr
intr_info
ps
=
(
ls
,
ps
)
Pm/PmDriver.icl
View file @
aac152c9
...
...
@@ -143,11 +143,8 @@ BringProjectUptoDate force continuation ps
#
ps
=
showInfo
(
Level1
"Bring up to date..."
)
ps
#
ps
=
ClearCompilerCache`
ps
#!
(
intr_info
,
ps
)
=
getInterrupt
ps
// (interact,ps) = getInteract ps
ini_step
=
DInit
force
project
cleanup
#
ps
=
StartIntr
intr_info
ini_step
step
ps
=
ps
=
start
ini_step
step
ps
where
PrecompileFase
project
ps
#
(
precompile
,
project
)
=
PR_GetPrecompile
project
...
...
@@ -282,18 +279,6 @@ where
//--
cont
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
cont
(
ls
,
ps
)
#
(
intr_info
,
ps
)
=
getInterrupt
ps
#
ps
=
ContIntr
intr_info
ps
=
(
ls
,
ps
)
stop
::
!*(.
a
,!*
GeneralSt
)
->
*(.
a
,!*
GeneralSt
);
stop
(
ls
,
ps
)
#
(
intr_info
,
ps
)
=
getInterrupt
ps
#
ps
=
StopIntr
intr_info
ps
=
(
ls
,
ps
)
step
::
!
Bool
!*
DriverState
!*
GeneralSt
->
(!*
DriverState
,!*
GeneralSt
)
step
intr
(
DInit
force
project
setproject
)
ps
// # ps = showInfo (Level1 "Make the project...") ps
...
...
Write
Preview
Markdown
is supported
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