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
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
73
Issues
73
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
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
iTasks-SDK
Commits
2d1922d9
Commit
2d1922d9
authored
Sep 04, 2018
by
Haye Böhm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix tests
parent
e4ce0543
Pipeline
#13727
failed with stage
in 1 minute and 32 seconds
Changes
5
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
8 additions
and
9 deletions
+8
-9
Examples/BasicAPIExamples/MultiUserExamples/Chat.icl
Examples/BasicAPIExamples/MultiUserExamples/Chat.icl
+2
-2
Examples/BasicAPIExamples/MultiUserExamples/MeetingDate.icl
Examples/BasicAPIExamples/MultiUserExamples/MeetingDate.icl
+0
-1
Examples/BasicAPIExamples/MultiUserExamples/OptionsChat.icl
Examples/BasicAPIExamples/MultiUserExamples/OptionsChat.icl
+2
-2
Examples/BasicAPIExamples/ParallelExamples/TinyTextEditor.icl
...ples/BasicAPIExamples/ParallelExamples/TinyTextEditor.icl
+3
-3
Libraries/iTasks/Extensions/Distributed/_Evaluation.icl
Libraries/iTasks/Extensions/Distributed/_Evaluation.icl
+1
-1
No files found.
Examples/BasicAPIExamples/MultiUserExamples/Chat.icl
View file @
2d1922d9
...
...
@@ -44,12 +44,12 @@ createChatSession enter update
>>=
\
me
->
enterMultipleChoiceWithShared
(
"select chatters"
)
[
ChooseFromCheckGroup
id
]
users
>>=
\
others
->
withShared
[]
(
startChats
enter
update
[
me
:
others
])
startChats
::
(
Task
a
)
(
User
a
->
Task
b
)
[
User
]
(
Shared
[
b
])
->
Task
[
b
]
|
iTask
a
&
iTask
b
startChats
::
(
Task
a
)
(
User
a
->
Task
b
)
[
User
]
(
sds
()
[
b
]
[
b
])
->
Task
[
b
]
|
iTask
a
&
iTask
b
&
RWShared
sds
startChats
enter
update
chatters
chatStore
=
allTasks
[(
user
,
"chat"
)
@:
chatWith
user
enter
update
chatStore
\\
user
<-
chatters
]
>>|
get
chatStore
chatWith
::
User
(
Task
a
)
(
User
a
->
Task
b
)
(
Shared
[
b
])
->
Task
()
|
iTask
a
&
iTask
b
chatWith
::
User
(
Task
a
)
(
User
a
->
Task
b
)
(
sds
()
[
b
]
[
b
])
->
Task
()
|
iTask
a
&
iTask
b
&
RWShared
sds
chatWith
me
enter
update
chatStore
=
viewSharedInformation
(
"Chat History:"
)
[]
chatStore
||-
...
...
Examples/BasicAPIExamples/MultiUserExamples/MeetingDate.icl
View file @
2d1922d9
...
...
@@ -71,7 +71,6 @@ where
makeTable
=
[{
users
=
[],
date
=
date
}
\\
date
<-
dates
]
askAll
::
(
Shared
[
MeetingOption
])
->
Task
MeetingOption
askAll
table
=
allTasks
[(
user
,
purpose
)
@:
checkOptions
(
toString
user
)
\\
user
<-
others
]
>>-
\_
->
enterChoiceWithShared
"Select the date for the meeting:"
[
ChooseFromGrid
id
]
table
...
...
Examples/BasicAPIExamples/MultiUserExamples/OptionsChat.icl
View file @
2d1922d9
...
...
@@ -59,12 +59,12 @@ createChatSession enter update
>>=
\
me
->
enterMultipleChoiceWithShared
(
"select chatters"
)
[
ChooseFromCheckGroup
id
]
users
>>=
\
others
->
withShared
[]
(
startChats
enter
update
[
me
:
others
])
where
startChats
::
(
Task
a
)
(
User
a
->
Task
b
)
[
User
]
(
Shared
[
b
])
->
Task
[
b
]
|
iTask
a
&
iTask
b
startChats
::
(
Task
a
)
(
User
a
->
Task
b
)
[
User
]
(
sds
()
[
b
]
[
b
])
->
Task
[
b
]
|
iTask
a
&
iTask
b
&
RWShared
sds
startChats
enter
update
chatters
chatStore
=
allTasks
[(
user
,
foldl
(+++)
""
(
map
toString
chatters
))
@:
chatWith
user
enter
update
chatStore
\\
user
<-
chatters
]
>>|
get
chatStore
chatWith
::
User
(
Task
a
)
(
User
a
->
Task
b
)
(
Shared
[
b
])
->
Task
()
|
iTask
a
&
iTask
b
chatWith
::
User
(
Task
a
)
(
User
a
->
Task
b
)
(
sds
()
[
b
]
[
b
])
->
Task
()
|
iTask
a
&
iTask
b
&
RWShared
sds
chatWith
me
enter
update
chatStore
=
viewSharedInformation
(
"Chat History:"
)
[]
chatStore
||-
...
...
Examples/BasicAPIExamples/ParallelExamples/TinyTextEditor.icl
View file @
2d1922d9
...
...
@@ -33,11 +33,11 @@ editWithStatistics
>>*
[
OnAction
(
Action
"Quit"
)
(
always
(
return
()))
]
editFile
::
String
(
Shared
String
)
->
Task
()
editFile
::
String
(
sds
()
String
String
)
->
Task
()
|
RWShared
sds
editFile
fileName
sharedFile
=
updateSharedInformation
(
"edit "
+++
fileName
)
[
UpdateUsing
id
(
const
id
)
textArea
]
sharedFile
@!
()
showStatistics
::
(
Shared
String
)
->
Task
()
showStatistics
::
(
sds
()
String
String
)
->
Task
()
|
RWShared
sds
showStatistics
sharedFile
=
viewSharedInformation
"Statistics:"
[
ViewAs
stat
]
sharedFile
@!
()
where
stat
text
=
{
lineCount
=
lengthLines
text
,
wordCount
=
lengthWords
text
}
...
...
@@ -48,7 +48,7 @@ where
lengthWords
""
=
0
lengthWords
text
=
length
(
split
" "
(
replaceSubString
"
\n
"
" "
text
))
replace
::
Replace
(
Shared
String
)
->
Task
()
replace
::
Replace
(
sds
()
String
String
)
->
Task
()
|
RWShared
sds
replace
cmnd
sharedFile
=
(
updateInformation
"Replace:"
[]
cmnd
>>*
[
OnAction
(
Action
"Replace"
)
(
hasValue
substitute
)
...
...
Libraries/iTasks/Extensions/Distributed/_Evaluation.icl
View file @
2d1922d9
...
...
@@ -50,7 +50,7 @@ proxyTask value_share onDestroy = Task eval
#
(
val
,
iworld
)
=
readRegister
taskId
value_share
iworld
=
case
val
of
// TODO: Fix
//
Ok (ReadResult val _) = (ValueResult val {TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=True} (rep event) tree, iworld)
Ok
(
ReadResult
val
_)
=
(
ValueResult
val
{
TaskEvalInfo
|
lastEvent
=
ts
,
removedTasks
=[],
refreshSensitive
=
True
}
(
rep
event
)
tree
,
iworld
)
Error
e
=
(
ExceptionResult
e
,
iworld
)
eval
event
repAs
(
TCDestroy
_)
iworld
#
iworld
=
onDestroy
iworld
...
...
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