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-libraries
Commits
78646122
Commit
78646122
authored
May 14, 2008
by
Rinus Plasmeijer
Browse files
*** empty log message ***
parent
0648712c
Changes
2
Show whitespace changes
Inline
Side-by-side
libraries/iTasks/iTasksBasicCombinators.dcl
View file @
78646122
...
...
@@ -75,7 +75,7 @@ andTasksCond :: do tasks in any order until pred holds for finished tasks, strin
orTask2
::
!(
Task
a
,
Task
b
)
->
Task
(
EITHER
a
b
)
|
iCreateAndPrint
a
&
iCreateAndPrint
b
andTask2
::
!(
Task
a
,
Task
b
)
->
Task
(
a
,
b
)
|
iCreateAndPrint
a
&
iCreateAndPrint
b
andTasksCond
::
!
String
!([
a
]
->
Bool
)
![
LabeledTask
a
]
->
(
Task
[
a
]
)
|
iData
a
andTasksCond
::
!
String
!([
a
]
->
Bool
)
![
LabeledTask
a
]
->
Task
[
a
]
|
iData
a
/* Support for user defined combinators
newTask :: same, but optimized: after completion only result will remembered
...
...
libraries/iTasks/iTasksHandler.dcl
View file @
78646122
...
...
@@ -23,7 +23,7 @@ derive write Void
::
LabeledTask
a
:==
!(!
TaskLabel
,!
Task
a
)
// a Task with a label used for labeling buttons, pull down menu, and the like
::
TaskLabel
:==
!
String
// label name
::
Task
a
:==
!*
TSt
->
*(!
a
,!*
TSt
)
// an iTask is state
s
transition of some type TSt
::
Task
a
:==
!*
TSt
->
*(!
a
,!*
TSt
)
// an iTask is state transition of some type TSt
// StartUp Options used for wrappers:
...
...
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