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
ae8623a2
Commit
ae8623a2
authored
Mar 04, 2019
by
Bas Lijnse
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' into 259-editors-need-refinement
parents
16e30a0c
ef337e8b
Pipeline
#19582
passed with stage
in 5 minutes and 35 seconds
Changes
237
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
237 changed files
with
11371 additions
and
3831 deletions
+11371
-3831
Config/linux-x64/iTasks-dist.env
Config/linux-x64/iTasks-dist.env
+22
-0
Config/macos-x64/iTasks-dist.env
Config/macos-x64/iTasks-dist.env
+22
-0
Config/windows-x86/iTasks-dist.env
Config/windows-x86/iTasks-dist.env
+27
-0
Examples/Applications/Incidone/Incidone/ActionManagementTasks.dcl
.../Applications/Incidone/Incidone/ActionManagementTasks.dcl
+21
-20
Examples/Applications/Incidone/Incidone/ActionManagementTasks.icl
.../Applications/Incidone/Incidone/ActionManagementTasks.icl
+38
-38
Examples/Applications/Incidone/Incidone/Configuration.dcl
Examples/Applications/Incidone/Incidone/Configuration.dcl
+7
-7
Examples/Applications/Incidone/Incidone/Configuration.icl
Examples/Applications/Incidone/Incidone/Configuration.icl
+8
-8
Examples/Applications/Incidone/Incidone/ContactPosition.dcl
Examples/Applications/Incidone/Incidone/ContactPosition.dcl
+2
-2
Examples/Applications/Incidone/Incidone/ContactPosition.icl
Examples/Applications/Incidone/Incidone/ContactPosition.icl
+2
-2
Examples/Applications/Incidone/Incidone/DeviceBased/Tablet.icl
...les/Applications/Incidone/Incidone/DeviceBased/Tablet.icl
+3
-3
Examples/Applications/Incidone/Incidone/DeviceBased/VideoWall.dcl
.../Applications/Incidone/Incidone/DeviceBased/VideoWall.dcl
+1
-1
Examples/Applications/Incidone/Incidone/DeviceBased/VideoWall.icl
.../Applications/Incidone/Incidone/DeviceBased/VideoWall.icl
+3
-3
Examples/Applications/Incidone/Incidone/Extensions/CrewLists.icl
...s/Applications/Incidone/Incidone/Extensions/CrewLists.icl
+2
-2
Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl
...s/Applications/Incidone/Incidone/Integration/Asterisk.icl
+1
-0
Examples/Applications/Incidone/Incidone/OP/CommunicationManagementTasks.icl
...ons/Incidone/Incidone/OP/CommunicationManagementTasks.icl
+9
-9
Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.dcl
...lications/Incidone/Incidone/OP/ContactManagementTasks.dcl
+3
-3
Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.icl
...lications/Incidone/Incidone/OP/ContactManagementTasks.icl
+17
-15
Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.dcl
...ications/Incidone/Incidone/OP/IncidentManagementTasks.dcl
+1
-1
Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.icl
...ications/Incidone/Incidone/OP/IncidentManagementTasks.icl
+3
-2
Examples/Applications/Incidone/Incidone/OP/SDSs.dcl
Examples/Applications/Incidone/Incidone/OP/SDSs.dcl
+90
-91
Examples/Applications/Incidone/Incidone/OP/SDSs.icl
Examples/Applications/Incidone/Incidone/OP/SDSs.icl
+127
-121
Examples/Applications/Incidone/Incidone/RoleBased/AdministratorTasks.icl
...ations/Incidone/Incidone/RoleBased/AdministratorTasks.icl
+1
-1
Examples/Applications/Incidone/Incidone/Util/Notification.icl
...ples/Applications/Incidone/Incidone/Util/Notification.icl
+2
-2
Examples/Applications/Incidone/Incidone/Util/SQLSDS.dcl
Examples/Applications/Incidone/Incidone/Util/SQLSDS.dcl
+5
-5
Examples/Applications/Incidone/Incidone/Util/SQLSDS.icl
Examples/Applications/Incidone/Incidone/Util/SQLSDS.icl
+5
-5
Examples/Applications/Incidone/Incidone/Util/TaskPatterns.dcl
...ples/Applications/Incidone/Incidone/Util/TaskPatterns.dcl
+9
-9
Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl
...ples/Applications/Incidone/Incidone/Util/TaskPatterns.icl
+19
-15
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl
...Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl
+3
-2
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.dcl
...plications/ShipAdventure/C2/Apps/ShipAdventure/Editor.dcl
+1
-1
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl
...plications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl
+10
-9
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.dcl
...cations/ShipAdventure/C2/Apps/ShipAdventure/Scripting.dcl
+3
-3
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl
...cations/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl
+5
-4
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.dcl
...pplications/ShipAdventure/C2/Apps/ShipAdventure/Types.dcl
+19
-19
Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl
...pplications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl
+25
-24
Examples/Applications/ShipAdventure/C2/Framework/Common.dcl
Examples/Applications/ShipAdventure/C2/Framework/Common.dcl
+6
-7
Examples/Applications/ShipAdventure/C2/Framework/Common.icl
Examples/Applications/ShipAdventure/C2/Framework/Common.icl
+9
-9
Examples/Applications/ShipAdventure/C2/Framework/Core.dcl
Examples/Applications/ShipAdventure/C2/Framework/Core.dcl
+1
-1
Examples/Applications/ShipAdventure/C2/Framework/Core.icl
Examples/Applications/ShipAdventure/C2/Framework/Core.icl
+6
-6
Examples/Applications/ShipAdventure/C2/Framework/Entity.icl
Examples/Applications/ShipAdventure/C2/Framework/Entity.icl
+1
-0
Examples/Applications/ShipAdventure/C2/Framework/Logging.dcl
Examples/Applications/ShipAdventure/C2/Framework/Logging.dcl
+1
-1
Examples/Applications/ShipAdventure/C2/Framework/Logging.icl
Examples/Applications/ShipAdventure/C2/Framework/Logging.icl
+1
-1
Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.dcl
...pplications/ShipAdventure/C2/Framework/MapEnvironment.dcl
+19
-19
Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl
...pplications/ShipAdventure/C2/Framework/MapEnvironment.icl
+20
-21
Examples/Applications/ShipAdventure/C2/Framework/Util.dcl
Examples/Applications/ShipAdventure/C2/Framework/Util.dcl
+7
-7
Examples/Applications/ShipAdventure/C2/Framework/Util.icl
Examples/Applications/ShipAdventure/C2/Framework/Util.icl
+7
-7
Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl
Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl
+1
-0
Examples/Applications/ShipAdventure/main.icl
Examples/Applications/ShipAdventure/main.icl
+1
-1
Examples/Applications/TheTaxMan/Administration/Tasks.icl
Examples/Applications/TheTaxMan/Administration/Tasks.icl
+4
-4
Examples/Applications/TheTaxMan/Cadastre/SDS.dcl
Examples/Applications/TheTaxMan/Cadastre/SDS.dcl
+1
-1
Examples/Applications/TheTaxMan/Cadastre/SDS.icl
Examples/Applications/TheTaxMan/Cadastre/SDS.icl
+1
-1
Examples/Applications/TheTaxMan/ChamberOfCommerce/SDS.dcl
Examples/Applications/TheTaxMan/ChamberOfCommerce/SDS.dcl
+2
-2
Examples/Applications/TheTaxMan/ChamberOfCommerce/SDS.icl
Examples/Applications/TheTaxMan/ChamberOfCommerce/SDS.icl
+2
-2
Examples/Applications/TheTaxMan/CivilAffairs/SDS.dcl
Examples/Applications/TheTaxMan/CivilAffairs/SDS.dcl
+1
-1
Examples/Applications/TheTaxMan/CivilAffairs/SDS.icl
Examples/Applications/TheTaxMan/CivilAffairs/SDS.icl
+1
-1
Examples/Applications/TheTaxMan/CivilAffairs/UoD.dcl
Examples/Applications/TheTaxMan/CivilAffairs/UoD.dcl
+1
-1
Examples/Applications/TheTaxMan/Compensation/SDS.dcl
Examples/Applications/TheTaxMan/Compensation/SDS.dcl
+12
-12
Examples/Applications/TheTaxMan/Compensation/SDS.icl
Examples/Applications/TheTaxMan/Compensation/SDS.icl
+13
-13
Examples/Applications/TheTaxMan/Task/Extensions.dcl
Examples/Applications/TheTaxMan/Task/Extensions.dcl
+2
-2
Examples/Applications/TheTaxMan/Task/Extensions.icl
Examples/Applications/TheTaxMan/Task/Extensions.icl
+6
-6
Examples/AsyncShareTest/.gitignore
Examples/AsyncShareTest/.gitignore
+3
-0
Examples/AsyncShareTest/AsyncShareTest.icl
Examples/AsyncShareTest/AsyncShareTest.icl
+70
-0
Examples/AsyncShareTest/Makefile
Examples/AsyncShareTest/Makefile
+24
-0
Examples/BasicAPIExamples/MultiUserExamples/Chat.icl
Examples/BasicAPIExamples/MultiUserExamples/Chat.icl
+4
-4
Examples/BasicAPIExamples/MultiUserExamples/MeetingDate.icl
Examples/BasicAPIExamples/MultiUserExamples/MeetingDate.icl
+2
-3
Examples/BasicAPIExamples/MultiUserExamples/OptionsChat.icl
Examples/BasicAPIExamples/MultiUserExamples/OptionsChat.icl
+4
-4
Examples/BasicAPIExamples/ParallelExamples/TinyTextEditor.icl
...ples/BasicAPIExamples/ParallelExamples/TinyTextEditor.icl
+3
-3
Examples/Distributed/.gitignore
Examples/Distributed/.gitignore
+1
-0
Examples/Distributed/README.md
Examples/Distributed/README.md
+19
-0
Examples/Distributed/examples.icl
Examples/Distributed/examples.icl
+147
-0
Examples/Distributed/examples.prj.default
Examples/Distributed/examples.prj.default
+59
-0
Examples/GIS/LeafletMapExample.icl
Examples/GIS/LeafletMapExample.icl
+4
-4
Examples/Games/Ligretto/Ligretto/Tasks.icl
Examples/Games/Ligretto/Ligretto/Tasks.icl
+5
-5
Examples/Games/Ligretto/Ligretto/UI.icl
Examples/Games/Ligretto/Ligretto/UI.icl
+1
-1
Examples/Graphics/BasicImagesExamples/Clean.icl
Examples/Graphics/BasicImagesExamples/Clean.icl
+1
-1
Examples/Graphics/ScalableExts/Scalable.dcl
Examples/Graphics/ScalableExts/Scalable.dcl
+0
-10
Examples/Graphics/ScalableExts/Scalable.icl
Examples/Graphics/ScalableExts/Scalable.icl
+0
-18
Examples/RemoteServiceExamples/RemoteServiceExamples.icl
Examples/RemoteServiceExamples/RemoteServiceExamples.icl
+50
-0
Examples/RemoteShareExamples/.gitignore
Examples/RemoteShareExamples/.gitignore
+3
-0
Examples/RemoteShareExamples/Makefile
Examples/RemoteShareExamples/Makefile
+24
-0
Examples/RemoteShareExamples/RemoteShareExamples.icl
Examples/RemoteShareExamples/RemoteShareExamples.icl
+154
-0
Examples/RemoteShareExamples/RemoteShareExamples.prj.default
Examples/RemoteShareExamples/RemoteShareExamples.prj.default
+3224
-0
Libraries/iTasks.dcl
Libraries/iTasks.dcl
+11
-5
Libraries/iTasks/Engine.dcl
Libraries/iTasks/Engine.dcl
+2
-0
Libraries/iTasks/Engine.icl
Libraries/iTasks/Engine.icl
+41
-28
Libraries/iTasks/Extensions/Admin/TonicAdmin.dcl
Libraries/iTasks/Extensions/Admin/TonicAdmin.dcl
+4
-2
Libraries/iTasks/Extensions/Admin/TonicAdmin.icl
Libraries/iTasks/Extensions/Admin/TonicAdmin.icl
+12
-28
Libraries/iTasks/Extensions/Admin/UserAdmin.dcl
Libraries/iTasks/Extensions/Admin/UserAdmin.dcl
+22
-5
Libraries/iTasks/Extensions/Admin/UserAdmin.icl
Libraries/iTasks/Extensions/Admin/UserAdmin.icl
+89
-36
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.dcl
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.dcl
+2
-4
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
+38
-39
Libraries/iTasks/Extensions/Clock.icl
Libraries/iTasks/Extensions/Clock.icl
+2
-2
Libraries/iTasks/Extensions/Dashboard.icl
Libraries/iTasks/Extensions/Dashboard.icl
+2
-2
Libraries/iTasks/Extensions/DateTime.icl
Libraries/iTasks/Extensions/DateTime.icl
+2
-0
Libraries/iTasks/Extensions/Development/Codebase.dcl
Libraries/iTasks/Extensions/Development/Codebase.dcl
+4
-4
Libraries/iTasks/Extensions/Development/Codebase.icl
Libraries/iTasks/Extensions/Development/Codebase.icl
+7
-7
Libraries/iTasks/Extensions/Development/Tools.dcl
Libraries/iTasks/Extensions/Development/Tools.dcl
+1
-1
Libraries/iTasks/Extensions/Development/Tools.icl
Libraries/iTasks/Extensions/Development/Tools.icl
+1
-1
Libraries/iTasks/Extensions/Device/Camera.dcl
Libraries/iTasks/Extensions/Device/Camera.dcl
+14
-0
Libraries/iTasks/Extensions/Device/Camera.icl
Libraries/iTasks/Extensions/Device/Camera.icl
+15
-0
Libraries/iTasks/Extensions/Device/Features.dcl
Libraries/iTasks/Extensions/Device/Features.dcl
+18
-0
Libraries/iTasks/Extensions/Device/Features.icl
Libraries/iTasks/Extensions/Device/Features.icl
+32
-0
Libraries/iTasks/Extensions/Device/Location.dcl
Libraries/iTasks/Extensions/Device/Location.dcl
+13
-0
Libraries/iTasks/Extensions/Device/Location.icl
Libraries/iTasks/Extensions/Device/Location.icl
+17
-0
Libraries/iTasks/Extensions/Device/_Common.dcl
Libraries/iTasks/Extensions/Device/_Common.dcl
+17
-0
Libraries/iTasks/Extensions/Device/_Common.icl
Libraries/iTasks/Extensions/Device/_Common.icl
+49
-0
Libraries/iTasks/Extensions/Distributed/Authentication.dcl
Libraries/iTasks/Extensions/Distributed/Authentication.dcl
+29
-0
Libraries/iTasks/Extensions/Distributed/Authentication.icl
Libraries/iTasks/Extensions/Distributed/Authentication.icl
+204
-0
Libraries/iTasks/Extensions/Distributed/InteractionTasks.dcl
Libraries/iTasks/Extensions/Distributed/InteractionTasks.dcl
+11
-0
Libraries/iTasks/Extensions/Distributed/InteractionTasks.icl
Libraries/iTasks/Extensions/Distributed/InteractionTasks.icl
+15
-0
Libraries/iTasks/Extensions/Distributed/Task.dcl
Libraries/iTasks/Extensions/Distributed/Task.dcl
+31
-0
Libraries/iTasks/Extensions/Distributed/Task.icl
Libraries/iTasks/Extensions/Distributed/Task.icl
+85
-0
Libraries/iTasks/Extensions/Distributed/_Attributes.dcl
Libraries/iTasks/Extensions/Distributed/_Attributes.dcl
+16
-0
Libraries/iTasks/Extensions/Distributed/_Attributes.icl
Libraries/iTasks/Extensions/Distributed/_Attributes.icl
+32
-0
Libraries/iTasks/Extensions/Distributed/_Evaluation.dcl
Libraries/iTasks/Extensions/Distributed/_Evaluation.dcl
+16
-0
Libraries/iTasks/Extensions/Distributed/_Evaluation.icl
Libraries/iTasks/Extensions/Distributed/_Evaluation.icl
+81
-0
Libraries/iTasks/Extensions/Distributed/_Formatter.dcl
Libraries/iTasks/Extensions/Distributed/_Formatter.dcl
+7
-0
Libraries/iTasks/Extensions/Distributed/_Formatter.icl
Libraries/iTasks/Extensions/Distributed/_Formatter.icl
+55
-0
Libraries/iTasks/Extensions/Distributed/_Types.dcl
Libraries/iTasks/Extensions/Distributed/_Types.dcl
+8
-0
Libraries/iTasks/Extensions/Distributed/_Types.icl
Libraries/iTasks/Extensions/Distributed/_Types.icl
+14
-0
Libraries/iTasks/Extensions/Distributed/_Util.dcl
Libraries/iTasks/Extensions/Distributed/_Util.dcl
+7
-0
Libraries/iTasks/Extensions/Distributed/_Util.icl
Libraries/iTasks/Extensions/Distributed/_Util.icl
+40
-0
Libraries/iTasks/Extensions/Distributed/iTasks.dcl
Libraries/iTasks/Extensions/Distributed/iTasks.dcl
+66
-0
Libraries/iTasks/Extensions/Distributed/iTasks.icl
Libraries/iTasks/Extensions/Distributed/iTasks.icl
+1
-0
Libraries/iTasks/Extensions/Editors/Ace.icl
Libraries/iTasks/Extensions/Editors/Ace.icl
+2
-2
Libraries/iTasks/Extensions/FileCollection.dcl
Libraries/iTasks/Extensions/FileCollection.dcl
+1
-1
Libraries/iTasks/Extensions/FileCollection.icl
Libraries/iTasks/Extensions/FileCollection.icl
+2
-1
Libraries/iTasks/Extensions/Files.icl
Libraries/iTasks/Extensions/Files.icl
+7
-7
Libraries/iTasks/Extensions/Form/Pikaday.icl
Libraries/iTasks/Extensions/Form/Pikaday.icl
+2
-2
Libraries/iTasks/Extensions/GIS/Leaflet.icl
Libraries/iTasks/Extensions/GIS/Leaflet.icl
+2
-1
Libraries/iTasks/Extensions/Picture/Interaction.dcl
Libraries/iTasks/Extensions/Picture/Interaction.dcl
+6
-0
Libraries/iTasks/Extensions/Picture/Interaction.icl
Libraries/iTasks/Extensions/Picture/Interaction.icl
+28
-0
Libraries/iTasks/Extensions/Picture/JPEG.dcl
Libraries/iTasks/Extensions/Picture/JPEG.dcl
+17
-0
Libraries/iTasks/Extensions/Picture/JPEG.icl
Libraries/iTasks/Extensions/Picture/JPEG.icl
+26
-0
Libraries/iTasks/Extensions/SQLDatabase.dcl
Libraries/iTasks/Extensions/SQLDatabase.dcl
+4
-4
Libraries/iTasks/Extensions/SQLDatabase.icl
Libraries/iTasks/Extensions/SQLDatabase.icl
+4
-4
Libraries/iTasks/Extensions/SVG/SVGEditor.icl
Libraries/iTasks/Extensions/SVG/SVGEditor.icl
+3
-3
Libraries/iTasks/Extensions/Terminal.icl
Libraries/iTasks/Extensions/Terminal.icl
+0
-2
Libraries/iTasks/Extensions/User.dcl
Libraries/iTasks/Extensions/User.dcl
+9
-9
Libraries/iTasks/Extensions/User.icl
Libraries/iTasks/Extensions/User.icl
+15
-11
Libraries/iTasks/Extensions/Web.dcl
Libraries/iTasks/Extensions/Web.dcl
+1
-1
Libraries/iTasks/Extensions/Web.icl
Libraries/iTasks/Extensions/Web.icl
+5
-4
Libraries/iTasks/Internal/AsyncSDS.dcl
Libraries/iTasks/Internal/AsyncSDS.dcl
+110
-0
Libraries/iTasks/Internal/AsyncSDS.icl
Libraries/iTasks/Internal/AsyncSDS.icl
+373
-0
Libraries/iTasks/Internal/Client/JSStore.icl
Libraries/iTasks/Internal/Client/JSStore.icl
+4
-4
Libraries/iTasks/Internal/Client/RunOnClient.icl
Libraries/iTasks/Internal/Client/RunOnClient.icl
+13
-11
Libraries/iTasks/Internal/Distributed/Domain.dcl
Libraries/iTasks/Internal/Distributed/Domain.dcl
+17
-0
Libraries/iTasks/Internal/Distributed/Domain.icl
Libraries/iTasks/Internal/Distributed/Domain.icl
+5
-0
Libraries/iTasks/Internal/Distributed/Instance.dcl
Libraries/iTasks/Internal/Distributed/Instance.dcl
+30
-0
Libraries/iTasks/Internal/Distributed/Instance.icl
Libraries/iTasks/Internal/Distributed/Instance.icl
+667
-0
Libraries/iTasks/Internal/Distributed/RemoteTask.dcl
Libraries/iTasks/Internal/Distributed/RemoteTask.dcl
+21
-0
Libraries/iTasks/Internal/Distributed/RemoteTask.icl
Libraries/iTasks/Internal/Distributed/RemoteTask.icl
+11
-0
Libraries/iTasks/Internal/Distributed/Symbols.dcl
Libraries/iTasks/Internal/Distributed/Symbols.dcl
+22
-0
Libraries/iTasks/Internal/Distributed/Symbols.icl
Libraries/iTasks/Internal/Distributed/Symbols.icl
+44
-0
Libraries/iTasks/Internal/EngineTasks.icl
Libraries/iTasks/Internal/EngineTasks.icl
+27
-25
Libraries/iTasks/Internal/IWorld.dcl
Libraries/iTasks/Internal/IWorld.dcl
+16
-17
Libraries/iTasks/Internal/IWorld.icl
Libraries/iTasks/Internal/IWorld.icl
+19
-8
Libraries/iTasks/Internal/RemoteAccess.icl
Libraries/iTasks/Internal/RemoteAccess.icl
+1
-1
Libraries/iTasks/Internal/SDS.dcl
Libraries/iTasks/Internal/SDS.dcl
+96
-34
Libraries/iTasks/Internal/SDS.icl
Libraries/iTasks/Internal/SDS.icl
+889
-363
Libraries/iTasks/Internal/SDSService.dcl
Libraries/iTasks/Internal/SDSService.dcl
+4
-27
Libraries/iTasks/Internal/SDSService.icl
Libraries/iTasks/Internal/SDSService.icl
+150
-148
Libraries/iTasks/Internal/Serialization.icl
Libraries/iTasks/Internal/Serialization.icl
+1
-1
Libraries/iTasks/Internal/Store.dcl
Libraries/iTasks/Internal/Store.dcl
+3
-3
Libraries/iTasks/Internal/Store.icl
Libraries/iTasks/Internal/Store.icl
+4
-3
Libraries/iTasks/Internal/Task.dcl
Libraries/iTasks/Internal/Task.dcl
+11
-20
Libraries/iTasks/Internal/Task.icl
Libraries/iTasks/Internal/Task.icl
+58
-46
Libraries/iTasks/Internal/TaskEval.dcl
Libraries/iTasks/Internal/TaskEval.dcl
+14
-3
Libraries/iTasks/Internal/TaskEval.icl
Libraries/iTasks/Internal/TaskEval.icl
+93
-82
Libraries/iTasks/Internal/TaskServer.dcl
Libraries/iTasks/Internal/TaskServer.dcl
+8
-3
Libraries/iTasks/Internal/TaskServer.icl
Libraries/iTasks/Internal/TaskServer.icl
+441
-402
Libraries/iTasks/Internal/TaskState.dcl
Libraries/iTasks/Internal/TaskState.dcl
+15
-9
Libraries/iTasks/Internal/TaskState.icl
Libraries/iTasks/Internal/TaskState.icl
+4
-5
Libraries/iTasks/Internal/TaskStore.dcl
Libraries/iTasks/Internal/TaskStore.dcl
+40
-45
Libraries/iTasks/Internal/TaskStore.icl
Libraries/iTasks/Internal/TaskStore.icl
+307
-286
Libraries/iTasks/Internal/Tonic.dcl
Libraries/iTasks/Internal/Tonic.dcl
+1
-2
Libraries/iTasks/Internal/Tonic.icl
Libraries/iTasks/Internal/Tonic.icl
+411
-404
Libraries/iTasks/Internal/Tonic/AbsSyn.icl
Libraries/iTasks/Internal/Tonic/AbsSyn.icl
+1
-0
Libraries/iTasks/Internal/Tonic/Blueprints.icl
Libraries/iTasks/Internal/Tonic/Blueprints.icl
+1
-0
Libraries/iTasks/Internal/Tonic/Server.icl
Libraries/iTasks/Internal/Tonic/Server.icl
+25
-20
Libraries/iTasks/Internal/Tonic/Shares.dcl
Libraries/iTasks/Internal/Tonic/Shares.dcl
+14
-14
Libraries/iTasks/Internal/Tonic/Shares.icl
Libraries/iTasks/Internal/Tonic/Shares.icl
+40
-27
Libraries/iTasks/Internal/Tonic/Types.icl
Libraries/iTasks/Internal/Tonic/Types.icl
+1
-0
Libraries/iTasks/Internal/Util.dcl
Libraries/iTasks/Internal/Util.dcl
+4
-0
Libraries/iTasks/Internal/Util.icl
Libraries/iTasks/Internal/Util.icl
+9
-2
Libraries/iTasks/Internal/WebService.dcl
Libraries/iTasks/Internal/WebService.dcl
+3
-3
Libraries/iTasks/Internal/WebService.icl
Libraries/iTasks/Internal/WebService.icl
+39
-39
Libraries/iTasks/SDS/Combinators/Common.dcl
Libraries/iTasks/SDS/Combinators/Common.dcl
+32
-38
Libraries/iTasks/SDS/Combinators/Common.icl
Libraries/iTasks/SDS/Combinators/Common.icl
+121
-94
Libraries/iTasks/SDS/Combinators/Core.dcl
Libraries/iTasks/SDS/Combinators/Core.dcl
+6
-10
Libraries/iTasks/SDS/Combinators/Core.icl
Libraries/iTasks/SDS/Combinators/Core.icl
+10
-17
Libraries/iTasks/SDS/Definition.dcl
Libraries/iTasks/SDS/Definition.dcl
+300
-62
Libraries/iTasks/SDS/Definition.icl
Libraries/iTasks/SDS/Definition.icl
+21
-2
Libraries/iTasks/SDS/Sources/Core.dcl
Libraries/iTasks/SDS/Sources/Core.dcl
+14
-11
Libraries/iTasks/SDS/Sources/Core.icl
Libraries/iTasks/SDS/Sources/Core.icl
+14
-10
Libraries/iTasks/SDS/Sources/Store.dcl
Libraries/iTasks/SDS/Sources/Store.dcl
+13
-7
Libraries/iTasks/SDS/Sources/Store.icl
Libraries/iTasks/SDS/Sources/Store.icl
+22
-11
Libraries/iTasks/SDS/Sources/System.dcl
Libraries/iTasks/SDS/Sources/System.dcl
+25
-25
Libraries/iTasks/SDS/Sources/System.icl
Libraries/iTasks/SDS/Sources/System.icl
+46
-38
Libraries/iTasks/UI/Definition.icl
Libraries/iTasks/UI/Definition.icl
+1
-0
Libraries/iTasks/UI/Editor.dcl
Libraries/iTasks/UI/Editor.dcl
+7
-7
Libraries/iTasks/UI/Editor.icl
Libraries/iTasks/UI/Editor.icl
+7
-8
Libraries/iTasks/UI/Editor/Common.icl
Libraries/iTasks/UI/Editor/Common.icl
+9
-9
Libraries/iTasks/UI/Editor/Containers.icl
Libraries/iTasks/UI/Editor/Containers.icl
+38
-38
Libraries/iTasks/UI/Editor/Controls.icl
Libraries/iTasks/UI/Editor/Controls.icl
+14
-13
Libraries/iTasks/UI/Editor/Generic.icl
Libraries/iTasks/UI/Editor/Generic.icl
+59
-51
Libraries/iTasks/UI/Editor/Modifiers.icl
Libraries/iTasks/UI/Editor/Modifiers.icl
+13
-15
Libraries/iTasks/UI/JS/Encoding.dcl
Libraries/iTasks/UI/JS/Encoding.dcl
+16
-3
Libraries/iTasks/UI/JS/Encoding.icl
Libraries/iTasks/UI/JS/Encoding.icl
+16
-2
Libraries/iTasks/UI/Layout.icl
Libraries/iTasks/UI/Layout.icl
+6
-3
Libraries/iTasks/UI/Layout/Common.icl
Libraries/iTasks/UI/Layout/Common.icl
+1
-1
Libraries/iTasks/Util/Testing.icl
Libraries/iTasks/Util/Testing.icl
+16
-16
Libraries/iTasks/Util/Trace.icl
Libraries/iTasks/Util/Trace.icl
+1
-0
Libraries/iTasks/WF/Combinators/Common.dcl
Libraries/iTasks/WF/Combinators/Common.dcl
+30
-30
Libraries/iTasks/WF/Combinators/Common.icl
Libraries/iTasks/WF/Combinators/Common.icl
+20
-19
Libraries/iTasks/WF/Combinators/Core.dcl
Libraries/iTasks/WF/Combinators/Core.dcl
+6
-6
Libraries/iTasks/WF/Combinators/Core.icl
Libraries/iTasks/WF/Combinators/Core.icl
+82
-74
Libraries/iTasks/WF/Combinators/SDS.dcl
Libraries/iTasks/WF/Combinators/SDS.dcl
+2
-10
Libraries/iTasks/WF/Combinators/SDS.icl
Libraries/iTasks/WF/Combinators/SDS.icl
+11
-41
Libraries/iTasks/WF/Combinators/Tune.dcl
Libraries/iTasks/WF/Combinators/Tune.dcl
+4
-4
Libraries/iTasks/WF/Combinators/Tune.icl
Libraries/iTasks/WF/Combinators/Tune.icl
+11
-10
Libraries/iTasks/WF/Definition.dcl
Libraries/iTasks/WF/Definition.dcl
+13
-8
Libraries/iTasks/WF/Definition.icl
Libraries/iTasks/WF/Definition.icl
+3
-1
Libraries/iTasks/WF/Derives.icl
Libraries/iTasks/WF/Derives.icl
+7
-6
Libraries/iTasks/WF/Tasks/Core.dcl
Libraries/iTasks/WF/Tasks/Core.dcl
+19
-10
Libraries/iTasks/WF/Tasks/Core.icl
Libraries/iTasks/WF/Tasks/Core.icl
+225
-51
Libraries/iTasks/WF/Tasks/IO.dcl
Libraries/iTasks/WF/Tasks/IO.dcl
+10
-9
Libraries/iTasks/WF/Tasks/IO.icl
Libraries/iTasks/WF/Tasks/IO.icl
+20
-18
Libraries/iTasks/WF/Tasks/Interaction.dcl
Libraries/iTasks/WF/Tasks/Interaction.dcl
+41
-41
Libraries/iTasks/WF/Tasks/Interaction.icl
Libraries/iTasks/WF/Tasks/Interaction.icl
+68
-62
Libraries/iTasks/WF/Tasks/SDS.dcl
Libraries/iTasks/WF/Tasks/SDS.dcl
+5
-5
Libraries/iTasks/WF/Tasks/SDS.icl
Libraries/iTasks/WF/Tasks/SDS.icl
+176
-45
Tests/Unit/iTasks/Internal/TaskStore/UnitTests.icl
Tests/Unit/iTasks/Internal/TaskStore/UnitTests.icl
+1
-1
Tests/Unit/iTasks/UI/Editor/Generic/UnitTests.icl
Tests/Unit/iTasks/UI/Editor/Generic/UnitTests.icl
+1
-1
Tests/Unit/iTasks/UI/Layout/UnitTests.icl
Tests/Unit/iTasks/UI/Layout/UnitTests.icl
+2
-2
Tests/Unit/iTasks/WF/Tasks/Core/UnitTests.icl
Tests/Unit/iTasks/WF/Tasks/Core/UnitTests.icl
+1
-1
Tools/CodeQualityMonitor.icl
Tools/CodeQualityMonitor.icl
+4
-3
ci-tests.bash
ci-tests.bash
+3
-3
No files found.
Config/linux-x64/iTasks-dist.env
0 → 100644
View file @
ae8623a2
Version: 1.0
Environment
EnvironmentName: iTasks-dist
EnvironmentPaths
Path: {Application}/lib/StdEnv
Path: {Application}/lib/Dynamics
Path: {Application}/lib/TCPIP
Path: {Application}/lib/Sapl
Path: {Application}/lib/GraphCopy
Path: {Application}/lib/Platform
Path: {Application}/lib/Platform/Deprecated/Generics
Path: {Application}/lib/Platform/Deprecated/StdLib
Path: {Application}/Development/iTasks-SDK/Libraries
EnvironmentCompiler: lib/exe/cocl::-dynamics -sapl -d
EnvironmentCodeGen: lib/exe/cg
EnvironmentLinker: /usr/bin/gcc::-g|lib/exe/sapl-collector-linker|lib/exe/itasks-web-collector
EnvironmentDynLink: lib/exe/cclinker
EnvironmentVersion: 920
EnvironmentRedirect: False
EnvironmentCompileMethod: Pers
EnvironmentProcessor: I386
Environment64BitProcessor: True
\ No newline at end of file
Config/macos-x64/iTasks-dist.env
0 → 100644
View file @
ae8623a2
Version: 1.0
Environment
EnvironmentName: iTasks
EnvironmentPaths
Path: {Application}/lib/StdEnv
Path: {Application}/lib/Dynamics
Path: {Application}/lib/TCPIP
Path: {Application}/lib/Platform
Path: {Application}/lib/Platform/Deprecated/Generics
Path: {Application}/lib/Platform/Deprecated/StdLib
Path: {Application}/lib/Sapl
Path: {Application}/lib/GraphCopy
Path: {Application}/lib/iTasks
EnvironmentCompiler: lib/exe/cocl:-dynamics -sapl -desc -exl -d
EnvironmentCodeGen: lib/exe/cg
EnvironmentLinker: lib/exe/cclinker|lib/exe/sapl-collector-linker|lib/exe/itasks-web-collector
EnvironmentDynLink: lib/exe/cclinker
EnvironmentVersion: 920
EnvironmentRedirect: False
EnvironmentCompileMethod: Pers
EnvironmentProcessor: I386
Environment64BitProcessor: True
Config/windows-x86/iTasks-dist.env
0 → 100644
View file @
ae8623a2
Version: 1.0
Environments
Environment
EnvironmentName: iTasks-dist
EnvironmentPaths
Path: {Application}\Libraries\StdEnv
Path: {Application}\Libraries\Dynamics
Path: {Application}\Libraries\Dynamics\extension
Path: {Application}\Libraries\Dynamics\general
Path: {Application}\Libraries\Dynamics\implementation
Path: {Application}\Libraries\Dynamics\implementation\windows
Path: {Application}\Libraries\TCPIP
Path: {Application}\Libraries\Platform
Path: {Application}\Libraries\Platform\Deprecated\Generics
Path: {Application}\Libraries\Platform\Deprecated\StdLib
Path: {Application}\Libraries\Sapl
Path: {Application}\Libraries\GraphCopy
Path: {Application}\Development\iTasks-SDK\Libraries
EnvironmentCompiler: Tools\Clean System\CleanCompiler.exe : -h 64M : -sapl -dynamics -generics -desc -exl -d
EnvironmentCodeGen: Tools\Clean System\CodeGenerator.exe
EnvironmentLinker: Tools\Clean System\StaticLinker.exe : -h 64M | Tools\Clean System\SaplCollectorLinker.exe | Tools\Clean System\WebResourceCollector.exe
EnvironmentDynLink: Tools\Clean System\DynamicLinker.exe
EnvironmentVersion: 920
EnvironmentRedirect: False
EnvironmentCompileMethod: Pers
EnvironmentProcessor: I386
Environment64BitProcessor: False
Examples/Applications/Incidone/Incidone/ActionManagementTasks.dcl
View file @
ae8623a2
...
...
@@ -18,8 +18,9 @@ import Incidone.OP.Concepts
::
ActionDefinition
c
=
{
identity
::
String
,
meta
::
ItemMeta
,
task
::
c
(
S
hared
ActionStatus
)
->
Task
()
,
task
::
c
(
S
impleSDSLens
ActionStatus
)
->
Task
()
}
//Wrapped action for storage in the action catalog
::
CatalogAction
=
{
identity
::
String
//Identifying string, such that you can track which actions have been done
...
...
@@ -33,9 +34,9 @@ import Incidone.OP.Concepts
}
::
ActionTasks
=
E
.
c
:
ActionTasks
=
E
.
c
sds
:
ActionTasks
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
//Configuration task
(
c
(
S
hared
ActionStatus
)
->
Task
())
&
iTask
c
//An action item that needs to be configured before it can be deployed
(
c
(
S
impleSDSLens
ActionStatus
)
->
Task
())
&
iTask
c
//An action item that needs to be configured before it can be deployed
::
ActionProgress
=
ActionPlanned
...
...
@@ -144,7 +145,7 @@ derive gDefault CatalogAction
derive
gText
CatalogAction
derive
gEditor
CatalogAction
toInstantAction
::
c
ActionProgress
[
ContactNo
]
[
IncidentNo
]
(
ActionDefinition
c
)
->
CatalogAction
|
iTask
c
toInstantAction
::
c
ActionProgress
[
ContactNo
]
[
IncidentNo
]
(
ActionDefinition
c
)
->
CatalogAction
|
iTask
c
toConfigurableAction
::
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
(
ActionDefinition
c
)
->
CatalogAction
|
iTask
c
toContactAction
::
(
Maybe
String
)
(
ActionDefinition
ContactNo
)
->
CatalogAction
toIncidentAction
::
(
ActionDefinition
IncidentNo
)
->
CatalogAction
...
...
@@ -155,34 +156,34 @@ forIncident :: IncidentNo (ActionDefinition (ContactNo,IncidentN
addDefaultStatus
::
(
Task
c
)
->
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
|
iTask
c
//Shared catalog of predefined action items
actionCatalog
::
ReadOnlyShared
[
CatalogAction
]
builtinActionCatalog
::
ReadOnlyShared
[
CatalogAction
]
userActionCatalog
::
S
hared
[
UserCatalogAction
]
actionCatalog
::
SDSLens
()
[
CatalogAction
]
()
builtinActionCatalog
::
SDSSource
()
[
CatalogAction
]
()
userActionCatalog
::
S
impleSDSLens
[
UserCatalogAction
]
//Shares providing filtered views on iTasks task instances.
//They select only those detached tasks that are tagged to be action items
actionStatuses
::
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
//(Instance no, parent instance no, status)
actionStatusesByIncident
::
ROShared
IncidentNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatusesByContact
::
ROShared
ContactNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatusesOfCurrentContact
::
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatuses
::
SDSLens
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
//(Instance no, parent instance no, status)
actionStatusesByIncident
::
SDSLens
IncidentNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusesByContact
::
SDSLens
ContactNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusesOfCurrentContact
::
SDSSequence
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusByNo
::
RWShared
InstanceNo
ActionStatus
ActionStatus
actionStatusByNo
::
SDSLens
InstanceNo
ActionStatus
ActionStatus
numActionsByContact
::
ROShared
ContactNo
Int
numActionsByContact
::
SDSLens
ContactNo
Int
()
//Todo items
todoItemTask
::
()
(
Shared
ActionStatus
)
->
Task
()
todoItemTask
::
()
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
blankTodoItem
::
CatalogAction
predefinedTodoItem
::
String
ItemMeta
->
CatalogAction
predefinedInstantItem
::
String
ItemMeta
ActionProgress
((
S
hared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedConfigurableItem
::
String
ItemMeta
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
(
c
(
S
hared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
&
iTask
c
predefinedInstantItem
::
String
ItemMeta
ActionProgress
((
S
impleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
predefinedConfigurableItem
::
String
ItemMeta
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
(
c
(
S
impleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
&
iTask
c
//Contact or incident
predefinedIncidentItem
::
String
ItemMeta
(
IncidentNo
(
S
hared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedContactItem
::
String
ItemMeta
(
Maybe
String
)
(
ContactNo
(
S
hared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedIncidentItem
::
String
ItemMeta
(
IncidentNo
(
S
impleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedContactItem
::
String
ItemMeta
(
Maybe
String
)
(
ContactNo
(
S
impleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
//Action lists items
listItemTask
::
(
String
,
ActionPlan
)
(
Shared
ActionStatus
)
->
Task
()
listItemTask
::
(
String
,
ActionPlan
)
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
blankListItem
::
CatalogAction
predefinedListItem
::
String
ItemMeta
ActionPlan
->
CatalogAction
configurableListItem
::
String
ItemMeta
(
Task
c
)
(
c
->
ActionPlan
)
->
CatalogAction
|
iTask
c
...
...
@@ -192,7 +193,7 @@ configurableListItem :: String ItemMeta (Task c) (c -> ActionPlan)
* @param Group by incidents
* @param Use 'my actions' group for current user
*/
chooseActionItem
::
d
Bool
Bool
(
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)])
->
Task
InstanceNo
|
toPrompt
d
chooseActionItem
::
d
Bool
Bool
(
sds
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
())
->
Task
InstanceNo
|
toPrompt
d
&
RWShared
sds
workOnActionItem
::
InstanceNo
->
Task
()
editActionItem
::
InstanceNo
->
Task
(
Maybe
ActionStatus
)
deleteActionItem
::
InstanceNo
->
Task
(
Maybe
ActionStatus
)
...
...
Examples/Applications/Incidone/Incidone/ActionManagementTasks.icl
View file @
ae8623a2
...
...
@@ -25,36 +25,36 @@ import Incidone.Extensions.CrewLists
derive
class
iTask
CommunicationAttempt
derive
class
iTask
ActionPlan
actionStatuses
::
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatuses
::
SDSLens
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatuses
=
mapRead
(
map
toActionStatus
)
detachedTaskInstances
actionStatusesByIncident
::
ROShared
IncidentNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatusesByIncident
=
sdsSplit
"actionStatusesByIncident"
(\
p
->
((),
p
))
read
write
actionStatuses
actionStatusesByIncident
::
SDSLens
IncidentNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusesByIncident
=
sdsSplit
"actionStatusesByIncident"
(\
p
->
((),
p
))
read
write
(
Just
\
p
w
.
Ok
w
)
actionStatuses
where
read
instanceNo
is
=
filter
(
filterFun
instanceNo
)
is
write
_
_
_
=
((),
const
(
const
False
))
filterFun
instanceNo
(_,_,{
ActionStatus
|
incidents
})
=
isMember
instanceNo
incidents
actionStatusesByContact
::
ROShared
ContactNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatusesByContact
=
sdsSplit
"actionStatusesByContact"
(\
p
->
((),
p
))
read
write
actionStatuses
actionStatusesByContact
::
SDSLens
ContactNo
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusesByContact
=
sdsSplit
"actionStatusesByContact"
(\
p
->
((),
p
))
read
write
(
Just
\
p
w
.
Ok
w
)
actionStatuses
where
read
contactNo
is
=
filter
(
filterFun
contactNo
)
is
write
_
_
_
=
((),
const
(
const
False
))
filterFun
contactNo
(_,_,{
ActionStatus
|
contacts
})
=
isMember
contactNo
contacts
actionStatusesOfCurrentContact
::
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
actionStatusesOfCurrentContact
::
SDSSequence
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
()
actionStatusesOfCurrentContact
=
sdsSequence
"actionStatusesOfCurrentContact"
id
(\_
r
->
r
)
(\_
_
->
Right
snd
)
writel
writer
currentUserContactNo
actionStatusesByContact
where
writel
=
SDSWriteConst
(\_
_
->
Ok
Nothing
)
writer
=
SDSWriteConst
(\_
_
->
Ok
Nothing
)
actionStatusByNo
::
RWShared
InstanceNo
ActionStatus
ActionStatus
actionStatusByNo
=
sdsProject
(
SDSLensRead
read
)
(
SDSLensWrite
write
)
taskInstanceByNo
actionStatusByNo
::
SDSLens
InstanceNo
ActionStatus
ActionStatus
actionStatusByNo
=
sdsProject
(
SDSLensRead
read
)
(
SDSLensWrite
write
)
Nothing
taskInstanceByNo
where
read
item
=
Ok
(
thd3
(
toActionStatus
item
))
write
{
TaskInstance
|
attributes
}
status
=
Ok
(
Just
(
fromActionStatus
status
attributes
))
numActionsByContact
::
ROShared
ContactNo
Int
numActionsByContact
::
SDSLens
ContactNo
Int
()
numActionsByContact
=
mapRead
length
actionStatusesByContact
toActionStatuses
::
[
TaskInstance
]
->
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
...
...
@@ -100,8 +100,8 @@ fromSelfActionStatus status (_,items) = case [i \\ i=:{TaskListItem|taskId,self}
[{
TaskListItem
|
taskId
,
attributes
}:_]
=
Ok
(
Just
[(
taskId
,
fromActionStatus
status
attributes
)])
_
=
Error
(
exception
"Task id not found in self management share"
)
selfActionStatus
::
(
SharedTaskList
a
)
->
S
hared
ActionStatus
|
iTask
a
selfActionStatus
list
=
sdsFocus
taskListFilter
(
mapReadWriteError
(
toSelfActionStatus
,
fromSelfActionStatus
)
list
)
selfActionStatus
::
(
SharedTaskList
a
)
->
S
impleSDSLens
ActionStatus
|
iTask
a
selfActionStatus
list
=
sdsFocus
taskListFilter
(
mapReadWriteError
(
toSelfActionStatus
,
fromSelfActionStatus
)
Nothing
list
)
where
taskListFilter
=
{
TaskListFilter
|
onlyIndex
=
Nothing
,
onlyTaskId
=
Nothing
,
onlySelf
=
False
,
includeValue
=
False
,
includeAttributes
=
True
,
includeProgress
=
False
}
...
...
@@ -171,30 +171,30 @@ where
addDefaultStatus
::
(
Task
c
)
->
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
|
iTask
c
addDefaultStatus
task
=
\
initContacts
initIncidents
->
task
@
\
c
->
(
c
,{
ActionStatus
|
defaultValue
&
contacts
=
initContacts
,
incidents
=
initIncidents
})
predefinedInstantItem
::
String
ItemMeta
ActionProgress
((
S
hared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedInstantItem
::
String
ItemMeta
ActionProgress
((
S
impleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
predefinedInstantItem
identity
meta
=:{
ItemMeta
|
title
,
description
}
progress
task
=
{
CatalogAction
|
identity
=
identity
,
meta
=
meta
,
tasks
=
ActionTasks
configer
itemtask
}
where
configer
initContacts
initIncidents
=
return
((),{
ActionStatus
|
title
=
title
,
description
=
description
,
progress
=
progress
,
contacts
=
initContacts
,
incidents
=
initIncidents
})
itemtask
_
status
=
task
status
@?
const
NoValue
predefinedConfigurableItem
::
String
ItemMeta
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
(
c
(
Shared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
&
iTask
c
predefinedConfigurableItem
::
String
ItemMeta
([
ContactNo
]
[
IncidentNo
]
->
Task
(
c
,
ActionStatus
))
(
c
(
SimpleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
&
iTask
c
predefinedConfigurableItem
identity
meta
configer
task
=
{
CatalogAction
|
identity
=
identity
,
meta
=
meta
,
tasks
=
ActionTasks
configer
(\
c
s
->
task
c
s
@?
const
NoValue
)}
predefinedIncidentItem
::
String
ItemMeta
(
IncidentNo
(
Shared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedIncidentItem
::
String
ItemMeta
(
IncidentNo
(
SimpleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedIncidentItem
identity
meta
incidentTask
=
toIncidentAction
{
ActionDefinition
|
identity
=
identity
,
meta
=
meta
,
task
=
task
}
where
task
status
incidentNo
=
incidentTask
status
incidentNo
@?
const
NoValue
predefinedContactItem
::
String
ItemMeta
(
Maybe
String
)
(
ContactNo
(
Shared
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedContactItem
::
String
ItemMeta
(
Maybe
String
)
(
ContactNo
(
SimpleSDSLens
ActionStatus
)
->
Task
a
)
->
CatalogAction
|
iTask
a
predefinedContactItem
identity
meta
mbGroup
contactTask
=
toContactAction
mbGroup
{
ActionDefinition
|
identity
=
identity
,
meta
=
meta
,
task
=
task
}
where
task
status
contactNo
=
contactTask
status
contactNo
@?
const
NoValue
updateSharedActionStatus
::
(
Shared
ActionStatus
)
->
Task
ActionStatu
s
updateSharedActionStatus
::
(
Shared
sds
ActionStatus
)
->
Task
ActionStatus
|
RWShared
sd
s
updateSharedActionStatus
status
=
watch
status
>^*
[
OnAction
(
Action
"Mark active"
)
(
ifValue
(
ifProgress
ActionActive
)
(\_
->
setProgress
ActionActive
status
))
...
...
@@ -248,10 +248,10 @@ where
UAInformAction
def
=
userInformItem
identity
meta
def
UAActionList
def
=
userListItem
identity
meta
def
actionCatalog
::
ReadOnlyShared
[
CatalogAction
]
actionCatalog
=
mapRead
(\(
b
,
u
)
->
b
++
map
toCatalogAction
u
)
(
builtinActionCatalog
|
+
|
userActionCatalog
)
actionCatalog
::
SDSLens
()
[
CatalogAction
]
()
actionCatalog
=
mapRead
(\(
b
,
u
)
->
b
++
map
toCatalogAction
u
)
(
builtinActionCatalog
|
*
|
userActionCatalog
)
builtinActionCatalog
::
ReadOnlyShared
[
CatalogAction
]
builtinActionCatalog
::
SDSSource
()
[
CatalogAction
]
()
builtinActionCatalog
=
constShare
[
blankTodoItem
,
blankAlertItem
...
...
@@ -261,11 +261,11 @@ builtinActionCatalog = constShare
:
crewListActions
]
userActionCatalog
::
S
hared
[
UserCatalogAction
]
userActionCatalog
::
S
impleSDSLens
[
UserCatalogAction
]
userActionCatalog
=
sharedStore
"UserActionCatalog"
[]
//Todo items
todoItemTask
::
()
(
Shared
ActionStatus
)
->
Task
()
todoItemTask
::
()
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
todoItemTask
_
status
=
viewSharedInformation
()
[
ViewAs
(\{
ActionStatus
|
description
}
->
description
)]
status
@!
()
...
...
@@ -287,7 +287,7 @@ userTodoItem :: String ItemMeta -> CatalogAction
userTodoItem
identity
meta
=
predefinedTodoItem
identity
meta
//Alert item
alertItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
ActionStatus
)
->
Task
()
alertItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
alertItemTask
contactNo
status
=
communicationItemTask
contactNo
status
configureAlertItemTask
::
[
ContactNo
]
[
IncidentNo
]
->
Task
((
ContactNo
,
Maybe
P2000Message
),
ActionStatus
)
...
...
@@ -311,7 +311,7 @@ userAlertItem identity meta def
=
{
CatalogAction
|
identity
=
identity
,
meta
=
meta
,
tasks
=
ActionTasks
(
configureUserAlertItemTask
meta
def
)
alertItemTask
}
//Inform items
informItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
ActionStatus
)
->
Task
()
informItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
informItemTask
contactNo
status
=
communicationItemTask
contactNo
status
configureInformItemTask
::
[
ContactNo
]
[
IncidentNo
]
->
Task
((
ContactNo
,
Maybe
P2000Message
),
ActionStatus
)
...
...
@@ -336,7 +336,7 @@ userInformItem identity meta def
=
{
CatalogAction
|
identity
=
identity
,
meta
=
meta
,
tasks
=
ActionTasks
(
configureUserInformItemTask
meta
def
)
informItemTask
}
//List items
listItemTask
::
(
String
,
ActionPlan
)
(
Shared
ActionStatus
)
->
Task
()
listItemTask
::
(
String
,
ActionPlan
)
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
listItemTask
(
title
,
plan
)
status
=
upd
(\
s
->
{
ActionStatus
|
s
&
title
=
title
})
status
>>-
\{
ActionStatus
|
contacts
,
incidents
}
->
...
...
@@ -427,7 +427,7 @@ configureUserCommunicationItemTask type meta {CommunicationActionDefinition|cont
configureUserCommunicationItemTask
type
_
_
initContacts
initIncidents
=
configureCommunicationItemTask
type
initContacts
initIncidents
communicationItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
ActionStatus
)
->
Task
()
communicationItemTask
::
(
ContactNo
,
Maybe
P2000Message
)
(
Shared
sds
ActionStatus
)
->
Task
()
|
RWShared
sds
communicationItemTask
(
contactNo
,
mbP2000Template
)
status
//View action description
=
viewSharedInformation
()
[
ViewAs
(\{
ActionStatus
|
description
}
->
description
)]
status
...
...
@@ -459,7 +459,7 @@ where
Nothing
=
return
()
Just
communicationNo
=
upd
(
updateState
(
Just
communicationNo
))
(
attempts
>
+
<
status
)
@!
()
=
upd
(
updateState
(
Just
communicationNo
))
(
attempts
>
*
<
status
)
@!
()
addP2000Message
status
attempts
=
createCommunication
P2000Message
Out
(
Just
contactNo
)
...
...
@@ -470,7 +470,7 @@ where
Nothing
=
return
()
Just
communicationNo
=
upd
(
updateState
(
Just
communicationNo
))
(
attempts
>
+
<
status
)
@!
()
=
upd
(
updateState
(
Just
communicationNo
))
(
attempts
>
*
<
status
)
@!
()
viewAttempt
communicationNo
=
{
CommunicationAttempt
|
method
=
"Phone"
,
details
=
"-"
,
success
=
isJust
communicationNo
}
...
...
@@ -491,9 +491,9 @@ findReferencedContacts :: ContactReference -> Task [ContactShort]
findReferencedContacts
(
ContactByName
ref
)
=
get
(
sdsFocus
{
ContactFilter
|
filterByName
=
Just
ref
}
filteredContactsShort
)
findReferencedContacts
(
ContactInGroup
ref
)
=
get
(
sdsFocus
ref
contactsWithGroupShort
)
chooseActionItem
::
d
Bool
Bool
(
ROShared
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)])
->
Task
InstanceNo
|
toPrompt
d
chooseActionItem
::
d
Bool
Bool
(
sds
()
[(
InstanceNo
,
InstanceNo
,
ActionStatus
)]
())
->
Task
InstanceNo
|
toPrompt
d
&
RWShared
sds
chooseActionItem
d
groupByIncident
useMyActionsFolder
list
=
whileUnchanged
(
currentUserContactNo
|
+
|
openIncidentsShort
)
//Done this way, because I don't know how to combine the shares in a tree
=
whileUnchanged
(
currentUserContactNo
|
*
|
openIncidentsShort
)
//Done this way, because I don't know how to combine the shares in a tree
\(
me
,
incidents
)
->
enterInformation
"FIXME"
[]
//editChoiceWithSharedAs d
...
...
@@ -571,7 +571,7 @@ workOnActionItem instanceNo
where
workOnTask
taskId
=
workOn
taskId
>>*
[
OnValue
(
ifValue
(
(===)
ASExcepted
)
(\_
->
viewInformation
(
Title
"Error"
)
[]
"An exception occurred in this action"
@!
()))
>>*
[
OnValue
(
ifValue
(
\
v
.
case
v
of
ASExcepted
_
=
True
;
_
=
False
;
)
(\_
->
viewInformation
(
Title
"Error"
)
[]
"An exception occurred in this action"
@!
()))
,
OnValue
(
ifValue
((===)
ASIncompatible
)
(\_
->
restartIncompatibleTask
taskId
))
]
...
...
@@ -588,7 +588,7 @@ where
//Look in action the catalog for an entry that has the identity
findReplacement
taskId
=
get
(
sdsFocus
taskId
(
taskListEntryMeta
topLevelTasks
)
|
+
|
actionCatalog
)
=
get
(
sdsFocus
taskId
(
taskListEntryMeta
topLevelTasks
)
|
*
|
actionCatalog
)
@
\(
taskListEntry
,
catalog
)
->
maybe
Nothing
(
lookup
catalog
)
('
DM
'.
get
"actionitem-identity"
taskListEntry
.
TaskListItem
.
attributes
)
where
lookup
[]
match
=
Nothing
...
...
@@ -631,7 +631,7 @@ where
>>-
\
updated
->
logActionUpdated
updated
@!
(
Just
updated
)
edit
::
(
a
->
Task
a
)
(
Shared
a
)
->
Task
(
Maybe
a
)
|
iTask
a
//TODO: Move to util
edit
::
(
a
->
Task
a
)
(
Shared
sds
a
)
->
Task
(
Maybe
a
)
|
iTask
a
&
RWShared
sds
//TODO: Move to util
edit
task
sds
=
get
sds
>>-
\
current
->
...
...
@@ -673,16 +673,16 @@ where
fromPrj
status
{
ItemMeta
|
title
,
description
}
=
{
ActionStatus
|
status
&
title
=
title
,
description
=
description
}
contacts
status
=
mapReadWrite
(\{
ActionStatus
|
contacts
}->
contacts
,
\
contacts
status
->
Just
{
ActionStatus
|
status
&
contacts
=
contacts
})
status
=
mapReadWrite
(\{
ActionStatus
|
contacts
}->
contacts
,
\
contacts
status
->
Just
{
ActionStatus
|
status
&
contacts
=
contacts
})
Nothing
status
incidents
status
=
mapReadWrite
(\{
ActionStatus
|
incidents
}->
incidents
,
\
incidents
status
->
Just
{
ActionStatus
|
status
&
incidents
=
incidents
})
status
=
mapReadWrite
(\{
ActionStatus
|
incidents
}->
incidents
,
\
incidents
status
->
Just
{
ActionStatus
|
status
&
incidents
=
incidents
})
Nothing
status
manageSubActions
::
ActionPlan
(
Shared
ActionStatus
)
(
SharedTaskList
())
->
Task
()
manageSubActions
::
ActionPlan
(
Shared
sds
ActionStatus
)
(
SharedTaskList
())
->
Task
()
|
RWShared
sds
manageSubActions
plan
status
list
=
(
manageCurrentSubActionItems
status
list
)
-||-
(
addSuggestedSubActionItems
plan
status
list
)
<<@
ArrangeHorizontal
@?
const
NoValue
manageCurrentSubActionItems
::
(
Shared
ActionStatus
)
(
SharedTaskList
())
->
Task
()
manageCurrentSubActionItems
::
(
Shared
sds
ActionStatus
)
(
SharedTaskList
())
->
Task
()
|
RWShared
sds
manageCurrentSubActionItems
status
list
=
enterChoiceWithShared
(
Title
"Current Actions"
)
[
ChooseFromGrid
(
format
o
thd3
)]
(
subTaskItems
list
)
>^*
[
OnAction
(
Action
"Add action"
)
(
always
(
get
status
>>-
\{
ActionStatus
|
contacts
,
incidents
}
->
addSubAction
contacts
incidents
list
))]
...
...
@@ -696,7 +696,7 @@ where
formatProgress
p
=
"<div style=
\"
display:inline-block; width:16px; height:16px; margin-right:10px;
\"
class=
\"
icon-action-"
+++
toString
p
+++
"
\"
></div>"
addSuggestedSubActionItems
::
ActionPlan
(
Shared
ActionStatus
)
(
SharedTaskList
())
->
Task
()
addSuggestedSubActionItems
::
ActionPlan
(
Shared
sds
ActionStatus
)
(
SharedTaskList
())
->
Task
()
|
RWShared
sds
addSuggestedSubActionItems
plan
status
list
=
plan
.
suggestedActions
>&>
\
suggestions
->
...
...
@@ -740,7 +740,7 @@ where
=
configer
initContacts
initIncidents
<<@
Title
"Configure"
/* <<@ AfterLayout (uiDefSetHeight FlexSize) */
>>?
\(
config
,
initStatus
)
->
addAction
identity
initStatus
list
(\
l
->
task
config
l
)
addAction
::
String
ActionStatus
(
SharedTaskList
a
)
((
S
hared
ActionStatus
)
->
Task
())
->
Task
TaskId
|
iTask
a
addAction
::
String
ActionStatus
(
SharedTaskList
a
)
((
S
impleSDSLens
ActionStatus
)
->
Task
())
->
Task
TaskId
|
iTask
a
addAction
identity
initStatus
list
task
=
logActionAdded
initStatus
>>|
appendTask
(
Detached
attributes
True
)
(\
l
->
(
task
(
selfActionStatus
l
)
@?
const
NoValue
))
list
...
...
Examples/Applications/Incidone/Incidone/Configuration.dcl
View file @
ae8623a2
...
...
@@ -34,15 +34,15 @@ from iTasks.Extensions.Web import :: URL
derive
class
iTask
DBConfig
,
AISConfig
,
AsteriskConfig
,
SMTPConfig
,
WebLinksConfig
,
WebLink
//Master configuration shares
databaseConfig
::
Shared
DBConfig
aisLinkConfig
::
Shared
AISConfig
asteriskLinkConfig
::
Shared
AsteriskConfig
smtpConfig
::
Shared
SMTPConfig
webLinksConfig
::
Shared
WebLinksConfig
adminPassword
::
Shared
Password
databaseConfig
::
SimpleSDSLens
DBConfig
aisLinkConfig
::
SimpleSDSLens
AISConfig
asteriskLinkConfig
::
SimpleSDSLens
AsteriskConfig
smtpConfig
::
SimpleSDSLens
SMTPConfig
webLinksConfig
::
SimpleSDSLens
WebLinksConfig
adminPassword
::
SimpleSDSLens
Password
//Derived configuration shares
databaseDef
::
RWShared
()
SQLDatabaseDef
SQLDatabaseDef
databaseDef
::
SimpleSDSLens
SQLDatabaseDef
//Conversion functions
toDatabaseDef
::
DBConfig
->
SQLDatabaseDef
...
...
Examples/Applications/Incidone/Incidone/Configuration.icl
View file @
ae8623a2
...
...
@@ -4,27 +4,27 @@ import iTasks, iTasks.Extensions.SQLDatabase, iTasks.Extensions.Web
derive
class
iTask
DBConfig
,
AISConfig
,
AsteriskConfig
,
SMTPConfig
,
WebLinksConfig
,
WebLink
//Shared stores
databaseConfig
::
S
hared
DBConfig
databaseConfig
::
S
impleSDSLens
DBConfig
databaseConfig
=
sharedStore
"databaseConfig"
InternalSQLiteDB
aisLinkConfig
::
S
hared
AISConfig
aisLinkConfig
::
S
impleSDSLens
AISConfig
aisLinkConfig
=
sharedStore
"aisLinkConfig"
{
AISConfig
|
host
=
"localhost"
,
port
=
2000
}
asteriskLinkConfig
::
S
hared
AsteriskConfig
asteriskLinkConfig
::
S
impleSDSLens
AsteriskConfig
asteriskLinkConfig
=
sharedStore
"asteriskLinkConfig"
{
AsteriskConfig
|
host
=
"localhost"
,
port
=
5038
,
username
=
"admin"
,
password
=
"secret"
}