Mercurial > urweb
view demo/ref.ur @ 565:74800be65591
Creation of sources in server code
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 19 Dec 2008 11:47:18 -0500 |
parents | b393c2fc80f8 |
children | aa2290c32ce2 |
line wrap: on
line source
structure IR = RefFun.Make(struct type t = int end) structure SR = RefFun.Make(struct type t = string end) fun main () = ir <- IR.new 3; ir' <- IR.new 7; sr <- SR.new "hi"; IR.write ir' 10; iv <- IR.read ir; iv' <- IR.read ir'; sv <- SR.read sr; IR.delete ir; IR.delete ir'; SR.delete sr; return <xml><body> {[iv]}, {[iv']}, {[sv]} </body></xml>