| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 |
- /+ *wrapper
- =>
- |%
- +$ server-state %stateless
- ++ moat (keep server-state)
- +$ header [k=@t v=@t]
- +$ octs [p=@ q=@]
- +$ method
- $? %'GET'
- %'HEAD'
- %'POST'
- %'PUT'
- %'DELETE'
- %'CONNECT'
- %'OPTIONS'
- %'TRACE'
- %'PATCH'
- ==
- ::
- +$ cause
- $: %req
- id=@
- uri=@t
- =method
- headers=(list header)
- body=(unit octs)
- ==
- ::
- +$ effect
- $: %res
- id=@
- status=@ud
- headers=(list header)
- body=(unit octs)
- ==
- ::
- ++ to-octs
- |= bod=@
- ^- (unit octs)
- =/ len (met 3 bod)
- ?: =(len 0) ~
- `[len bod]
- --
- ::
- ~& %serving
- %- (moat |)
- ^- fort:moat
- |_ k=server-state
- ::
- :: +load: upgrade from previous state
- ::
- ++ load
- |= arg=server-state
- arg
- ::
- :: +peek: external inspect
- ::
- ++ peek
- |= =path
- ^- (unit (unit *))
- !!
- ::
- :: +poke: external apply
- ::
- ++ poke
- |= [=wire eny=@ our=@ux now=@da dat=*]
- ^- [(list effect) server-state]
- =/ sof-cau=(unit cause) ((soft cause) dat)
- ?~ sof-cau
- ~& "cause incorrectly formatted!"
- ~& dat
- !!
- =/ [id=@ uri=@t =method headers=(list header) body=(unit octs)] +.u.sof-cau
- ~& [id+id uri+uri method+method headers+headers]
- :_ k
- :_ ~
- ^- effect
- =- ~& effect+-
- -
- ?+ method [%res ~ %400 ~ ~]
- %'GET'
- :* %res id=id %200
- ['content-type' 'text/html']~
- %- to-octs
- '''
- <!doctype html>
- <html>
- <body>
- <h1>Hello NockApp!</h1>
- </body>
- </html>
- '''
- ==
- ::
- %'POST'
- !!
- ==
- --
|
