annotate demo/ref.ur @ 724:12ec14a6be0b

<link>
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Apr 2009 12:00:44 -0400
parents aa2290c32ce2
children 5819fb63c93a
rev   line source
adamc@419 1 structure IR = RefFun.Make(struct
adamc@643 2 type data = int
adamc@419 3 end)
adamc@419 4
adamc@419 5 structure SR = RefFun.Make(struct
adamc@643 6 type data = string
adamc@419 7 end)
adamc@419 8
adamc@419 9 fun main () =
adamc@419 10 ir <- IR.new 3;
adamc@419 11 ir' <- IR.new 7;
adamc@419 12 sr <- SR.new "hi";
adamc@419 13
adamc@434 14 IR.write ir' 10;
adamc@419 15
adamc@419 16 iv <- IR.read ir;
adamc@419 17 iv' <- IR.read ir';
adamc@419 18 sv <- SR.read sr;
adamc@419 19
adamc@434 20 IR.delete ir;
adamc@434 21 IR.delete ir';
adamc@434 22 SR.delete sr;
adamc@419 23
adamc@419 24 return <xml><body>
adamc@419 25 {[iv]}, {[iv']}, {[sv]}
adamc@419 26 </body></xml>