Commit 2205387f authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

*** empty log message ***


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@148 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent de2a8a18
......@@ -36,12 +36,6 @@ derive write Inline
doHtmlWrapper :: UserPage !*World -> *World //Combined wrapper which starts the server or client wrapper
doHtmlServer :: UserPage !*World -> *World //Server-side engine
doHtmlClient :: UserPage !*World -> *World //Client-side engine (SAPL)
//doHtmlServer2 :: ![(String,UserPage)] !*World -> *World
// mkViewForm is the *swiss army knife* function creating stateful interactive forms with a view v of data d.
// Make sure that all editors have a unique identifier!
......
......@@ -20,10 +20,10 @@ import HttpServer
// otherwise use the second line
//IF_Database db no_db :== db // If Database option is used
IF_Database db no_db :== no_db // otherwise, BUT also manually flag of ", gerda{|*|}" in the iSpecialStore class definition above
IF_Database db no_db :== no_db // otherwise, BUT also manually flag of ", gerda{|*|}" in the iSpecialStore class definition
//IF_DataFile df no_df :== df // If DataFile option is used
IF_DataFile df no_df :== no_df // otherwise, BUT also manually flag of ", read {|*|}, write {|*|}" in the iSpecialStore class definition above
IF_DataFile df no_df :== no_df // otherwise, BUT also manually flag of ", read {|*|}, write {|*|}" in the iSpecialStore class definition
//IF_Ajax aj no_aj :== aj // If you want to enable sub-page (thread) handling using "Ajax" technology
IF_Ajax aj no_aj :== no_aj // Otherwise
......@@ -95,8 +95,7 @@ MyAbsDir :: String // absolute path name of directory in which this e
// absolute path name of directory where static resources (css,js,img etc.) are stored
//ResourceDir :== MyAbsDir +++ ThisExe
ResourceDir :== "C:\\Documents and Settings\\Bas Lijnse\\My Documents\\Clean\\Libraries\\iData\\Resources\\"
ResourceDir :== "C:\\Documents and Settings\\rinus\\Desktop\\Clean 2.2\\Libraries\\iData\\Resources\\"
iDataStorageDir :== MyAbsDir +++ ThisExe +++ "-iStore" // directory name where iData and iTask files are stored
......@@ -107,9 +106,9 @@ TraceFile :== MyAbsDir +++ ThisExe +++ "-traceSubServer.txt" // name of file
// Debug switches
TraceInput :== True // show what kind of information is received from Client
TraceInput :== False // show what kind of information is received from Client
TraceOutput :== False // show what kind of information is stored when application is finished
TraceThreads :== True // show the threadtable
TraceThreads :== False // show the threadtable
// separators
......
......@@ -29,7 +29,16 @@ derive write Void, Wid, TCl
// iTask workflow processes types
:: Wid a // reference to a workflow process
//:: Wid a // reference to a workflow process
:: Wid a = Wid WorkflowLink // id of workflow process
:: WorkflowLink :== !(Entry,ProcessIds) // entry in table together with unique id which is used for checking whether the reference is still valid
:: ProcessIds :== !(!UserId,!ProcessNr,!WorkflowLabel) // user id, process id and name given to a workflow process; is used as unique identifier in process table
:: WorkflowLabel :== !String
:: Entry :== !Int
:: ProcessNr :== !Int
:: WorkflowStatus = WflActive // iTask workflow process is still being processed
| WflSuspended // it is (temporally) suspended
| WflFinished // it is finshed
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment