diff options
Diffstat (limited to 'desk/lib/rout.hoon')
| -rw-r--r-- | desk/lib/rout.hoon | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/desk/lib/rout.hoon b/desk/lib/rout.hoon new file mode 100644 index 0000000..a818ec6 --- /dev/null +++ b/desk/lib/rout.hoon @@ -0,0 +1,53 @@ +/+ *sortug +|% ++$ card card:agent:gall ++$ eyre-poke [id=@da req=inbound-request:eyre] +:: our paths are particular ++$ paeth (list @t) ++$ req-path [=method:http paeth] ++$ route-map (map req-path simple-payload:http) ++$ data [=order state=mold] +:: I'd rather it can be a non-simple payload but whatever ++$ route $-(inbound-request route-end) +++ de-path +:: modified from apat:de-purl:html +=/ delim ;~(pose fas dot) +%+ cook :: get rid of the last dot and make the extension a part of the path +|= l=paeth ^+ l +=/ acc [nl=*_l i=1] +%^ spin l acc +|= [e=@t a=acc] +:- e :_ +(i) +:: only change the last one +?. .=(i (lent l)) a.a +(rash last (csplit dot)) +;~(pfix fas (more fas smeg:de-purl:html)) + +++ parse-url-path + |= url=@t + ^- request-line + (fall (rush url ;~(plug de-path yque:de-purl:html)) [[~ ~] ~]) +++ $ =state + |* state-type=mold + +=/ met method.request.req.order +=/ req-line (parse-request-line url.request.req.order) +=/ pth=path :- met site.req-line +?+ pth :_ state (serve-404 req-line) + [%'GET' ~ ~] :_ state (serve-index req-line) :: "/" + [%'GET' @ @ @ @ *] :_ state (serve-post site.req-line) + [%'POST' *] (handle-post req-line body.request.req.order state) + :: [%get %blog *] serve-blog + :: [%get 'chat' *] serve-chat + :: [%get 'forum' *] serve-forum + :: [%get 'about' *] serve-about +== + +:: The api we want is +(route eyre-poke route-map state bowl) +:: route-map is ++ +:: and from that we get +[(list card) simple-payload:http _state] +which the router itself resolves to (quip card _state) +--
\ No newline at end of file |