Commit 9523bf4b authored by Bas Lijnse's avatar Bas Lijnse

Moved iTasks._Framework.* to iTasks.Internal.*

parent d0316e8c
......@@ -2,7 +2,7 @@ implementation module Incidone.ActionManagementTasks
import iTasks
import iTasks.UI.Editor, iTasks.UI.Editor.Common
import iTasks._Framework.Serialization
import iTasks.Internal.Serialization
import iTasks.Extensions.DateTime
import iTasks.Extensions.JSONFile
import Incidone.Util.TaskPatterns
......
......@@ -3,7 +3,7 @@ import iTasks
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
import Text, Text.HTML, Data.List, iTasks.Internal.HtmlUtil
derive class iTask WallContent
......
implementation module Incidone.OP.IncidentManagementTasks
import iTasks, iTasks._Framework.HtmlUtil, iTasks.Extensions.SQLDatabase
import iTasks, iTasks.Internal.HtmlUtil, iTasks.Extensions.SQLDatabase
import iTasks.Extensions.DateTime
import Incidone.Configuration
import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.Conversions
......
......@@ -12,7 +12,7 @@ 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
import iTasks.Internal.Tonic
//import ligrettoTOP
//import iTaskGraphics, editletGraphics, edgehog
import Data.Error
......
......@@ -5,7 +5,7 @@ definition module iTasks
*/
import
// iTasks engine
iTasks._Framework.Engine
iTasks.Internal.Engine
// iTasks API
, iTasks.SDS.Definition
, iTasks.SDS.Sources.Core
......@@ -29,7 +29,6 @@ import
// Miscellaneous machinery
, Text.JSON // JSON is used for serializing/deserializing strings
, iTasks._Framework.Generic // Generic foundation modules
, iTasks.UI.Prompt // Standard for creating prompts
, iTasks.UI.Layout.Common // Standard layout patterns
......
implementation module iTasks.Extensions.Admin.StoreAdmin
import iTasks
import qualified iTasks._Framework.Store
import qualified iTasks.Internal.Store
import Data.Error
manageStore :: Task ()
......@@ -22,6 +22,6 @@ selectStore
deleteStore :: (String,String) -> Task ()
deleteStore (namespace,storename) = mkInstantTask eval
where
eval _ iworld = case 'iTasks._Framework.Store'.deleteValue namespace storename iworld of
eval _ iworld = case 'iTasks.Internal.Store'.deleteValue namespace storename iworld of
(Ok (),iworld) = (Ok (),iworld)
(Error msg,iworld) = (Error (exception msg),iworld)
definition module iTasks.Extensions.Admin.TonicAdmin
import iTasks
from iTasks._Framework.Tonic.Images import :: TaskAppRenderer, :: ModelTy, :: ClickMeta, :: TonicImageState, :: ActionState, :: TClickAction
from iTasks._Framework.Tonic.Types import :: AllBlueprints, :: TonicModule, :: TonicFunc, :: FuncName, :: ModuleName, :: NavStack, :: BlueprintIdent
from iTasks.Internal.Tonic.Images import :: TaskAppRenderer, :: ModelTy, :: ClickMeta, :: TonicImageState, :: ActionState, :: TClickAction
from iTasks.Internal.Tonic.Types import :: AllBlueprints, :: TonicModule, :: TonicFunc, :: FuncName, :: ModuleName, :: NavStack, :: BlueprintIdent
from Graphics.Scalable import :: TagSource, :: TagRef, :: Image, :: ImageTag
tonicDashboard :: [TaskAppRenderer] -> Task ()
......
......@@ -2,20 +2,20 @@ implementation module iTasks.Extensions.Admin.TonicAdmin
import iTasks
import StdMisc, Data.Tuple, Text, Data.Either, Data.Functor
import iTasks._Framework.SDS
import iTasks._Framework.Tonic.Blueprints
import iTasks._Framework.Tonic.Shares
import iTasks._Framework.Tonic.Types
import iTasks._Framework.Tonic.AbsSyn
import iTasks._Framework.Tonic.Pretty
import iTasks._Framework.Tonic.Images
import iTasks.Internal.SDS
import iTasks.Internal.Tonic.Blueprints
import iTasks.Internal.Tonic.Shares
import iTasks.Internal.Tonic.Types
import iTasks.Internal.Tonic.AbsSyn
import iTasks.Internal.Tonic.Pretty
import iTasks.Internal.Tonic.Images
import iTasks.UI.Definition
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 qualified iTasks.Internal.SDS as DSDS
import Data.List
import iTasks.Extensions.SVG.SVGEditor
from Data.IntMap.Strict import :: IntMap
......
......@@ -2,9 +2,9 @@ implementation module iTasks.Extensions.Admin.WorkflowAdmin
import iTasks
import StdMisc, Data.Tuple, Text, Data.Either, Data.Functor
import iTasks._Framework.SDS
import iTasks._Framework.Serialization
import iTasks._Framework.Store
import iTasks.Internal.SDS
import iTasks.Internal.Serialization
import iTasks.Internal.Store
from StdFunc import seq
import qualified Data.Map as DM
import Data.List, Data.Tuple
......
implementation module iTasks.Extensions.CSVFile
import StdBool, StdList, System.FilePath, Text, Text.CSV, System.File, Data.Error
import iTasks._Framework.IWorld, iTasks._Framework.Task, iTasks._Framework.TaskState, iTasks._Framework.TaskStore
import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState, iTasks.Internal.TaskStore
importCSVFile :: !FilePath -> Task [[String]]
importCSVFile filename = mkInstantTask eval
......
......@@ -3,7 +3,7 @@ definition module iTasks.Extensions.Development.Testing
* This module provides utilities for testing iTasks programs
*/
import iTasks
from iTasks._Framework.Test.Definition import :: TestResult, :: SuiteResult
from iTasks.Internal.Test.Definition import :: TestResult, :: SuiteResult
compileTestModule :: FilePath -> Task TestResult
runTestModule :: FilePath -> Task SuiteResult
implementation module iTasks.Extensions.Development.Testing
import iTasks
import iTasks.Extensions.Development.Tools
import iTasks._Framework.Test.Definition
import iTasks.Internal.Test.Definition
import Text, Data.Tuple, Data.Error, System.FilePath
derive class iTask ExitCode
......
implementation module iTasks.Extensions.Development.Tools
import iTasks
import iTasks._Framework.IWorld, iTasks._Framework.SDS
import iTasks.Internal.IWorld, iTasks.Internal.SDS
import System.Environment
CPM_EXE :== IF_POSIX_OR_WINDOWS "bin/cpm" "Tools\\cpm.exe"
......
......@@ -3,7 +3,7 @@ implementation module iTasks.Extensions.Document
import iTasks.WF.Definition
import iTasks.UI.Editor.Builtin, iTasks.UI.Editor.Combinators
import iTasks._Framework.Task, iTasks._Framework.IWorld, iTasks._Framework.TaskStore
import iTasks.Internal.Task, iTasks.Internal.IWorld, iTasks.Internal.TaskStore
import StdBool, StdString, StdFile, StdArray
import Text.JSON, Text.Encodings.MIME, System.FilePath, System.File, System.OSError, Data.Error
......
implementation module iTasks.Extensions.JSONFile
import StdBool, StdList, StdFile, StdArray, System.FilePath, System.File, Data.Error, Text.JSON
import iTasks._Framework.IWorld, iTasks._Framework.Task, iTasks._Framework.TaskState, iTasks._Framework.TaskStore
import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState, iTasks.Internal.TaskStore
:: JSONParseException = CannotParse !String
instance toString JSONParseException
......
......@@ -6,11 +6,11 @@ import iTasks.UI.Definition
import iTasks.UI.Prompt
import iTasks.UI.Editor.Builtin
import iTasks.UI.Editor.Combinators
import iTasks._Framework.Task
import iTasks._Framework.TaskEval
import iTasks._Framework.TaskState
import iTasks._Framework.TaskStore
import iTasks._Framework.IWorld
import iTasks.Internal.Task
import iTasks.Internal.TaskEval
import iTasks.Internal.TaskState
import iTasks.Internal.TaskStore
import iTasks.Internal.IWorld
from StdFunc import const
import StdTuple, StdBool
......
implementation module iTasks.Extensions.SQLDatabase
import iTasks, Database.SQL, Database.SQL.MySQL, Database.SQL.SQLite, Data.Error, Data.Func, System.FilePath
import iTasks._Framework.IWorld, iTasks._Framework.SDS
import iTasks.Internal.IWorld, iTasks.Internal.SDS
import qualified Data.Map
//Extend Resource type for mysql resources
......
......@@ -7,7 +7,7 @@ import iTasks
import iTasks.UI.Definition, iTasks.UI.Editor
import iTasks.UI.JS.Interface
import iTasks.UI.JS.Encoding
import iTasks._Framework.Serialization
import iTasks.Internal.Serialization
from StdOrdList import minList, maxList
import StdOverloaded
import StdArray
......
implementation module iTasks.Extensions.TextFile
import StdBool, StdList, StdFile, StdArray, System.FilePath, Text, System.File, Data.Error
import iTasks._Framework.IWorld, iTasks._Framework.Task, iTasks._Framework.TaskState, iTasks._Framework.TaskStore
import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState, iTasks.Internal.TaskStore
CHUNK_SIZE :== 1048576 // 1M
......
......@@ -4,8 +4,8 @@ import iTasks.UI.Editor.Builtin, iTasks.UI.Editor.Combinators
import Internet.HTTP, Text, Text.HTML, Text.URI, Text.Encodings.MIME, Text.Encodings.UrlEncoding, StdArray, Data.Either
import System.Time, System.FilePath
from iTasks._Framework.HttpUtil import http_addRequestData, http_parseArguments
import iTasks._Framework.HtmlUtil
from iTasks.Internal.HttpUtil import http_addRequestData, http_parseArguments
import iTasks.Internal.HtmlUtil
import iTasks.Extensions.Document
import iTasks.Extensions.TextFile
......
definition module iTasks._Framework.Client.JSStore
definition module iTasks.Internal.Client.JSStore
import StdString
import Data.Maybe
from iTasks._Framework.IWorld import :: IWorld
from iTasks.Internal.IWorld import :: IWorld
jsStoreValue :: !String !String !a !*IWorld -> *IWorld
jsLoadValue :: !String !String !*IWorld -> (!Maybe a,!*IWorld)
......
implementation module iTasks._Framework.Client.JSStore
implementation module iTasks.Internal.Client.JSStore
import StdString, StdMisc
import Data.Maybe
from iTasks._Framework.IWorld import :: IWorld
from iTasks.Internal.IWorld import :: IWorld
jsStoreValue :: !String !String !a !*IWorld -> *IWorld
jsStoreValue namespace key value iworld = undef
......
definition module iTasks._Framework.Client.LinkerSupport
definition module iTasks.Internal.Client.LinkerSupport
import StdString
import Data.Maybe
import iTasks._Framework.IWorld
import iTasks.Internal.IWorld
import iTasks.UI.Editor
/**
......
implementation module iTasks._Framework.Client.LinkerSupport
implementation module iTasks.Internal.Client.LinkerSupport
from StdFunc import id
import StdString, StdList, StdFile, StdTuple, StdDebug
......@@ -12,10 +12,10 @@ from Data.Set import :: Set, newSet
from iTasks.UI.JS.Interface import :: JSWorld, :: JSEvent, :: JSObj, :: JSObject, :: JSVal
from iTasks._Framework.Client.RunOnClient import createClientIWorld, getUIUpdates
from iTasks._Framework.Engine import background
from iTasks.Internal.Client.RunOnClient import createClientIWorld, getUIUpdates
from iTasks.Internal.Engine import background
import iTasks._Framework.IWorld
import iTasks.Internal.IWorld
import Sapl.Target.JS.CodeGeneratorJS, Sapl.Linker.LazyLinker, Sapl.SaplParser
editorLinker :: !f !*IWorld -> *(!MaybeErrorString (!String,!String),!*IWorld)
......
definition module iTasks._Framework.Client.Override
definition module iTasks.Internal.Client.Override
import StdDynamic
import iTasks.WF.Definition
......
implementation module iTasks._Framework.Client.Override
implementation module iTasks.Internal.Client.Override
import iTasks.WF.Definition
......
definition module iTasks._Framework.Client.RunOnClient
definition module iTasks.Internal.Client.RunOnClient
import iTasks
......
implementation module iTasks._Framework.Client.RunOnClient
implementation module iTasks.Internal.Client.RunOnClient
import StdMisc
import iTasks
import iTasks._Framework.TaskStore
import iTasks._Framework.TaskEval
import iTasks._Framework.IWorld
import iTasks.Internal.TaskStore
import iTasks.Internal.TaskEval
import iTasks.Internal.IWorld
import iTasks.UI.Definition
import qualified iTasks._Framework.SDS as SDS
import qualified iTasks.Internal.SDS as SDS
from Data.Map import qualified newMap, toList, fromList, get
from Data.List import find
......
definition module iTasks._Framework.DynamicUtil
definition module iTasks.Internal.DynamicUtil
import Text.JSON
......
implementation module iTasks._Framework.DynamicUtil
implementation module iTasks.Internal.DynamicUtil
import _SystemDynamic
import Data.Maybe, Text.JSON
......
definition module iTasks._Framework.Engine
definition module iTasks.Internal.Engine
/**
* This module provides the iTasks engine.
* This is the primary function that creates the complete
......@@ -9,7 +9,7 @@ from StdList import ++, iterate, take
from System.FilePath import </>
from System.FilePath import :: FilePath
from System.OS import IF_POSIX_OR_WINDOWS
import iTasks._Framework.Task
import iTasks.Internal.Task
from Internet.HTTP import :: HTTPRequest
......
implementation module iTasks._Framework.Engine
implementation module iTasks.Internal.Engine
import StdMisc, StdArray, StdList, StdOrdList, StdTuple, StdChar, StdFile, StdBool, StdEnum
from StdFunc import o, seqList, ::St, const
......@@ -7,9 +7,9 @@ from Data.Queue import :: Queue(..)
import qualified Data.Map as DM
import Data.List, Data.Error, Data.Func, Data.Tuple, Math.Random, Text
import System.Time, System.CommandLine, System.Environment, System.OSError, System.File, System.FilePath, System.Directory
import iTasks._Framework.Util, iTasks._Framework.HtmlUtil
import iTasks._Framework.IWorld, iTasks._Framework.WebService, iTasks._Framework.SDSService
import qualified iTasks._Framework.SDS as SDS
import iTasks.Internal.Util, iTasks.Internal.HtmlUtil
import iTasks.Internal.IWorld, iTasks.Internal.WebService, iTasks.Internal.SDSService
import qualified iTasks.Internal.SDS as SDS
import iTasks.UI.Layout, iTasks.UI.Layout.Default
from iTasks.WF.Combinators.Tune import class tune(..), instance tune ApplyLayout, :: ApplyLayout(..)
......@@ -19,9 +19,9 @@ import StdInt, StdChar, StdString
import tcp
import Internet.HTTP, System.Time, System.CommandLine, Data.Func
import iTasks._Framework.Engine, iTasks._Framework.IWorld, iTasks._Framework.TaskEval, iTasks._Framework.TaskStore
import iTasks._Framework.Util
import iTasks._Framework.TaskServer
import iTasks.Internal.Engine, iTasks.Internal.IWorld, iTasks.Internal.TaskEval, iTasks.Internal.TaskStore
import iTasks.Internal.Util
import iTasks.Internal.TaskServer
from iTasks.Extensions.DateTime import toDate, toTime, instance == Date, instance == Time
from Data.Set import :: Set, newSet
......
definition module iTasks._Framework.Generic.Defaults
definition module iTasks.Internal.Generic.Defaults
from StdGeneric import :: UNIT,::EITHER,::PAIR,::OBJECT,::CONS,::RECORD,::FIELD
/**
......
implementation module iTasks._Framework.Generic.Defaults
implementation module iTasks.Internal.Generic.Defaults
import StdGeneric, StdFunc
import Data.Maybe, Data.Either, Data.Error, Data.Map, Text.HTML, Text.JSON, System.Time
......
definition module iTasks._Framework.Generic.Visualization
definition module iTasks.Internal.Generic.Visualization
from StdGeneric import ::UNIT,::PAIR,::EITHER,::CONS,::OBJECT,::RECORD,::FIELD
from Text.JSON import :: JSONNode
......
implementation module iTasks._Framework.Generic.Visualization
implementation module iTasks.Internal.Generic.Visualization
import StdGeneric, StdList, StdMisc, StdArray
import Data.Maybe, Data.Either, Data.Functor
......@@ -7,7 +7,7 @@ import qualified Data.Map as DM
import qualified Data.List as DL
import Text, Text.JSON, Text.HTML
import System.Time
import iTasks._Framework.Util
import iTasks.Internal.Util
import iTasks.SDS.Definition
toSingleLineText :: !a -> String | gText{|*|} a
......
definition module iTasks._Framework.HtmlUtil
definition module iTasks.Internal.HtmlUtil
/**
* This module provides rudimentary utilities for generating simple html pages.
*
......
implementation module iTasks._Framework.HtmlUtil
implementation module iTasks.Internal.HtmlUtil
from Data.Map import :: Map
import qualified Data.Map as DM
......
definition module iTasks._Framework.HttpUtil
definition module iTasks.Internal.HttpUtil
import Internet.HTTP, StdFile
......
implementation module iTasks._Framework.HttpUtil
implementation module iTasks.Internal.HttpUtil
import Internet.HTTP
import StdArray, StdOverloaded, StdString, StdFile, StdBool, StdInt, StdArray, StdList, StdFunc, StdTuple
......
definition module iTasks._Framework.IWorld
definition module iTasks.Internal.IWorld
from System.FilePath import :: FilePath
from Data.Map import :: Map
......@@ -10,14 +10,14 @@ from System.Time import :: Timestamp
from Text.JSON import :: JSONNode
from System.Process import :: ProcessHandle, :: ProcessIO
from iTasks.UI.Definition import :: UI, :: UINodeType
from iTasks._Framework.TaskState import :: ParallelTaskState, :: TIMeta, :: DeferredJSON
from iTasks._Framework.Task import :: ExternalProcessTask, :: ConnectionTask, :: BackgroundTask
from iTasks._Framework.TaskEval import :: TaskTime
from iTasks.Internal.TaskState import :: ParallelTaskState, :: TIMeta, :: DeferredJSON
from iTasks.Internal.Task import :: ExternalProcessTask, :: ConnectionTask, :: BackgroundTask
from iTasks.Internal.TaskEval import :: TaskTime
from iTasks.WF.Definition import :: TaskValue, :: Event, :: TaskId, :: InstanceNo, :: TaskNo
from iTasks.WF.Combinators.Core import :: ParallelTaskType, :: TaskListItem
from iTasks.SDS.Definition import :: SDS, :: RWShared, :: ReadWriteShared, :: Shared
from iTasks._Framework.SDS import :: SDSNotifyRequest, :: JSONShared
from iTasks.Internal.SDS import :: SDSNotifyRequest, :: JSONShared
from iTasks.Extensions.DateTime import :: Time, :: Date, :: DateTime
from Sapl.Linker.LazyLinker import :: LoaderState
......
implementation module iTasks._Framework.IWorld
implementation module iTasks.Internal.IWorld
from System.FilePath import :: FilePath
from Data.Map import :: Map
......@@ -9,8 +9,8 @@ from Text.JSON import :: JSONNode
from iTasks.WF.Definition import :: TaskId, :: InstanceNo, :: TaskNo
from iTasks.WF.Combinators.Core import :: TaskListItem, :: ParallelTaskType
from iTasks.Extensions.DateTime import :: Time, :: Date, :: DateTime, toTime, toDate
from iTasks._Framework.TaskEval import :: TaskTime
from iTasks._Framework.IWorld import :: Config
from iTasks.Internal.TaskEval import :: TaskTime
from iTasks.Internal.IWorld import :: Config
from System.Process import :: ProcessHandle, :: ProcessIO
from StdFile import class FileSystem(..)
......@@ -22,9 +22,9 @@ from StdOrdList import sortBy
from TCPIP import :: TCP_Listener, :: TCP_Listener_, :: TCP_RChannel_, :: TCP_SChannel_, :: TCP_DuplexChannel, :: DuplexChannel, :: IPAddress, :: ByteSeq
import System.Time, StdList, Text.Encodings.Base64, _SystemArray, StdBool, StdTuple, Text.JSON, Data.Error, Math.Random
import iTasks._Framework.TaskStore, iTasks._Framework.Util
import iTasks._Framework.Serialization
import iTasks._Framework.SDS
import iTasks.Internal.TaskStore, iTasks.Internal.Util
import iTasks.Internal.Serialization
import iTasks.Internal.SDS
import qualified Data.Map as DM
import Data.Func, Data.Tuple, Data.List
......@@ -43,7 +43,7 @@ from Sapl.SaplParser import :: ParserState
//be compiled to javascript anyway. Handwritten Javascript overrides need
//to be provided for them.
JS_COMPILER_EXCLUDES :==
["iTasks._Framework.Client.Override"
["iTasks.Internal.Client.Override"
,"dynamic_string"
,"graph_to_string_with_descriptors"
,"graph_to_sapl_string"
......
definition module iTasks._Framework.RemoteAccess
definition module iTasks.Internal.RemoteAccess
import StdString
from iTasks._Framework.IWorld import :: IWorld
from iTasks.Internal.IWorld import :: IWorld
import Data.Maybe, Internet.HTTP, Text.URI
httpRequest :: !HTTPMethod !URI !(Maybe String) !IWorld -> (!HTTPResponse, !IWorld)
implementation module iTasks._Framework.RemoteAccess
implementation module iTasks.Internal.RemoteAccess
import StdString, StdMisc, StdFile, StdBool, StdArray
import Text
import iTasks.WF.Definition
import iTasks._Framework.Task
import iTasks._Framework.IWorld
import iTasks._Framework.Generic
import iTasks.Internal.Task
import iTasks.Internal.IWorld
import Data.Maybe, Internet.HTTP, Text.URI, Data.Error
import System.OS, System.FilePath, System.File
......
definition module iTasks._Framework.SDS
definition module iTasks.Internal.SDS
import GenEq
import System.FilePath, Data.Maybe, Data.Either, Data.Error, System.Time, Text.JSON
from iTasks._Framework.IWorld import :: IWorld
from iTasks._Framework.Generic.Visualization import :: TextFormat
from iTasks.Internal.IWorld import :: IWorld
from iTasks.Internal.Generic.Visualization import :: TextFormat
from iTasks.WF.Definition import class iTask
from iTasks.WF.Definition import :: TaskException, :: TaskId, :: InstanceNo
......
implementation module iTasks._Framework.SDS
implementation module iTasks.Internal.SDS
from StdFunc import const
import StdString, StdTuple, StdMisc, StdList, StdBool
......@@ -6,8 +6,8 @@ from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Error, Data.Func, Data.Tuple, System.Time, Text, Text.JSON
import qualified Data.Set as Set
import iTasks._Framework.IWorld
import iTasks._Framework.Task, iTasks._Framework.TaskStore, iTasks._Framework.TaskEval
import iTasks.Internal.IWorld
import iTasks.Internal.Task, iTasks.Internal.TaskStore, iTasks.Internal.TaskEval
:: SDSWriteNotifyFun :== (!SDSIdentity,!Dynamic) //Dynamic contains SDSNotifyPred function
......
definition module iTasks._Framework.SDSService
definition module iTasks.Internal.SDSService
from Internet.HTTP import :: HTTPRequest, :: HTTPResponse
from iTasks._Framework.IWorld import :: IWorld
from iTasks._Framework.WebService import :: ConnectionState, :: WebSockState, :: WebService
from iTasks._Framework.SDS import :: RWShared
from iTasks._Framework.Task import :: Task, :: InstanceNo
from iTasks._Framework.TaskState import :: TIUIState
from iTasks.Internal.IWorld import :: IWorld
from iTasks.Internal.WebService import :: ConnectionState, :: WebSockState, :: WebService
from iTasks.Internal.SDS import :: RWShared
from iTasks.Internal.Task import :: Task, :: InstanceNo
from iTasks.Internal.TaskState import :: TIUIState
from iTasks.UI.Definition import :: UIChange
from Data.Queue import :: Queue
from Data.Maybe import :: Maybe
......@@ -16,8 +16,8 @@ from Text.JSON import :: JSONNode
from iTasks.WF.Definition import class iTask
from iTasks.UI.Editor import :: Editor
from iTasks.UI.Editor.Generic import generic gEditor
from iTasks._Framework.Generic.Visualization import generic gText, :: TextFormat
from iTasks._Framework.Generic.Defaults import generic gDefault
from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat
from iTasks.Internal.Generic.Defaults import generic gDefault
from Text.JSON import generic JSONEncode, generic JSONDecode
from GenEq import generic gEq
......
implementation module iTasks._Framework.SDSService
implementation module iTasks.Internal.SDSService
import iTasks
from Internet.HTTP import :: HTTPRequest {req_method, req_path, req_data}, :: HTTPResponse(..), :: HTTPMethod(..)
from iTasks._Framework.IWorld import :: IWorld {exposedShares}
from iTasks._Framework.WebService import :: ConnectionState, :: WebSockState, :: WebService(..)
from iTasks._Framework.TaskState import :: TIUIState
from iTasks.Internal.IWorld import :: IWorld {exposedShares}
from iTasks.Internal.WebService import :: ConnectionState, :: WebSockState, :: WebService(..)
from iTasks.Internal.TaskState import :: TIUIState
import iTasks._Framework.HtmlUtil, iTasks._Framework.DynamicUtil
import iTasks._Framework.RemoteAccess
from iTasks._Framework.SDS as SDS import qualified read, write, :: Shared
from iTasks._Framework.SDS import :: JSONShared
from iTasks._Framework.SDS import getURLbyId, createReadWriteSDS, fromJSONShared
import iTasks.Internal.HtmlUtil, iTasks.Internal.DynamicUtil
import iTasks.Internal.RemoteAccess
from iTasks.Internal.SDS as SDS import qualified read, write, :: Shared
from iTasks.Internal.SDS import :: JSONShared
from iTasks.Internal.SDS import getURLbyId, createReadWriteSDS, fromJSONShared
from iTasks.Extensions.Web import callHTTP
from StdFunc import o
......
definition module iTasks._Framework.Serialization
definition module iTasks.Internal.Serialization
from Text.JSON import generic JSONEncode, generic JSONDecode, ::JSONNode
from Data.Error import ::MaybeError, ::MaybeErrorString
......
implementation module iTasks._Framework.Serialization
implementation module iTasks.Internal.Serialization
import StdEnv
import dynamic_string
......
definition module iTasks._Framework.Store
definition module iTasks.Internal.Store
/**
* This module provides a simple generic store.
* It is used to store the internal databases with users, sessions and workflow processes
......@@ -15,12 +15,12 @@ from Data.Error import :: MaybeError, :: MaybeErrorString
from System.Time import :: Timestamp
from System.FilePath import :: FilePath
from iTasks.SDS.Definition import :: SDS, :: Shared, :: ReadWriteShared, :: RWShared
from iTasks._Framework.IWorld import :: IWorld
from iTasks.Internal.IWorld import :: IWorld
from iTasks.WF.Definition import class iTask
from iTasks.UI.Editor import :: Editor, :: EditMask, :: Masked, :: VSt
from iTasks.UI.Editor.Generic import generic gEditor
from iTasks._Framework.Generic.Visualization import generic gText, :: TextFormat(..), toMultiLineText
from iTasks._Framework.Generic.Defaults import generic gDefault
from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat(..), toMultiLineText
from iTasks.Internal.Generic.Defaults import generic gDefault
from GenEq import generic gEq
:: StoreNamespace :== String
......
implementation module iTasks._Framework.Store
implementation module iTasks.Internal.Store
import StdEnv
from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Maybe, Data.Functor, Data.Error
import System.File, System.Directory, System.OSError, System.FilePath
import Text, Text.JSON, iTasks._Framework.Serialization
import Text, Text.JSON, iTasks.Internal.Serialization
import iTasks._Framework.Client.JSStore
import iTasks._Framework.SDS
import iTasks.Internal.Client.JSStore
import iTasks.Internal.SDS
from iTasks._Framework.IWorld import :: IWorld {onClient,server,memoryShares,cachedShares,world}, :: ServerInfo(..), :: SystemPaths(..), :: Resource, :: ShareCache(..), :: CachedValue(..)
from iTasks._Framework