Commit d0316e8c authored by Bas Lijnse's avatar Bas Lijnse

Moved iTasks.API.Extensions to iTasks.Extensions

parent f87d4621
......@@ -3,8 +3,8 @@ implementation module Incidone.ActionManagementTasks
import iTasks
import iTasks.UI.Editor, iTasks.UI.Editor.Common
import iTasks._Framework.Serialization
import iTasks.API.Extensions.DateTime
import iTasks.API.Extensions.JSONFile
import iTasks.Extensions.DateTime
import iTasks.Extensions.JSONFile
import Incidone.Util.TaskPatterns
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.Conversions
import Incidone.OP.IncidentManagementTasks, Incidone.OP.ContactManagementTasks, Incidone.OP.CommunicationManagementTasks
......
definition module Incidone.Configuration
import iTasks
from iTasks.API.Extensions.SQLDatabase import :: SQLDatabase, :: SQLDatabaseDef
from iTasks.API.Extensions.Web import :: URL
from iTasks.Extensions.SQLDatabase import :: SQLDatabase, :: SQLDatabaseDef
from iTasks.Extensions.Web import :: URL
:: DBConfig
= InternalSQLiteDB
......
implementation module Incidone.Configuration
import iTasks, iTasks.API.Extensions.SQLDatabase, iTasks.API.Extensions.Web
import iTasks, iTasks.Extensions.SQLDatabase, iTasks.Extensions.Web
derive class iTask DBConfig, AISConfig, AsteriskConfig, SMTPConfig, WebLinksConfig, WebLink
......
definition module Incidone.ContactPosition
//This module provides a type for representing geographic positions of contacts
import iTasks
import iTasks.API.Extensions.GIS.Leaflet
import iTasks.Extensions.GIS.Leaflet
from Incidone.OP.Concepts import :: Contact, :: ContactGeo
......
......@@ -7,7 +7,7 @@ import qualified Text.Parsers.ZParsers.ParsersDerived as PD
import qualified Control.Applicative as CA
from Control.Applicative import class Alternative, class Applicative
from Text.Parsers.ZParsers.ParsersKernel import :: Parser, instance Alternative Parser, instance Applicative Parser, instance Functor Parser
import iTasks.API.Extensions.GIS.LeafletNavalIcons
import iTasks.Extensions.GIS.LeafletNavalIcons
import Incidone.OP.Concepts
import Incidone.Util.TaskPatterns
......
implementation module Incidone.DeviceBased.VideoWall
import iTasks
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.DateTime
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.ActionManagementTasks
import Incidone.Util.TaskPatterns
import Text, Text.HTML, Data.List, iTasks._Framework.HtmlUtil
......
implementation module Incidone.OP.CommunicationManagementTasks
import iTasks
import iTasks.API.Extensions.SQLDatabase
import iTasks.Extensions.SQLDatabase
import Incidone.Configuration
import Incidone.OP.Concepts, Incidone.OP.SDSs
import Incidone.OP.ContactManagementTasks, Incidone.OP.IncidentManagementTasks
......
concept module Incidone.OP.Concepts
import iTasks, iTasks.API.Extensions.Document, iTasks.API.Extensions.Contact, Database.SQL, Incidone.OP.ConceptsTOP, Incidone.OP.ConceptsSQL, Incidone.ContactPosition, Incidone.Util.AIS
import iTasks, iTasks.Extensions.Document, iTasks.Extensions.Contact, Database.SQL, Incidone.OP.ConceptsTOP, Incidone.OP.ConceptsSQL, Incidone.ContactPosition, Incidone.Util.AIS
//Shared value types
$$ MMSI = Int
......
definition module Incidone.OP.Concepts
//GENERATED BY CCL, DO NOT EDIT
import iTasks, iTasks.API.Extensions.Document, iTasks.API.Extensions.Contact, Database.SQL, Incidone.OP.ConceptsTOP, Incidone.OP.ConceptsSQL, Incidone.ContactPosition, Incidone.Util.AIS
import iTasks, iTasks.Extensions.Document, iTasks.Extensions.Contact, Database.SQL, Incidone.OP.ConceptsTOP, Incidone.OP.ConceptsSQL, Incidone.ContactPosition, Incidone.Util.AIS
:: AISStaticInfo :== AIVDM5
......
implementation module Incidone.OP.ConceptsSQL
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.DateTime
import Incidone.OP.Concepts, Incidone.OP.ConceptsTOP
import Text, StdMisc
......
implementation module Incidone.OP.ContactManagementTasks
import iTasks, iTasks.API.Extensions.SQLDatabase, iTasks.API.Extensions.Web, iTasks.API.Extensions.Process
import iTasks, iTasks.Extensions.SQLDatabase, iTasks.Extensions.Web, iTasks.Extensions.Process
import Incidone.Configuration
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.Conversions
import Incidone.OP.IncidentManagementTasks
......
......@@ -2,7 +2,7 @@ implementation module Incidone.OP.Conversions
import Incidone.OP.Concepts
import Text, Text.HTML
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.DateTime
class contactTitle a :: a -> String
instance contactTitle Contact
......
......@@ -4,6 +4,6 @@ definition module Incidone.OP.ImportExportTasks
* parts of the operational picture data
*/
import iTasks
import iTasks.API.Extensions.Document
import iTasks.Extensions.Document
importContactsFromCSVFile :: Document -> Task ()
implementation module Incidone.OP.ImportExportTasks
import iTasks
import iTasks.API.Extensions.CSVFile
import iTasks.Extensions.CSVFile
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.ContactManagementTasks
importContactsFromCSVFile :: Document -> Task ()
......
implementation module Incidone.OP.IncidentManagementTasks
import iTasks, iTasks._Framework.HtmlUtil, iTasks.API.Extensions.SQLDatabase
import iTasks.API.Extensions.DateTime
import iTasks, iTasks._Framework.HtmlUtil, iTasks.Extensions.SQLDatabase
import iTasks.Extensions.DateTime
import Incidone.Configuration
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.Conversions
import Incidone.OP.ContactManagementTasks
......
implementation module Incidone.OP.SDSs
import iTasks, iTasks.API.Extensions.SQLDatabase
import iTasks, iTasks.Extensions.SQLDatabase
import qualified Data.Map as DM
import Incidone.Configuration
import Incidone.OP.Concepts, Incidone.OP.Conversions
......
implementation module Incidone.RoleBased.AdministratorTasks
import iTasks, iTasks.API.Extensions.SQLDatabase, iTasks.API.Extensions.DateTime
import iTasks.API.Extensions.Document, iTasks.API.Extensions.JSONFile
import iTasks, iTasks.Extensions.SQLDatabase, iTasks.Extensions.DateTime
import iTasks.Extensions.Document, iTasks.Extensions.JSONFile
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.DemonstrationTasks
import Incidone.OP.ContactManagementTasks
import Incidone.OP.ImportExportTasks
......@@ -11,8 +11,8 @@ import Incidone.Integration.Asterisk
import Incidone.ContactPosition
import Incidone.ActionManagementTasks
import Incidone.Util.TaskPatterns
import iTasks.API.Extensions.Admin.ServerAdmin
import iTasks.API.Extensions.Dashboard
import iTasks.Extensions.Admin.ServerAdmin
import iTasks.Extensions.Dashboard
import iTasks.UI.Layout, iTasks.UI.Definition
import Text.HTML
......
implementation module Incidone.Simulation.TrainingTasks
import iTasks, iTasks.API.Extensions.DateTime
import iTasks, iTasks.Extensions.DateTime
import Text, System.FilePath
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.Conversions
import Incidone.OP.CommunicationManagementTasks
......
implementation module Incidone.Util.Notification
import iTasks
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.DateTime
import Text, System.Time
import Incidone.Util.TaskPatterns
......
definition module Incidone.Util.SQLSDS
import iTasks, Data.Maybe, Database.SQL, iTasks.API.Extensions.SQLDatabase, Incidone.OP.Concepts
import iTasks, Data.Maybe, Database.SQL, iTasks.Extensions.SQLDatabase, Incidone.OP.Concepts
//Utility types and functions for defining SQL based shares
:: QueryDef =
......
implementation module Incidone.Util.SQLSDS
import iTasks
import iTasks.API.Extensions.SQLDatabase, Database.SQL, Incidone.OP.Concepts
import iTasks.Extensions.SQLDatabase, Database.SQL, Incidone.OP.Concepts
import Text, Data.Either, Data.Functor
import qualified Data.Map as DM
import StdMisc
......
implementation module Incidone.Util.TaskPatterns
import iTasks, iTasks.API.Extensions.Dashboard
import iTasks, iTasks.Extensions.Dashboard
import iTasks.UI.Definition
import Incidone.OP.IncidentManagementTasks, Incidone.OP.ContactManagementTasks
import Text, Data.Functor, Data.Either
......
definition module BasicAPIExamples
import iTasks, iTasks.API.Extensions.Admin.WorkflowAdmin
import iTasks, iTasks.Extensions.Admin.WorkflowAdmin
/**
* This module contains a series of small examples of basic usage of the iTasks API.
*/
......
implementation module BasicAPIExamples
import iTasks
import iTasks.API.Extensions.Admin.UserAdmin
import iTasks.API.Extensions.Admin.ServerAdmin
import iTasks.API.Extensions.Admin.StoreAdmin
import iTasks.API.Extensions.Admin.WorkflowAdmin
import iTasks.API.Extensions.Admin.TonicAdmin
import iTasks.API.Extensions.GIS.GoogleMap
import iTasks.API.Extensions.Currency
import iTasks.API.Extensions.Contact
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.Admin.UserAdmin
import iTasks.Extensions.Admin.ServerAdmin
import iTasks.Extensions.Admin.StoreAdmin
import iTasks.Extensions.Admin.WorkflowAdmin
import iTasks.Extensions.Admin.TonicAdmin
import iTasks.Extensions.GIS.GoogleMap
import iTasks.Extensions.Currency
import iTasks.Extensions.Contact
import iTasks.Extensions.DateTime
import iTasks.Extensions.Clock
import iTasks.UI.Definition, iTasks.UI.Editor.Builtin
import Text, Text.HTML, StdArray
import iTasks._Framework.Tonic
......@@ -189,7 +190,6 @@ viewPerson = viewInformation "View a person" [] {name = "Peter Achten", gender =
viewCurDateTime :: Task DateTime
viewCurDateTime = viewSharedInformation "The current date and time is:" [] currentDateTime
import iTasks.API.Extensions.Clock
viewTime :: Task Time
viewTime = viewSharedInformation "The current time is:" [ViewAs AnalogClock] currentTime
......
module LeafletMapExample
import iTasks
import iTasks.API.Extensions.GIS.Leaflet
import iTasks.API.Extensions.GIS.LeafletNavalIcons
import iTasks.Extensions.GIS.Leaflet
import iTasks.Extensions.GIS.LeafletNavalIcons
import iTasks.UI.Definition
import Data.List
......
......@@ -34,8 +34,8 @@ import
, iTasks.UI.Layout.Common // Standard layout patterns
// API extensions for user & workflow management
, iTasks.API.Extensions.Admin.UserAdmin
, iTasks.API.Extensions.Admin.WorkflowAdmin
, iTasks.Extensions.Admin.UserAdmin
, iTasks.Extensions.Admin.WorkflowAdmin
//StdEnv modules
, StdInt
......
definition module iTasks.API.Extensions.Admin.ServerAdmin
definition module iTasks.Extensions.Admin.ServerAdmin
/**
* This module provides management tasks for an iTasks task server
* like listing persistent task instances and i/o task instances.
......
implementation module iTasks.API.Extensions.Admin.ServerAdmin
implementation module iTasks.Extensions.Admin.ServerAdmin
import iTasks
manageServer :: Task ()
......
definition module iTasks.API.Extensions.Admin.StoreAdmin
definition module iTasks.Extensions.Admin.StoreAdmin
/**
* This module provides management tasks for the internal generic
* store of an iTasks applications.
......
implementation module iTasks.API.Extensions.Admin.StoreAdmin
implementation module iTasks.Extensions.Admin.StoreAdmin
import iTasks
import qualified iTasks._Framework.Store
import Data.Error
......
definition module iTasks.API.Extensions.Admin.TonicAdmin
definition module iTasks.Extensions.Admin.TonicAdmin
import iTasks
from iTasks._Framework.Tonic.Images import :: TaskAppRenderer, :: ModelTy, :: ClickMeta, :: TonicImageState, :: ActionState, :: TClickAction
......
implementation module iTasks.API.Extensions.Admin.TonicAdmin
implementation module iTasks.Extensions.Admin.TonicAdmin
import iTasks
import StdMisc, Data.Tuple, Text, Data.Either, Data.Functor
......@@ -10,14 +10,14 @@ import iTasks._Framework.Tonic.AbsSyn
import iTasks._Framework.Tonic.Pretty
import iTasks._Framework.Tonic.Images
import iTasks.UI.Definition
import iTasks.API.Extensions.DateTime
import iTasks.Extensions.DateTime
from StdFunc import seq
import qualified Data.Map as DM
from Data.Map import instance Functor (Map a)
from Control.Monad import `b`, class Monad, instance Monad Maybe
import qualified iTasks._Framework.SDS as DSDS
import Data.List
import iTasks.API.Extensions.SVG.SVGEditor
import iTasks.Extensions.SVG.SVGEditor
from Data.IntMap.Strict import :: IntMap
import qualified Data.IntMap.Strict as DIS
import Data.Maybe
......
definition module iTasks.API.Extensions.Admin.UserAdmin
definition module iTasks.Extensions.Admin.UserAdmin
/**
* This extension provides workflows for managing the users of an iTask system.
*/
import iTasks
import iTasks.API.Extensions.User
import iTasks.Extensions.User
:: UserAccount =
{ credentials :: !Credentials
......
implementation module iTasks.API.Extensions.Admin.UserAdmin
implementation module iTasks.Extensions.Admin.UserAdmin
import iTasks
import iTasks.API.Extensions.CSVFile
import iTasks.Extensions.CSVFile
import iTasks.UI.Editor
import Text, Data.Tuple, StdArray
......