Mercurial > urweb

view tests/gform.ur @ 1726:4df4521fbd3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed excess zero byte from empty pages. Zero byte sometimes breaks http tunneling in Safari. Empty page is a "Not Modified" response for app.js
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 25 Apr 2012 03:07:07 +0400
parents 71bafe66dbe1
children
line wrap: on
line source
con stringify = fold (fn nm :: Name => fn u :: Unit => fn t :: {Type} => [nm = string] ++ t) []

signature S = sig
        con rs :: {Unit}
end

signature S' = sig
        con rs :: {Unit}

        val handler : $(stringify rs) -> page
        val page : unit -> page
end

functor F (M : S) : S' where con rs = M.rs = struct
        con rs = M.rs

        val handler = fn x : $(stringify M.rs) => <html><body>
                {fold [fn rs :: {Unit} => $(stringify rs) -> xml body [] []]
                        (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} =>
                                fn f : $(stringify rest) -> xml body [] [] =>
                                fn x : $(stringify ([nm] ++ rest)) =>
                                        <body><li> {cdata x.nm}</li> {f (x -- nm)}</body>)
                        (fn x => <body></body>)
                        [M.rs] x}
        </body></html>

        val page = fn () => <html><body>
                <lform>
                        {fold [fn rs :: {Unit} => xml lform [] (stringify rs)]
                                (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} =>
                                        fn frag : xml lform [] (stringify rest) =>
                                                <lform><li> <textbox{nm}/></li> {useMore frag}</lform>)
                                <lform></lform>
                                [rs]}

                        <submit action={handler}/>
                </lform>
        </body></html>
end

structure M = F(struct
        con rs = [A, B, C]
end)

open M