Commit 832db9df authored by Mart Lubbers's avatar Mart Lubbers

convert the files to match createBasicAPIExamples

parent 572ea143
Pipeline #12477 failed with stage
in 1 minute and 34 seconds
This diff is collapsed.
module Enter_Text
// Enter a text string in a text area
import iTasks
Start :: *World -> *World
Start world
= startEngine enterText world
enterText :: Task String
enterText
= enterInformation "Enter a text:" [EnterUsing id textArea]
>>= viewInformation "You entered:" [ViewUsing id textArea]
>>= return
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterDateAndTime
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module EnterDateAndTime
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterDateAndTime
// Enter a list of dates and a times
import iTasks
import iTasks.Extensions.DateTime
wf :: String -> Workflow
wf a = workflow a "Enter a date and a time" enterDateTime
Start :: *World -> *World
Start world
= startEngine enterDateTime world
enterDateTime :: Task [(Date, Time)]
enterDateTime
= enterInformation "Enter a date and time" []
>>= viewInformation "You Entered:" []
>>= return
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/EnterDateAndTime
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: EnterDateAndTime
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterInteger
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module Enter_Integer
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterInteger
// Enter an Integer Number
import iTasks
wf :: String -> Workflow
wf a = workflow a "Enter an Integer" enterInt
Start :: *World -> *World
Start world
Start world
= startEngine enterInt world
enterInt :: Task Int
enterInt
= enterInformation "Enter an Integer number:" []
>>= viewInformation "You entered:" []
>>= return
enterInt
= enterInformation "Enter an Integer number:" []
>>= viewInformation "You entered:" []
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/EnterInteger
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: EnterInteger
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterListOfInt
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module EnterListOfInt
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterListOfInt
// Enter a list of Integer numbers
import iTasks
wf :: String -> Workflow
wf a = workflow a "Enter a list of Integer numbers" enterListOfInt
Start :: *World -> *World
Start world
Start world
= startEngine enterListOfInt world
enterListOfInt :: Task [Int]
enterListOfInt
= enterInformation "Enter a list of Integer numbers:" []
>>= viewInformation "You Entered:" []
>>= return
\ No newline at end of file
enterListOfInt
= enterInformation "Enter a list of Integer numbers:" []
>>= viewInformation "You Entered:" []
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/EnterListOfInt
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: EnterListOfInt
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterText
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.EnterText
// Enter a text string in a text are
import iTasks
wf :: String -> Workflow
wf a = workflow a "Enter text" enterText
Start :: *World -> *World
Start world
= startEngine enterText world
enterText :: Task String
enterText
= enterInformation "Enter text:" [EnterUsing id textArea]
>>= viewInformation "You entered:" [ViewUsing id textArea]
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/EnterText
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: EnterText
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.GoogleMap
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module GoogleMap
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.GoogleMap
// Enter a Google Map position
import iTasks
import iTasks.Extensions.GIS.GoogleMap
wf :: String -> Workflow
wf a = workflow a "Enter a Google map" googleMap
Start :: *World -> *World
Start world
Start world
= startEngine googleMap world
googleMap :: Task GoogleMap
googleMap
= enterInformation "Enter a Google map:" []
>>= viewInformation "You entered:" [ViewAs (gText{|*|} AsMultiLine o Just)]
>>= return
\ No newline at end of file
googleMap
= enterInformation "Enter a Google map:" []
>>= viewInformation "You entered:" [ViewAs (gText{|*|} AsMultiLine o Just)]
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/GoogleMap
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: GoogleMap
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.HelloWorld
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module Hello_World
implementation module BasicAPIExamples.EditorsOnBasicAndPredefinedTypes.HelloWorld
// Just displaying a message to welcome you.
import iTasks
wf :: String -> Workflow
wf a = workflow a "Hello World!" helloWorld
Start :: *World -> *World
Start world
Start world
= startEngine helloWorld world
helloWorld :: Task String
helloWorld
= viewInformation "You have a message from iTasks:" [] "Hello world!"
helloWorld :: Task String
helloWorld
= viewInformation "You have a message from iTasks:" [] "Hello world!"
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/HelloWorld
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520
ExtraMemory: 8192
IntialHeapSize: 204800
HeapSizeMultiplier: 4096
ShowExecutionTime: False
ShowGC: False
ShowStackSize: False
MarkingCollector: False
DisableRTSFlags: False
StandardRuntimeEnv: True
Profile
Memory: False
MemoryMinimumHeapSize: 0
Time: False
Stack: False
Dynamics: True
GenericFusion: False
DescExL: False
Output
Output: ShowConstructors
Font: Monaco
FontSize: 9
WriteStdErr: False
Link
LinkMethod: Static
GenerateRelocations: False
GenerateSymbolTable: False
GenerateLinkMap: False
LinkResources: False
ResourceSource:
GenerateDLL: False
ExportedNames:
Paths
Path: {Project}
Precompile:
Postlink:
MainModule
Name: HelloWorld
Dir: {Project}
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
StrictnessAnalysis: True
ListTypes: StrictExportTypes
ListAttributes: True
Warnings: True
Verbose: True
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
definition module BasicAPIExamples.EditorsOnCustomTypes.EnterFamilyTree
from iTasks.Extensions.Admin.WorkflowAdmin import :: Workflow
wf :: String -> Workflow
module EnterFamily
implementation module BasicAPIExamples.EditorsOnCustomTypes.EnterFamilyTree
// Enter a family tree using a record type
import iTasks
import iTasks.Extensions.DateTime
wf :: String -> Workflow
wf a = workflow a "Enter a family tree" enterFamily
:: Family = { person :: Person
, married :: Maybe Person
, children :: [Family]
......@@ -20,12 +23,10 @@ import iTasks.Extensions.DateTime
derive class iTask Family, Person, Gender
Start :: *World -> *World
Start world
Start world
= startEngine enterFamily world
enterFamily :: Task Family
enterFamily
= enterInformation "Enter a family tree:" []
>>= viewInformation "You Entered:" []
>>= return
enterFamily
= enterInformation "Enter a family tree:" []
>>= viewInformation "You Entered:" []
Version: 1.4
Global
ProjectRoot: .
Target: iTasks
Exec: {Project}/EnterFamilyTree
CodeGen
CheckStacks: False
CheckIndexes: True
Application
HeapSize: 209715200
StackSize: 20971520