Commit 82065d47 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

coded name of form to enable any character in a name

parent 736d2a6f
......@@ -30,12 +30,13 @@ import htmlFormData
| UpdS String // new piece of text
encodeTriplet :: !Triplet -> String // encoding of triplets
encodeString :: !String -> String // encoding of
// Form submission handling
callClean :: !(Script -> ElementEvents) !Mode !String -> [ElementEvents]
submitscript :: BodyTag
globalstateform :: !Value -> BodyTag
callClean :: !(Script -> ElementEvents) !Mode !String -> [ElementEvents]
submitscript :: BodyTag
globalstateform :: !Value -> BodyTag
// serializing, de-serializing of iData states to strings stored in the html page
......@@ -49,9 +50,9 @@ readState :: !String !String !*NWorld -> (!String,!*NWorld)
// constants that maybe useful
ThisExe :: !ServerKind -> String // name of this executable
MyPhP :: !ServerKind -> String // name of php script interface between server and this executable
MyDir :: !ServerKind -> String // name of directory in which persistent form info is stored
ThisExe :: !ServerKind -> String // name of this executable
MyPhP :: !ServerKind -> String // name of php script interface between server and this executable
MyDir :: !ServerKind -> String // name of directory in which persistent form info is stored
traceHtmlInput :: !ServerKind !(Maybe [(String, String)]) -> BodyTag // for debugging showing the information received from browser
......@@ -170,13 +170,13 @@ DecodeArguments Internal (Just args)
| nargs == 1 = DecodeCleanServerArguments (foldl (+++) "" [name +++ "=" +++ value +++ ";" \\ (name,value) <- args])
# tripargs = reverse args // state hidden in last field, rest are triplets
# (state,tripargs) = (urlDecode (snd (hd tripargs)),tl tripargs) // decode state, get triplets highest positions first
# constriplets = filter (\(name,_) -> name == "CS") tripargs // select constructor triplets
# constriplets = filter (\(name,_) -> name == "CS") tripargs // select constructor triplets
# nconstriplets = [(constrip,"") \\ (_,codedtrip) <- constriplets, (Just constrip) <- [parseString (decodeString (urlDecode codedtrip))]] // and decode
# valtriplets = filter (\(name,_) -> name <> "CS") tripargs // select all other triplets
# valtriplets = filter (\(name,_) -> name <> "CS") tripargs // select all other triplets
# nvaltriplets = [(mytrip,new) \\ (codedtrip,new) <- valtriplets, (Just mytrip) <- [parseString (decodeString (urlDecode codedtrip))]] // and decode
= ("clean",reverse nconstriplets ++ nvaltriplets,state) // order is important, first the structure than the values ...
= ("clean",reverse nconstriplets ++ nvaltriplets,state) // order is important, first the structure than the values ...
where
DecodeCleanServerArguments :: !String -> (!String,!Triplets,!String) // executable, id + update , new , state
DecodeCleanServerArguments :: !String -> (!String,!Triplets,!String) // executable, id + update , new , state
DecodeCleanServerArguments args
# input = [c \\ c <-: args | not (isControl c) ] // get rid of communication noise
# (thisexe,input) = mscan '\"' input // get rid of garbage
......
......@@ -70,8 +70,8 @@ MainModule
LastModified: No 0 0 0 0 0 0
OtherModules
Module
Name: htmlTask
Dir: {Application}\Libraries\htmlGEC
Name: GenEq
Dir: {Application}\Libraries\Generics
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -87,8 +87,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: htmlExceptions
Dir: {Application}\Libraries\htmlGEC
Name: StdArrow
Dir: {Application}\Libraries\GEC\GEC Implementation
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -104,7 +104,7 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: htmlDatabase
Name: htmlArrow
Dir: {Application}\Libraries\htmlGEC
Compiler
NeverMemoryProfile: False
......@@ -121,8 +121,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: GenLexOrd
Dir: {Application}\Libraries\Generics
Name: htmlRefFormlib
Dir: {Application}\Libraries\htmlGEC
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -138,7 +138,7 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: httpSubServer
Name: htmlFormlib
Dir: {Application}\Libraries\htmlGEC
Compiler
NeverMemoryProfile: False
......@@ -151,22 +151,24 @@ OtherModules
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
Dcl
WindowPosition
X: 10
Y: 10
SizeX: 800
SizeY: 624
DclOpen: False
Icl
WindowPosition
X: 49
Y: 67
SizeX: 868
SizeY: 568
IclOpen: False
LastModified: No 0 0 0 0 0 0
NeededObjFiles
ObjectFile: SUBSERVER.OBJ
ObjectFile: CFUNCLIB.OBJ
ObjectFile: REGERROR.OBJ
ObjectFile: REGSUB.OBJ
ObjectFile: REGEXP.OBJ
NeededLibraries
Library: WSOCK32.TXT
Library: USER32.TXT
Library: KERNEL32.TXT
Module
Name: _Array
Dir: {Application}\Libraries\Generics
Name: htmlButtons
Dir: {Application}\Libraries\htmlGEC
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -178,12 +180,24 @@ OtherModules
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
Dcl
WindowPosition
X: 10
Y: 10
SizeX: 800
SizeY: 624
DclOpen: False
Icl
WindowPosition
X: 10
Y: 10
SizeX: 800
SizeY: 624
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: GenMap
Dir: {Application}\Libraries\Generics
Name: StdArrayExtensions
Dir: {Application}\Libraries\StdLib
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -199,8 +213,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdParsComb
Dir: {Application}\Libraries\Hilde\Parser combinators 2002
Name: StdListExtensions
Dir: {Application}\Libraries\StdLib
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -216,8 +230,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdException
Dir: {Application}\Libraries\ExceptionsWindows
Name: StdLib
Dir: {Application}\Libraries\StdLib
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -233,8 +247,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: EstherParser
Dir: {Application}\Libraries\Hilde
Name: httpUtil
Dir: {Application}\Libraries\htmlGEC
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -250,8 +264,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: EstherBackend
Dir: {Application}\Libraries\Hilde
Name: StdStringChannels
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -267,8 +281,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: ShowWrapped
Dir: {Application}\Libraries\WrapDebug
Name: StdEventTCP
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -284,8 +298,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: Wrap
Dir: {Application}\Libraries\WrapDebug
Name: ostcp
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -300,9 +314,14 @@ OtherModules
DclOpen: False
IclOpen: False
LastModified: No 0 0 0 0 0 0
NeededObjFiles
ObjectFile: cCrossCallTCP_121.obj
ObjectFile: cTCP_121.obj
NeededLibraries
Library: wsock_library
Module
Name: Debug
Dir: {Application}\Libraries\WrapDebug
Name: tcp_bytestreams
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -318,8 +337,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: DynIDMacros
Dir: {Application}\Libraries\Dynamics\implementation
Name: StdTCPDef
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -335,8 +354,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdCleanTypes
Dir: {Application}\Libraries\Dynamics\extension
Name: StdTCPChannels
Dir: {Application}\Libraries\Tcp
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -352,8 +371,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: _SystemDynamic
Dir: {Application}\Libraries\Dynamics\implementation\windows
Name: osfileselect
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -368,9 +387,11 @@ OtherModules
DclOpen: False
IclOpen: False
LastModified: No 0 0 0 0 0 0
NeededObjFiles
ObjectFile: cCrossCallFileSelectors_121.
Module
Name: StdOverloaded
Dir: {Application}\Libraries\StdEnv
Name: StdFileSelect
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -386,8 +407,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdEnv
Dir: {Application}\Libraries\StdEnv
Name: StdPStClass
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -403,8 +424,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdBool
Dir: {Application}\Libraries\StdEnv
Name: scheduler
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -420,8 +441,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdInt
Dir: {Application}\Libraries\StdEnv
Name: receiverevent
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -437,8 +458,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdMisc
Dir: {Application}\Libraries\StdEnv
Name: receiverdevice
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -454,8 +475,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdChar
Dir: {Application}\Libraries\StdEnv
Name: StdReceiverAttribute
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -471,8 +492,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdClass
Dir: {Application}\Libraries\StdEnv
Name: receiverdefaccess
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -488,8 +509,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdArray
Dir: {Application}\Libraries\StdEnv
Name: receiveraccess
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -505,8 +526,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: _SystemArray
Dir: {Application}\Libraries\StdEnv
Name: receiverid
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -522,8 +543,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdReal
Dir: {Application}\Libraries\StdEnv
Name: StdReceiver
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -539,8 +560,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdString
Dir: {Application}\Libraries\StdEnv
Name: StdReceiverDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -556,8 +577,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdFile
Dir: {Application}\Libraries\StdEnv
Name: world
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -573,8 +594,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdList
Dir: {Application}\Libraries\StdEnv
Name: osbeep
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -590,8 +611,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdEnum
Dir: {Application}\Libraries\StdEnv
Name: StdProcessDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -607,8 +628,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: _SystemEnum
Dir: {Application}\Libraries\StdEnv
Name: StdProcessAttribute
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -624,8 +645,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdOrdList
Dir: {Application}\Libraries\StdEnv
Name: StdPSt
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -641,8 +662,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdTuple
Dir: {Application}\Libraries\StdEnv
Name: osmouse
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -658,8 +679,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdCharList
Dir: {Application}\Libraries\StdEnv
Name: roundrobin
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -675,8 +696,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdFunc
Dir: {Application}\Libraries\StdEnv
Name: processstack
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -692,8 +713,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdHtml
Dir: {Application}\Libraries\htmlGEC
Name: timerhandle
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -709,8 +730,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: htmlSettings
Dir: {Application}\Libraries\htmlGEC
Name: processhandle
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -722,18 +743,12 @@ OtherModules
ReadableABC: False
ReuseUniqueNodes: True
Fusion: False
Dcl
WindowPosition
X: 10
Y: 10
SizeX: 800
SizeY: 624
DclOpen: False
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: htmlHandler
Dir: {Application}\Libraries\htmlGEC
Name: menuCCall_12
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -748,9 +763,11 @@ OtherModules
DclOpen: False
IclOpen: False
LastModified: No 0 0 0 0 0 0
NeededObjFiles
ObjectFile: cCrossCallMenus_121.
Module
Name: htmlDataDef
Dir: {Application}\Libraries\htmlGEC
Name: osmenu
Dir: {Application}\Libraries\ObjectIO\OS Windows
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -766,8 +783,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: htmlStyleDef
Dir: {Application}\Libraries\htmlGEC
Name: StdMenuDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -783,8 +800,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: PrintUtil
Dir: {Application}\Libraries\htmlGEC
Name: menuhandle
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -800,8 +817,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdGeneric
Dir: {Application}\Libraries\StdEnv
Name: devicesystemstate
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -817,8 +834,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdStrictLists
Dir: {Application}\Libraries\StdEnv
Name: keyfocus
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -834,8 +851,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: _SystemStrictLists
Dir: {Application}\Libraries\StdEnv
Name: receiverhandle
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -851,8 +868,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: _SystemEnumStrict
Dir: {Application}\Libraries\StdEnv
Name: StdWindowDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -868,8 +885,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: Gerda
Dir: {Application}\Libraries\Gerda
Name: StdControlDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -885,8 +902,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: StdMaybe
Dir: {Application}\Libraries\StdLib
Name: windowhandle
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -902,8 +919,8 @@ OtherModules
IclOpen: False
LastModified: No 0 0 0 0 0 0
Module
Name: odbc
Dir: {Application}\Libraries\Gerda
Name: StdTimerDef
Dir: {Application}\Libraries\ObjectIO
Compiler
NeverMemoryProfile: False
NeverTimeProfile: False
......@@ -918,11 +935,9 @@ OtherModules
DclOpen: False
IclOpen: False
LastModified: No 0 0 0 0 0 0
NeededLibraries